Routine: PSGL

Package	Total	Call Graph
Inpatient Medications	15	(ENACL,ENNL)^PSGL0 EN2^PSGLBA (CHKM,DTM,LM)^PSGLH ^PSGLOI (ENHEDER,ENPVSET)^PSGLPI (,H2)^PSGON ^PSGSEL (ENCV,ENKV)^PSGSETU ENTSK^PSGTI EN^PSIVUDL ^PSJAC ^PSJO ENL^PSJO3 ^PSJP AADR^PSJUTL
VA Fileman	6	^%DT NOW^%DTC ^DIC YN^DICN ^DIK ^DIR
Kernel	2	^%ZIS ^%ZISC

Package	Total	Caller Graph
Inpatient Medications	1	PSJU LABEL

Entry Points

Name	Comments	DBIA/ICR reference
CDIC	;
DEV	;
DONE	;
DT	;
KL	; kill other label records for the same order
IWP	;
ASK	;
C	;
ENC	;
G	;
ENG	;
ENW1	;
ENPLP	;
CHK	;
ENL
L	;
ENP	;
P	;
W	;
ENW	;
LBLQTY()
LDIC	;

External References

Name	Field # of Occurrence
^%DT	DT+1
NOW^%DTC	ENW1+1, ENPLP+1
^%ZIS	DEV+3
^%ZISC	ASK+1
^DIC	G+1, W+1, CDIC+1, LDIC+1
YN^DICN	CHK+2, CHK+4
^DIK	CHK+5
^DIR	LBLQTY+4, C+2, L+2
ENACL^PSGL0	PSGL+9
ENNL^PSGL0	CHK+3
EN2^PSGLBA	DEV+4
CHKM^PSGLH	CHK+2
DTM^PSGLH	DT+1
LM^PSGLH	CHK+4
^PSGLOI	IWP+4, IWP+7, ENPLP+8, ENPLP+11
ENHEDER^PSGLPI	IWP+3, IWP+6, ENPLP+3
ENPVSET^PSGLPI	IWP+1, ENPLP+1
^PSGON	ENP+7
H2^PSGON	ENP+4
^PSGSEL	ASK+1
ENCV^PSGSETU	PSGL+9
ENKV^PSGSETU	DONE+1
ENTSK^PSGTI	DEV+9
EN^PSIVUDL	ENPLP+4, ENPLP+10
^PSJAC	IWP+1, ENPLP+1
^PSJO	ENP+2
ENL^PSJO3	ENP+2
^PSJP	P+1
AADR^PSJUTL	ENP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You have unprinted new labels. Do you want them now" Line Location: CHK+2
Function Call: WRITE	Prompt: !!,"Will you want them later" Line Location: CHK+4
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: !?3,"(No device chosen for label print.)" Line Location: DEV+3
Function Call: WRITE	Prompt: ! Line Location: DEV+9
Function Call: WRITE	Prompt: !,"Labels ",$S($D(ZTSK):"",1:"NOT "),"queued!" Line Location: DEV+9
Function Call: WRITE	Prompt: ! Line Location: G+1
Function Call: WRITE	Prompt: ! Line Location: W+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: ! Line Location: L+2
Function Call: READ	Prompt: "Select orders for labels: " Formatting: !! Timeout: DTIME Variable: X Line Location: ENP+3
Function Call: WRITE	Prompt: !!?2,"Select the orders for which you want labels printed." Line Location: ENP+5
Function Call: READ	Prompt: "Enter label start date: " Formatting: !! Timeout: DTIME Variable: X Line Location: DT+1
Routine Call	DIC Line Location: G+1 W+1 CDIC+1 LDIC+1
Routine Call	DIR Line Location: LBLQTY+4 C+2 L+2
Routine Call	%ZIS Line Location: DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^PS(53.41 - [#53.41]	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]	ENG+1
^DPT("CN"	ENW1+1
^PS(53.1 - [#53.1]	IWP+5, IWP+7, ENPLP+10
^PS(53.41 - [#53.41]	PSGL+9, CHK+1, KL+1!
^PS(55 - [#55]	IWP+2, IWP+4, ENC+2, ENC+3
^PS(57.5 - [#57.5]	ENG+1, ENW+1
^PS(57.8 - [#57.8]	ENL
^TMP("PSJCI"	ENC+1!, ENC+3*, ENC+4
^TMP("PSJON"	ENP+8!, ENP+9!, ENPLP+2

Label References

Name	Line Occurrences
$$LBLQTY	DEV+1
@(	ASK+1
ASK	CHK+1, CHK+3
DEV	ASK+1, ENP+9
DONE	PSGL+10, CHK+3, CHK+5
DT	ASK+1
ENC	ENL
ENW1	ENG+1
IWP	ENW1+1, ENC+4
KL	IWP+4, IWP+7, ENPLP+4, ENPLP+9, ENPLP+10, ENPLP+11

Naked Globals

Name	Field # of Occurrence
^(0	ENW+1
^(7	IWP+4, IWP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSGL+9, PSGL+10, CHK+2, CHK+3, CHK+4*, CHK+5, ENW1+1, ENPLP+1
%DT	DT+1!*
%DT(0	DT+1*
%ZIS	DEV+3!*
%ZIS("A"	DEV+3*
%ZIS("B"	DEV+3*
APSPLQTY	ENPLP+7~, ENPLP+8*
CF	DONE+1!
>> CG	LDIC+1*, ENL
>> CL	CDIC+1, ENL
>> CLINIC	ENC+2*, ENC+3
>> DA	CHK+5*
>> DA(1	CHK+5*
DFN	DONE+1!, ENW1+1, ENC+4, ENPLP+1*, ENPLP+4, ENPLP+10
DIC	G+1!, W+1!, CDIC+1!, LDIC+1!
DIC("A"	G+1, W+1
DIC(0	G+1, W+1, CDIC+1, LDIC+1
>> DIK	CHK+5*
DIR	LBLQTY~, C+1!, L+1!
DIR("?"	C+2, L+2
DIR("A"	LBLQTY+2, C+1, L+1*
DIR("B"	LBLQTY+3*
DIR(0	LBLQTY+1, C+1, L+1*
>> DIRUT	LBLQTY+5
DTIME	ENP+3, DT+1
>> DTOUT	LBLQTY+5
DUZ	CHK+1, CHK+5, KL+1
IO	ENW1+1, ENPLP+1
IO("Q"	ASK+1!, DEV+3!, DEV+4, ENP+9
ION	DEV+3
IOP	DEV+3!*
>> JDFN	ENC+3*
NG	DONE+1!
OD	DONE+1!
ON	DONE+1!, IWP+2, IWP+4, IWP+5, IWP+7
ORPV	DONE+2!
ORSTOP	DONE+2!
ORSTRT	DONE+2!
ORSTS	DONE+2!
P17	DONE+2!
>> POP	ASK+1, DEV+3, DEV+4*, ENP+9
PPAGE	PSGL+7~, ASK+1*
PSGCNT	DONE+1!
>> PSGDT	ENW1+1, ENPLP+1
PSGEFN	PSGL+7~
>> PSGION	DEV+3*
>> PSGLAD	IWP+2
>> PSGLBLD	IWP+4, IWP+7, DT+1*
PSGLMT	DONE+1!, ENP+2*
PSGLPF	ENP+2!
PSGLQTY	PSGL+8~, DEV+1*, DEV+2, ENPLP+8
>> PSGLRB	ENPLP+4, ENPLP+10
PSGLSTOP	PSGL+9!
PSGLWD	ASK+1!, W+1, ENG+1, ENW+1, ENPLP+4, ENPLP+10
>> PSGLWDN	W+1, ENG+1, ENW1+1, ENPLP+4, ENPLP+10
PSGLWG	ASK+1!, G+2, G+3, ENG+1, ENW+1*
>> PSGLWGN	G+2, G+3, ENW+1*
PSGODDD	DONE+1!, ENPLP+2
PSGODDD(	ENPLP+2
PSGODT	DONE+1!
PSGOL	DONE+1!
PSGON	DONE+1!
PSGOP	DONE+1!, ENW1+1, IWP+2, IWP+4, IWP+5, ENC+4, ENPLP+1*, KL+1
PSGORD	DONE+1!, IWP+4, IWP+7, ENPLP+2*, ENPLP+4, ENPLP+6, ENPLP+10, KL+1
>> PSGP	P+1, ENW1+1, ENC+4, ENPLP+1
PSGPL1	DONE+1!, ENPLP+2*
PSGPL2	DONE+1!, ENPLP+2*
PSGPL3	DONE+1!, ENPLP+2*
PSGPTMP	PSGL+7~, ASK+1*
PSGSS	ASK+1, DONE+1!, DEV+5, DEV+7, DEV+8
PSGSSH	ASK+1*, DONE+1!
>> PSGTIR	DEV+5*
>> PSGTOL	PSGL+9*
PSIVREA	DONE+1!
PSJACND	IWP+1~*
PSJACNWP	IWP+1!
PSJFIRST	IWP+1~, IWP+3, IWP+6, ENPLP+2~, ENPLP+3*
PSJIVOF	DONE+1!
PSJNEW	PSGL+7~*
PSJOCNT	DONE+1!
PSJOL	DONE+1!, ENP+2
PSJON	DONE+1!, ENP+2
PSJORD	DONE+1!, ENPLP+2*
>> PSJOS	ENP+2*
PSJPR	P+1!
>> PSJSYSL	DEV+3
>> PSJSYSP0	ENP+2
>> PSJSYSW0	IWP+3, IWP+6, ENPLP+3
Q1	DONE+1!
Q2	DONE+1!
QO	DONE+1!
QS	DONE+1!, KL+1*
QSD	DONE+1!, IWP+2*
RF	DONE+1!
>> STDTE	ENC+2*, ENC+3
U	IWP+3, IWP+6, ENPLP+3, ENPLP+4, ENPLP+10
WG	DONE+1!
X	DEV+5, DEV+7, DEV+8, LBLQTY~, G+2, CDIC+2, LDIC+2, ENP+3, ENP+4!, ENP+5! , ENP+6!, ENP+7, ENP+8, ENPLP+10, DT+1
>> XQUIT	PSGL+9
Y	ASK+1, LBLQTY~, LBLQTY+6, G+2, G+3, W+1, P+1*, CDIC+1, LDIC+1, DT+1 , DT+2
Y(0	G+3, W+1
>> ZTDESC	DEV+5*
ZTSAVE	ASK+1!, DONE+1!
ZTSAVE(	DEV+5, DEV+7, DEV+8*
ZTSAVE("PSGLBLD"	DT+1*
ZTSAVE("PSGLQTY"	DEV+6*
ZTSK	DEV+3!, DEV+9, ENPLP+1

Customize PDF page

Package: Inpatient Medications

Routine: PSGL

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: