Routine: PSGPEN

Package	Total	Call Graph
Inpatient Medications	5	$$ENDTC^PSGMI $$DEFON^PSGPER1 ^PSGPL0 $$LASTREN^PSJLMPRI $$DATE2^PSJUTL2
VA Fileman	3	NOW^%DTC ^DIE ^DIR
Kernel	1	$$DT^XLFDT

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI $$DEFON^PSGPER1 ^PSGPL0 $$LASTREN^PSJLMPRI $$DATE2^PSJUTL2

VA Fileman

NOW^%DTC ^DIE ^DIR

Kernel

$$DT^XLFDT

Package	Total	Caller Graph
Inpatient Medications	7	PSGOD PSGOEE PSGOER PSGOETO PSGOEV PSJCOM1 PSJOE1

Package

Total

Caller Graph

Inpatient Medications

PSGOD PSGOEE PSGOER PSGOETO PSGOEV PSJCOM1 PSJOE1

Name	Comments	DBIA/ICR reference
DH	;
WDH	;
DD	;
WH	;
GF	;
DONE	;
PSGPENWS	;
UPDD	;
NCE	;
EN(PSGPENO)	;

Name	Field # of Occurrence
NOW^%DTC	EN+3, DD+8
^DIE	DD+5
^DIR	UPDD+1, PSGPENWS+3, PSGPENWS+4
$$ENDTC^PSGMI	NCE+1
$$DEFON^PSGPER1	DONE+1
^PSGPL0	EN+11
$$LASTREN^PSJLMPRI	EN+9
$$DATE2^PSJUTL2	EN+10
$$DT^XLFDT	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The dispense drug",$E("s",$P(PSGPENWS,"^",2))," for this order ",$S($P(PSGPENWS,"^",2):"are",1:"is a")," WARD STOCK item",$E("s",$P(PSGPENWS,"^",2)),"." Line Location: EN+6
Function Call: WRITE	Prompt: !!,"...updating dispense drug(s)..." Line Location: UPDD+1
Function Call: WRITE	Prompt: !!,"The next cart exchange is ",$$ENDTC^PSGMI(PSGPLF),! Line Location: NCE+1
Function Call: WRITE	Prompt: !,"...",DRG,?45,"U/D: ",UD,"..." Line Location: DD+2
Function Call: WRITE	Prompt: !!?2,"Enter a number from 0 to 9999, 0 decimal digits." Line Location: DH+1
Function Call: WRITE	Prompt: !!?2,"Enter the number DOSES needed for this order until the next cart exchange.",!,"This will be the number of times the order will be administered to the patient",!,"from the start of the order until the next cart exchange." Line Location: DH+2
Function Call: WRITE	Prompt: !!?2,"PLEASE NOTE that this is DOSES, and NOT UNITS. The doses entered will be",!,"converted to units for each dispense drug of this order, as each dispense drug",!,"may have a different units per dose." Line Location: DH+3
Function Call: WRITE	Prompt: !,"This dispense drug is a WARD STOCK item." Line Location: PSGPENWS+1
Function Call: WRITE	Prompt: !,"Would you like to:",!?3,"1 - Enter 0 (no) doses needed for this dispense drug.",!?3,"2 - Enter ",PSGDA," doses needed for this dispense drug.",!?3,"3 - Enter another amount as the doses needed for this dispense drug." Line Location: PSGPENWS+2
Function Call: WRITE	Prompt: ! Line Location: PSGPENWS+4
Function Call: WRITE	Prompt: !! Line Location: WH+2
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(Q2)>78 Line Location: WH+2
Function Call: WRITE	Prompt: Q2," " Line Location: WH+2
Function Call: WRITE	Prompt: !?3,"1 to enter 0 (no) pre-exchange doses for this dispense drug.",!?3,"2 to enter ",PSGDA," doses for this dispense drug.",!?3,"3 to enter another amount for this dispense drug." Line Location: WH+3
Function Call: WRITE	Prompt: !!?2,"Enter a number from 0 to 9999, 0 decimal digits. If you enter an '^' to exit",!,"NO pre-exchange doses will be entered for this dispense drug." Line Location: WDH+1
Routine Call	DIE Line Location: DD+5
Routine Call	DIR Line Location: UPDD+1 PSGPENWS+3 PSGPENWS+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.4 - [#53.4]	DD+8, DD+9, DD+10, DD+12, DD+14, DD+15, DD+17, DD+18
^PS(53.5 - [#53.5]	EN+8, GF+1, GF+2
^PS(55 - [#55]	EN+3, EN+4, EN+5, EN+7, EN+10, UPDD+2
^PS(57.5 - [#57.5]	EN+7
^PS(59.7 - [#59.7]	EN+2
^PSD(58.8 - [#58.8]	EN+4, EN+5, DD+3
^PSDRUG - [#50]	DD+1
^PSI(58.1 - [#58.1]	EN+4, EN+5, DD+3

Name	Line Occurrences
DD	UPDD+2
DONE	UPDD+1
GF	EN+11
NCE	EN+11
PSGPENWS	DD+3

Name	Field # of Occurrence
^(	EN+2, EN+4, EN+5, UPDD+2
^(0	UPDD+2, GF+2, DD+1, DD+10, DD+12, DD+14, DD+15, DD+17, DD+18, DD+20

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3, DD+9
DA	DD+1~, DD+4!, DD+5*
DA(1	DD+5*
DA(2	DD+5*
>> DIE	DD+5*
DIR	UPDD+1~, PSGPENWS+3!, PSGPENWS+4!
DIR("?"	UPDD+1, PSGPENWS+3, PSGPENWS+4*
DIR("A"	UPDD+1, PSGPENWS+3, PSGPENWS+4*
DIR("B"	UPDD+1*
DIR(0	UPDD+1, PSGPENWS+3, PSGPENWS+4*
DR	DD+4!, DD+5*
>> DRG	DD+1*, DD+2, WH+1
DT	EN+3*
>> DUOUT	DONE+2*
DUZ	DD+9
>> FQ	UPDD+2*, DD+5, DD+10, DD+12, DD+14
>> ND	EN+3, EN+4, EN+5, UPDD+2, DD+1, DD+3, DD+8*
>> PSGDA	DD+3, DD+4, DD+5, DD+10, DD+12, PSGPENWS+2, PSGPENWS+3, PSGPENWS+4, WH+3
>> PSGDT	EN+3*, EN+8, EN+10, GF+2
PSGID	DONE+2!
PSGMAR	DONE+2!
PSGOD	DONE+2!
>> PSGP	EN+3, EN+4, EN+5, EN+7, EN+9, EN+10, UPDD+2, DD+5, DD+10, DD+12 , DD+14, DD+15, DD+17, DD+18, DD+20
>> PSGPEN	EN+3, EN+6, EN+11, EN+12, UPDD+1
PSGPENO	EN~, EN+1*, EN+3, EN+4, EN+5, EN+7, EN+11, UPDD+2, DD+5, DD+10 , DD+12, DD+14, DD+15, DD+17
>> PSGPENWS	EN+4, EN+5, EN+6, EN+7, DD+3
PSGPLC	EN+11, DONE+2!
PSGPLF	EN+8, EN+11, DONE+2!, NCE+1, GF+2
PSGPLO	EN+11*, DONE+2!
PSGPLS	EN+7, EN+9, EN+10*, DONE+2!
PSGPLUD	DONE+2!
>> PSGPRIO	EN+12
>> PSGPXN	DD+6, DD+7, DD+8, DD+9, DD+10, DD+12, DD+14, DD+15, DD+17, DD+18
>> PSGY	UPDD+1*, DD+3
>> PSJORD	EN+9, EN+10
PSJPRN	EN+2~*
>> PSJPWD	EN+4, EN+5, EN+7, DD+3
>> PSJREN	EN+9, EN+10, DONE+2
PSJRNOS	EN+9~, EN+10
PSJSITE	EN+2~*
>> PSJSYSW0	DONE+1*
>> Q	EN+4, EN+5, GF+1, WH+1, WH+2
>> Q1	WH+2*
>> Q2	WH+2*
>> QQ	GF+1, GF+2
RNDT	EN+9~*
U	EN+2
>> UD	DD+1*, DD+2, DD+4
WG	EN+7*, EN+8, DONE+2!, GF+1, GF+2
>> Y	UPDD+1, PSGPENWS+3, PSGPENWS+4

Customize PDF page

Package: Inpatient Medications

Routine: PSGPEN

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: