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

Package: Inpatient Medications

Routine: PSGOE3


Information

PSGOE3 ;BIR/CML3-ABBREV/WARD ORDER ENTRY ;09 JAN 97 / 10:42 AM

Source Information

Source file <PSGOE3.m>

Entry Points

Name Comments DBIA/ICR reference
GTFIELD ; Call ^PSGOE4 for the rest of the data to complete order entry
; PSGOE3 is set only if user is using the ABBREV/WARD ORDER ENTRY.
109 ; dosage ordered
3 ; med route
26 ; schedule
8 ; special instructions
10 ; start date edit
A10 ; start date/time edit
SD ; stop date
DONE ;
FF ; up-arrow to another field
DEL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS IS THE OLD DOSAGE ORDERED PROMPT!!",!
  • Line Location: 109+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 109+4
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 109+5
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: 109+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !,"MED ROUTE: ",$S(PSGMR:PSGMRN_"// ",1:"")
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: " "_$P(^(0),"^",3)
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 3+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 26+1
Function Call: WRITE
  • Prompt: !,"SCHEDULE: ",$S(PSGSCH]"":PSGSCH_"// ",1:"")
  • Line Location: 26+1
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 26+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 26+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !,"SPECIAL INSTRUCTIONS: "_$S(PSGSI]"":$P(PSGSI,"^")_"// ",1:"")
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_PSGSD_"// "
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: " "_PSGSD
  • Line Location: A10+5
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+6
Function Call: WRITE
  • Prompt: " ",PSGSD
  • Line Location: A10+6
Function Call: WRITE
  • Prompt: $C(7)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: FF+1
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: DEL+1
Info |  Source |  Entry Points |  Interaction Calls