Routine: AFSLRTT3

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC CLOSE^%ZISH
NCR Financial System	3	^AFSLCKZC FINI^AFSLKILL (EOF,TAPE)^AFSLTT4
VA Fileman	2	COMMA^%DTC ^DIC
3780 Telecommunications	1	(ERROR,OPENHFS)^AFSTCK1
IHS VA Utilities	1	^XBCLS

Package	Total	Caller Graph
NCR Financial System	2	AFSLRTT1 AFSLRTTX

Entry Points

Name	Comments	DBIA/ICR reference
TAPSTOP	;
TOTS	;
RPT	;module to generate report containing all records included on treasury tape
ITEM	;process payment item data
FRD	;EP-open unix file, read, and send to 9 track tape
HDR	;header information
START
SHDR	;Vendor name,address,record total,ein #
TAPE	;write to tape
WITEM	;item information for each record
HDTRL	;

External References

Name	Field # of Occurrence
COMMA^%DTC	SHDR+6, TOTS+2
^%ZIS	START+11
^%ZISC	START+25
CLOSE^%ZISH	START+19
^AFSLCKZC	START+20, START+21
FINI^AFSLKILL	START+17
EOF^AFSLTT4	START+26
TAPE^AFSLTT4	START+9
ERROR^AFSTCK1	START+18
OPENHFS^AFSTCK1	START+14
^DIC	START+5
^XBCLS	START+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"THERE IS NO 9-TRACK TAPE DEVICE IN THE 1166 PARAMETERS FILE. YOU CANNOT RUN THIS OPTION UNTIL THIS IS CORRECT" Line Location: START+2
Function Call: WRITE	Prompt: !!!,"THE 9-TRACK TAPE DEVICE IN THE 1166 PARMETERS FILE, IS NOT IN THE DEVICE FILE. CORRECT THE 1166 PARAMETERS FILE." Line Location: START+6
Function Call: WRITE	Prompt: !!,"TAPE DRIVE ERROR!" Line Location: START+12
Function Call: WRITE	Prompt: *1 Line Location: START+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+20
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+21
Function Call: WRITE	Prompt: @IOF Line Location: START+22
Function Call: WRITE	Prompt: *3 Line Location: START+23
Function Call: WRITE	Prompt: X Line Location: TAPE+3
Function Call: WRITE	Prompt: $E(X,44,78),?40,$E(X,79,113) Line Location: SHDR+1
Function Call: WRITE	Prompt: ?80,AFSLST Line Location: SHDR+5
Function Call: WRITE	Prompt: ?110,X Line Location: SHDR+7
Function Call: WRITE	Prompt: !!,"EIN #",?8,$E(X,12,23),?22,$E(X,278,332) Line Location: SHDR+8
Function Call: WRITE	Prompt: !! Line Location: SHDR+9
Function Call: WRITE	Prompt: !,?22,$E(X,388,442) Line Location: WITEM+1
Function Call: WRITE	Prompt: !,?22,$E(X,443,497) Line Location: WITEM+2
Function Call: WRITE	Prompt: !,?22,$E(X,498,552) Line Location: WITEM+3
Function Call: WRITE	Prompt: !,?22,$E(X,553,607) Line Location: WITEM+4
Function Call: WRITE	Prompt: !,?22,$E(X,608,662) Line Location: WITEM+5
Function Call: WRITE	Prompt: !,?22,$E(X,663,717) Line Location: WITEM+6
Function Call: WRITE	Prompt: !,?22,$E(X,718,772) Line Location: WITEM+7
Function Call: WRITE	Prompt: !,?22,$E(X,773,827) Line Location: WITEM+8
Function Call: WRITE	Prompt: !,?22,$E(X,828,882) Line Location: WITEM+9
Function Call: WRITE	Prompt: !,?22,$E(X,883,937) Line Location: WITEM+10
Function Call: WRITE	Prompt: !,?22,$E(X,938,992) Line Location: WITEM+11
Function Call: WRITE	Prompt: !,?22,$E(X,993,1047) Line Location: WITEM+12
Function Call: WRITE	Prompt: !! Line Location: WITEM+13
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: AFSLRDT,?18,"********************",?49,"INDIAN HEALTH SERVICE" Line Location: HDR+4
Function Call: WRITE	Prompt: ?89,"********************",?109,"PAGE " Line Location: HDR+5
Function Call: WRITE	Prompt: $S($D(AFSLPG):AFSLPG,1:1) Line Location: HDR+5
Function Call: WRITE	Prompt: !!,?20,"TREASURY TAPE (1166) GENERATION PROGRAM",?92,"SCHEDULE NUMBER" Line Location: HDR+7
Function Call: WRITE	Prompt: ?112,$E(X,1,10),!! Line Location: HDR+8
Function Call: WRITE	Prompt: "RECORD TOTAL: ",+$E(X,24,30),?50,"TOTAL AMOUNT: ",AFSLDCT Line Location: TOTS+3
Function Call: WRITE	Prompt: !!!,"VENDOR: ",$E(AFSLXX,46,84),?50,"EIN: ",$E(AFSLXX,15,26),?65,"BAD FORMAT" Line Location: TAPSTOP+1
Routine Call	DIC Line Location: START+5
Routine Call	%ZIS Line Location: START+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSLPRM(	START+1
^DD("DD"	HDR+3

Label References

Name	Line Occurrences
HDR	RPT+5, RPT+6
HDTRL	START+20
ITEM	START+20
RPT	TAPE+2
TAPE	ITEM+1, ITEM+2, ITEM+4, ITEM+6, HDTRL+2, HDTRL+3
TOTS	RPT+3

Naked Globals

Name	Field # of Occurrence
^(2	START+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %FN	START*
>> %IN	START*
>> %ZIS("IOPAR"	START+11*
>> AFSERMSG	START+17
>> AFSEXFN	START
>> AFSLBKCT	START, START+20
>> AFSLCDT	TOTS+2*
>> AFSLDCT	TOTS+2*, TOTS+3
>> AFSLDEV	START+22, RPT+4, TOTS+1
>> AFSLDSL	RPT+6
>> AFSLEFLG	START+12*
>> AFSLGFLG	START*, START+20, START+21
>> AFSLI	START+20, START+21
>> AFSLIC	START, ITEM+2, ITEM+5*, HDTRL+2
>> AFSLIC1	START, ITEM+1, HDTRL+1*
>> AFSLIO0	START+8*, START+20, START+21, START+25, TAPSTOP+1
>> AFSLLCT	RPT+5, RPT+6, SHDR+9, WITEM+1, WITEM+2, WITEM+3, WITEM+4, WITEM+5, WITEM+6, WITEM+7 , WITEM+8, WITEM+9, WITEM+10, WITEM+11, WITEM+12, WITEM+13, HDR+2, HDR+8
>> AFSLNZC	START+20, START+21
>> AFSLPG	HDR+5, HDR+6*
>> AFSLRDT	HDR+3*, HDR+4
>> AFSLSP	SHDR+2, SHDR+3, WITEM+1, WITEM+2, WITEM+3, WITEM+4, WITEM+5, WITEM+6, WITEM+7, WITEM+8 , WITEM+9, WITEM+10, WITEM+11, WITEM+12, HDR+2*
>> AFSLST	SHDR+2, SHDR+3, SHDR+4*, SHDR+5
>> AFSLTAP	START+11*, START+13, START+23, TAPE+3
>> AFSLTDPM	START+1
>> AFSLTMPX	START, TAPE+1, TAPE+2
>> AFSLTMXX	START, TAPE+1, TAPE+2*, RPT+1
>> AFSLTP1	START+7*, START+10
>> AFSLWTOT	SHDR+6, SHDR+7
>> AFSLXA	START, ITEM+1, HDTRL+1
>> AFSLXB	ITEM+1, ITEM+2, ITEM+4, HDTRL+2
>> AFSLXC	START, ITEM+3, ITEM+4*
>> AFSLXX	START, START+20, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6, HDTRL+1, HDTRL+2, HDTRL+3 , TAPE+4*, TAPSTOP+1
>> AFSLXZ	START, START+20, ITEM+2, ITEM+3, ITEM+4, HDTRL+1, HDTRL+2, HDTRL+3
>> DIC	START+3*
>> DIC(0	START+4*
DT	HDR+3
DTIME	START+20, START+21
IO	START+11, START+20, START+21
IO(0	START+2, START+6, START+8
IOF	START+22, HDR+1
>> IOP	START+7, START+10
>> POP	START+12
U	START+1
>> X	START+1, START+7, START+20, START+21, ITEM+1, ITEM+2, ITEM+4, ITEM+6, HDTRL+2, HDTRL+3* , TAPE+1, TAPE+2, TAPE+3, TAPE+4, RPT+1, RPT+2, RPT+3, SHDR+1, SHDR+2, SHDR+3 , SHDR+4, SHDR+6, SHDR+7, SHDR+8, WITEM+1, WITEM+2, WITEM+3, WITEM+4, WITEM+5, WITEM+6 , WITEM+7, WITEM+8, WITEM+9, WITEM+10, WITEM+11, WITEM+12, HDR+8, TOTS+2, TOTS+3
>> X1	TOTS+2*
>> X2	SHDR+6*
>> Y	START+6, HDR+3*

Customize PDF page

Package: NCR Financial System

Routine: AFSLRTT3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: