Routine: PSALNA

Package	Total	Call Graph
VA Fileman	4	DD^%DT DT^DICRW ^DIE ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
Drug Accountability	2	^PSALND $$ITEM^PSAUTL

Package

Total

Call Graph

VA Fileman

DD^%DT DT^DICRW ^DIE ^DIR

Kernel

(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD

Drug Accountability

^PSALND $$ITEM^PSAUTL

Package	Total	Caller Graph
Drug Accountability	1	PSA NDC AUTO LOOP

Package

Total

Caller Graph

Drug Accountability

PSA NDC AUTO LOOP

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
OK
HEADER	;prints header info
READY	;Extended help to 'Are you ready to link ALL of the drugs that have matches in the ITEM MASTER file?'
DEV	;asks device and queueing info
START	;sets up edit loop
QUES
NOT
RUN	;Extended help to 'Have you run the Report Potential NDC Matches option?'
NOW	;Extended help to 'Would you like to run the report now?'
LOOP

Name	Field # of Occurrence
DD^%DT	LOOP
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	QUIT+2
^%ZTLOAD	DEV+3
$$S^%ZTLOAD	HEADER+2
DT^DICRW	PSALNA+7
^DIE	OK
^DIR	QUES, QUES+1, QUES+3, QUIT+1, HEADER+1
^PSALND	QUES+1
$$ITEM^PSAUTL	LOOP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QUES+2
Function Call: WRITE	Prompt: !!,"I'll list each DRUG/ITEM MASTER file entry as they're linked.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !,$E($P(^PSDRUG(PSAD,0),U),1,39),?40,$E($P(^PRC(441,PSAIT,0),U,2),1,39),! Line Location: LOOP+2
Function Call: WRITE	Prompt: "Linked to Item #"_PSAIT Line Location: OK+0
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+0
Function Call: WRITE	Prompt: !! Line Location: QUIT+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,"Linking DRUG/ITEM MASTER file by NDC",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG file",?40,"ITEM MASTER file" Line Location: HEADER+3
Function Call: WRITE	Prompt: !?5,"Enter YES if you want to print the report now.",!!?5,"Enter NO if you do not want to run the report now.",!?5,"You will not exit the option." Line Location: NOW+1
Function Call: WRITE	Prompt: !?5,"Enter YES to begin linking every drug that has been matched.",!?5,"Enter NO to exit the option." Line Location: READY+1
Function Call: WRITE	Prompt: !?5,"Enter YES if you have run the Report Potential NDC Matches option",!?5,"and produced a report.",!!?5,"Enter NO if you have not run the option. You will be given the",!?5,"opportunity to run the report now." Line Location: RUN+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIE Line Location: OK
Routine Call	DIR Line Location: QUES QUES+1 QUES+3 QUIT+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	LOOP+2, NOT
^PSDRUG - [#50]	LOOP+1, LOOP+2
^PSDRUG("AB"	NOT
^VA(200 - [#200]	HEADER+2

Name	Line Occurrences
HEADER	LOOP, LOOP+1
QUIT	QUES, QUES+3, DEV+2, DEV+3, LOOP+1

Name	Field # of Occurrence
^(2	LOOP+1
^(3	NOT

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+2~*
%ZIS("A"	DEV+2*
D0	START+1~
D1	START+1~
DA	START+1~, OK*
DIC	START+1~
DIE	START+1~, OK*
DIR	START+1~, QUES!, QUES+1!, QUES+3!, HEADER+1!
DIR("??"	QUES, QUES+1, QUES+2*
DIR("A"	QUES, QUES+1, QUES+2, QUIT+1
DIR("B"	QUES+1, QUES+2
DIR(0	QUES, QUES+1, QUES+2, QUIT+1, HEADER+1*
DIRUT	START+1~, QUES, QUES+1, QUES+3
DLAYGO	START+1~
DR	START+1~, OK*
DT	LOOP
DTOUT	START+1~
DUOUT	START+1~
DUZ	HEADER+2
IO("Q"	DEV+2!, DEV+3, QUIT+2!
IOF	QUIT, HEADER+3
IOP	DEV+2~
IOSL	LOOP+1
IOST	QUIT, QUIT+1, HEADER+1
POP	DEV+2~
PSAD	START+1~, LOOP, LOOP+1, LOOP+2, OK
PSAD(1	LOOP+1*, LOOP+2
PSADD	START+1~, LOOP+1!, LOOP+2, NOT*, OK
PSAIT	START+1~, LOOP+2*, NOT, OK
PSALN	START+1~, HEADER+3*
PSAOUT	START+1~, QUES, QUES+1, DEV+3, LOOP, LOOP+1, QUIT+1, HEADER+1, HEADER+2
PSAPG	START+1~, LOOP, HEADER+1, HEADER+3
PSARPDT	START+1~, LOOP*, HEADER+3
U	LOOP+1, LOOP+2, NOT, HEADER+2
X	START+1~
Y	START+1~, QUES, QUES+1, QUES+3, LOOP*, HEADER+1
ZTDESC	DEV+3~*, HEADER+2
ZTDTH	DEV+3~
ZTIO	DEV+3~
>> ZTQUEUED	QUIT+2
>> ZTREQ	QUIT+2*
ZTRTN	DEV+3~*
ZTSAVE	DEV+3~
ZTSK	DEV+3~, HEADER+2

Customize PDF page

Package: Drug Accountability

Routine: PSALNA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: