Routine: PSGAP0

Call Graph Total: 14

Package	Total	Call Graph
Inpatient Medications	9	^PSGAPIV ^PSGAPP $$ENDTC^PSGMI $$ENSET^PSGSICHK ENDEV^PSGTI PSJAC2^PSJAC DRGDISP^PSJLMUT1 $$MEDTYPE^PSJMDIR $$NFWS^PSJUTL1
VA Fileman	3	^%DT NOW^%DTC D^DIQ
Kernel	2	^%ZISC $$DT^XLFDT

Package

Total

Call Graph

^PSGAPIV ^PSGAPP $$ENDTC^PSGMI $$ENSET^PSGSICHK ENDEV^PSGTI PSJAC2^PSJAC DRGDISP^PSJLMUT1 $$MEDTYPE^PSJMDIR
$$NFWS^PSJUTL1

VA Fileman

^%DT NOW^%DTC D^DIQ

Kernel

^%ZISC $$DT^XLFDT

Package	Total	Caller Graph
Inpatient Medications	1	PSGAP

Package

Total

Caller Graph

Inpatient Medications

PSGAP

Name	Comments	DBIA/ICR reference
PP	;
EN	; entry point
GDT	;
PW	;
DTM	;
GOD	; gather order data
ENQ	; queued entry point
PG	;
CLIN	;
PAT	;

External References

