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: PSGAP0

Package: Inpatient Medications

Routine: PSGAP0


Information

PSGAP0 ;BIR/CML3-ACTION PROFILE ;20 May 98 / 12:36 PM

Source Information

Source file <PSGAP0.m>

Entry Points

Name Comments DBIA/ICR reference
GOD ; gather order data
PAT ;
GDT ;
EN ; entry point
ENQ ; queued entry point
PG ;
CLIN ;
PW ;
PP ;
DTM ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: !!,"Enter ",N," date/time: "
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes...(you should QUEUE this report)..."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?2,"If a ",N," date is entered, an action profile will print for only those",!,"patients that have at least one active order with a ",$S(N["A":"STOP",1:"START")," DATE on or ",$S(N["A":"after",1:"before"),!,"the ",N," date entered."
  • Line Location: DTM+3
Function Call: WRITE
  • Prompt: !?2,"Entry is not required. If neither date is entered, all patients with active",!,"orders will print (for the ward(s) chosen). Enter an up-arrow (^) to exit."
  • Line Location: DTM+4
Function Call: WRITE
  • Prompt: !?2,"If you wish to enter a ",$S(N["R":"start",1:"stop")," date of ",Y,", you must enter a TIME of day",!,"of ",T," or greater. Any date after ",Y," does not need time entered.",!
  • Line Location: DTM+5
Info |  Source |  Entry Points |  Interaction Calls