Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSGOE0

Package: Inpatient Medications

Routine: PSGOE0


Information

PSGOE0 ;BIR/CML3-PROFILE AND ORDER ENTRY ;25 SEP 97 / 7:42 AM

Source Information

Source file <PSGOE0.m>

Entry Points

Name Comments DBIA/ICR reference
START ; print orders
ENVO ; view/act on orders
ASK ; new orders entered here
DRG ;
DONE ;
AM ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: CONT
  • Timeout: DTIME
  • Line Location: ENVO+8
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue: "
  • Line Location: ENVO+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENVO+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENVO+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"New order(s) for ",$P(PSGP(0),"^"),"? Y// "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: " (NO)"
  • Condition for execution: "Nn"[X
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: " (YES)"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' (or press the RETURN key) to enter new UNIT DOSE orders for this",!,"patient. Answer 'NO' (or '^') if there are no new orders for this patient."
  • Line Location: AM+1
Info |  Source |  Entry Points |  Interaction Calls