Name	Field # of Occurrence
^%DT	GDT+1
NOW^%DTC	PAT+5, EN+1
^%ZISC	ENQ+2
D^DIQ	DTM+1
^PSGAPIV	PAT+10, PAT+11, PAT+12
^PSGAPP	ENQ+2
$$ENDTC^PSGMI	GOD+9
$$ENSET^PSGSICHK	GOD+11
ENDEV^PSGTI	EN+6
PSJAC2^PSJAC	PAT+5
DRGDISP^PSJLMUT1	GOD+5
$$MEDTYPE^PSJMDIR	EN+3
$$NFWS^PSJUTL1	GOD+3
$$DT^XLFDT	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: GDT+1
Function Call: WRITE	Prompt: !!,"Enter ",N," date/time: " Line Location: GDT+1
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: GDT+1
Function Call: WRITE	Prompt: !,"...this may take a few minutes...(you should QUEUE this report)..." Line Location: EN+5
Function Call: WRITE	Prompt: !!?2,"If a ",N," date is entered, an action profile will print for only those",!,"patients that have at least one active order with a ",$S(N["A":"STOP",1:"START")," DATE on or ",$S(N["A":"after",1:"before"),!,"the ",N," date entered." Line Location: DTM+2
Function Call: WRITE	Prompt: !?2,"Entry is not required. If neither date is entered, all patients with active",!,"orders will print (for the ward(s) chosen). Enter an up-arrow (^) to exit." Line Location: DTM+3
Function Call: WRITE	Prompt: !?2,"If you wish to enter a ",$S(N["R":"start",1:"stop")," date of ",Y,", you must enter a TIME of day",!,"of ",T," or greater. Any date after ",Y," does not need time entered.",! Line Location: DTM+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	PG+2, PP+1
^DPT - [#2]	PAT+2, PP+1
^DPT("CN"	PW+1
^PS(55 - [#55]	GOD+1, PAT+9, CLIN+1, CLIN+2, PW+2, PW+3
^PS(57.5 - [#57.5]	PG+2
^PS(57.7 - [#57.7]	PAT+2, PAT+4
^TMP("PSGAP0"	PAT+16*, ENQ+1!, ENQ+2!, CLIN+2
^TMP($J	GOD+11*, PAT+13

Name	Line Occurrences
@(	ENQ+2
CLIN	PG+1
DTM	GDT+1
GDT	EN+1
GOD	PAT+9
PAT	CLIN+3, PW+2, PW+3, PP+1
PW	PG+2

Name	Field # of Occurrence
^(	GOD+1, GOD+11, PAT+15
^(0	PG+2
^(2	GOD+1
^(6	GOD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAT+5, EN+1
%DT	GDT+1!*, GDT+3!
%DT(0	GDT+1*, DTM+1
ATM	PAT+3*, ENQ+1~
>> CLIN	CLIN+1*, CLIN+2
>> DFN	CLIN+2*, CLIN+3
>> DRG	GOD+1, GOD+6, GOD+11
DRGI	ENQ+1~
DRGN	ENQ+1~
DRGT	ENQ+1~
DT	EN+1*
DTIME	GDT+1
>> FD	GOD+7*, GOD+11
>> INDEX	CLIN+1*, CLIN+2
IO("Q"	EN+6
>> N	GDT+1, GDT+2, EN+1*, DTM+2, DTM+4
>> ND	GOD+1, GOD+7, GOD+11
>> ND2	GOD+1*, GOD+7
>> NF	GOD+3*, GOD+11
ON	ENQ+1~
>> PN	GOD+11, PAT+5*, PAT+13, PAT+15
>> PND	PAT+5*
>> POP	EN+6
PSG	GOD+4~, GOD+5
PSG(1	GOD+6
>> PSGAPTM	PAT+2, PAT+3
>> PSGAPTM(	PAT+3
>> PSGAPWD	GOD+3, PAT+2, PAT+4, PG+2, PP+1
>> PSGAPWDN	GOD+11, PAT+2, PAT+13, PG+2, PW+1, PP+1*
>> PSGAPWG	PG+2
>> PSGDT	PAT+5, PAT+6, GDT+1, GDT+2, EN+1
>> PSGMTYPE	PAT+7, PAT+8, PAT+11, PAT+12, EN+3
>> PSGP	GOD+1, GOD+3, GOD+5, PAT+2, PAT+5, PAT+9, PAT+16, CLIN+3, PW+1, PW+2 , PW+3, PP+1*
>> PSGP(0	PAT+5
>> PSGPAT(	PP+1
>> PSGSS	EN+1, EN+2, EN+4, ENQ+2
>> PSGTIR	EN+6*
>> PSGWD	EN+3
PSIVUP	ENQ+1~
>> PSJACNWP	PAT+5*
>> PSJJORD	GOD+1, GOD+3, GOD+5, GOD+11, PAT+9*
PSJORIFN	ENQ+1~
>> PSJPAD	PAT+15
>> PSJPAGE	PAT+15
>> PSJPDOB	PAT+15
>> PSJPDX	PAT+15
>> PSJPRB	PAT+15
>> PSJPSEX	PAT+15
>> PSJPTD	PAT+15
>> PSJPWT	PAT+15
>> PSJSEL("RBP"	PAT+5
>> PSJSEL("WG"	PAT+16, PG+1
>> PSJSTOP	EN+1, EN+3, EN+6*
PST	PAT+10, PAT+11, PAT+12*, ENQ+1~
>> Q	CLIN+3, PW+2, PW+3*
QST	ENQ+1~
RB	PAT+2*, PAT+5, ENQ+1~
>> SD	GOD+7*, GOD+8, GOD+11
>> SI	GOD+1*, GOD+11
SLS	ENQ+1~
>> SM	GOD+3*, GOD+11
>> ST	GOD+7*, GOD+11
STOP	CLIN+1*, CLIN+2, CLIN+3~
>> STP	GOD+8, PAT+6, GDT+2, EN+2*
>> STRT	PAT+9*
>> STT	PAT+6, PAT+9, GDT+1, GDT+2, EN+2*, PW+2, PW+3
>> T	DTM+1*, DTM+4
TM	GOD+11, PAT+2, PAT+3, PAT+4, PAT+13, ENQ+1~
U	GOD+3, GOD+11
>> VA("PID"	PAT+15
>> WS	GOD+3*, GOD+11
X	GOD+3, GOD+4~, GOD+9, GOD+11, GDT+1, GDT+2, EN+1, EN+2, EN+4*
XTYPE	PAT+10, PAT+11~, PAT+12*, ENQ+1~
>> Y	GOD+11, GDT+1, GDT+2, EN+3, DTM+1, DTM+4
>> ZTDESC	EN+6*
ZTSAVE	EN+4!
ZTSAVE(	EN+4*
ZTSAVE("STP"	EN+4*
ZTSAVE("STT"	EN+4*

Customize PDF page

Package: Inpatient Medications

Routine: PSGAP0

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: