Routine: AFSLDRVE

Package	Total	Call Graph
VA Fileman	3	(NOW,YX)^%DTC WAIT^DICD ^DIR
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Commitment Register	1	$$NAME2^ACRFUTL1

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	HEADER+2, BADHEAD+2
YX^%DTC	HEADER+2, BADHEAD+2
^%ZIS	DEVICE+3, DEVICE+7
HOME^%ZIS	ZTLOAD+4, ZTLOAD1+5
^%ZTLOAD	ZTLOAD+4, ZTLOAD1+5
$$NAME2^ACRFUTL1	AFSLDRVE+8
WAIT^DICD	DEVICE+9
^DIR	DEVICE+6, P2+7, TOTL+1, BAD1+3, BADTOTL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?18,"This report will generate a list of VENDORS whose" Line Location: AFSLDRVE+10
Function Call: WRITE	Prompt: !?18,"file contains either a DUPLICATE or MISSING EIN." Line Location: AFSLDRVE+10
Function Call: WRITE	Prompt: *7,!!?18,"Since this report may take awhile to compile" Line Location: DEVICE+1
Function Call: WRITE	Prompt: !?18,"it is recommended that you QUEUE to a PRINTER." 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: DEVICE+3
Function Call: WRITE	Prompt: ! Line Location: DEVICE+9
Function Call: WRITE	Prompt: ! Line Location: P1+0
Function Call: WRITE	Prompt: !?1,AFSLEIN,?16,$E($P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,1),1,30) Line Location: P2+4
Function Call: WRITE	Prompt: ?63,$P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,2),?96,$P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,3),?116,AFSLSTAT,?120,$P(^AFSLCTMP(AFSLEIN,AFSLVNDR),U,5) Line Location: P2+4
Function Call: WRITE	Prompt: !! Line Location: P2+7
Function Call: WRITE	Prompt: !!?1,"TOTAL",?30,C Line Location: TOTL+0
Function Call: WRITE	Prompt: !! Line Location: TOTL+1
Function Call: WRITE	Prompt: !! Line Location: BADEIN+2
Function Call: WRITE	Prompt: !?12,$P(^AUTTVNDR(AFSLBAD,0),U,1) Line Location: BAD1+1
Function Call: WRITE	Prompt: !! Line Location: BAD1+3
Function Call: WRITE	Prompt: !!?1,"TOTAL",?12,C Line Location: BADTOTL+0
Function Call: WRITE	Prompt: !! Line Location: BADTOTL+1
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"*",AFSLDAT Line Location: HEADER+3
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+3
Function Call: WRITE	Prompt: !! Line Location: HEADER+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_AFSLPAGE Line Location: HEADER+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+6
Function Call: WRITE	Prompt: !! Line Location: HEADER+7
Function Call: WRITE	Prompt: "*" Line Location: HEADER+7
Function Call: WRITE	Prompt: !!?12,"VENDOR EIN",?30,"VENDOR NAME",?66,"LAST USED" Line Location: HEADER+8
Function Call: WRITE	Prompt: ! Line Location: HEADER+9
Function Call: WRITE	Prompt: "~" Line Location: HEADER+9
Function Call: WRITE	Prompt: ! Line Location: HEADER+10
Function Call: WRITE	Prompt: @IOF Line Location: BADHEAD+1
Function Call: WRITE	Prompt: !,"*",AFSLDAT Line Location: BADHEAD+3
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: BADHEAD+3
Function Call: WRITE	Prompt: ?71,AFSLTIM,"",!,"User: ",AFSLUSR,?70,"Device:",$J(AFSLIO,2),"*" Line Location: BADHEAD+4
Function Call: WRITE	Prompt: !! Line Location: BADHEAD+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_AFSLPAGE Line Location: BADHEAD+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: BADHEAD+6
Function Call: WRITE	Prompt: !! Line Location: BADHEAD+7
Function Call: WRITE	Prompt: "*" Line Location: BADHEAD+7
Function Call: WRITE	Prompt: !!?8,"The following do(es) not have an EIN entry in the VENDOR FILE." Line Location: BADHEAD+8
Function Call: WRITE	Prompt: !?25,"PLEASE validate and correct." Line Location: BADHEAD+8
Function Call: WRITE	Prompt: ! Line Location: BADHEAD+9
Function Call: WRITE	Prompt: "~" Line Location: BADHEAD+9
Function Call: WRITE	Prompt: ! Line Location: BADHEAD+10
Function Call: WRITE	Prompt: ?65,$E(AFSLLUDT,4,5),"-",$E(AFSLLUDT,6,7),"-",$E(AFSLLUDT,2,3) Line Location: LSTEND+1
Routine Call	%ZIS Line Location: ZTLOAD+4 ZTLOAD1+5
Routine Call	DIR Line Location: DEVICE+6 P2+7 TOTL+1 BAD1+3 BADTOTL+1
Routine Call	%ZIS Line Location: DEVICE+3 DEVICE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSLCTMP(	VNDR+1, VNDR+5*, P1, P2, P2+1, P2+2, P2+3, P2+4
^AFSLCTMP("DUP"	B+3*, CHECK, VNDR, VNDR+1!, VNDR+6!
^AFSLCTMP("NOT ON FILE"	BAD1
^AFSLF(	LSTUSED+2, LST2, LSTEND
^AUTTLOC - [#9999999.06]	AFSLDRVE+9
^AUTTVNDR - [#9999999.11]	B, B+1, B+2, B+4, B+5, VNDR+2, VNDR+4, BAD1+1
^DIC(4 - [#4]	HEADER+3, BADHEAD+3
^DIC(5 - [#5]	P2+3

Label References

Name	Line Occurrences
B	B+1, B+6
BAD1	BAD1+4
BADHEAD	BADEIN+1, BAD1+2, BAD1+3
BADTOTL	BAD1
CALC	DEVICE+9
CHECK	B, VNDR
DEVICE	DEVICE+4, DEVICE+10
END	DEVICE+4
HEADER	PRINT, P2+6, P2+7
LST2	LST2+2
LSTEND	LST2
LSTUSED	P2+5
P1	P2
P2	P2+8
PRINT	ZTLOAD1+1
TOTL	P1
VNDR	VNDR+1, VNDR+6
ZTLOAD1	CHECK

Naked Globals

Name	Field # of Occurrence
^(0	VNDR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+3*
ACRTMP	AFSLDRVE+4~, AFSLDRVE+5, AFSLDRVE+6, CALC+2~, CALC+3, CALC+4
>> AFSLADRN	B+4, B+5, VNDR+3, VNDR+4, VNDR+5
AFSLBAD	END!, BADEIN+2, BAD1, BAD1+1
AFSLDAT	END!, HEADER+2, HEADER+3, BADHEAD+2, BADHEAD+3
>> AFSLDTSV	LST2+1*, LSTEND
AFSLEIN	END!, B, B+2, B+3, CHECK, VNDR, VNDR+1, VNDR+5, VNDR+6, PRINT , P1*, P2, P2+1, P2+2, P2+3, P2+4, P2+8
AFSLFAC	AFSLDRVE+9*, END!
AFSLIO	DEVICE+8*, END!, ZTLOAD1+2, BADHEAD+4
AFSLIOQ	DEVICE+1, DEVICE+8, DEVICE+9, END!, ZTLOAD1+1
>> AFSLLUDT	LSTEND*, LSTEND+1
>> AFSLNODE	LSTUSED+1, LST2, LST2+1
AFSLPAGE	END!, PRINT, BADEIN+1, HEADER+1, HEADER+5, BADHEAD+1, BADHEAD+5
AFSLSAVE	ZTLOAD+2*, END!
AFSLSKIP	END!, PRINT, P1, P2+8
>> AFSLSTAT	P2+2, P2+3, P2+4
>> AFSLSTE	P2+1*, P2+3
AFSLTIM	END!, HEADER+2, BADHEAD+2, BADHEAD+4
AFSLUSR	AFSLDRVE+8*, END!, BADHEAD+4
AFSLVNDR	END!, CALC+1, B, B+1, B+2, B+3, B+4, B+5, CHECK, VNDR , VNDR+1, VNDR+2, VNDR+4, VNDR+5, VNDR+6, P1, P2, P2+1, P2+2, P2+3 , P2+4, LSTUSED+2, LST2
C	END!, PRINT, P2+4, TOTL, BADEIN+2, BAD1+1, BADTOTL
DIR	DEVICE+3!, END!, P2+7!, TOTL+1!, BAD1+3!, BADTOTL+1!
DIR(0	DEVICE+6, P2+7, TOTL+1, BAD1+3, BADTOTL+1*
DIROUT	END!
DIRUT	END!
DTOUT	END!
DUOUT	END!
DUZ	AFSLDRVE+8
DUZ(2	AFSLDRVE+9, HEADER+3, BADHEAD+3, LSTUSED+2, LST2, LSTEND
I	END!, HEADER+7, HEADER+9, BADHEAD+7, BADHEAD+9
IO	DEVICE+8, HEADER+1
IO("Q"	DEVICE+8, ZTLOAD+4!, ZTLOAD1+5!
IO("S"	DEVICE+10
IO(0	DEVICE+6
IOF	HEADER+1, BADHEAD+1
IOP	ZTLOAD+4!, ZTLOAD1+3!, ZTLOAD1+5!
IOST	DEVICE+10, P2+6, P2+7, BAD1+2, BAD1+3
POP	DEVICE+4, END!
U	AFSLDRVE+9, B+2, VNDR+2, P2+1, P2+2, P2+3, P2+4, BAD1+1, HEADER+3, BADHEAD+3 , LSTEND
X	END!, VNDR+2, VNDR+5, HEADER+3, HEADER+5, BADHEAD+3, BADHEAD+5*
Y	DEVICE+4, END!, P2+7, TOTL+1, BAD1+3, BADTOTL+1, HEADER+2, BADHEAD+2
>> ZTDESC	ZTLOAD+1, ZTLOAD1+2
>> ZTIO	ZTLOAD+1, ZTLOAD1+2
>> ZTRTN	ZTLOAD+1, ZTLOAD1+2
>> ZTSAVE(	ZTLOAD+2*
>> ZTSAVE("AFSLFACP"	ZTLOAD1+2*
>> ZTSAVE("AFSLIO"	ZTLOAD1+2*
>> ZTSAVE("AFSLIOQ"	ZTLOAD1+2*
>> ZTSAVE("AFSLUSR"	ZTLOAD1+2*
>> ZTSAVE("^AFSLCTMP("	ZTLOAD1+2*

Customize PDF page

Package: NCR Financial System

Routine: AFSLDRVE

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
P2
B
END
BADTOTL
BAD1
HEADER	;Prints heading
ZTLOAD1	;Loads Taskman
BADEIN	;PRINTS LIST OF VENDORS WITH NO EIN ON FILE
ZTLOAD	;Loads Taskman
TOTL
LSTUSED	;CHECKS LAST USED DATE IN ^AFSLF(DUZ(2),"VB"
PRINT
P1
BADHEAD	;Prints heading of missing EIN's
VNDR
DEVICE	;Device Selection
LSTEND
CALC	;S AFSLVNDR=0 K ^AFSLCTMP ; KILL OF SCRATCH WORK GLOBAL ;ACR2.119.05 IM16848
CHECK
DIR	;
LST2