Routine: PSGVBWU

Package	Total	Call Graph
Inpatient Medications	3	$$ENDTC^PSGMI EN1^PSJHL2 $$HIDDEN^PSJLMUTL
VA Fileman	2	(C,NOW)^%DTC ^DIR
Kernel	1	ENS^%ZISS
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Inpatient Medications	3	PSGVBW PSGVBW0 PSJIPST2

Entry Points

Name	Comments	DBIA/ICR reference
CNTSET(WG,X)	; Update counters for ward group totals ; Input: WG - Ward Group IEN ; X - piece identifying order type.
SET	;
ECHK2(DFN,O,DT,SD)	;
CGNM(A,WGN,CGNM)	;DETERMINE CLINIC GROUP NAME
WGNM(WD)	; DETERMINE WARD GROUP NAME
ENUH	;
GOTOPH	;
ENGORD	; get and sort order
GOTOP	; Skip to a specific patient in list.
ECHK(DFN,O,DT,SD)	;
CNTHEAD	; Header for order count.
CNTORDRS	; Display # pending orders by type and ward group
DISPLAY	;

External References

Name	Field # of Occurrence
C^%DTC	CNTORDRS+3, ENGORD+2
NOW^%DTC	ENGORD+2
ENS^%ZISS	CNTORDRS+1
^DIR	DISPLAY+10, GOTOP+2, GOTOP+5, GOTOPH+1
$$ENDTC^PSGMI	ENGORD+2
EN1^PSJHL2	ENUH+1
$$HIDDEN^PSJLMUTL	GOTOP+1
IN5^VADPT	CNTORDRS+19, CNTORDRS+26, CNTORDRS+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Searching for Pending and Non-Verified orders" Line Location: CNTORDRS+4
Function Call: WRITE	Prompt: ?21,"No pending/non-verified orders found.",! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,H(I),!! Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,H(I),?13,"- The same order may be listed under more than 1 Clinic Group;",!,?15,"Therefore sum of Orders listed may not match total number of",!,?15,"pending orders. ",!! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: $S(WG="ZZ":"^OTHER",1:WG),?26,$J(+X,6),?36,$J(+$P(X,U,2),6),?51,$J(+$P(X,U,3),6),?63,$J(+$P(X,U,4),6),! Line Location: DISPLAY+9
Function Call: WRITE	Prompt: @IOF,!,?16,"Pending/Non-Verified Order Totals by Ward Group/Clinic Location",!!,?33,"Pending",?56,"Non-Verified",! Line Location: CNTHEAD+3
Function Call: WRITE	Prompt: "Ward Group/Clinic Location",?30,"IV",?40,"UD",?55,"IV",?67,"UD",! Line Location: CNTHEAD+4
Function Call: WRITE	Prompt: !!,"...a few moments, please..." Line Location: ENGORD+3
Function Call: WRITE	Prompt: !,$P($G(^TMP("PSJSELECT",$J,X)),U) Line Location: GOTOPH+1
Routine Call	DIR Line Location: DISPLAY+10 GOTOP+2 GOTOP+5 GOTOPH+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WGNM+2
^DPT - [#2]	CNTORDRS+6, CNTORDRS+20, CNTORDRS+27
^DPT("CN"	CNTORDRS+32
^PS(53.1 - [#53.1]	CNTORDRS+5, CNTORDRS+7, CNTORDRS+10, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, ENGORD+6, ENGORD+7, ENGORD+11
^PS(55 - [#55]	ECHK+2, ECHK2+2, CNTORDRS+18, CNTORDRS+19, CNTORDRS+20, CNTORDRS+23, CNTORDRS+25, CNTORDRS+26, CNTORDRS+27, CNTORDRS+30 , CNTORDRS+37, CNTORDRS+38, CNTORDRS+40, CNTORDRS+42, CNTORDRS+44, ENGORD+4, ENGORD+10, ENGORD+12, ENUH+1*
^PS(57.5 - [#57.5]	WGNM+2
^PS(57.8 - [#57.8]	CGNM+3, CGNM+4
^SC - [#44]	CNTORDRS+11, CGNM+5
^TMP("PSJ"	CNTORDRS+1!, DISPLAY+2, DISPLAY+4, DISPLAY+7, CNTSET+3, CNTSET+4
^TMP("PSJON"	SET+3*, ENGORD+2!
^TMP("PSJSELECT"	GOTOP+6, GOTOPH+1
^XTMP("PSJPVNV"	CNTORDRS+17, CNTORDRS+32

Label References

Name	Line Occurrences
$$CGNM	CNTORDRS+23, CNTORDRS+30, CNTORDRS+40, CNTORDRS+44
$$ECHK	CNTORDRS+20, CNTORDRS+38, ENGORD+10
$$ECHK2	CNTORDRS+27, CNTORDRS+42, ENGORD+12
$$WGNM	CNTORDRS+6, CNTORDRS+21, CNTORDRS+28, CNTORDRS+32
CGNM	CNTORDRS+10
CNTHEAD	DISPLAY+2, DISPLAY+10
CNTSET	CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+24, CNTORDRS+31, CNTORDRS+41, CNTORDRS+45
ENUH	ENGORD+4
SET	ENGORD+8, ENGORD+10, ENGORD+11, ENGORD+12

Naked Globals

Name	Field # of Occurrence
^(	DISPLAY+7, ENGORD+7, ENGORD+11
^("DSS"	CNTORDRS+10, CNTORDRS+30, CNTORDRS+40, CNTORDRS+44
^(0	ECHK+2, ECHK2+2, ENGORD+4
^(2	CNTORDRS+20
^(4	ECHK+2, ECHK2+2
^(8	CNTORDRS+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENGORD+2
A	CNTORDRS+8~, CNTORDRS+10, CNTORDRS+11, CNTORDRS+13, CNTORDRS+14, CNTORDRS+22~, CNTORDRS+23, CNTORDRS+29~, CNTORDRS+30, CNTORDRS+39~ , CNTORDRS+40, CNTORDRS+43~, CNTORDRS+44*, CGNM~, CGNM+3, CGNM+4, CGNM+5
B	CGNM+1~, CGNM+3*, CGNM+4
CGN	CNTORDRS+8~, CNTORDRS+11, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CGNM+1~, CGNM+3, CGNM+5
CGNM	CNTORDRS+8~, CNTORDRS+10, CNTORDRS+11, CGNM~
CGNM(	CNTORDRS+13, CNTORDRS+14, CGNM+4*
DFN	ECHK~, ECHK+2, ECHK2~, ECHK2+2, CNTORDRS+2~, CNTORDRS+5, CNTORDRS+6, CNTORDRS+7, CNTORDRS+18, CNTORDRS+19 , CNTORDRS+20, CNTORDRS+23, CNTORDRS+25, CNTORDRS+26, CNTORDRS+27, CNTORDRS+30, CNTORDRS+32, CNTORDRS+37, CNTORDRS+38, CNTORDRS+40 , CNTORDRS+44
DIR	DISPLAY+10~, GOTOP+2!, GOTOP+5!, GOTOPH+1~
DIR("??"	GOTOP+5*
DIR("A"	GOTOP+2*
DIR("B"	GOTOP+2*
DIR("S"	GOTOP+5*
DIR(0	DISPLAY+10, GOTOP+2, GOTOP+5, GOTOPH+1
DIRUT	CNTORDRS+2~, DISPLAY+7, DISPLAY+10, GOTOPH+1
DT	ECHK~, ECHK2~
H	DISPLAY+1~
H(	DISPLAY+5, DISPLAY+6
H("C"	DISPLAY+3*
H("CG"	DISPLAY+3*
H("WG"	DISPLAY+3*
>> HDT	ENGORD+2*
I	DISPLAY+1~, DISPLAY+4*, DISPLAY+5, DISPLAY+6, DISPLAY+7
IOF	CNTHEAD+3
IOSL	DISPLAY+10, GOTOPH+1
IOST(0	CNTORDRS+1
>> LD	SET+3, ENGORD+7, ENGORD+10, ENGORD+11, ENGORD+12
>> ND	ECHK+2, ECHK+4, ECHK2+2, ENGORD+7*, ENGORD+8
>> ND4	ECHK+2, ECHK+4, ECHK2+2, ECHK2+3, ECHK2+4
O	ECHK~, ECHK+2, ECHK2~, ECHK2+2, CNTORDRS+42, ENGORD+6, ENGORD+7, ENGORD+10, ENGORD+11, ENGORD+12*
OK	ECHK+1~, ECHK+4, ECHK+5, ECHK2+1~, ECHK2+3, ECHK2+4*, ECHK2+5
ON	SET+1, SET+2, SET+3, CNTORDRS+2~, CNTORDRS+7, CNTORDRS+10, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+42* , ENGORD+7, ENGORD+10, ENGORD+11, ENGORD+12
>> OTYP	CNTORDRS+12, CNTORDRS+14, CNTORDRS+15*
OWG	CNTORDRS+8~, CNTORDRS+10, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+22~, CNTORDRS+23, CNTORDRS+24, CNTORDRS+29~, CNTORDRS+30* , CNTORDRS+31, CNTORDRS+39~, CNTORDRS+40, CNTORDRS+41, CNTORDRS+43~, CNTORDRS+44, CNTORDRS+45
PRNTON	SET+1, SET+2*, ENGORD+1~
>> PSGDT	ECHK+4, ECHK2+2, CNTORDRS+3, CNTORDRS+20, CNTORDRS+27, CNTORDRS+38, CNTORDRS+42, ENGORD+2*, ENGORD+4, ENGORD+10 , ENGORD+12
>> PSGFD	CNTORDRS+20, CNTORDRS+27, CNTORDRS+37*, CNTORDRS+38
PSGO1	ENGORD+5!
PSGO2	ENGORD+4*, ENGORD+5!
PSGO3	ENGORD+4*, ENGORD+5!, ENUH+1
PSGO4	ENGORD+4*, ENGORD+5!
PSGODT	CNTORDRS+2~, CNTORDRS+3, CNTORDRS+20, CNTORDRS+37, ENGORD+2
>> PSGORD	CNTORDRS+19, CNTORDRS+20, CNTORDRS+23, CNTORDRS+26, CNTORDRS+27, CNTORDRS+30, CNTORDRS+38*, CNTORDRS+40, CNTORDRS+44
>> PSGP	CNTORDRS+42, ENGORD+4, ENGORD+6, ENGORD+10, ENGORD+11, ENGORD+12, ENUH+1
>> PSGST	CNTORDRS+20*
>> PSGTOTO	GOTOP+5*
PSJCOM	SET+1, SET+2, ENGORD+1~, ENGORD+7, ENGORD+11
PSJGOTO	GOTOP+2!, GOTOP+4, GOTOP+6
>> PSJIRNF	ENGORD+8
>> PSJPAC	ENGORD+8
>> PSJPAD	CNTORDRS+19, CNTORDRS+20, CNTORDRS+26, CNTORDRS+35*, CNTORDRS+37, CNTORDRS+42, ENGORD+4, ENGORD+10, ENGORD+12
>> PSJPRIO	SET+3, ENGORD+7
>> PSJRNF	ENGORD+8
>> PSJSQ	CNTORDRS+13*, CNTORDRS+14
>> PSJST	CNTORDRS+37*, CNTORDRS+38
>> PSJSYSU	ECHK+4, ECHK2+3, ECHK2+4, CNTORDRS+18, CNTORDRS+25, ENGORD+2
>> PSJTOO	ENGORD+4, ENGORD+6, ENGORD+9
PSJWD	CNTORDRS+2~, CNTORDRS+20, CNTORDRS+21, CNTORDRS+27, CNTORDRS+28, CNTORDRS+32*
PSJWG	CNTORDRS+2~, CNTORDRS+6, CNTORDRS+10, CNTORDRS+11, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15, CNTORDRS+21, CNTORDRS+23, CNTORDRS+24 , CNTORDRS+28, CNTORDRS+30, CNTORDRS+31, CNTORDRS+32, CNTORDRS+40, CNTORDRS+41, CNTORDRS+44, CNTORDRS+45
PSJXR	CNTORDRS+18~, CNTORDRS+19, CNTORDRS+25~, CNTORDRS+26
SD	ECHK~, ECHK+4, ECHK2~, ECHK2+2, CNTORDRS+42, ENGORD+6, ENGORD+10, ENGORD+12
>> ST	ENGORD+10*
>> STAT	CNTORDRS+5*, CNTORDRS+7, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15
TYP	CNTORDRS+2~, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15*
U	ECHK+2, ECHK+4, ECHK2+2, ECHK2+3, ECHK2+4, SET+3, CNTORDRS+6, CNTORDRS+12, CNTORDRS+14, CNTORDRS+15 , CNTORDRS+20, CNTORDRS+27, DISPLAY+9, CNTSET+3, CNTSET+4, WGNM+2, ENGORD+7, ENGORD+8, ENGORD+10, ENGORD+11 , ENGORD+12, GOTOP+6, GOTOPH+1
>> UDU	ENGORD+2*
VAIP	CNTORDRS+19!, CNTORDRS+26!, CNTORDRS+35!
VAIP(3	CNTORDRS+19, CNTORDRS+26, CNTORDRS+35
>> VALMBCK	GOTOP+1, GOTOP+6
WD	WGNM~, WGNM+2
WG	DISPLAY+7, DISPLAY+9, CNTSET~, CNTSET+3, CNTSET+4, WGNM+1~, WGNM+2, WGNM+3*, WGNM+4
WGN	CGNM~
X	CNTORDRS+2~, CNTORDRS+3, DISPLAY+7, DISPLAY+9, CNTSET~, CNTSET+3, CNTSET+4, ENGORD+2, GOTOPH+1
X1	CNTORDRS+2~, CNTORDRS+3, ENGORD+2
X2	CNTORDRS+2~, CNTORDRS+3, ENGORD+2
>> Y	GOTOP+3, GOTOP+4, GOTOP+5, GOTOP+6

Customize PDF page

Package: Inpatient Medications

Routine: PSGVBWU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: