Routine: PSOCLO1

Package	Total	Call Graph
VA Fileman	3	C^%DTC ^DIC ^DIR
Uncategorized	1	($$CL,$$OVERRIDE,CL1)^YSCLTST2

Entry Points

Name	Comments	DBIA/ICR reference
MSG5	;
MSG4	;
OV1
END	;
MSG3	;
OVRD	;
MH
DSP	;
DOSE	;
1	;;NO WBC IN LAST 7 DAYS
3	;;LAST WBC RESULT < 3500
2	;;NO VERIFIED WBC
EXIT	;
GDOSE	; set variable to ask daily dose
7	;;NCCC AUTHORIZED
6	;;3 SEQ. ANC DECREASE
QU
5	;;LAST ANC RESULT < 2000
CHECK	;
DIR	;
4	;;3 SEQ. WBC DECREASE

External References

Name	Field # of Occurrence
C^%DTC	CHECK+2
^DIC	OVRD+5
^DIR	OVRD+4, OVRD+7, DOSE+1, DOSE+4, DOSE+5, DIR+1
$$CL^YSCLTST2	PSOCLO1+12
$$OVERRIDE^YSCLTST2	OV1
CL1^YSCLTST2	PSOCLO1+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* This patient has not been registered in the clozapine program *" Line Location: PSOCLO1+7
Function Call: WRITE	Prompt: !!,"* This patient has no clozapine registration number *" Line Location: PSOCLO1+8
Function Call: WRITE	Prompt: !!,"Permission to dispense clozapine has been authorized by NCCC",! Line Location: OV1+0
Function Call: WRITE	Prompt: !,"* No previous results to display *",! Line Location: CHECK+6
Function Call: WRITE	Prompt: !,"*** Last "_$S(ANQD=4:"Four ",ANQD=3:"Three ",1:"TWO ")_$P(PSOYS,"^",3)_" and ANC results were:" Line Location: CHECK+7
Function Call: WRITE	Prompt: !,?39,"WBC ANC",! Line Location: CHECK+8
Function Call: WRITE	Prompt: ?5,$E(ANQD,4,5)_"/"_$E(ANQD,6,7)_"/"_($E(ANQD,1,3)+1700) Line Location: CHECK+9
Function Call: WRITE	Prompt: "@",$E(ANQD,9,10),":",$E(ANQD,11,12) Condition for execution: ANQD["." Line Location: CHECK+9
Function Call: WRITE	Prompt: ?29,"Results: "_$P(ANQ(ANQJ),"^")_" - "_$P(ANQ(ANQJ),"^",2),! Line Location: CHECK+9
Function Call: WRITE	Prompt: !,"You Are Not Authorized to Override! See Clozapine Manager with PSOLOCKCLOZ key." Line Location: OVRD+2
Function Call: WRITE	Prompt: !,"Override reason being: "_$P($T(@(ANQRE_"^PSOCLO1")),";;",2),! Line Location: OVRD+3
Function Call: WRITE	Prompt: !!,"No Prescription entered!" Line Location: EXIT+3
Function Call: WRITE	Prompt: !!,"A CBC/Differential including WBC and ANC Must Be Ordered and Monitored on a",! Line Location: MSG3+1
Function Call: WRITE	Prompt: "Twice weekly basis until the WBC STABILIZES above 3500/mm3 and ANC above",! Line Location: MSG3+2
Function Call: WRITE	Prompt: "2000/mm3 with no signs of infection.",! Line Location: MSG3+3
Function Call: WRITE	Prompt: !!,"Permission to dispense clozapine has been denied. If the results of the latest" Line Location: MSG4+1
Function Call: WRITE	Prompt: !,"Lab Test drawn in the past 7 days show WBC>3000/mm3 and ANC>1500/mm3 and" Line Location: MSG4+2
Function Call: WRITE	Prompt: !,"you wish to dispense outside the FDA and VA protocol WBC/ANC limits, document" Line Location: MSG4+3
Function Call: WRITE	Prompt: !,"your request to Director of the VA National Clozapine Coordinating Center" Line Location: MSG4+4
Function Call: WRITE	Prompt: !,"(Phone: 214-857-0068 Fax: 214-857-0339) for a one-time override permission." Line Location: MSG4+5
Function Call: WRITE	Prompt: !!,"Permission to dispense clozapine has been denied. Please contact the" Line Location: MSG5+1
Function Call: WRITE	Prompt: !,"Director of the VA National Clozapine Coordinating Center" Line Location: MSG5+2
Function Call: WRITE	Prompt: !,"(Phone: 214-857-0068 Fax: 214-857-0339)." Line Location: MSG5+3
Function Call: WRITE	Prompt: !,"Also make sure that the LAB tests, WBC and ANC are set up correctly in the" Line Location: MH+1
Function Call: WRITE	Prompt: !,"Mental Health package using the CLOZAPINE MULTI TEST LINK option." Line Location: MH+2
Function Call: WRITE	Prompt: !,"* Most recent "_$P(PSOYS,"^",3)_" and "_$P(PSOYS,"^",5)_" (ANC) results *" Line Location: DSP+1
Function Call: WRITE	Prompt: !," performed on " Line Location: DSP+2
Function Call: WRITE	Prompt: $P(Y,"@")_" are: " Line Location: DSP+3
Function Call: WRITE	Prompt: !!,?5,$P(PSOYS,"^",3)_": "_$P(PSOYS,"^",2) Line Location: DSP+4
Function Call: WRITE	Prompt: !,?5,"ANC: "_$P(PSOYS,"^",4),! Line Location: DSP+5
Function Call: WRITE	Prompt: !! Line Location: DIR+1
Routine Call	DIC Line Location: OVRD+5
Routine Call	DIR Line Location: OVRD+4 OVRD+7 DOSE+1 DOSE+4 DOSE+5 DIR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DSP+3
^PS(55 - [#55]	PSOCLO1+7, PSOCLO1+8, PSOCLO1+9
^TMP($J	PSOCLO1+5!, PSOCLO1+19, CHECK+4, EXIT+1!
^XUSEC("PSOLOCKCLOZ"	OVRD+1

Label References

Name	Line Occurrences
CHECK	PSOCLO1+19
DIR	EXIT+5, QU
DOSE	DOSE+4, DOSE+5
DSP	PSOCLO1+16
END	PSOCLO1+7, PSOCLO1+8, PSOCLO1+9, PSOCLO1+13
EXIT	OVRD+1, OVRD+4, OVRD+5, OVRD+7, DOSE+1, DOSE+3, DOSE+4, DOSE+5
GDOSE	PSOCLO1+16
MH	OV1+1
MSG3	OV1+1
MSG4	OV1+1
MSG5	END+1
OV1	PSOCLO1+15
OVRD	OV1, CHECK+6
QU	OV1+1

Naked Globals

Name	Field # of Occurrence
^(	CHECK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSOCLO1+6~
%DT	PSOCLO1+6~
ANQ	PSOCLO1+6~
ANQ(	CHECK+4*, CHECK+9
ANQ(""	CHECK+5
ANQ(1	CHECK+3*
ANQD	PSOCLO1+6~, CHECK+2, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, OVRD+5*, OVRD+8
ANQD(	CHECK+4*, CHECK+9
ANQD(1	CHECK+2*
ANQDATA	PSOCLO1+5!, OVRD+8*, EXIT+3!
ANQJ	PSOCLO1+6~, CHECK+4, CHECK+9
ANQNO	PSOCLO1+5!
ANQRE	PSOCLO1+6~, OV1, CHECK+1, OVRD+3, OVRD+8
ANQX	PSOCLO1+5!, OVRD+2, OVRD+4, OVRD+5, OVRD+8, EXIT+2, EXIT+3, QU
>> CLOZPAT	PSOCLO1+14*, PSOCLO1+17
>> DFN	PSOCLO1+7, PSOCLO1+8, PSOCLO1+9, PSOCLO1+12, PSOCLO1+18, OV1
DIC	OVRD+5*!
DIC("A"	OVRD+5*
DIC("S"	OVRD+5*
DIC(0	OVRD+5*
DIR	PSOCLO1+6~, OVRD+4!, OVRD+7!, DOSE+1!, DOSE+4!, DOSE+5!, DIR+1!
DIR("A"	OVRD+4, OVRD+6, DOSE+1, DOSE+4, DOSE+5, DIR+1
DIR("B"	OVRD+4, DOSE+4
DIR(0	OVRD+4, OVRD+6, DOSE+1, DOSE+4, DOSE+5, DIR+1
DIRUT	PSOCLO1+6~, OVRD+4, OVRD+7, DOSE+1, DOSE+4, DOSE+5, EXIT+2, DIR+1!
DTOUT	PSOCLO1+6~, DIR+1!
DUOUT	PSOCLO1+6~, DIR+1!
DUZ	OVRD+1, OVRD+8
J	PSOCLO1+6~
PSOCD	GDOSE+1~, DOSE+2*, DOSE+3, DOSE+4, DOSE+5, EXIT+4
>> PSONEW("SAND"	PSOCLO1+5!, EXIT+4*
PSOYS	PSOCLO1+6~, PSOCLO1+12*, PSOCLO1+13, PSOCLO1+14, PSOCLO1+15, PSOCLO1+16, CHECK+1, CHECK+2, CHECK+3, CHECK+7 , EXIT+4, DSP+1, DSP+3, DSP+4, DSP+5
X	PSOCLO1+6~, PSOCLO1+17*, PSOCLO1+18, CHECK+2, OVRD+8, DOSE+2
>> X1	CHECK+2*
>> X2	CHECK+2*
Y	PSOCLO1+6~, OVRD+4, OVRD+5, DOSE+4, DOSE+5, DSP+3*

Marked Items

Name	Field # of Occurrence
$T(@(3)	OVRD+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCLO1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items