Routine: AFSHEX1

Call Graph Total: 15

Package	Total	Call Graph
NCR Financial System	7	TARBKUP^AFSARCH0 FILESEL^AFSEXUT0 ENDERR^AFSHEX0A (FIJHDR,FIJTRL,JCANCEL,PCCHDR,PCCJHDR,PCCJTRL,PCCTRL)^AFSHEX1A (,PTRHDR,PTRWRITE)^AFSHEX2 NORMEND^AFSTUT5 TXLOGADD^AFSTXUT0
Kernel	3	^%ZIS ^%ZISC CLOSE^%ZISH
VA Fileman	2	NOW^%DTC ^DIR
3780 Telecommunications	1	(ERROR,OPENHFS)^AFSTCK1
Commitment Register	1	LINK^ACRFDHRE
IHS VA Utilities	1	^XBCLS

Package

Total

Call Graph

TARBKUP^AFSARCH0 FILESEL^AFSEXUT0 ENDERR^AFSHEX0A (FIJHDR,FIJTRL,JCANCEL,PCCHDR,PCCJHDR,PCCJTRL,PCCTRL)^AFSHEX1A (,PTRHDR,PTRWRITE)^AFSHEX2 NORMEND^AFSTUT5 TXLOGADD^AFSTXUT0

Kernel

^%ZIS ^%ZISC CLOSE^%ZISH

VA Fileman

NOW^%DTC ^DIR

3780 Telecommunications

(ERROR,OPENHFS)^AFSTCK1

LINK^ACRFDHRE

^XBCLS

