Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 8 $$ENDDN^PSGMI  TXT^PSGMUTL  ^PSGO  (ENCHK,H2)^PSGON  ENL^PSGOU  ENDPT^PSGP  (ENCV,ENKV)^PSGSETU  ENTSK^PSGTI  
VA FileMan 4 NOW^%DTC  YN^DICN  ^DIE  ^DIR  
Kernel 1 ^%ZIS  
Registration 1 PID^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 2 PSJU EUD  PSJU LM PLEUD  
Kernel 1 ^ORD(101  

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 ;

External References

Name Field # of Occurrence
NOW^%DTC ENQ+2
^%ZIS QS+3
YN^DICN QS+2
^DIE R+14
^DIR R+7
$$ENDDN^PSGMI R+9
TXT^PSGMUTL R+3
^PSGO GP+3
ENCHK^PSGON GP+4
H2^PSGON H+1
ENL^PSGOU GP+3
ENDPT^PSGP GP+2
ENCV^PSGSETU PSGEUD+9
ENKV^PSGSETU DONE+1
ENTSK^PSGTI QS+5
PID^VADPT ENQ+2

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
Routine Call
  • DIE
  • Line Location:
    • R+14
Routine Call
  • DIR
  • Line Location:
    • R+7
Routine Call
  • %ZIS
  • Line Location:
    • QS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LABOFF" ENQ+4
^DPT - [#2] ENQ+3
^PS(50.7 - [#50.7] R+1
^PS(51.2 - [#51.2] R+2
^PS(55 - [#55] GP+2, R+1, R+5, R+8, R+13, R+14, ENQ+4
^PS(57.5 - [#57.5] R+8, QS+1
^PSDRUG - [#50] R+9, R+11, ENQ+5
^TMP("PSJON" GP+5, DONE+1!

Label References

Name Line Occurrences
@( ENQ+8
DONE GP+2
GP GP+2, GP+3, GP+5, GP+6
H GP+4
QS R+15
QSH QS+2
R GP+5
S1 S1+1, S1+3, S3+1, S3+3
S2 S2+1, S2+3

Naked Globals

Name Field # of Occurrence
^( R+1, R+8, ENQ+3, ENQ+4
^(0 R+1, R+2, R+13*
^(2 R+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QS+2*, QS+3, ENQ+3*, ENQ+8
%ZIS QS+3!*
>> BLKS ENQ+3*, ENQ+8
>> C ENQ+5*, ENQ+8*, S1+3, S2+3, S3+3
CST DONE+1!
DA R+13!*, R+14
DA(1 R+13*
DA(2 R+13*
>> DFN GP+1*, GP+2, ENQ+2*
>> DIE R+13*
DIR R+7~
DIR(0 R+7*
DO DONE+1!, R+1*, R+3
DR R+13!*
>> DRG R+1*, R+2, R+8*, R+13
DRGN DONE+1!, R+9*, R+10, R+11, R+12
DTIME GP+4
>> DTOUT GP+5, R+8
IO("Q" QS+3!
ION QS+3
>> IOP QS+2*, QS+3*
>> IOT ENQ+8
LN R+3~, R+4*
MARX R+3~
MARX( R+4
MR DONE+1!, R+1*, R+2*, R+3
OD DONE+1!
>> PID ENQ+3*, S1+3, S2+3, S3+3
>> PL ENQ+3*, S1+3, S2+3, S3+3
>> PN ENQ+3*, S1+3, S2+3, S3+3
>> POP QS+3
PPAGE PSGEUD+8~, GP+3*
>> PSGDRG ENQ+4*
>> PSGDT R+10, R+11
PSGEFN PSGEUD+8~
PSGEUD DONE+1!, R+8*, R+14*, R+15, QS+2
PSGEUDA DONE+1!, ENQ+5*, ENQ+8*, S1+3, S2+3, S3+3
>> PSGION QS+3*
PSGLMT GP+3*, DONE+1!
PSGODDD GP+5, DONE+1!
PSGODDD( GP+5
PSGOL GP+3, DONE+1!
PSGON GP+3, GP+4, DONE+1!
PSGONC GP+3*, DONE+1!
PSGONNV PSGEUD+9*, DONE+1!
PSGONR GP+3*, DONE+1!
PSGONV DONE+1!
PSGORD GP+5*, DONE+1!, R+1, R+5, R+8, R+13, R+14, ENQ+4
>> PSGP GP+1*, GP+2*, R+1, R+5, R+8, R+13, R+14, ENQ+2, ENQ+3, ENQ+4
>> PSGP(0 ENQ+3
PSGPRP PSGEUD+9!
PSGPTMP PSGEUD+8~, GP+3*
PSGQ DONE+1!
PSGRET GP+5*, DONE+1!
PSGRET1 GP+5*, DONE+1!
PSGRET2 GP+5*, DONE+1!
PSGRETF PSGEUD+9*, DONE+1!
PSGSPD DONE+1!, QS+2*, ENQ+8
PSGTAG ENQ+1~, ENQ+8*
>> PSGTID QS+4*
>> PSGTIR QS+4*
PSJNEW PSGEUD+8~*
>> PSJPAD GP+2
>> PSJPWD R+8
>> Q S1+1*, S1+3*, S2+1*, S2+3*, S3+1*, S3+3*
SCH DONE+1!, R+1*, R+3
U R+14, ENQ+5
>> UD R+9*, R+12
>> VA("PID" ENQ+3
WG DONE+1!, R+8*, R+9*, R+15, QS+1
>> X GP+4*, GP+5, R+8*, R+9, R+10, R+11, QS+4*, ENQ+4*, ENQ+5, S1+1*
, S1+3*, S2+1*, S2+3*, S3+1*, S3+3*, H+1
>> XQUIT PSGEUD+9
>> Y R+1*, R+7*, QS+1*, QS+2, QS+3*, QS+5*
Z DONE+1!
>> ZTDESC QS+4*
ZTSAVE QS+4!
ZTSAVE( QS+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All