Routine: ACRFIRSA

Package	Total	Call Graph
Commitment Register	5	($$ASKUP,$$STATE,$$WRITE,$$YTD,UPDATE,YR)^ACRFIRSU $$ARMSDIR^ACRFSYS $$UPPER^ACRFUTL PAUSE^ACRFWARN HFS^ACRFZISH
IHS VA Utilities	2	^XBCLS ^XBKVAR
Kernel	2	HOME^%ZIS CLOSE^%ZISH

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP -- WRITE ALL VENDOR 1099S INTO FLAT FILE
NAME(X)	;RETURNS VENDOR NAME ; --- INPUT ; X=DATA STRING
WRITE(ACRYR,ACRJ,ACRUP)
TXT	;----- PRINT OPTION TEXT
YTD(X,Y)	;LOCAL ENTRY
HDR	; SET HEADER INTO FLAT FILE
DQ(ACRYR,ACRUP)	;
ALPHA(ACRYR,ACRJ)
DESC	;;

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+5
CLOSE^%ZISH	WRITE+33
$$ASKUP^ACRFIRSU	EN+16
$$STATE^ACRFIRSU	ALPHA+30
$$WRITE^ACRFIRSU	WRITE+27, HDR+6
$$YTD^ACRFIRSU	YTD+3
UPDATE^ACRFIRSU	WRITE+31
YR^ACRFIRSU	EN+13
$$ARMSDIR^ACRFSYS	WRITE+10
$$UPPER^ACRFUTL	ALPHA+16, ALPHA+19
PAUSE^ACRFWARN	EN+9, EN+21
HFS^ACRFZISH	WRITE+15
^XBCLS	EN+6, EN+12
^XBKVAR	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,ACRCNT," records have been written into "_ZISH1_ZISH2 Line Location: WRITE+32
Function Call: WRITE	Prompt: !,X Line Location: TXT+3
Function Call: WRITE	Prompt: $$WRITE^ACRFIRSU(ACRSTR) Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Routine Call	%ZIS Line Location: EN+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACR1099V - [#9002198.2]	ALPHA+13, ALPHA+32, ALPHA+36
^ACR1099V("C"	ALPHA+12
^AUTTVNDR - [#9999999.11]	ALPHA+15, ALPHA+17, ALPHA+19
^TMP("ACR1099"	DQ+12!, WRITE+23, WRITE+25, WRITE+26, ALPHA+52*

Label References

Name	Line Occurrences
$$NAME	ALPHA+20
$$YTD	ALPHA+37
ALPHA	DQ+13
DQ	EN+19
HDR	WRITE+22
TXT	EN+7
WRITE	DQ+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DEV	WRITE+9~, WRITE+15, WRITE+16, WRITE+28, HDR+5
>> ACRADD1	ALPHA+24*, ALPHA+43
>> ACRADD2	ALPHA+25*, ALPHA+44
ACRAMT	ALPHA+10~, ALPHA+37*, ALPHA+38, ALPHA+49, ALPHA+50
>> ACRCITY	ALPHA+26*, ALPHA+45
ACRCNT	WRITE+18~, WRITE+21, WRITE+30, WRITE+32
ACRCOR	ALPHA+10~, ALPHA+35, ALPHA+36, ALPHA+51
>> ACRDATA	WRITE+26*, WRITE+27
ACREIN	ALPHA+9~, ALPHA+21*, ALPHA+22, ALPHA+23
>> ACRFOR	ALPHA+34*, ALPHA+48
ACRHDR	WRITE+18~
ACRIRS	ALPHA+10~
ACRJ	DQ+9~, DQ+11*, DQ+12, DQ+13, DQ+15, WRITE~, WRITE+23, WRITE+25, WRITE+26, ALPHA~ , ALPHA+52
ACRNAME	WRITE+18~, WRITE+20, WRITE+23, WRITE+25, WRITE+26, ALPHA+9~, ALPHA+20*, ALPHA+39, ALPHA+40, ALPHA+52
ACROUT	EN+8!, EN+10
ACRPADD	ALPHA+10~
ACRPTIN	ALPHA+10~
>> ACRSTAB	ALPHA+28, ALPHA+29, ALPHA+30*, ALPHA+46
ACRSTR	WRITE+27, WRITE+29, HDR+1~, HDR+2, HDR+3, HDR+4, HDR+6
>> ACRTIN	ALPHA+22*, ALPHA+41
ACRTYP	ALPHA+10~, ALPHA+23*, ALPHA+42
ACRUP	EN+16*, EN+17, EN+19, DQ~, DQ+15, WRITE~, WRITE+31
ACRV0	ALPHA+9~, ALPHA+15, ALPHA+16, ALPHA+20, ALPHA+32*, ALPHA+33, ALPHA+34
ACRV11	ALPHA+9~, ALPHA+17*, ALPHA+21
ACRV13	ALPHA+9~, ALPHA+19*, ALPHA+24, ALPHA+25, ALPHA+26, ALPHA+28, ALPHA+31
ACRVADD	ALPHA+10~
ACRVEN	WRITE+18~, WRITE+24, WRITE+25, WRITE+26, WRITE+31, ALPHA+9~, ALPHA+11, ALPHA+12, ALPHA+13, ALPHA+15 , ALPHA+17, ALPHA+19, ALPHA+32, ALPHA+36, ALPHA+37, ALPHA+52
ACRVTIN	ALPHA+10~
ACRVTYP	ALPHA+9~, ALPHA+33*, ALPHA+49, ALPHA+50
ACRYR	EN+2~, EN+13, EN+14, EN+19, DQ~, DQ+13, DQ+15, WRITE~, WRITE+13, WRITE+31 , ALPHA~, ALPHA+12, ALPHA+13, ALPHA+36, ALPHA+37
>> ACRZIP	ALPHA+31*, ALPHA+47
DATA	ALPHA+10~
I	TXT+2~, TXT+3*
IO(0	WRITE+32
U	ALPHA+21, ALPHA+24, ALPHA+25, ALPHA+26, ALPHA+28, ALPHA+31, ALPHA+33, ALPHA+34, ALPHA+36, ALPHA+40 , ALPHA+41, ALPHA+42, ALPHA+43, ALPHA+44, ALPHA+45, ALPHA+46, ALPHA+47, ALPHA+48, ALPHA+49, ALPHA+50 , ALPHA+51, NAME+4, NAME+5, HDR+2, HDR+3, HDR+4
X	NAME~, NAME+4, NAME+5, TXT+2~, TXT+3*, YTD~, YTD+3
Y	NAME+3~, NAME+4, NAME+5, NAME+6, YTD~, YTD+3
Z	ALPHA+9~, ALPHA+39, ALPHA+40, ALPHA+41, ALPHA+42, ALPHA+43, ALPHA+44, ALPHA+45, ALPHA+46, ALPHA+47* , ALPHA+48, ALPHA+49, ALPHA+50, ALPHA+51, ALPHA+52, YTD+2~, YTD+3, YTD+4, YTD+5, YTD+6* , YTD+7
ZISH1	WRITE+9~, WRITE+10, WRITE+11, WRITE+12, WRITE+15, WRITE+32
ZISH2	WRITE+9~, WRITE+13*, WRITE+15, WRITE+32

Marked Items

Name	Field # of Occurrence
$T(DESC+I	TXT+3

Customize PDF page

Package: Commitment Register

Routine: ACRFIRSA

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items