Routine: PSNSTCL

Package	Total	Call Graph
National Drug File	1	(CL,VACLS)^PSNHELP1
VA Fileman	1	^DIC

Package	Total	Caller Graph
National Drug File	1	PSNSTCL

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option allows a VA Drug Classification to be entered for",!,"a drug in your local drug file, however, if the drug has been" Line Location: PSNSTCL+7
Function Call: WRITE	Prompt: !,"classed through ""the National Drug File merge procedure"" you cannot change it!",! Line Location: PSNSTCL+8
Function Call: READ	Timeout: DTIME Line Location: START+0
Function Call: WRITE	Prompt: !,"ANSWER MUST BE YES OR NO " Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: DRUG+0
Function Call: WRITE	Prompt: !,"SORRY, CLASSIFICATION CANNOT BE CHANGED",! Line Location: DRUG+3
Function Call: WRITE	Prompt: !!," Select VA DRUG CLASS CODE: " Line Location: CLASS+0
Function Call: WRITE	Prompt: $P(^PS(50.605,CL,0),"^")_" // " Line Location: CLASS+0
Function Call: READ	Timeout: DTIME Variable: PSNCLANS Line Location: CLASS+1
Function Call: WRITE	Prompt: !!,$S($D(DRUG):$P(^PSDRUG(DRUG,0),"^",1),$D(NAM):NAM,1:"") Line Location: CLASS+7
Function Call: WRITE	Prompt: !,"THIS IS NOT A VALID ANSWER, YOU MUST BE MORE SPECIFIC",! Line Location: CLASS+8
Function Call: WRITE	Prompt: !,"THIS IS AN INCORRECT FORMAT ",! Line Location: CLASS+9
Function Call: WRITE	Prompt: !," THIS CLASSIFICATION DOES NOT EXIST. PLEASE TRY AGAIN. ",! Line Location: CLASS+10
Function Call: WRITE	Prompt: !!,NAM Line Location: SET+0
Routine Call	DIC Line Location: DRUG CLASS+7

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(50.605 - [#50.605]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.3 - [#50.3]	CLASS+14
^PS(50.605 - [#50.605]	CLASS, CLASS+4, CLASS+10, CLASS+12, CLASS+18
^PS(59.7 - [#59.7]	CLASS+12
^PSDRUG - [#50]	DRUG+3, CLASS, CLASS+7, CLASS+12*, CLASS+14, CLASS+18, LOOP, LOOP+1, LOOP+2
^PSDRUG("AOC"	CLASS+17!, CLASS+18*
^PSDRUG("APC"	CLASS+13!, CLASS+14
^PSDRUG("B"	MLT, MLT+2
^PSDRUG("VAC"	CLASS+11!, CLASS+12*
^PSNTRAN - [#50.612]	MLT+1, CLASS+15!, MLT+1!, MLT+3*, SET!
^PSNTRAN("END"	MLT, MLT+3, SET*

Name	Line Occurrences
CLASS	DRUG+1, CLASS+2, CLASS+6, CLASS+7, CLASS+8, CLASS+9, CLASS+10, SET
DONE	START, MLT+3
DRUG	START+5
LOOP	MLT+2
MLT	START+2
SET	LOOP+1, LOOP+2
START	START+1, START+3, START+4

Name	Field # of Occurrence
^(49.99	CLASS+12

Name	Field # of Occurrence
ANS1	START*, START+1, START+2, START+3, START+4, DONE!
CL	DONE!, CLASS!*, CLASS+3, CLASS+4
COD	DONE!, CLASS+13, CLASS+17
DA	DONE!, MLT+2*, LOOP, LOOP+1, LOOP+2, SET
DIC	DRUG!, CLASS+7!
DIC(0	DRUG, CLASS+7
DRUG	DONE!, DRUG+3, CLASS, CLASS+7, CLASS+11, CLASS+12, CLASS+13, CLASS+14, CLASS+15, CLASS+17 , CLASS+18, SET
DT	LOOP
DTIME	START, CLASS+1
FLAG	DONE!, CLASS+12, CLASS+13, CLASS+14
IFN	DONE!, MLT*, MLT+1, SET
NAM	DONE!, CLASS+7, MLT, MLT+2, SET
PDA	DONE!, MLT+3, SET*
PP	DONE!, CLASS+13, CLASS+17
PRIM	DONE!, CLASS+14, CLASS+18
PSNCLANS	DONE!, CLASS!, CLASS+1, CLASS+2, CLASS+3, CLASS+4*, CLASS+5, CLASS+6, CLASS+7, CLASS+8 , CLASS+9, CLASS+10, CLASS+12, CLASS+13, CLASS+14
PSNCLDA	DONE!, CLASS+12*, CLASS+18
PSNFL	START+5, DONE!, DRUG, DRUG+2, CLASS+1, CLASS+3, CLASS+5, MLT*, MLT+2, SET
PSNMM	START+5*, DONE!
VADC	DONE!, CLASS+11*
VV	DONE!, MLT+2*
X	DONE!, DRUG, DRUG+1, CLASS+7*
Y	DONE!, DRUG+2, DRUG+3, CLASS+7