Routine: AFSHBPRT

Package	Total	Call Graph
NCR Financial System	6	(PCCHDR,PCCTRL)^AFSHBPR1 CRTSETUP^AFSHCRTS ^AFSHDAT1 (,PTRHDR)^AFSHEX2 DENTRY^AFSHVKIL PCCJTRL^AFSQEX1
VA Fileman	2	^%DT ^DIR
Commitment Register	1	DIR^ACRFDIC
IHS VA Utilities	1	^XBCLS

Package

Total

Call Graph

NCR Financial System

(PCCHDR,PCCTRL)^AFSHBPR1 CRTSETUP^AFSHCRTS ^AFSHDAT1 (,PTRHDR)^AFSHEX2 DENTRY^AFSHVKIL PCCJTRL^AFSQEX1

VA Fileman

^%DT ^DIR

Commitment Register

DIR^ACRFDIC

IHS VA Utilities

^XBCLS

Name	Field # of Occurrence
^%DT	BSELECT+1
DIR^ACRFDIC	SBRS+3
PCCHDR^AFSHBPR1	B2+3
PCCTRL^AFSHBPR1	BTRL
CRTSETUP^AFSHCRTS	AFSHBPRT+3
^AFSHDAT1	D5+1
^AFSHEX2	B3+3
PTRHDR^AFSHEX2	ZEND+1
DENTRY^AFSHVKIL	EXIT
PCCJTRL^AFSQEX1	ZEND
^DIR	BSELEND
^XBCLS	A0

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "*" Line Location: A0+1
Function Call: WRITE	Prompt: !,?10,"Document History Record (DHR) Batch Print Program",! Line Location: A0+2
Function Call: WRITE	Prompt: "*" Line Location: A0+3
Function Call: WRITE	Prompt: !! Line Location: A0+4
Function Call: WRITE	Prompt: ?10,"Enter Batch COLOR to USE: (B/R) ('^' to EXIT) " Line Location: D5+0
Function Call: WRITE	Prompt: *7," INVALID ENTRY" Line Location: D5+3
Function Call: WRITE	Prompt: ?10,*7,"Batch COLOR NOT AVAILABLE for Data Entry -- Select AGAIN" Line Location: D6+2
Function Call: WRITE	Prompt: ?10,*7,"Export Job Running -- Batch Printing NOT Available" Line Location: E0C+1
Function Call: WRITE	Prompt: !!,7,?10,"** OTHER USERS ARE ACTIVE -- PLEASE CONTINUE ***" Line Location: E0C+2
Function Call: WRITE	Prompt: !! Line Location: BSELECT+5
Function Call: WRITE	Prompt: !! Line Location: BSELA+0
Function Call: WRITE	Prompt: $J(("["_$J(AFSCNT,2)_"] "_$E(AFSHBDAT,4,5)_"/"_$E(AFSHBDAT,6,7)_"/"_$E(AFSHBDAT,1,3)+1700_"-"_AFSHBID_"("_$P(^AFSHRCDS(AFSHBCLR,"D",AFSHBDAT,"I",AFSHBDFN,"S",0),"^",4)_")"),20) Line Location: BSELA2+6
Function Call: WRITE	Prompt: !! Line Location: BSELEND+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: EXIT+4
Function Call: READ	Timeout: 5 Variable: Y Line Location: EXIT+4
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(8,8),!! Line Location: ZEND+2
Function Call: WRITE	Prompt: ?10,X,!,?15,"TOTAL RECORDS TO TRANSMIT = ",?45,$J(AFSHTRCT+8,8),!! Line Location: ZEND+3
Routine Call	DIR Line Location: BSELEND

