Routine: PSADA

Package	Total	Call Graph
VA Fileman	4	^DIC MIX^DIC1 DT^DICRW ^DIR

Package	Total	Caller Graph
Drug Accountability	13	PSADJI PSADRU PSADRUG PSANAC PSAOP PSAOP2 PSAPSI PSAPSI2 PSAREVD PSARIN PSAVIN1 PSAVIN2 PSAVINC

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Drug Accountability location has been created yet.",! Line Location: START+2
Function Call: WRITE	Prompt: !!,"An Inpatient Site has not been identified for AR/WS.",!,"AR/WS dispensing data may not be gathered.",! Line Location: SKIP+3
Function Call: WRITE	Prompt: "*" Line Location: SKIP+12
Function Call: WRITE	Prompt: !!,"No Drug Accountability location has been created for ",$P($G(^PS(59,+PSAOSIT,0)),U),".",! Line Location: OP+6
Function Call: WRITE	Prompt: !,"No site was selected.",! Line Location: QUIT+0
Function Call: WRITE	Prompt: !!,PSALOCN," for " Line Location: QUIT+1
Function Call: WRITE	Prompt: $P(^(0),U)_" (IP) " Line Location: QUIT+2
Function Call: WRITE	Prompt: $P(^(0),U)_" (OP)" Line Location: QUIT+3
Function Call: WRITE	Prompt: "...I'm not sure" Line Location: QUIT+4
Function Call: WRITE	Prompt: !,"No outpatient sites have been set up.",! Line Location: COP+0
Function Call: WRITE	Prompt: !!,"Because there is more than one Outpatient Site at this facility, I need you to " Line Location: COP+3
Routine Call	DIC Line Location: SKIP+7 OP+3
Routine Call	DIR Line Location: PIC QUIT+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	SKIP+12, SKIP+13
^PS(59 - [#59]	OP, OP+6, QUIT+3
^PS(59.4 - [#59.4]	SKIP+2, QUIT+2
^PSD(58.8 - [#58.8]	START+1, START+4, START+5, SKIP+8, SKIP+10, SKIP+12, OP+5, COP, COP+1, COP+2 , COP+4

Name	Field # of Occurrence
^(	SKIP+2
^(0	START+5, QUIT+2, QUIT+3

Name	Field # of Occurrence
D	START~, COP+4*
DIC	START~, SKIP+7!, OP+3!, COP+4*
DIC("A"	SKIP+7, OP+3, COP+4*
DIC("S"	SKIP+7*
DIC(0	SKIP+7, OP+3, COP+4*
DIR	START~, PIC!, QUIT+5!
DIR("?"	QUIT+5*
DIR("A"	PIC, QUIT+5
DIR("B"	QUIT+5*
DIR(0	PIC, QUIT+5
DIRUT	START~, QUIT+5
DTOUT	START~, SKIP+7
DUOUT	START~, SKIP+7
PSA	START~, OP*, OP+4
PSA(1	SKIP+2*
PSA(2	SKIP+2*, SKIP+3, SKIP+4, SKIP+5
PSAB	START~, SKIP+2*, SKIP+4
PSAC	START~
>> PSACNT	QUIT+1, QUIT+2, QUIT+3*, QUIT+4
PSADRUG	START~
PSAI	START~
PSAII	START~
PSAINV	START~
PSAIPS	START~
PSAISIT	START~, START+5, SKIP+4, SKIP+7*, SKIP+8, QUIT+2, QUIT+5!
PSAIT	START~
PSAITY	START~, PIC+1*, SKIP, SKIP+3, SKIP+7, SKIP+9, SKIP+14
PSALOC	START+4, START+5, PIC, SKIP+5!, SKIP+8, SKIP+9, SKIP+10, OP+5, OP+6, QUIT , QUIT+1, QUIT+5!, COP+1, COP+2, COP+4
PSALOC(1	START+1, START+2, START+4, PIC*, QUIT+5
>> PSALOCN	START+5, PIC+1, SKIP+10, OP+5, QUIT+1, COP+1, COP+4
PSAO	START~, SKIP+3, SKIP+7, SKIP+9, SKIP+14
PSAOC	START~
PSAOP	START~
PSAOSIT	START~, START+5, OP+3, OP+4*, OP+5, OP+6, QUIT+3, QUIT+5!
PSAOU	START~, SKIP+5, SKIP+7, SKIP+14
>> PSAOUT	PIC*
PSASTO	START~
PSAWARD	SKIP+12~*, SKIP+13
U	START+5, SKIP+2, SKIP+10, SKIP+13, OP+5, OP+6, QUIT+2, QUIT+3, COP+1, COP+4
X	START~
Y	START~, PIC, PIC+1, SKIP+5, SKIP+7, OP*, OP+3, QUIT+5, COP+4
Y(0	PIC+1