Routine: PSSCLOZ

Package	Total	Call Graph
VA Fileman	5	FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSCLDRG

Entry Points

Name	Comments	DBIA/ICR reference
CLOZBEG
END	;Kill variables.
CLOZEDT	;Edit Clozapine sub-entry
CLOZDXX
CLOZAD2
CLOZSEL	;Execute add, edit or delete submodule.
CLOZMOV	;In File #50, move data CLOZ node to CLOZ2 node.
CLOZASK	;Select LAB Test number.
CLOZADD	;Add Clozapine sub-entry
CLOZDEL	;Delete Clozapine sub-entry
CLOZBG2
DISPLAY	;Display lab test.
DISPLY2	;Display selection before adding to file.
DISPLY3

External References

Name	Field # of Occurrence
FILE^DICN	CLOZAD2+3, CLOZMOV+9
^DIE	PSSCLOZ+10, CLOZEDT+3
^DIK	CLOZDXX+2
$$GET1^DIQ	CLOZBEG+4
^DIR	CLOZBEG+7, CLOZBG2+4, CLOZBG2+5, CLOZDEL+2, CLOZASK+3, DISPLY3, DISPLY3+1, DISPLY3+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Prescription of Clozapine requires identification of two",!,"laboratory tests, WBC and Absolute Neutrophil Count (ANC).",!! Line Location: CLOZBEG+6
Function Call: WRITE	Prompt: "You do not have any laboratory tests identified." Line Location: CLOZBEG+7
Function Call: WRITE	Prompt: !! Line Location: CLOZBEG+7
Function Call: WRITE	Prompt: "You have one laboratory type of "_$S(PSSTYP0=1:"WBC",PSSTYP0=2:"ANC",1:"Unknown")_" test identified." Line Location: CLOZBEG+8
Function Call: WRITE	Prompt: "You currently have both laboratory tests identified." Line Location: CLOZBEG+9
Function Call: WRITE	Prompt: !! Line Location: CLOZBG2+5
Function Call: WRITE	Prompt: !!!,?2,"Type of",!,?2,"Test",?12,"Lab Test Monitor",?55,"Specimen Type",!,?2,"-------",?12,"----------------",?55,"-------------" Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !! Line Location: CLOZADD+2
Function Call: WRITE	Prompt: !! Line Location: CLOZAD2+4
Function Call: WRITE	Prompt: !! Line Location: CLOZEDT+4
Function Call: WRITE	Prompt: !,"You must have a test defined for WBC and ANC to dispense Clozapine.",! Line Location: CLOZDEL+1
Function Call: WRITE	Prompt: !! Line Location: CLOZDEL+2
Function Call: WRITE	Prompt: !!,"Deleting "_$P(PSSCLO(PSSNUM),U)_"...." Line Location: CLOZDXX+4
Function Call: WRITE	Prompt: !! Line Location: CLOZDXX+5
Function Call: WRITE	Prompt: ! Line Location: CLOZASK+2
Function Call: WRITE	Prompt: !! Line Location: CLOZASK+4
Function Call: WRITE	Prompt: ! Line Location: DISPLY3+0
Function Call: WRITE	Prompt: !!,"You have selected the following information for",!,"a Laboratory Type of "_$S(PSSTUFF=2:"ANC",1:"WBC")_" test." Line Location: DISPLY3+2
Function Call: WRITE	Prompt: !!,?2,"Lab Test Monitor: "_PSSLT,!,?2,"Specimen Type : "_PSSPTY Line Location: DISPLY3+3
Function Call: WRITE	Prompt: !! Line Location: DISPLY3+4
Routine Call	DIE Line Location: PSSCLOZ+10 CLOZEDT+3
Routine Call	DIR Line Location: CLOZBEG+7 CLOZBG2+4 CLOZBG2+5 CLOZDEL+2 CLOZASK+3 DISPLY3 DISPLY3+1 DISPLY3+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^LAB(60 - [#60]	GET1^DIQ
^LAB(61 - [#61]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	CLOZBEG+2, CLOZBEG+3, CLOZEDT+3!, CLOZMOV+3, CLOZMOV+4
^PSDRUG("ACLOZ"	CLOZMOV+4*

Label References

Name	Line Occurrences
CLOZAD2	CLOZASK+8
CLOZASK	CLOZSEL+1, CLOZSEL+2, CLOZSEL+3
CLOZBEG	CLOZADD+2, CLOZAD2+4, CLOZEDT+4, CLOZDEL+2, CLOZDXX+5, CLOZASK+4
CLOZBG2	CLOZBEG+7
CLOZDEL	CLOZSEL+2
CLOZDXX	CLOZEDT+3, CLOZASK+7
CLOZEDT	CLOZSEL+3
CLOZSEL	CLOZBG2, CLOZBG2+6
DISPLAY	CLOZBEG+11
DISPLY2	CLOZADD+2
DISPLY3	CLOZASK+6
END	CLOZADD+2, CLOZAD2+4, CLOZEDT+4, CLOZDEL+2, CLOZDXX+5, CLOZASK+4

Naked Globals

Name	Field # of Occurrence
^(0	CLOZBEG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PSSCLOZ+7~, PSSCLOZ+10!, CLOZAD2+3!, CLOZEDT+1, CLOZDXX+1, CLOZMOV+5, CLOZMOV+9!
DA(1	CLOZAD2, CLOZDXX+1, CLOZMOV+5*, CLOZMOV+7
DD	CLOZAD2!, CLOZAD2+3!, CLOZMOV+5!
DIC	PSSCLOZ+7~, END+1!, CLOZAD2!, CLOZAD2+3!, CLOZMOV+5!, CLOZMOV+7, CLOZMOV+9!
DIC("DR"	CLOZAD2+2, CLOZMOV+8
DIC("P"	CLOZAD2+1, CLOZMOV+6
DIC(0	CLOZAD2+1, CLOZMOV+6
DIE	PSSCLOZ+7~, PSSCLOZ+10!, END+1!, CLOZEDT+1!, CLOZEDT+2, CLOZEDT+3!
DIK	PSSCLOZ+7~, END+1!, CLOZDXX!, CLOZDXX+1*, CLOZDXX+2!
DINUM	PSSCLOZ+7~, CLOZMOV+5*
DIR	PSSCLOZ+7~, CLOZBEG+7!, END+1!, CLOZASK+2!, DISPLY3!, DISPLY3+1!, DISPLY3+4!
DIR("?"	CLOZBG2+1, CLOZDEL+2, CLOZASK+3, DISPLY3+4
DIR("A"	CLOZBEG+7, CLOZBG2+4, CLOZBG2+5, CLOZDEL+2, CLOZASK+2, DISPLY3+1, DISPLY3+4*
DIR("B"	CLOZBEG+7, CLOZDEL+2, DISPLY3+4*
DIR("S"	DISPLY3*
DIR(0	CLOZBEG+7, CLOZBG2+4, CLOZBG2+5, CLOZDEL+2, CLOZASK+2, DISPLY3, DISPLY3+1, DISPLY3+4
DIRUT	PSSCLOZ+8!, CLOZBEG, CLOZBEG+7, CLOZBG2+2, CLOZBG2+4, CLOZBG2+5, CLOZBG2+6, CLOZSEL+1, CLOZADD+1, CLOZADD+2 , CLOZAD2+3, CLOZAD2+4, CLOZEDT+1, CLOZEDT+3, CLOZEDT+4, CLOZDEL+1, CLOZDEL+2, CLOZDXX+5, CLOZASK+1, CLOZASK+3 , CLOZASK+4, CLOZASK+6, DISPLY2+1, DISPLY3, DISPLY3+1
>> DISPDRG	PSSCLOZ+6, PSSCLOZ+10, CLOZBEG+2, CLOZBEG+3, CLOZAD2, CLOZEDT+3, CLOZDXX+1
DO	CLOZAD2!, CLOZAD2+3!, CLOZMOV+5!
DR	PSSCLOZ+7~, PSSCLOZ+10, END+1!, CLOZEDT+1!, CLOZEDT+3!
DUOUT	PSSCLOZ+8!, CLOZBEG, CLOZAD2+3, CLOZEDT+3, CLOZASK+1
PSSANS	PSSCLOZ+7~, CLOZBG2, CLOZBG2+6, END+1!, CLOZSEL+1, CLOZSEL+2, CLOZSEL+3, CLOZDXX+3, CLOZDXX+4, CLOZASK+2 , CLOZASK+4
PSSANS2	PSSCLOZ+7~, END+1!, CLOZEDT+1, CLOZDXX+1, CLOZASK+4*
PSSCIM	PSSCLOZ+7~, CLOZBEG+3*, CLOZBEG+4
PSSCLO	PSSCLOZ+7~, CLOZADD+2!, CLOZAD2+4!, CLOZEDT+4!, CLOZDEL+2!, CLOZDXX+5!, CLOZASK+4!
PSSCLO(	CLOZBEG+5*, DISPLAY+2, DISPLAY+3, DISPLAY+4, CLOZDXX+4, CLOZASK+4, CLOZASK+5
PSSCLO(0	DISPLAY+2
PSSCLO(1	DISPLY2+1
PSSCNT	PSSCLOZ+7~, CLOZBEG+1, CLOZBEG+5, CLOZBEG+7, CLOZBEG+8, CLOZBEG+9, CLOZBG2, CLOZBG2+2, CLOZBG2+5, END+1! , CLOZSEL+1, CLOZSEL+2, CLOZSEL+3, CLOZDEL+1, CLOZDXX+3, CLOZASK+2, CLOZASK+4
PSSCRN	PSSCLOZ+7~, CLOZASK+5, DISPLY2+1
PSSGLO	CLOZMOV+1~, CLOZMOV+2, CLOZMOV+4, CLOZMOV+5, CLOZMOV+8
PSSIEN	PSSCLOZ+7~, CLOZBEG+1, CLOZBEG+2, CLOZBEG+3, CLOZBEG+5, CLOZMOV+1~, CLOZMOV+2, CLOZMOV+3, CLOZMOV+4, CLOZMOV+5
PSSLAB1	PSSCLOZ+7~, CLOZBEG+4!*, CLOZBEG+5
PSSLAB2	PSSCLOZ+7~, CLOZBEG+4!*, CLOZBEG+5
PSSLT	PSSCLOZ+7~, DISPLY3*, DISPLY3+3
PSSLTN	PSSCLOZ+7~, CLOZAD2, DISPLY3*
PSSNN	PSSCLOZ+7~, CLOZASK+5*
PSSNUM	PSSCLOZ+7~, CLOZDXX+4, CLOZASK+4*, CLOZASK+5
PSSOPP	PSSCLOZ+7~, CLOZBG2+3*, CLOZBG2+4
PSSPTY	PSSCLOZ+7~, DISPLY3+1*, DISPLY3+3
PSSPTYN	PSSCLOZ+7~, CLOZAD2+2, DISPLY3+1*
PSSSUB	PSSCLOZ+7~, CLOZBEG+3*, CLOZBEG+4, CLOZBEG+5, END+1!
PSSTOT	PSSCLOZ+7~, DISPLAY+3*, DISPLAY+4
PSSTUFF	PSSCLOZ+7~, CLOZBEG+7, CLOZBEG+8, CLOZAD2+2, CLOZEDT+3, CLOZASK+4*, DISPLY3+2
PSSTYP0	PSSCLOZ+7~, CLOZBEG+3*, CLOZBEG+5, CLOZBEG+8, CLOZBG2+3
PSSXX	PSSCLOZ+7~, END+1!, DISPLAY+2*, DISPLAY+3, DISPLAY+4
U	CLOZBEG+3, DISPLAY+3, DISPLAY+4, CLOZDXX+4, CLOZASK+4, CLOZASK+5, DISPLY2+1, DISPLY3, DISPLY3+1
X	PSSCLOZ+7~, CLOZBEG+7!, END+1!, CLOZAD2, CLOZAD2+3!, CLOZEDT+1!, CLOZEDT+3!, CLOZDXX!, CLOZDXX+2!, DISPLY3! , DISPLY3+1!, DISPLY3+4!, CLOZMOV+5!
Y	PSSCLOZ+7~, CLOZBEG+7!, CLOZBG2+6, END+1!, CLOZADD+2, CLOZAD2+3!, CLOZEDT+1!, CLOZEDT+3!, CLOZDEL+2, CLOZDXX! , CLOZDXX+2!, CLOZASK+2!, CLOZASK+4, CLOZASK+6, DISPLY3!, DISPLY3+1!, DISPLY3+4!

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSCLOZ

Information

Source Information

Call Graph

Call Graph Total: 5

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: