Routine: PSJCLOLS

Information

PSJCLOLS ;ALB/RTW - LIST INPATIENT CLOZAPINE ORDERS ENTERED BY OVERRIDE ; 8/30/18 3:20pm

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	^%DT ($$FIND1,LIST)^DIC ($$GET1,GETS)^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSJLIST OVERRIDES

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+1
^%ZIS	DEV
^%ZISC	EXIT
^%ZTLOAD	QUE+1
$$FIND1^DIC	PRINT+6
LIST^DIC	DQ+1
$$GET1^DIQ	PRINT+4, PRINT+7, PRINT+8, PRINT+12
GETS^DIQ	DQ+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Print list of clozapine orders overriding lockout",! Line Location: PSJCLOLS+3
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 ORDERS FOUND",@IOF Line Location: DQ+2
Function Call: WRITE	Prompt: !,?5,"NO ORDERS FOUND",@IOF Line Location: DQ+3
Function Call: WRITE	Prompt: @IOF Line Location: DQ+7
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+0
Function Call: WRITE	Prompt: !,?3,"Date : ",$E(PSJOD,4,5),"/",$E(PSJOD,6,7),"/",$E(PSJOD,2,3),?25,"ORDER # : ",PSJORD,?45,"Patient : ",PSJPAT Line Location: PRINT+9
Function Call: WRITE	Prompt: !,?3,"DRUG : ",PSJDRG Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?3,"Entered by : ",PSJUSR,!,?3,"Approved by : ",PSJAPR Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?3,"Lockout Reason : ",$$GET1^DIQ(52.54,PSJREA,.01) Line Location: PRINT+12
Function Call: WRITE	Prompt: !,?3,"Comments : " Line Location: PRINT+13
Function Call: WRITE	Prompt: PSJCOM,!! Line Location: PRINT+13
Function Call: WRITE	Prompt: !,?14 Condition for execution: $L(X)+$X>70 Line Location: PRINT+14
Function Call: WRITE	Prompt: X," " Line Location: PRINT+14
Function Call: WRITE	Prompt: !! Line Location: PRINT+15
Function Call: WRITE	Prompt: !!,?5,"LIST OF ORDERS 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	DIC Line Location: PRINT+6
Routine Call	DIC Line Location: DQ+1
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
100.045	FIND1^DIC, GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PS(52.54 - [#52.54]	GET1^DIQ
^PS(53.8 - [#53.8]	GETS^DIQ, LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	DQ+1!, DQ+2, DQ+3, DQ+4, DQ+5, EXIT+1!

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE*, EXIT!
%DT("A"	DATE, DATE+1
>> %ZIS	DEV*
>> %ZIS("B"	DEV*
>> I	DQ+4*, DQ+5
IO	HD
IO("Q"	DEV+1
IOF	DQ+2, DQ+3, DQ+7, PRINT
IOSL	PRINT
J	EXIT!, PRINT+14*
POP	DEV, EXIT!
PSJAPR	EXIT!, PRINT+3, PRINT+4, PRINT+11
PSJCOM	EXIT!, PRINT+5*, PRINT+13, PRINT+14
PSJDATA	DQ+6, EXIT!
PSJDATA(	PRINT+1, PRINT+2, PRINT+3, PRINT+5
PSJDRG	EXIT!, PRINT+7, PRINT+8, PRINT+10
>> PSJNUM	PRINT+6*, PRINT+7
PSJOD	DQ+4*, EXIT!, PRINT+9
>> PSJORD	PRINT+2*, PRINT+6, PRINT+7, PRINT+8, PRINT+9
PSJPAT	EXIT!, PRINT+8*, PRINT+9
PSJREA	EXIT!, PRINT+3*, PRINT+12
PSJRX	EXIT!
PSJUSR	EXIT!, PRINT+2, PRINT+4, PRINT+11
PSOBD	DATE*, DATE+1, DQ+1, EXIT!, HD
PSOED	DATE+1*, DQ+3, DQ+4, EXIT!, HD
PSOI	DQ+5*, DQ+6, EXIT!
PSOJ	DQ+6*, EXIT!, PRINT+1, PRINT+2, PRINT+3, PRINT+5
X	EXIT!, PRINT+14*
>> 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: Inpatient Medications