rem custom nurses station main menu
rem  these are the global settings
shadow on
border on
explode on
colors red, ltwhite, ltwhite, red, white, red, ltwhite, red

rem  this is the top level menu
screen 1, H, 1,2,1,77
rem shadow off
rem border off
explode off
field 0,  1, " Patient ",           158, SCREEN 10
field 0, 35, " Inquiry ",           151, screen 40
field 0, 64, " Utilities ",         163, SCREEN 50
rem  end of menu

rem  this is the "Patient" menu
screen 10, V, 3, 2, 0, 0
field 0, 0, " Orders (new/edit)   ", 157, APP, 1, user, etreq-l, etreq
rem field 1, 0, " Drawlists           ", 146, APP, 4, user, drawmain, drawsel
rem  end of menu

rem  this is the "rePorts" menu
screen 40, V, 3, 35, 0, 0
field 0, 0, " Patient inquiry     ",  158, APP, 256, USER, Inquiry, SamInq
field 1, 0, " Cumulative inquiry  ",  145, APP, 256, USER, Inquiry, CumInq
rem  end of menu

rem  this is the "Utilities" menu
screen 50, V, 3, 60, 0, 0
field 0, 0, " System parms   ", 161, app, 16384, USER, SYSPARMS, SYSPARMS
field 1, 0, " Error log      ", 147, app, 2147483648, USER, ERRORLOG, ERRORLOG
field 2, 0, " diagNostics    ", 156, APP, 67108864, user, diags, diagmenu
rem  end of menu