Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AFSHBPRT

Package: NCR Financial System

Routine: AFSHBPRT


Information

AFSHBPRT ; IHS/OIRM/DSD/JDM -DHR BATCH PRINT PROGRAM ; [ 10/27/2004 4:20 PM ]

Source Information

Source file <AFSHBPRT.m>

Call Graph

Call Graph Total: 10

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  

Entry Points

Name Comments DBIA/ICR reference
BSELA2
BSELA
BTRL
B2
BSELECT
ZEND
E0C
A0
EXIT
B1
BSELEND
B3
D6
B0
D5
BSELA1
E0
SBRS

External References

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All