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

Package: Inpatient Medications

Routine: PSGOE31


Information

PSGOE31 ;BIR/CML3-ORDER ENTRY THROUGH OE/RR (CONT.) ;09 JAN 97 / 2:28 PM

Source Information

Source file <PSGOE31.m>

Entry Points

Name Comments DBIA/ICR reference
1 ; provider
A1
5 ; self med
A5
6 ; hospital supplied self med
106 ; nature of order
A106
DONE ;
FF ; up-arrow to another field
DEL ;
YN ; yes/no as a set of codes
2 ; dispense drug multiple

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: " "_$P(^("PS"),"^",2)_" "_$P(^("PS"),"^",3)
  • Line Location: A1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: !,"SELF MED: "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGSM+1),"// "
  • Condition for execution: PSGSM]""
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: !,"This is an old nature of order call from ^PSGOE31.",!
  • Line Location: 106+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A106+0
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: A106+0
Function Call: WRITE
  • Prompt: $S(X=$P(Y,"^"):" "_$P(Y,"^",2),1:$P($P(Y,"^",2),X,2))
  • Line Location: A106+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A106+5
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
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!"
  • Line Location: 2+3
Info |  Source |  Entry Points |  Interaction Calls