Name	Line Occurrences (* Changed, ! Killed)
^AFSHRCDS(	BSELA1, BSELA2, BSELA2+1, BSELA2+6, B1, B2, B2+1, B2+2, B3, B3+1

Name	Line Occurrences
B0	BSELEND+2
B1	B2
B2	BTRL+1
B3	B3+5
BSELA	BSELECT+2, BSELECT+4
BSELA1	BSELECT+5, BSELA2
BSELA2	BSELA2+2, BSELA2+8
BSELEND	BSELA1
BTRL	B3
D5	D5+3, D6+2, E0C+1
E0	D6, D6+1
E0C	E0
EXIT	D5+2, BSELECT+3
SBRS	SBRS+5
ZEND	B1

Name	Field # of Occurrence
^(0	B2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BSELECT+1*
>> %DT("A"	BSELECT+1*
>> %F	D5+1*
>> %L	D5+1*
>> %T	D5+1*
>> AFSAD	D5+1
AFSBCNT	E0C!
AFSBINFO	BSELECT!
AFSBINFO(	BSELA2+3*, BSELEND+1
>> AFSCNT	BSELECT, BSELA2+3, BSELA2+6, BSELEND
>> AFSHBAP	B2+2*
>> AFSHBCLR	D5+7, D5+8, D5+9*, D6, D6+1, E0, BSELA1, BSELA2, BSELA2+1, BSELA2+6 , B0
AFSHBCNT	E0C!, B2+2*
AFSHBCNT(	D6, D6+1
>> AFSHBDAT	BSELA, BSELA1, BSELA2, BSELA2+1, BSELA2+3, BSELA2+6, BSELEND+1, B2+3
>> AFSHBDFN	BSELA2+1, BSELA2+2, BSELA2+3, BSELA2+6, BSELEND+1
>> AFSHBID	BSELECT+5, BSELA, BSELA2*, BSELA2+1, BSELA2+6
>> AFSHBTOT	B2+2*
AFSHDSPL	E0C!
>> AFSHDTYP	D5+4, D5+5, D5+6, D5+7, D5+8, D5+9
>> AFSHNTRL(	E0
>> AFSHPLCT	B3+4*, ZEND+1
>> AFSHPTRD	ZEND+2
>> AFSHTRCT	B3+4*, ZEND+2, ZEND+3
>> AFSHYY	B3+1*
AFSI	E0C!
>> AFSLE	D5, D5+3, D6+2, E0C+1
>> AFSLKEN	D5+4*
>> AFSLKENT	D5+4*
>> AFSLKEXT	D5+6*, E0C+1
>> AFSLKPGT	D5+5*, E0C+2
AFSR	E0C!, B0*, B1, B2, B2+1, B2+2, B3, B3+1
AFSRR	E0C!, B0, B1, B2, B2+1, B2+2, B2+3, B3, B3+1
>> AFSRRA	B2+2*
AFSRRR	E0C!, B0, B2, B2+1
>> AFSRRRP	B2+1*, B2+2, B3, B3+1
>> AFSRRRR	B0, B2+4, B3*, B3+1, B3+2
>> AFSX1	D5+2, D5+3, D5+4, D5+5, D5+6, D5+7, D5+8, D5+9
DFOUT	SBRS!, SBRS+6*
DIR	SBRS+1~
DIR("A"	BSELEND*
DIR(0	BSELEND, SBRS+2
>> DIROUT	SBRS+4
>> DIRUT	SBRS+4
DLOUT	SBRS!, SBRS+6*
DQOUT	BSELECT+2, SBRS!, SBRS+6*
DTOUT	BSELECT+3, SBRS!, SBRS+4
DUOUT	BSELECT+3, SBRS!, SBRS+4
>> DX	D5, D5+1, D5+3, D6+2, E0C+1*
>> DY	D5, D6+2, E0C+1*
>> I	A0+1, A0+3
IO(0	E0C+2, B3+2
>> X	ZEND+3*
>> XY	D5, D5+1, D5+3, D6+2, E0C+1
>> Y	BSELECT+4, BSELEND+1, SBRS+4, SBRS+5, SBRS+6

Customize PDF page

Package: NCR Financial System

Routine: AFSHBPRT

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: