Routine: PSGVBW

Package	Total	Call Graph
Inpatient Medications	10	^PSGPER1 ^PSGSEL (ENCV,ENKV)^PSGSETU ^PSGVBW0 OUTPT^PSGVBW1 CNTORDRS^PSGVBWU ^PSIVXU ^PSJAC LOCKERR^PSJOE ^PSJP
VA Fileman	3	(C,NOW)^%DTC ^DIC ^DIR

Package

Total

Call Graph

Inpatient Medications

^PSGPER1 ^PSGSEL (ENCV,ENKV)^PSGSETU ^PSGVBW0 OUTPT^PSGVBW1 CNTORDRS^PSGVBWU ^PSIVXU ^PSJAC
LOCKERR^PSJOE ^PSJP

VA Fileman

(C,NOW)^%DTC ^DIC ^DIR

Package	Total	Caller Graph
Inpatient Medications	5	PSGPR PSGVBW1 PSJU OR PAT VBW PSJU OR VBW PSJU VBW

Package

Total

Caller Graph

Inpatient Medications

PSGPR PSGVBW1 PSJU OR PAT VBW PSJU OR VBW PSJU VBW

Entry Points

Name	Comments	DBIA/ICR reference
IFT	;
WD
CDIC	;
TOH	;
GTOOP	; Get 'Type Of Order' and Package
SET	;
GDIC	;
GTPAC	;
ARRAY	; put patient(s) with non-verified orders into array
EXIT(X)	;
C	;
G	;
CL
CG
L	;
P	;
W	;
GO	;	ICR #2169 Status: Pending Usage: Private
WDIC	;
SETPN	;
IF	;BHW;PSJ5155;Added PSGCLF and PS(53.1,"AD" Check below. If called from CL subroutine and the order Doesn't exist for that Clinic, then QUIT.
START	;
DONE	;
LDIC	;
IFT2	;

External References

Name	Field # of Occurrence
C^%DTC	P+8, ARRAY+2, IF+8
NOW^%DTC	START+4, P+7, ARRAY+1
^DIC	GDIC+1, CDIC+1, LDIC+1, WDIC+2
^DIR	START+8, G+2, C+2, L+2, W+2, GTOOP+3, GTPAC+6
^PSGPER1	DONE+4
^PSGSEL	START+12
ENCV^PSGSETU	START+1
ENKV^PSGSETU	DONE+4
^PSGVBW0	GO+3
OUTPT^PSGVBW1	G+3, W+3
CNTORDRS^PSGVBWU	START+8
^PSIVXU	START+3
^PSJAC	P+6, CL+1, WD
LOCKERR^PSJOE	START+9
^PSJP	P+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"...a few moments, please..." Line Location: GO+1
Function Call: WRITE	Prompt: !,$C(7),"NO ",PSGVBWW," ORDERS FOR ",$S(PSGSS="P":"PATIENT",PSGSS="L":"CLINIC GROUP",PSGSS="C":"CLINIC",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")," SELECTED." Line Location: GO+2
Function Call: WRITE	Prompt: ! Line Location: G+2
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: ! Line Location: L+2
Function Call: WRITE	Prompt: ! Line Location: W+2
Function Call: WRITE	Prompt: !!,"1) Non-Verified Orders",!,"2) Pending Orders",!! Line Location: GTOOP+2
Function Call: WRITE	Prompt: !!,"1) Unit Dose Orders",!,"2) IV Orders",! Line Location: GTPAC+5
Function Call: WRITE	Prompt: ! Line Location: GTPAC+6
Function Call: WRITE	Prompt: !!,X," not selected, option terminated." Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"SELECT FROM:",!?5,"1 - NON-VERIFIED ORDERS",!?5,"2 - PENDING ORDERS" Line Location: TOH+1
Function Call: WRITE	Prompt: !!?2,"Enter '1' if you want to verify non-verified orders. Enter '2' if you",!,"want to complete pending orders. Enter '1,2' or '1-2' if you want to do both." Line Location: TOH+2
Routine Call	DIC Line Location: GDIC+1 CDIC+1 LDIC+1 WDIC+2
Routine Call	DIR Line Location: START+8 G+2 C+2 L+2 W+2 GTOOP+3 GTPAC+6

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^PS(57.5 - [#57.5]	Classic Fileman Calls
^PS(57.8 - [#57.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WD
^DPT("CN"	WD
^PS(53.1 - [#53.1]	P+3, P+5, CL+1, WD, IF+1, IF+6, IF+7
^PS(53.45 - [#53.45]	START+9, DONE+4
^PS(55 - [#55]	P+9, P+10, WD, IF+9, IF+10, IFT+1, IFT2+2, IFT2+3
^PS(57.5 - [#57.5]	ARRAY+3
^PS(57.7 - [#57.7]	SET+1
^PS(57.8 - [#57.8]	CG
^SC - [#44]	CL
^TMP("PSGVBW"	DONE+1!, GO+1!, GO+2, ARRAY+2, SETPN+1
^TMP("PSJ"	START+9!
^TMP("PSJLIST"	DONE+1!
^TMP("PSJON"	DONE+1!
^TMP("PSJSELECT"	START+12!, DONE+1!, P+1!, P+12*, P+14
^XTMP("PSJPVNV"	START+5

Label References

Name	Line Occurrences
@(	START+12
ARRAY	GO+1
CG	ARRAY+3
CL	ARRAY+3, CG
DONE	START+9
EXIT	GTOOP+4, GTOOP+7
GO	START+12
GTOOP	START+9
GTPAC	GTOOP+1, GTOOP+6
IF	ARRAY+2, CL+1, WD
IFT	P+9, IF+9
IFT2	P+10, IF+10
SET	IF+1, IF+6, IF+9, IF+10
SETPN	P+12
WD	ARRAY+3

Name	Field # of Occurrence
^(0	P+9, P+10, CL, WD, IF+9, IF+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+4, P+7, ARRAY+1
CG	PSGVBW+5~, LDIC+1*, CG
CHK	DONE+2!, GO+1!
CL	PSGVBW+5~, CDIC+1, CG, CL, CL+1, IF+1
D0	DONE+2!
DIC	GDIC+1!, CDIC+1!, LDIC+1!, WDIC+2!
DIC(0	GDIC+1, CDIC+1, LDIC+1, WDIC+2
DIR	START+6!, START+8!, G+1!, C+1!, L+1!, W+1!, GTOOP+3~, GTPAC+6!
DIR("?"	START+7, G+2, C+2, L+2, W+2, GTOOP+3, GTPAC+6*
DIR("A"	START+6, G+1, C+1, L+1, W+1, GTOOP+3, GTPAC+6*
DIR("B"	START+6*
DIR(0	START+6, G+1, C+1, L+1, W+1, GTOOP+3, GTPAC+6*
>> DIRUT	START+8, START+9
DRGI	DONE+2!
>> DUOUT	START+8
FQC	DONE+2!
J	DONE+2!
ND	DONE+2!, DONE+4!, P+3, IF+7, IFT+1, IFT2+2, IFT2+3, IFT2+4
ON	DONE+2!, GO+1!, P+3~, P+9, P+10, IF+1, IF+7~, IF+9, IF+10*, IFT+1 , IFT2+2, IFT2+3
PN	DONE+2!, GO+1!, P+12, SETPN+1*
PPAGE	PSGVBW+5~, START+12*
PRI	DONE+2!
PSGCLF	DONE+2!, CL+1*, CL+2!, IF+1
>> PSGDT	START+4, P+7, P+8, ARRAY+1*, ARRAY+2, WD, IF+8, IFT+1, IFT2+4
PSGODDD	DONE+3!
PSGODT	DONE+2!, P+8, P+9, ARRAY+2, IF+8*, IF+9
PSGOEA	DONE+2!
PSGOEAV	DONE+3!
PSGOENOF	DONE+3!
PSGOEORF	DONE+3!
PSGONV	DONE+3!
PSGOP	DONE+2!
>> PSGP	START+12, P+1, P+3, P+5, P+9, P+10, ARRAY+2, CL+1, WD*, IF+1 , IF+6, IF+7, IF+9, IF+10, IFT+1, IFT2+2, IFT2+3, SETPN+1
>> PSGP(0	ARRAY+2, SETPN+1
PSGPTMP	PSGVBW+5~, START+12*
PSGPX	DONE+3!
>> PSGPXN	START+9, START+10, DONE+4
PSGSS	START+12, DONE+2!, GO+1, GO+2, ARRAY+2, ARRAY+3, SETPN+1
PSGSSH	START+10*, DONE+2!
PSGTOL	DONE+3!
PSGUOW	DONE+3!
PSGVBWTO	DONE+3!
PSGVBWW	START+11, DONE+3!, GO+2, P+13, ARRAY+2
PSJASK	DONE+3!
>> PSJCNT	P+1, P+12
PSJCT	DONE+2!
>> PSJIRNF	START+10, GTOOP+1, GTPAC+3, GTPAC+4
PSJLM	DONE+3!
PSJNEW	PSGVBW+5~*
>> PSJNV	P+2, P+3, P+6, P+9, P+10, P+11
PSJOPC	DONE+3!
PSJORL	DONE+3!
PSJORPCL	DONE+3!
PSJORTOU	DONE+3!
PSJORVP	DONE+3!
>> PSJPAC	P+3, P+9, P+10, IF+2, IF+3, IF+4, IF+7, IF+9, IF+10, GTOOP+1* , GTOOP+2, GTOOP+7, GTPAC+3, GTPAC+4, GTPAC+7
>> PSJPAD	P+9, P+10, IF+9, IF+10
>> PSJPBID	SETPN+1
>> PSJPEN	P+5*, P+11
PSJPNV	DONE+2!
>> PSJPRB	SET+1
PSJPROT	START+10*, DONE+3!
>> PSJRNF	START+10, GTOOP+1, GTPAC+3, GTPAC+4
>> PSJSYSP	START+9, DONE+4
>> PSJSYSU	START+10, IFT+1, IFT2+3, IFT2+4, GTOOP+1
PSJTOO	START+11, DONE+3!, P+11, ARRAY+2, IF+1, IF+5, GTOOP+1, GTOOP+2, GTOOP+5*, GTPAC+3 , GTPAC+4
PX	DONE+3!
RB	DONE+2!, GO+1!
SD	DONE+2!, GO+1!, P+9, P+10, IF+9, IF+10, IFT+1, IFT2+4
ST	DONE+2!, P+9, IF+9, IFT+1
TM	DONE+2!, GO+1!, SET+1*, SETPN+1
U	P+3, P+12, IF+1, IF+7, SETPN+1
WD	START+12, DONE+2!, GO+1!, WDIC+2, ARRAY+3*, WD, SET+1
WDN	DONE+2!, GO+1!, CL, WD, SETPN+1
WG	START+12, DONE+2!, GO+1!, GDIC+1, ARRAY+3
X	GO+1!, GDIC+2, CDIC+2, LDIC+2, WDIC+3, P+8, P+11, P+12, ARRAY+2, IF+1 , IF+3, IF+4, IF+6*, IF+7, IF+8, EXIT~, EXIT+1
>> X1	P+8, ARRAY+2, IF+8*
>> X2	P+8, ARRAY+2, IF+8*
XQUIT	START+1!, START+3!
XX	P+3~, IF+6~, IF+7*
Y	START+8, START+12, GO+1!, G+3, GDIC+1, CDIC+1, LDIC+1, W+3, WDIC+2, P+14* , IF+1, IF+2, IF+3, IF+4, GTOOP+4, GTOOP+5, GTPAC+7

Customize PDF page

Package: Inpatient Medications

Routine: PSGVBW

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: