Routine: PSDREC1

Package	Total	Caller Graph
Controlled Substances	1	PSDREC

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: ?5,$E($P($G(^PRC(442,+PSDPO,2,+PSDI,1,PSDW,0)),U),1,75),! Line Location: LOOP+3
Function Call: WRITE	Prompt: PSDREC,! Line Location: DISP+1
Function Call: WRITE	Prompt: !,"Sorry, but this drug is not stocked in this location.",! Line Location: DISP+3
Routine Call	DIE Line Location: NON+10 IT+2 MON+2 FIND+2
Routine Call	DIC Line Location: NON+2 MON+1 FIND+1 FIND+5
Routine Call	DIR Line Location: NON+9 POST

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	NON+4, NON+6
^PRC(442	LOOP, LOOP+1, LOOP+3
^PSD(58.8 - [#58.8]	NON, DISP+3, POST+1, POST+2, POST+4, POST+5*, POST+6, MON, MON+1, FIND+3
^PSD(58.81 - [#58.81]	TR, FIND*, FIND+1
^PSDRUG - [#50]	NON+3, IT, DISP+1
^PSDRUG("AB"	NON, NON+4, IT

Name	Line Occurrences
FIND	FIND
QUIT	LOOP

Name	Field # of Occurrence
^(0	POST+1, MON, FIND+3

Name	Field # of Occurrence
>> %	POST+3
DA	NON+10, IT+2, MON+2, FIND+2, FIND+5!
DA(1	NON+1, MON+1, MON+2, FIND+5
DA(2	MON+1, MON+2, FIND+5*
DIC	NON+1, NON+2!, MON+1!, FIND+1!, FIND+4, FIND+5!
DIC("A"	NON+1*
DIC("S"	NON+1*
DIC(0	NON+1, MON+1, FIND+1, FIND+4
DIE	NON+10!, IT+2!, MON+2, FIND+2!
>> DILOCKTM	POST+2, TR
>> DINUM	MON+1, FIND+1, FIND+4*
DIR	NON+9!, POST!
DIR("?"	NON+8, POST
DIR("A"	NON+5, NON+6, NON+7, NON+8, POST*
DIR("B"	NON+7, POST
DIR(0	NON+5, POST
DLAYGO	MON+1, FIND+1!, FIND+4*
>> DR	NON+10, IT+2, MON+2, FIND+2
DT	MON+1, MON+2
>> DTOUT	LOOP, NON, NON+2
>> DUOUT	LOOP, NON, NON+2
>> PSDAT	POST+3*
>> PSDB	POST+4*, POST+5
>> PSDI	LOOP*, LOOP+1, LOOP+3
>> PSDIT	LOOP+1*, LOOP+2, LOOP+4, LOOP+6, LOOP+7, LOOP+8, NON, NON+4, NON+6, NON+10 , IT
>> PSDLOC	NON, NON+1, DISP+3, POST+1, POST+2, POST+4, POST+5, POST+6, MON, MON+1 , MON+2, FIND+3, FIND+5
>> PSDLOCN	NON+1
>> PSDP	LOOP
>> PSDPO	LOOP, LOOP+1, LOOP+3, FIND+6
>> PSDREC	LOOP, DISP, DISP+1, POST+1, POST+5
PSDRUG	NON+3, NON+10, IT, IT+2!, DISP+1, DISP+3, POST!, POST+1, POST+2, POST+4 , POST+5, POST+6, MON, MON+1, MON+2, FIND+3, FIND+5!
>> PSDRUGN	NON+3, NON+7, NON+10, IT, IT+1
>> PSDT	FIND*, FIND+1, FIND+2, FIND+4
>> PSDW	LOOP+3*
U	LOOP, LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+7, LOOP+8, NON, NON+3, NON+4 , NON+6, NON+10, IT, DISP+1, POST+1, POST+4, POST+5, FIND
X	PSDREC1+8~, MON+1, FIND+1, FIND+4*
X1	PSDREC1+8~
>> Y	NON, NON+2, NON+3, NON+9, NON+10*, IT+2, POST