Routine: ACRFIRS6

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Kernel	2	HOME^%ZIS ^%ZISC
Commitment Register	1	QUE^ACRFUTL
IHS VA Utilities	1	^XBKVAR

Entry Points

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+4, ONE+4
^%ZISC	EN+17, DQ+20, ONE+21, DQ1+17, TEST+16, DQ2+22, RANGE+26, DQ3+14
QUE^ACRFUTL	EN+15, ONE+19, TEST+14, RANGE+24
^DIC	LOC+10, VEN+10
^DIE	UPDATE+12
^DIR	YR+10, V+8, V+14
^XBKVAR	EN+5, DQ+12, ONE+5, DQ1+11, TEST+4, DQ2+10, RANGE+4, DQ3+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+24
Function Call: WRITE	Prompt: !,"NO DATA FOUND" Line Location: PRT+28
Function Call: WRITE	Prompt: ?30,ACRCOR Line Location: PRT+50
Function Call: WRITE	Prompt: ! Line Location: PRT+53
Function Call: WRITE	Prompt: ! Line Location: PRT+56
Function Call: WRITE	Prompt: ?5,ACRPADD(1) Line Location: PRT+57
Function Call: WRITE	Prompt: ! Line Location: PRT+60
Function Call: WRITE	Prompt: ?5,ACRPADD(2) Line Location: PRT+61
Function Call: WRITE	Prompt: ?39,$J(ACRAMT(1),12,2) Line Location: PRT+62
Function Call: WRITE	Prompt: ! Line Location: PRT+65
Function Call: WRITE	Prompt: ?5,ACRPADD(3) Line Location: PRT+66
Function Call: WRITE	Prompt: ! Line Location: PRT+69
Function Call: WRITE	Prompt: ?5,ACRPADD(4) Line Location: PRT+70
Function Call: WRITE	Prompt: ! Line Location: PRT+73
Function Call: WRITE	Prompt: ?39,$J(ACRAMT(2),12,2) Line Location: PRT+74
Function Call: WRITE	Prompt: ! Line Location: PRT+77
Function Call: WRITE	Prompt: ! Line Location: PRT+80
Function Call: WRITE	Prompt: ?39,$J(ACRAMT(3),12,2) Line Location: PRT+81
Function Call: WRITE	Prompt: ?53,$J(ACRAMT(4),12,2) Line Location: PRT+82
Function Call: WRITE	Prompt: ! Line Location: PRT+85
Function Call: WRITE	Prompt: ! Line Location: PRT+88
Function Call: WRITE	Prompt: ! Line Location: PRT+91
Function Call: WRITE	Prompt: ! Line Location: PRT+94
Function Call: WRITE	Prompt: ?5,ACRPTIN Line Location: PRT+95
Function Call: WRITE	Prompt: ?25,ACRVTIN Line Location: PRT+96
Function Call: WRITE	Prompt: ?39,$J(ACRAMT(5),12,2) Line Location: PRT+97
Function Call: WRITE	Prompt: ?53,$J(ACRAMT(6),12,2) Line Location: PRT+98
Function Call: WRITE	Prompt: ! Line Location: PRT+101
Function Call: WRITE	Prompt: ! Line Location: PRT+104
Function Call: WRITE	Prompt: ?5,ACRVADD(1) Line Location: PRT+105
Function Call: WRITE	Prompt: ! Line Location: PRT+108
Function Call: WRITE	Prompt: ! Line Location: PRT+111
Function Call: WRITE	Prompt: ?39,$J(ACRAMT(7),12,2) Line Location: PRT+112
Function Call: WRITE	Prompt: ?53,$J(ACRAMT(8),12,2) Line Location: PRT+113
Function Call: WRITE	Prompt: ! Line Location: PRT+116
Function Call: WRITE	Prompt: ! Line Location: PRT+119
Function Call: WRITE	Prompt: ?5,ACRVADD(2) Line Location: PRT+120
Function Call: WRITE	Prompt: ! Line Location: PRT+123
Function Call: WRITE	Prompt: ?5,ACRVADD(3) Line Location: PRT+124
Function Call: WRITE	Prompt: ?53,$J(ACRAMT("A"),12,2) Line Location: PRT+125
Function Call: WRITE	Prompt: ! Line Location: PRT+128
Function Call: WRITE	Prompt: ! Line Location: PRT+131
Function Call: WRITE	Prompt: ?5,ACRVADD(4) Line Location: PRT+132
Function Call: WRITE	Prompt: ! Line Location: PRT+135
Function Call: WRITE	Prompt: ! Line Location: PRT+138
Function Call: WRITE	Prompt: ! Line Location: PRT+141
Function Call: WRITE	Prompt: ?39,$J(ACRAMT("B"),12,2) Line Location: PRT+142
Function Call: WRITE	Prompt: ?53,$J(ACRAMT("C"),12,2) Line Location: PRT+143
Function Call: WRITE	Prompt: ! Line Location: PRT+146
Function Call: WRITE	Prompt: ! Line Location: PRT+149
Function Call: WRITE	Prompt: ?55,ACRPSN Line Location: PRT+150
Function Call: WRITE	Prompt: ! Line Location: PRT+153
Function Call: WRITE	Prompt: ! Line Location: PRT+155
Function Call: WRITE	Prompt: @IOF Line Location: DQ1+9
Function Call: WRITE	Prompt: @IOF Line Location: DQ2+8
Function Call: WRITE	Prompt: @IOF Line Location: DQ2+16
Function Call: WRITE	Prompt: !,"No Vendor data found for ",ACRYR Line Location: RANGE+16
Function Call: WRITE	Prompt: @IOF Line Location: LOOP3+26
Function Call: WRITE	Prompt: !,"'",Y,"' does not follow '",ACRVEN,"'" Line Location: V+18
Function Call: WRITE	Prompt: @IOF Line Location: TOTALS+7
Function Call: WRITE	Prompt: ! Line Location: TOTALS+23
Function Call: WRITE	Prompt: ?5,"TOTAL FOR ",ACRTYP(I)," PMTS:" Line Location: TOTALS+28
Function Call: WRITE	Prompt: ?40,$J(+$G(ACRTCNT(I)),4) Line Location: TOTALS+29
Function Call: WRITE	Prompt: ?50,$J(+$G(ACRTAMT(I)),12,2) Line Location: TOTALS+30
Function Call: WRITE	Prompt: !! Line Location: TOTALS+33
Function Call: WRITE	Prompt: ?40,"----" Line Location: TOTALS+35
Function Call: WRITE	Prompt: ?50,"------------" Line Location: TOTALS+36
Function Call: WRITE	Prompt: ! Line Location: TOTALS+37
Function Call: WRITE	Prompt: ?40,$J(ACRGCNT,4) Line Location: TOTALS+38
Function Call: WRITE	Prompt: ?50,$J(ACRGAMT,12,2) Line Location: TOTALS+39
Routine Call	%ZIS Line Location: EN+4 ONE+4
Routine Call	DIE Line Location: UPDATE+12
Routine Call	DIC Line Location: LOC+10 VEN+10
Routine Call	DIR Line Location: YR+10 V+8 V+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACR1099V - [#9002198.2]	Classic Fileman Calls
^ACR1099P - [#9002198.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACR1099P - [#9002198.3]	PRT+39, PRT+41, PADD+7
^ACR1099V - [#9002198.2]	PRT+27, PRT+32, PRT+33, AMT+4
^ACR1099V("C"	ALPHA+8, DQ2+13
^AUTTVNDR - [#9999999.11]	ALPHA+9, PRT+40, VADD+6, VADD+9
^DIC(5 - [#5]	PADD+17, VADD+16
^TMP("ACR1099"	LOOP+13!, LOOP+16, LOOP+20, LOOP+21, LOOP+28!, ALPHA+10*, RANGE+6!, RANGE+15, LOOP3+14, LOOP3+18 , LOOP3+21, LOOP3+23, LOOP3+31!

Label References

Name	Line Occurrences
$$AMT	LOOP+22, PRT+36, LOOP3+24
ALPHA	LOOP+15, RANGE+14, LOOP3+13
LOC	EN+7, ONE+7, TEST+6, RANGE+8
LOOP	DQ+14
LOOP3	DQ3+11
PADD	PRT+37
PRT	LOOP+25, DQ1+13, DQ2+17, LOOP3+27
RANGE	RANGE+15
TOTALS	DQ+16, DQ1+15, DQ2+19, LOOP3+29
UPDATE	LOOP+26
V	V+17
VADD	PRT+38
VEN	ONE+13
VEND	RANGE+18
YR	EN+10, ONE+10, TEST+9, RANGE+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACRAMT	PRT+26~
ACRAMT(	PRT+30, PRT+36, PRT+159
ACRAMT("A"	PRT+125
ACRAMT("B"	PRT+142
ACRAMT("C"	PRT+143
ACRAMT(1	PRT+62
ACRAMT(2	PRT+74
ACRAMT(3	PRT+81
ACRAMT(4	PRT+82
ACRAMT(5	PRT+97
ACRAMT(6	PRT+98
ACRAMT(7	PRT+112
ACRAMT(8	PRT+113
ACRCNT	LOOP+11~, LOOP+18, LOOP+23, LOOP+24, LOOP+25, PRT~, PRT+155, DQ1+13, DQ2+6~, DQ2+12* , DQ2+13, DQ2+14, DQ2+15, DQ2+16, DQ2+17, LOOP3+11~, LOOP3+20, LOOP3+25*, LOOP3+26, LOOP3+27
ACRCOR	PRT+26~, PRT+31, PRT+32, PRT+50
ACREND	LOOP3+11~, LOOP3+16*, LOOP3+21
ACRGAMT	TOTALS+9~, TOTALS+25, TOTALS+32, TOTALS+39
ACRGCNT	TOTALS+9~, TOTALS+25, TOTALS+31, TOTALS+38
ACRIRS	PRT+26~, PRT+35*, PRT+38, VADD~, VADD+7
ACRLOC	EN+2~, EN+7, EN+8, DQ+14, DQ+18!, LOOP~, LOOP+25, PRT~, PRT+37, PRT+39 , PRT+41, LOC~, LOC+13*, ONE+2~, ONE+7, ONE+8, DQ1+13, DQ1+18!, TEST+2~, TEST+6 , TEST+7, DQ2+17, DQ2+21!, RANGE+2~, RANGE+8, RANGE+9, DQ3+11, DQ3+13!, LOOP3~, LOOP3+27 , PADD~, PADD+7
ACRMAMT	DQ1+7~
ACRMTOT	DQ1+7~
ACRNAME	LOOP+11~, LOOP+19, LOOP+20, LOOP+21, ALPHA+6~, ALPHA+9, ALPHA+10, LOOP3+11~, LOOP3+17, LOOP3+18* , LOOP3+21*, LOOP3+23
ACRNAMT	DQ1+7~
ACRNTOT	DQ1+7~
ACRPADD	PRT+26~, PRT+37, PADD~, PADD+4!
ACRPADD(	PADD+5, PADD+10, PADD+13, PADD+16, PADD+19*
ACRPADD(1	PRT+57
ACRPADD(2	PRT+61
ACRPADD(3	PRT+66
ACRPADD(4	PRT+70
ACRPSN	PRT+26~, PRT+41*, PRT+150
ACRPTIN	PRT+26~, PRT+39*, PRT+95
ACRTAMT	DQ+10~, DQ+14, DQ+16, LOOP~, LOOP+25, PRT~, DQ1+13, DQ1+15, DQ2+6~, DQ2+17 , DQ2+19, DQ3+7~, DQ3+11, LOOP3~, LOOP3+27, LOOP3+29, TOTALS~
ACRTAMT(	PRT+159*, TOTALS+30, TOTALS+32
ACRTCNT	DQ+10~, DQ+14, DQ+16, LOOP~, LOOP+25, PRT~, DQ1+13, DQ1+15, DQ2+6~, DQ2+17 , DQ2+19, DQ3+7~, DQ3+11, LOOP3~, LOOP3+27, LOOP3+29, TOTALS~
ACRTCNT(	PRT+160*, TOTALS+29, TOTALS+31
ACRTYP	PRT+26~, PRT+34*, PRT+36, PRT+159, PRT+160, TOTALS+9~
ACRTYP(	TOTALS+28
ACRTYP("A"	TOTALS+19*
ACRTYP("B"	TOTALS+20*
ACRTYP("C"	TOTALS+21*
ACRTYP(1	TOTALS+11*
ACRTYP(2	TOTALS+12*
ACRTYP(3	TOTALS+13*
ACRTYP(4	TOTALS+14*
ACRTYP(5	TOTALS+15*
ACRTYP(6	TOTALS+16*
ACRTYP(7	TOTALS+17*
ACRTYP(8	TOTALS+18*
ACRVADD	PRT+26~, PRT+38, VADD~, VADD+4!
ACRVADD(	VADD+5, VADD+12, VADD+15*
ACRVADD(1	PRT+105, VADD+6, VADD+7
ACRVADD(2	PRT+120
ACRVADD(3	PRT+124
ACRVADD(4	PRT+132, VADD+17*
ACRVEN	LOOP+11~, LOOP+21, LOOP+22, LOOP+25, LOOP+26, ALPHA+6~, ALPHA+7, ALPHA+8, ALPHA+9, ALPHA+10 , PRT~, PRT+27, PRT+32, PRT+33, PRT+36, PRT+38, PRT+40, VEN~, VEN+13, UPDATE~ , UPDATE+8, ONE+2~, ONE+13, ONE+14, DQ1+13, DQ1+18!, DQ2+6~, DQ2+12, DQ2+13, DQ2+17 , RANGE+2~, RANGE+18, RANGE+19, DQ3+11, DQ3+13!, LOOP3~, LOOP3+16, LOOP3+17, LOOP3+22, LOOP3+23 , LOOP3+24, LOOP3+27, VEND~, V+4, V+9, V+11, V+15, V+16, V+17, V+18 , V+19, AMT~, AMT+4, VADD~, VADD+6, VADD+9
ACRVTIN	PRT+26~, PRT+40*, PRT+96
ACRYR	EN+2~, EN+10, EN+11, DQ+14, DQ+18!, LOOP~, LOOP+15, LOOP+22, LOOP+25, LOOP+26 , ALPHA~, ALPHA+8, PRT~, PRT+27, PRT+32, PRT+36, YR~, YR+13*, UPDATE~, UPDATE+9 , ONE+2~, ONE+10, ONE+11, DQ1+13, DQ1+18!, TEST+2~, TEST+9, TEST+10, DQ2+13, DQ2+17 , DQ2+21!, RANGE+2~, RANGE+11, RANGE+12, RANGE+14, RANGE+16, DQ3+11, DQ3+13!, LOOP3~, LOOP3+13 , LOOP3+24, LOOP3+27, AMT~, AMT+4
DA	UPDATE+7~, UPDATE+9*
DA(1	UPDATE+8*, UPDATE+10
DATA	PRT+26~, PRT+33, PRT+34, PRT+35, PADD+3~, PADD+7, PADD+8, PADD+10, PADD+11, PADD+13 , PADD+14, PADD+16, PADD+17, VADD+3~, VADD+9*, VADD+10, VADD+12, VADD+13, VADD+15, VADD+16
DIC	LOC+6~, LOC+7, VEN+6~, VEN+7
DIC("A"	LOC+9, VEN+9
DIC(0	LOC+8, VEN+8
DIE	UPDATE+7~, UPDATE+10*
DIR	YR+6~, V+3~
DIR("?"	V+7, V+13
DIR("A"	YR+8, V+6, V+12*
DIR("B"	YR+9*
DIR(0	YR+7, V+5
DIRUT	YR+6~, YR+11, V+9, V+15
DR	UPDATE+7~, UPDATE+11*
DT	YR+9, UPDATE+11
DTOUT	LOC+6~, LOC+11, YR+6~, YR+11, VEN+6~, VEN+11, V+9, V+15
DUOUT	LOC+6~, LOC+11, YR+6~, YR+11, VEN+6~, VEN+11, V+9, V+15
I	PRT+30, PRT+155, TOTALS+9~, TOTALS+23, TOTALS+26, TOTALS+28, TOTALS+29, TOTALS+30, TOTALS+31, TOTALS+32 , PADD+3~, PADD+5, PADD+6, PADD+9, PADD+10, PADD+12, PADD+13, PADD+15, PADD+16, PADD+18 , PADD+19, VADD+3~, VADD+5, VADD+8, VADD+11, VADD+12, VADD+14, VADD+15
IOF	LOOP+24, DQ1+9, DQ2+8, DQ2+16, LOOP3+26, TOTALS+7
U	ALPHA+9, PRT+32, PRT+34, PRT+35, PRT+39, PRT+40, PRT+41, LOOP3+16, LOOP3+17, AMT+5 , AMT+6, PADD+8, PADD+10, PADD+11, PADD+13, PADD+14, PADD+16, PADD+17, VADD+6, VADD+10 , VADD+12, VADD+13, VADD+15, VADD+16
X	LOC+6~, YR+6~, VEN+6~, UPDATE+7~, V+3~, AMT+3~, AMT+4, AMT+5, AMT+6, PADD+3~ , PADD+17, PADD+19, VADD+3~, VADD+16*, VADD+17
Y	LOC+6~, LOC+12, LOC+13, YR+6~, YR+12, YR+13, VEN+6~, VEN+12, VEN+13, UPDATE+7~ , V+3~, V+10, V+11, V+16, V+17, V+18, V+19, AMT+5, AMT+6, AMT+7
ZTSAVE	EN+2~, EN+15, ONE+2~, ONE+19, TEST+2~, TEST+14, RANGE+2~, RANGE+24
ZTSAVE("ACRLOC"	EN+13, ONE+16, TEST+12, RANGE+21
ZTSAVE("ACRVEN"	ONE+18, RANGE+23
ZTSAVE("ACRYR"	EN+14, ONE+17, TEST+13, RANGE+22

Name	Comments	DBIA/ICR reference
DQ	;EP -- QUEUED JOB STARTS HERE
VEND(ACRVEN)
DQ1	;EP -- QUEUED JOB STARTS HERE
DQ2	;EP -- QUEUED JOB STARTS HERE
DQ3	;EP -- QUEUED JOB STARTS HERE
ONE	;EP -- PRINT ONE VENDOR 1099
PADD(ACRLOC,ACRPADD)
EN	;EP -- PRINT ALL VENDOR 1099S
LOOP3(ACRLOC,ACRYR,ACRVEN,ACRTAMT,ACRTCNT)
RANGE	;EP -- PRINT RANGE OF VENDOR 1099S
V	; RETURNS: ; ACRVEN = CONTAINS BEGINNING AND ENDING VENDOR NAME RANGE ;
LOC(ACRLOC)
ALPHA(ACRYR)
LOOP(ACRLOC,ACRYR,ACRTAMT,ACRTCNT)
YR(ACRYR)
TOTALS(ACRTAMT,ACRTCNT)
VEN(ACRVEN)
VADD(ACRVEN,ACRIRS,ACRVADD)
UPDATE(ACRVEN,ACRYR)
PRT(ACRVEN,ACRLOC,ACRYR,ACRCNT,ACRTAMT,ACRTCNT)
TEST	;EP -- PRINT TEST 1099s
AMT(ACRVEN,ACRYR)

Customize PDF page

Package: Commitment Register

Routine: ACRFIRS6

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: