Routine: PSGEUD

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

Package

Total

Call Graph

Inpatient Medications

$$ENDDN^PSGMI TXT^PSGMUTL ^PSGO (ENCHK,H2)^PSGON ENL^PSGOU ENDPT^PSGP (ENCV,ENKV)^PSGSETU ENTSK^PSGTI

VA Fileman

NOW^%DTC YN^DICN ^DIE ^DIR

Kernel

^%ZIS

Registration

PID^VADPT

Package	Total	Caller Graph
Inpatient Medications	1	PSJU EUD

Package

Total

Caller Graph

Inpatient Medications

PSJU EUD

Name	Comments	DBIA/ICR reference
QS	;
GP	;
S2	;
S1	;
QSH	;
ENQ	;
R	;
DONE	;
H	;

External References

Name	Field # of Occurrence
NOW^%DTC	ENQ+1
^%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+1

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	Timeout: DTIME Variable: X 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	Timeout: $D(DTOUT) Variable: G 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	Timeout: $S(Q<15:1,1:5) Variable: *X Line Location: S1+1
Function Call: WRITE	Prompt: $C(48) Line Location: S1+1
Function Call: READ	Timeout: $S(Q<15:1,1:5) Variable: *X 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	Timeout: $S(Q<15:1,1:5) Variable: X Line Location: S2+1
Function Call: WRITE	Prompt: $C(48) Line Location: S2+1
Function Call: READ	Timeout: $S(Q<15:1,1:5) Variable: X 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: 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+3
^DPT - [#2]	ENQ+2
^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+3
^PS(57.5 - [#57.5]	R+8, QS+1
^PSDRUG - [#50]	R+9, R+11, ENQ+4
^TMP("PSJON"	GP+5, DONE+1!

Name	Line Occurrences
@(	ENQ+5
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
S2	S2+1, S2+3

Name	Field # of Occurrence
^(	R+1, R+8, ENQ+2, ENQ+3
^(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+2, ENQ+5
%ZIS	QS+3!*
>> BLKS	ENQ+2*, ENQ+5
>> C	ENQ+4, ENQ+5, S1+3, S2+3
CST	DONE+1!
DA	R+13!*, R+14
DA(1	R+13*
DA(2	R+13*
>> DFN	GP+1, GP+2, ENQ+1
>> 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
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+2*, S1+3, S2+3
>> PL	ENQ+2*, S1+3, S2+3
>> PN	ENQ+2*, S1+3, S2+3
>> POP	QS+3
PPAGE	PSGEUD+8~, GP+3*
>> PSGDRG	ENQ+3*
>> PSGDT	R+10, R+11
PSGEFN	PSGEUD+8~
PSGEUD	DONE+1!, R+8, R+14, R+15, QS+2
PSGEUDA	DONE+1!, ENQ+4, ENQ+5, S1+3, S2+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+3
>> PSGP	GP+1, GP+2, R+1, R+5, R+8, R+13, R+14, ENQ+1, ENQ+2, ENQ+3
>> PSGP(0	ENQ+2
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+5
>> PSGTID	QS+4*
>> PSGTIR	QS+4*
PSJNEW	PSGEUD+8~*
>> PSJPAD	GP+2
>> PSJPWD	R+8
>> Q	S1+1, S1+3, S2+1, S2+3
SCH	DONE+1!, R+1*, R+3
U	R+14, ENQ+4
>> UD	R+9*, R+12
>> VA("PID"	ENQ+2
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+3, ENQ+4, S1+1* , S1+3, S2+1, S2+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*

Customize PDF page

Package: Inpatient Medications

Routine: PSGEUD

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: