Routine: PSANDC

Information

PSANDC ;BIR/LTL-NDC Duplicates Report ;7/23/97

Source file <PSANDC.m>

Package	Total	Caller Graph
Drug Accountability	1	PSA NDC DUPLICATE REPORT

Name	Comments	DBIA/ICR reference
END
HEADER	;prints header info
DEV	;asks device and queueing info
NAR	;Expanation
START	;compiles and prints data for report
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P($T(NAR+I),";;",2,99) Line Location: PSANDC+7
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !! Line Location: END+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,"DUPLICATE NDC REPORT",?35,PSARPDT,?70,"PAGE: "_PSAPG,!,!! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIR Line Location: END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	LOOP, LOOP+2, LOOP+4, LOOP+5
^VA(200 - [#200]	HEADER+2

Name	Line Occurrences
END	DEV+1, DEV+2, LOOP
HEADER	START+1, LOOP, LOOP+2

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+1~*
DIR	START+1~, HEADER+1!
DIR("A"	END+1*
DIR(0	END+1, HEADER+1
DIRUT	START+1~
DT	START+1
DTOUT	DEV+1~
DUOUT	DEV+1~
DUZ	HEADER+2
I	PSANDC+7*, DEV+1!
IO("Q"	DEV+1!, DEV+2, END+2!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP, LOOP+2
IOST	END, END+1, HEADER+1
POP	DEV+1~
PSALN	START+1~, LOOP+4, HEADER+3*
PSANDC	START+1~, LOOP, LOOP+2, LOOP+4, LOOP+5
PSANDC(1	LOOP+1, LOOP+3, LOOP+4
PSANDCD	START+1~, LOOP+2, LOOP+4, LOOP+5
PSAOUT	DEV+1~, DEV+2, START+1, LOOP, LOOP+2, END+1, HEADER+1, HEADER+2*
PSAPG	START+1~, HEADER+1, HEADER+3
PSARPDT	START+1~*, HEADER+3
U	HEADER+2
X	START+1~
Y	START+1~*, HEADER+1
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSK	DEV+2~, HEADER+2

Name	Field # of Occurrence
$T(NAR+I	PSANDC+7