Routine: PSOCLOLS

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^%DT

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOLIST OVERRIDES

Package

Total

Caller Graph

Outpatient Pharmacy

PSOLIST OVERRIDES

Name	Field # of Occurrence
^%DT	DATE, DATE+1
^%ZIS	DEV
^%ZISC	EXIT
^%ZTLOAD	QUE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Print list of clozapine prescriptions overriding lockout",! Line Location: PSOCLOLS+2
Function Call: WRITE	Prompt: !!,"Ending date must be after beginning date" Line Location: DATE+1
Function Call: WRITE	Prompt: !,"Select a printer " Line Location: DEV+0
Function Call: WRITE	Prompt: !,?5,"NO PRESCRIPTIONS FOUND",@IOF Line Location: DQ+1
Function Call: WRITE	Prompt: !,?5,"NO PRESCRIPTIONS FOUND",@IOF Line Location: DQ+2
Function Call: WRITE	Prompt: @IOF Line Location: DQ+4
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+0
Function Call: WRITE	Prompt: !,?3,"Date : ",$E(PSOD,4,5),"/",$E(PSOD,6,7),"/",$E(PSOD,2,3),?25,"RX # : ",$S(RX]"":RX,1:"UNKNOWN"),?45,"Patient : ",$S(RX]"":PAT,1:"UNKNOWN") Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?3,"DRUG : ",$S(RX]"":DRG,1:"UNKNOWN (PRESCRIPTION DELETED)") Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?3,"Entered by : ",USR,!,?3,"Approved by : ",APR Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?3,"Lockout reason : ",$P($P($P(^DD(52.52,4,0),"^",3),";",REA),":",2) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?3,"Comments : " Line Location: PRINT+7
Function Call: WRITE	Prompt: COM,!! Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?14 Condition for execution: $L(X)+$X>70 Line Location: PRINT+8
Function Call: WRITE	Prompt: X," " Line Location: PRINT+8
Function Call: WRITE	Prompt: !! Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,?5,"LIST OF PRESCRIPTIONS WRITTEN FOR CLOZAPINE OVERRIDING LOCKOUT",!,?10,"FOR THE DATE RANGE ",$E(PSOBD,4,5),"/",$E(PSOBD,6,7),"/",$E(PSOBD,2,3)," THROUGH ",$E(PSOED,4,5),"/",$E(PSOED,6,7),"/",$E(PSOED,2,3),! Line Location: HD+0
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DD(52.52	PRINT+6
^DPT - [#2]	PRINT+2
^PS(52.52 - [#52.52]	DQ+1, DQ+2, DQ+3
^PSDRUG - [#50]	PRINT+2
^PSRX - [#52]	PRINT+1
^VA(200 - [#200]	PRINT+1

Name	Line Occurrences
DATE	DATE+1
DEV	DEV
EXIT	DATE, DATE+1, DEV, DQ+1, DQ+2, QUE+1
HD	DQ+1, PRINT
PRINT	DQ+3
QUE	DEV+1

Name	Field # of Occurrence
^(	DQ+3
^(0	DQ+3, PRINT+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE*, EXIT!
%DT("A"	DATE, DATE+1
>> %ZIS	DEV*
>> %ZIS("B"	DEV*
APR	EXIT!, PRINT+1*, PRINT+5
COM	EXIT!, PRINT+1*, PRINT+7, PRINT+8
DATA	DQ+3*, EXIT!, PRINT+1
DRG	EXIT!, PRINT+1, PRINT+2, PRINT+4
IO	HD
IO("Q"	DEV+1
IOF	DQ+1, DQ+2, DQ+4, PRINT
IOSL	PRINT
IOST	DEV
J	EXIT!, PRINT+8*
PAT	EXIT!, PRINT+1, PRINT+2, PRINT+3
POP	DEV, EXIT!
PSOBD	DATE*, DATE+1, DQ+1, DQ+2, DQ+3, EXIT!, HD
PSOD	DQ+3*, EXIT!, PRINT+3
PSOED	DATE+1*, DQ+2, DQ+3, EXIT!, HD
PSOI	DQ+3*, EXIT!
REA	EXIT!, PRINT+1*, PRINT+6
RX	EXIT!, PRINT+1*, PRINT+2, PRINT+3, PRINT+4
USR	EXIT!, PRINT+1*, PRINT+5
X	EXIT!, PRINT+8*
>> Y	DATE, DATE+1
ZTDESC	EXIT!, QUE+1*
ZTIO	EXIT!
ZTRTN	EXIT!, QUE+1*
ZTSAVE	EXIT!
ZTSAVE("PSOBD"	QUE+1*
ZTSAVE("PSOED"	QUE+1*
ZTSK	EXIT!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCLOLS

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DEV
PRINT
EXIT
DATE
QUE	;queue job
HD
DQ	;Entry to report