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

Package: Inpatient Medications

Routine: PSGEUD


Information

PSGEUD ;BIR/CML3-EXTRA UNITS DISPENSED ;17 SEP 97 / 1:41 PM

Source Information

Source file <PSGEUD.m>

Entry Points

Name Comments DBIA/ICR reference
GP ;
DONE ;
R ;
QS ;
ENQ ;
S1 ;
S2 ;
S3 ;Added ! to clear WR buffer for network channel
QSH ;
H ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"(Patient has NO active or old orders.)"
  • Line Location: GP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GP+4
Function Call: WRITE
  • Prompt: !!,"Select ORDER",$E("S",PSGON>1)," 1-",PSGON,": "
  • Line Location: GP+4
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: GP+4
Function Call: READ
  • Variable: G
  • Timeout: $D(DTOUT)
  • Line Location: GP+5
Function Call: WRITE
  • Prompt: !!,"----------------------------------------",!,DRG,!,"Give: "
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LN>1
  • Line Location: R+4
Function Call: WRITE
  • Prompt: ?6,MARX(LN)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !!,"Dispense drug: ",DRGN," **ORDER INACTIVE**"
  • Line Location: R+10
Function Call: WRITE
  • Prompt: !!,"Dispense drug: ",DRGN," **DRUG INACTIVE**"
  • Line Location: R+11
Function Call: WRITE
  • Prompt: !!,"THIS DRUG IS AN ATC ITEM."
  • Line Location: QS+1
Function Call: WRITE
  • Prompt: $C(7)," BUT THE ATC DEVICE CANNOT BE FOUND!"
  • Line Location: QS+1
Function Call: WRITE
  • Prompt: !,"Do you want to dispense ",$S(PSGEUD>1:"these",1:"this")," extra unit",$E("s",PSGEUD>1)," through the ATC"
  • Line Location: QS+2
Function Call: WRITE
  • Prompt: $C(7),!!?10,"** THE ATC MACHINE CANNOT BE FOUND! **"
  • Line Location: QS+3
Function Call: WRITE
  • Prompt: "...DONE"
  • Line Location: QS+5
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: $C(48)
  • Line Location: S1+1
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S1+3
Function Call: WRITE
  • Prompt: $C(50),$C(52),PN_PID_PL_"IMD"_PSGEUDA_"1 ",$C(53),$C(54),C,$C(55),$C(13)
  • Line Location: S1+3
Function Call: READ
  • Variable: X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S2+1
Function Call: WRITE
  • Prompt: $C(48)
  • Line Location: S2+1
Function Call: READ
  • Variable: X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S2+3
Function Call: WRITE
  • Prompt: $C(50),$C(52),PN_PID_PL_"IMD"_PSGEUDA_"1 ",$C(53),$C(54),C,$C(55),$C(13)
  • Line Location: S2+3
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S3+1
Function Call: WRITE
  • Prompt: $C(48),!
  • Line Location: S3+1
Function Call: READ
  • Variable: *X
  • Timeout: $S(Q<15:1,1:5)
  • Line Location: S3+3
Function Call: WRITE
  • Prompt: $C(50),$C(52),PN_PID_PL_"IMD"_PSGEUDA_"1 ",$C(53),$C(54),C,$C(55),$C(13),!
  • Line Location: S3+3
Function Call: WRITE
  • Prompt: !!?2,"This drug can be dispensed through the ATC machine. Enter 'Y' to do so now. Enter 'N' if you do not want to do so.",!
  • Line Location: QSH+1
Info |  Source |  Entry Points |  Interaction Calls