Name	Field # of Occurrence
NOW^%DTC	A0C+3
^%ZIS	A0B+3
^%ZISC	REPEND+3, Q+1
CLOSE^%ZISH	REPEND+5, FCOPYA+12, FCOPYA+26
LINK^ACRFDHRE	LINK+15
TARBKUP^AFSARCH0	BKUPA
FILESEL^AFSEXUT0	FCOPYA+2, FCOPYA+17
ENDERR^AFSHEX0A	FCOPYA+2, FCOPYA+17, BKUPA+6
FIJHDR^AFSHEX1A	FCOPYA+21
FIJTRL^AFSHEX1A	FCOPYA+24
JCANCEL^AFSHEX1A	A0C+1, FCOPYA+6, FCOPYA+20, LOG1+1, LOG1+6
PCCHDR^AFSHEX1A	B2+3
PCCJHDR^AFSHEX1A	FCOPYA+7
PCCJTRL^AFSHEX1A	FCOPYA+10
PCCTRL^AFSHEX1A	BTRL
^AFSHEX2	B3+3
PTRHDR^AFSHEX2	A0B+8, ZEND+1, REPORT2+2
PTRWRITE^AFSHEX2	REP1+5, REPEND, REPEND+1
ERROR^AFSTCK1	FCOPYA+6, FCOPYA+20
OPENHFS^AFSTCK1	FCOPYA+6, FCOPYA+20
NORMEND^AFSTUT5	LOG1+3, LOG1+8
TXLOGADD^AFSTXUT0	LOG1, LOG1+5
^DIR	BKUPA+2, BKUPA+5
^XBCLS	A0

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "*" Line Location: A0+1
Function Call: WRITE	Prompt: !,?10,"D H R S P L I T - O U T I N P R O C E S S",! Line Location: A0+2
Function Call: WRITE	Prompt: "*" Line Location: A0+3
Function Call: WRITE	Prompt: ! Line Location: A0+4
Function Call: WRITE	Prompt: ! Line Location: A0B+5
Function Call: WRITE	Prompt: $J(AFSRRRR,8) Line Location: B3+2
Function Call: WRITE	Prompt: !!,?10,"NUMBER OF OUTPUT DHR RECORDS = ",?45,$J(AFSHTRCT,8),!!,?10,"NUMBER OF JCL RECORDS = ",?45,$J(AFSJCLNO,8),!! Line Location: ZEND+3
Function Call: WRITE	Prompt: ?10,X,!,?15,"TOTAL RECORDS TO TRANSMIT = ",?45,$J(AFSHTRCT+AFSJCLNO,8),!! Line Location: ZEND+4
Function Call: WRITE	Prompt: !!,?10,"COPYING DHR DATA TO ",AFSEXFN,!! Line Location: FCOPYA+8
Function Call: WRITE	Prompt: !!,?10,"COPYING DHR DATA TO ",AFSEXFN,!! Line Location: FCOPYA+22
Function Call: WRITE	Prompt: "IHS TX LOG POSTING ERROR" Line Location: LOG1+1
Function Call: WRITE	Prompt: "IHS TX LOG POSTING ERROR" Line Location: LOG1+6
Function Call: WRITE	Prompt: !!,*7,"Make sure an appropriate TAPE (Write Enabled) is in the ",AFSDNAME," DRIVE",! Line Location: BKUPA+4
Function Call: WRITE	Prompt: AFSDATA,! Line Location: COPY2A+1
Function Call: WRITE	Prompt: $J(AFSGCNT,8) Line Location: COPY2A+2
Routine Call	DIR Line Location: BKUPA+2 BKUPA+5
Routine Call	%ZIS Line Location: A0B+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSHPARM(	REPEND+3, BKUP+2
^AFSHRCDS(	A0C+3*, B1, B2, B2+1, B2+2, B3, B3+1, B3+5
^AFSHTEMP(	COPY2A, COPY2A+1
^AUTTAREA - [#9999999.21]	A0C
^AUTTLOC - [#9999999.06]	A0C
^AUTTSITE(1	A0C
^TMP("ACR"	A0C+7!, B3+6*, LINK+6, LINK+9, LINK+10, LINK+16!

Label References

Name	Line Occurrences
B1	B2
B2	BTRL+1
B3	B3+7
BKUP	LOG1+4, BKUPA+7
BKUPA	BKUP+1
BKUPOK	BKUP+2, BKUPA+1
BTRL	B3
COPY2	FCOPYA+9, FCOPYA+23
COPY2A	COPY2A+4
COPY2END	COPY2A
FCOPYA	FILECPY+2
LINK	FCOPYA+14, FCOPYA+28
LOG1	FCOPYA+15
Q	A0B+4
REP1	REP1+6
REPEND	REP1
ZEND	B1

Name	Field # of Occurrence
^(0	A0C, B2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A0C+3
%DEV	REPEND+5, FCOPYA+18!, COPY2A+1
>> %FN	FCOPYA+6, FCOPYA+20, BKUPA*
>> %IN	FCOPYA+6, FCOPYA+20
>> %SDIR	BKUPA*
>> %ZA	FCOPYA+6, FCOPYA+20
>> %ZIS("A"	A0B+2*
ACRFMS	B3+5, B3+6, LINK+5~, LINK+8, LINK+9*, LINK+10, LINK+15
>> AFSCCTR	A0C+2, ZEND+2, FILECPY+3, FCOPYA+16
>> AFSDATA	COPY2A+1*
>> AFSDNAME	BKUPA+2, BKUPA+4
>> AFSDTYPE	BKUPA*
>> AFSERMSG	A0C+1, FCOPYA+6, FCOPYA+20*
>> AFSEXFN	FCOPYA+5, FCOPYA+6, FCOPYA+8, FCOPYA+14, FCOPYA+19, FCOPYA+20, FCOPYA+22, FCOPYA+28, BKUPA*, LINK+7
>> AFSEXFNS	LOG1, LOG1+5
>> AFSFLNM1	FILECPY+1, FCOPYA+5, LOG1, BKUPA
>> AFSFLNM2	FILECPY+1, FCOPYA+19, LOG1+4, LOG1+5, BKUPA
>> AFSGCNT	COPY2+1, COPY2A, COPY2A+1, COPY2A+2
>> AFSHAPN	A0C*, A0C+1
>> AFSHAREA	A0C*, A0C+1
>> AFSHBAP	B2+2*
>> AFSHBCLR	A0C+3, B0
>> AFSHBCNT	B2+2*
>> AFSHBDAT	B2+3*
>> AFSHBTCT	A0+5*
AFSHBTNM	A0+5!
AFSHBTNM(	REP1, REP1+1
>> AFSHBTOT	B2+2*
>> AFSHCNPF	A0C*, A0C+1
>> AFSHDEST	A0C+2*
>> AFSHDTNM	FILECPY+2, FILECPY+3, FCOPYA+1, FCOPYA+3, FCOPYA+15, FCOPYA+16*
>> AFSHNOW	A0C+3*
>> AFSHPARM(	BKUP+1
>> AFSHPGNO	A0+5*
>> AFSHPHDR(1	A0+5*
>> AFSHPHDR(2	A0+5*
>> AFSHPLCT	A0+5, B3+4, ZEND+1, REP1+3*
>> AFSHPTRD	A0B+7*, ZEND+3, REPEND+3
>> AFSHPTRL	REP1+2, REP1+5, REPEND, REPEND+1
>> AFSHRPT	A0+5, REPORT2+1
>> AFSHTOT1	REPORT2+1, REP1+4, REPEND+1
>> AFSHTOT2	REPORT2+1, REP1+4, REPEND+1
>> AFSHTRCT	A0+5, B3+4, ZEND+3, ZEND+4
>> AFSHYY	B3+1*
>> AFSJCLCT(1	FCOPYA+13*, LOG1+2
>> AFSJCLCT(2	FCOPYA+27*, LOG1+7
>> AFSJCLNO	ZEND+2*, ZEND+3, ZEND+4
AFSJFLG	A0!, FCOPYA+2, FCOPYA+17, BKUP!, BKUPA+3, BKUPA+6
AFSKIL	A0C+5~*, A0C+6
>> AFSPKGNM	FILECPY+3, FCOPYA+16
>> AFSR	B0, B1, B2, B2+1, B2+2, B3, B3+1, B3+5, B3+6, REP0 , REP1*, REP1+1
>> AFSRCNT	FILECPY+1, FCOPYA+13, FCOPYA+18, FCOPYA+27, LOG1+2, LOG1+7
>> AFSRR	B0, B1, B2, B2+1, B2+2, B2+3, B3, B3+1, B3+5, B3+6
>> AFSRRA	B2+2*
>> AFSRRR	B0, B2, B2+1, B3+6
>> AFSRRRP	B2+1*, B2+2, B3, B3+1, B3+5
>> AFSRRRR	B0, B2+4, B3*, B3+1, B3+2, B3+5, B3+6
>> AFSRTCD	BKUP*, BKUPA+1
>> AFSSPACE	REP0*, REP1+2, REPEND+1
>> AFSY	LOG1+1, LOG1+3, LOG1+6, LOG1+8
>> AFSZCNT	FCOPYA+13, FCOPYA+27, COPY2+1, COPY2A+3
AFSZSAV	FCOPYA+1*, FCOPYA+3, FCOPYA+4!
DIR	BKUPA+2!, BKUPA+5!
DIR("A"	BKUPA+2*
DIR("B"	BKUPA+2*
DIR(0	BKUPA+2, BKUPA+5
DT	LINK+15
DUZ(2	A0C, REPEND+3, BKUP+1, BKUP+2
>> I	A0+1, A0+3
IO	A0B+7
IO(0	A0B+5, B3+2, FCOPYA+8, FCOPYA+22, LOG1+1, LOG1+6, COPY2A+2
>> POP	A0B+4
U	A0C, A0C+3, B2+2, B3+6, REP1+1, REP1+2, REP1+4, REPEND+3, BKUP+2, LINK+11 , LINK+12, LINK+13, LINK+14
X	A0C, ZEND+4, REP1+1, REP1+2, REP1+4, LINK+5~, LINK+10, LINK+11, LINK+12, LINK+13 , LINK+14
X3	LINK+5~, LINK+11*, LINK+15
X4	LINK+5~, LINK+12*, LINK+15
X5	LINK+5~, LINK+13*, LINK+15
X6	LINK+5~, LINK+14*, LINK+15
X7	LINK~, LINK+7*, LINK+15
>> Y	REP1+1*, REP1+2, BKUPA+3, BKUPA+6

Customize PDF page

Package: NCR Financial System