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: AFSHEX1

Package: NCR Financial System

Routine: AFSHEX1


Information

AFSHEX1 ;IHS/OIRM/DSD/JDM-DHR SPLITOUT PROGRAM #2; [ 10/27/2004 4:20 PM ]

Source Information

Source file <AFSHEX1.m>

Call Graph

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  

Entry Points

Name Comments DBIA/ICR reference
COPY2END
BKUPA
A0B ;D PTRDEF^AFSTUT4 Q:$D(AFSJFLG)
A0C
REP0
LOG1
A0
LINK(X7) ;----- FMS DOCUMENT HISTORY RECORD FILE LINK
; NEW SUBROUTINE ACR*2.0T1*16
BKUP
COPY2A
ZEND ;EXIT POINT FROM $O -- DO NOT DELETE
Q ;
FCOPYA ;
BKUPOK
BTRL
COPY2 ;;SUBROUTINE TO COPY TX DATA FROM GLOBAL TO EXT FILE
REP1
REPORT2 ;
FILECPY ;;COPY ^AFSHTEMP GLOBAL TO PCC & BCS UNIX FILES
B0
B1
B2
B3
REPEND

External References

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

Naked Globals

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