Routine: PSSLAB

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE ^DIR
Pharmacy Data Management	1	(CLOZ,MONCLOZ)^PSSDEE

Package	Total	Caller Graph
Pharmacy Data Management	2	PSSCLDRG PSSDEE

Entry Points

Name	Comments	DBIA/ICR reference
UNMRK
EDIT	;Mark/unmark drugs to print on profile
ED
BEG
UNMRK1
UNMRK0
EXIT
CLEAN
PRINT	;Prints most recent lab test value on profile.
ASKEM
EDATE
SPEC
REASK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"** Drug inactivated "_Y_"." Line Location: EDIT+4
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"This drug is marked for Clozapine monitoring. To print the most",!,"recent lab result on the profile, the drug must be unmarked",!,"for Clozapine monitoring." Line Location: EDIT+5
Function Call: WRITE	Prompt: !," You are NOW editing LAB MONITOR fields. " Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: ED+2
Function Call: WRITE	Prompt: !!,$C(7),"Missing DATA NAME Probably a panel test. Please select another." Line Location: ED+4
Function Call: WRITE	Prompt: !!,?5,"Now editing:",! Line Location: SPEC+1
Function Call: WRITE	Prompt: !!,$C(7),"Insufficient data.",!,"All fields must have an entry or all fields must be blank.",! Line Location: SPEC+5
Function Call: WRITE	Prompt: !,"* NO LAB DATA ON FILE *" Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"*** RESULTS FOR A PANEL CANNOT BE PRINTED! ONLY A LAB TEST RESULT CAN BE PRINTED FOR MARKED DRUGS." Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,"Do you wish to mark this drug as a Clozapine drug?" Line Location: ASKEM+0
Routine Call	DIE Line Location: SPEC SPEC+2 UNMRK1
Routine Call	DIC Line Location: ED+2
Routine Call	DIR Line Location: UNMRK0 ASKEM

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EDIT+4
^DPT - [#2]	PRINT+1, PRINT+2
^LAB(60 - [#60]	ED+2, ED+4, PRINT+5, PRINT+6, BEG+4
^LR - [#63]	BEG, BEG+1, BEG+2, BEG+3, BEG+4
^PSDRUG - [#50]	EDIT+4, EDIT+5, ED, SPEC+2, SPEC+4, SPEC+5*, PRINT+3, UNMRK, UNMRK1

Name	Field # of Occurrence
%DT	EDATE!
BDL	BEG*, BEG+1, BEG+2, BEG+3, BEG+4, CLEAN!
>> CLFLAG	ED
>> DA	EDIT+1, SPEC, SPEC+2*, SPEC+4, SPEC+5
>> DFN	PRINT+1, PRINT+2
DIC	ED+2!*
DIC("A"	ED+2*
DIC("B"	ED+2*
DIC(0	ED+2*
DIE	SPEC!, SPEC+2!, UNMRK1*
DIR	ASKEM!, ASKEM+2!
DIR("A"	UNMRK*
DIR("B"	UNMRK*
DIR(0	UNMRK, ASKEM
DIRUT	EDIT+3, ED, ED+3, UNMRK0, ASKEM!, ASKEM+1
>> DISPDRG	EDIT+1
>> DR	SPEC, SPEC+2, UNMRK1*
DTOUT	EDIT+3, ED, SPEC+3, UNMRK0, ASKEM!, ASKEM+1
DUOUT	EDIT+3, ED, SPEC+3, UNMRK0, ASKEM!, ASKEM+1
EDL	EDATE*, BEG, CLEAN!
EDT	EDATE*, BEG+5, CLEAN!
IEN50	EDIT+1*, EDIT+4, EDIT+5, ED, SPEC, SPEC+2, SPEC+4, SPEC+5, EXIT!, UNMRK , UNMRK1
INDIC	EDATE, BEG, BEG+4, BEG+5, CLEAN!
LDN	PRINT+5*, BEG+1, BEG+4, CLEAN!
LIEN	ED, ED+2, ED+3, ED+4, EXIT!
>> LMFLAG	EDIT+2, SPEC+2, SPEC+5, UNMRK1*
LRDFN	PRINT+2*, BEG, BEG+1, BEG+2, BEG+3, BEG+4, CLEAN!
MDAYS	PRINT+3*, PRINT+4, EDATE, CLEAN!
MDRUG	PRINT+3*, CLEAN!
>> NFLAG	EDIT+3, ED, SPEC+2, ASKEM+2
>> RX0	PRINT+3
TST	PRINT+3*, PRINT+4, PRINT+5, PRINT+6, BEG+4, CLEAN!
TSTN	PRINT+5*, BEG+4, BEG+5, CLEAN!
TSTSP	PRINT+3*, PRINT+4, BEG+2, BEG+4, CLEAN!
X	EDATE*, CLEAN!, UNMRK1, ASKEM!, ASKEM+2!, ASKEM+3
Y	EDIT+4, ED+3, EDATE, BEG+3, BEG+4, CLEAN!, ASKEM!, ASKEM+2!