Routine: AUTVDUP

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	4	(NOW,YX)^%DTC WAIT^DICD DT^DICRW ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
P2
P1
END	;
BADTOTL	;
BAD1
HEADER	;Prints heading
BADEIN	; Print list of Vendors with no EIN on file
TOTL
HDR	;
PRINT	;
USR()
LOC()
BADHEAD	; Prints heading of missing EIN's
VNDR	; Check vendor(s) with this EIN.
CTR(X,Y)	; Center X in field of length Y.
DEVICE	;Device Selection
DUP(X,Y)	; Duplicate X for Y times.
CALC	;EP - From TaskMan
LSTUSED(V)	; Checks last used date in ^ACHSF(,"VB"
CHECK1	; Check EIN.

External References

Name	Field # of Occurrence
NOW^%DTC	PRINT+2
YX^%DTC	PRINT+2
^%ZIS	DEVICE+2
HOME^%ZIS	AUTVDUP+5, DEVICE+6
^%ZISC	END+2
^%ZTLOAD	DEVICE+6
WAIT^DICD	CALC+2
DT^DICRW	AUTVDUP+5
^DIR	DEVICE+2, P2+5, TOTL+1, BAD1+4, BADTOTL+2
$$FMTE^XLFDT	LSTUSED+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: AUTVDUP+4
Function Call: WRITE	Prompt: !!,$$CTR("This report will generate a list of VENDORS whose",80),!,$$CTR("file contains either a DUPLICATE or MISSING EIN.",80) Line Location: AUTVDUP+6
Function Call: WRITE	Prompt: *7,!!,$$CTR("Since this report may take awhile to compile",80),!,$$CTR("it is recommended that you QUEUE to a PRINTER.",80) Line Location: DEVICE+1
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED" Line Location: DEVICE+2
Function Call: WRITE	Prompt: ! Line Location: P1+2
Function Call: WRITE	Prompt: !,?12,AUTEIN,?30,$E($P(^TMP($J,AUTEIN,AUTVNDR),U),1,30) Line Location: P2+2
Function Call: WRITE	Prompt: !! Line Location: P2+5
Function Call: WRITE	Prompt: !!,?1,"TOTAL",?30,C Line Location: TOTL+0
Function Call: WRITE	Prompt: !! Line Location: TOTL+1
Function Call: WRITE	Prompt: !!,"Good for YOU!! All VENDORS in your file have EIN's!" Line Location: BADEIN+3
Function Call: WRITE	Prompt: !! Line Location: BADEIN+5
Function Call: WRITE	Prompt: !,?12,AUTBAD Line Location: BAD1+2
Function Call: WRITE	Prompt: !! Line Location: BAD1+4
Function Call: WRITE	Prompt: !!,?1,"TOTAL",?12,C Line Location: BADTOTL+1
Function Call: WRITE	Prompt: !! Line Location: BADTOTL+2
Function Call: WRITE	Prompt: @IOF Line Location: BADTOTL+3
Function Call: WRITE	Prompt: @IOF,!,"",AUTDAT,$$CTR($$LOC,(80-(2$X))),?80-$L(AUTTIM_""),AUTTIM,"",!,"User: ",$$USR,$$CTR("DUPLICATE VENDOR EIN - Page "_AUTPAGE,(80-(2$X))),?80-$L("Device:"_IO_""),"Device:",IO,"",!,$$DUP("*",80) Line Location: HEADER+2
Function Call: WRITE	Prompt: !!?12,"VENDOR EIN",?30,"VENDOR NAME",?66,"LAST USED CHS",!,$$DUP("~",80),! Line Location: HDR+1
Function Call: WRITE	Prompt: !!,$$CTR("The following do(es) not have an EIN entry in the VENDOR FILE.",80),!,$$CTR("PLEASE validate and correct.",80),!,$$DUP("~",80),! Line Location: BADHEAD+2
Function Call: WRITE	Prompt: ?65,$E(%,4,5),"-",$E(%,6,7),"-",$E(%,2,3) Line Location: LSTUSED+7
Function Call: WRITE	Prompt: ?66,$$FMTE^XLFDT(D,5) Line Location: LSTUSED+15
Routine Call	%ZIS Line Location: AUTVDUP+5 DEVICE+6
Routine Call	DIR Line Location: DEVICE+2 P2+5 TOTL+1 BAD1+4 BADTOTL+2
Routine Call	%ZIS Line Location: DEVICE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	LSTUSED+9, LSTUSED+12
^AUTTVNDR - [#9999999.11]	CALC+5, VNDR+4, BADEIN+4
^DIC(4 - [#4]	LOC
^TMP($J	END+1!, CALC+3!, CALC+5, CALC+6, CHECK1+1, CHECK1+2!, VNDR+1, VNDR+3!, VNDR+4, PRINT+4 , P1, P2, P2+2, BADEIN+3, BADEIN+4*!, BAD1
^VA(200 - [#200]	USR

Label References

Name	Line Occurrences
$$CTR	AUTVDUP+6, DEVICE+1, HEADER+2, BADHEAD+2
$$DUP	HEADER+2, HDR+1, BADHEAD+2
$$LOC	HEADER+2
$$USR	HEADER+2
BAD1	BAD1+5
BADHEAD	BADEIN+2, BAD1+3, BAD1+4
BADTOTL	BAD1+1
CALC	DEVICE+3
CHECK1	VNDR+2
DEVICE	DEVICE+2
END	DEVICE+2, PRINT+4, BADEIN+3, BADTOTL+4
HDR	PRINT+3, P2+4, P2+5
HEADER	PRINT+3, P2+4, P2+5, BADHEAD+1
LSTUSED	P2+3
P1	P2+1
P2	P2+7
PRINT	CALC+6, CHECK1+2
TOTL	P1+1
VNDR	VNDR+3, VNDR+5

Naked Globals

Name	Field # of Occurrence
^(0	VNDR+4, LOC, USR

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BADEIN+4, LSTUSED+11, LSTUSED+12, LSTUSED+13, LSTUSED+14, CTR+1, CTR+2, DUP+1*, DUP+2
>> %ZIS	DEVICE+2*
AUTBAD	CALC+1~, BADEIN+5, BAD1, BAD1+1, BAD1+2
AUTDAT	CALC+1~, PRINT+2*, HEADER+2
AUTEIN	CALC+1~, PRINT+1, P1, P1+1, P1+2, P2, P2+2, P2+6
AUTPAGE	CALC+1~, PRINT+1, BADEIN+1, HEADER+1*, HEADER+2
AUTSKIP	CALC+1~, PRINT+1, P1+2, P2+6
AUTTIM	CALC+1~, PRINT+2*, HEADER+2
AUTVNDR	CALC+1~, P1+1, P2, P2+1, P2+2, P2+3
C	END+1!, PRINT+3, P2+2, TOTL, BADEIN+5, BAD1+2, BADTOTL+1
D	LSTUSED+1~, LSTUSED+10, LSTUSED+13, LSTUSED+14, LSTUSED+15
D(	LSTUSED+9, LSTUSED+12, LSTUSED+14
DIR	DEVICE+2!, END+1!, P2+5!, TOTL+1!, BAD1+4!, BADTOTL+2!
DIR(0	DEVICE+2, P2+5, TOTL+1, BAD1+4, BADTOTL+2*
DIROUT	END+1!
DIRUT	END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	AUTVDUP+4, USR
DUZ(2	LOC
E	CALC+3!, CALC+7, CHECK1+1, CHECK1+2!, VNDR+1, VNDR+3, VNDR+4
I	END+1!, LSTUSED+1~, LSTUSED+9*
IO	CALC+2, HEADER+2
IO("Q"	DEVICE+3, DEVICE+6!
IO("S"	CALC+2, P2+5, TOTL+1, BAD1+4, BADTOTL+2
IO(0	CALC+2
IOF	BADTOTL+3, HEADER+2
IOM	CTR+1
>> IOP	DEVICE+2*
IOSL	P2+4, P2+5, BAD1+3, BAD1+4
IOST	P2+4, P2+5, TOTL+1, BAD1+3, BAD1+4, BADTOTL+2
L	LSTUSED+1~, LSTUSED+2, LSTUSED+9
>> POP	DEVICE+2
U	CALC+5, VNDR+4, P2+2, BADEIN+4, LSTUSED+12, LOC, USR
V	CALC+3!, CALC+4, CALC+5, CHECK1+2!, CHECK1+3, VNDR+1, VNDR+2, VNDR+3, VNDR+4, LSTUSED~ , LSTUSED+9
X	CTR~, CTR+2, DUP~, DUP+1
Y	DEVICE+2, PRINT+2, P2+5, TOTL+1, BAD1+4, BADTOTL+2, CTR~, CTR+1, DUP~, DUP+1
>> ZTDESC	DEVICE+5*
>> ZTQUEUED	END+2, CALC+2
>> ZTREQ	END+2*
>> ZTRTN	DEVICE+5*
ZTSK	DEVICE+6!

Customize PDF page

Package: Utility Tables

Routine: AUTVDUP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: