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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACHSARCH

Package: Contract Health Management Information System

Routine: ACHSARCH


Information

ACHSARCH ; IHS/ITSC/PMF - GENERIC BACKUP/ARCHIEVE UTILITY ; [ 10/31/2003 11:35 AM ]

Source Information

Source file <ACHSARCH.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Contract Health Management Information System 4 ($$GDT,$$JDT,$$JTF,$$LOC)^ACHS  (ABEND,ENDX,JCANCEL)^ACHSARC1  $$TERMINAL^ACHSHCMD  (,ERROR,OPENHFS)^ACHSTCK1  
VA Fileman 3 ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DEL,$$STATUS)^%ZISH  $$FMTE^XLFDT  
IHS VA Utilities 1 $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Contract Health Management Information System 6 ACHSEXUT  ACHSHVT0  ACHSMD0  ACHSMD2  ACHSMD2D  ACHSPCC4  

Entry Points

Name Comments DBIA/ICR reference
A20 ;
TAREXIT ;
TARBKUP ;EP
FILEDEX ;
SUB1 ;
ARCHLIST ;EP
ZDEL ;
FILEDSPB ;
LISTEND ;
FILEDEL ;
FILEDSPA ;
FILEDELA ;
ERROR ;
FILEDSP ;
SUB2 ;FIND LATEST DATE OF FILE IN SYSTEM. CHANGE MADE BECAUSE PREVIOUS
SUB2A

External References

Name Field # of Occurrence
$$DEL^%ZISH ZDEL+2
$$STATUS^%ZISH ARCHLIST+28
$$GDT^ACHS FILEDSPB+11
$$JDT^ACHS ARCHLIST+13
$$JTF^ACHS SUB2A+2, FILEDELA+5
$$LOC^ACHS FILEDSPB+5
ABEND^ACHSARC1 ARCHLIST+26
ENDX^ACHSARC1 TAREXIT+6, ARCHLIST+6, ARCHLIST+30, FILEDSP+6, LISTEND+5, FILEDEX+1
JCANCEL^ACHSARC1 LISTEND+4
$$TERMINAL^ACHSHCMD TARBKUP+16, TAREXIT+4, ARCHLIST+18
^ACHSTCK1 LISTEND+4
ERROR^ACHSTCK1 ARCHLIST+26
OPENHFS^ACHSTCK1 ARCHLIST+25
^DIK ZDEL+6
$$GET1^DIQ FILEDSPB+8
^DIR FILEDSP+4, LISTEND+3
$$DIR^XBDIR ARCHLIST+38
$$FMTE^XLFDT ARCHLIST+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"Backing up ",ACHSEXFN," to ",ACHSDNAM,!
  • Line Location: TARBKUP+12
Function Call: WRITE
  • Prompt: !!?10,"Backup to ",ACHSDNAM," was SUCCESSFUL"
  • Line Location: TARBKUP+19
Function Call: WRITE
  • Prompt: *7,!!?10,"Backup to ",ACHSDNAM," was NOT SUCCESSFUL -- NOTIFY SUPERVISOR"
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: "FILE NAME ERROR"
  • Line Location: ARCHLIST+6
Function Call: READ
  • Timeout: 1
  • Variable: ACHSX
  • Line Location: ARCHLIST+28
Function Call: WRITE
  • Prompt: !!,"NUMBER OF PREVIOUSLY EXPORTED FILES = ",ACHSFCNT
  • Line Location: ARCHLIST+32
Function Call: WRITE
  • Prompt: !,"NO FILES FOUND!"
  • Line Location: ARCHLIST+35
Function Call: WRITE
  • Prompt: !
  • Line Location: ARCHLIST+37
Function Call: WRITE
  • Prompt: !
  • Line Location: FILEDSP+1
Function Call: WRITE
  • Prompt: !!,"SEQ # ","# RCDS EXPORT - DATE FILE NAME - SFX OK-TX? COLOR",!!
  • Line Location: A20+2
Function Call: WRITE
  • Prompt: !,"No entries for '"_ACHSFNAM_"' for "_$$LOC^ACHS_" in IHS DATA TRANSMISSION LOG file"
  • Line Location: FILEDSPB+5
Function Call: WRITE
  • Prompt: $J(ACHSSEQ,3),?6,$J(X,6),?17,Y
  • Line Location: FILEDSPB+14
Function Call: WRITE
  • Prompt: ?33,$E(X,1,ACHSFNLN),?45,$E(X,ACHSFNLN+1,ACHSFNLN+1),?51,ACHSTXST,?57,$S(ACHSHCLR="R":"RED",ACHSHCLR="B":"BLUE",1:""),!
  • Line Location: FILEDSPB+17
Function Call: WRITE
  • Prompt: !
  • Line Location: FILEDEL+2
Function Call: WRITE
  • Prompt: !,ACHSFLNM," FILE DELETED"
  • Line Location: ZDEL+3
Routine Call
  • DIR
  • Line Location:
    • FILEDSP+4
    • LISTEND+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AFSTXLOG( FILEDSPB+3, ZDEL+5

Label References

Name Line Occurrences
ARCHLIST ARCHLIST+40, FILEDSP+5
ERROR TARBKUP+9
FILEDEL ARCHLIST+39
FILEDELA FILEDELA+7, ZDEL+2, ZDEL+7
FILEDEX FILEDELA+2
FILEDSP ARCHLIST+34
FILEDSPA FILEDSPB+2
FILEDSPB FILEDSPB+5, FILEDSPB+18
LISTEND ARCHLIST+35, FILEDSPA+2
SUB1 ARCHLIST+28
SUB2 ARCHLIST+33
TAREXIT TARBKUP+19
ZDEL FILEDELA+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LISTEND+4*
>> ACHSDCNT ARCHLIST+27*, ARCHLIST+34, ARCHLIST+35, SUB1+4*, SUB2A*
>> ACHSDEDT ARCHLIST+38, SUB2A+2*, FILEDELA+6
>> ACHSDNAM TARBKUP+8*, TARBKUP+12, TARBKUP+19, ERROR+1
>> ACHSDSAV FILEDELA+5*
>> ACHSDTJL ARCHLIST+13*
>> ACHSDTTP TARBKUP+7*, TARBKUP+13
>> ACHSDTYP TARBKUP+5*, TARBKUP+7, TARBKUP+8
>> ACHSEMSG LISTEND+4*
>> ACHSEXFN TARBKUP+12
>> ACHSFCNT ARCHLIST+27*, ARCHLIST+32, SUB1+1*
ACHSFILE ARCHLIST+11!
ACHSFILE( FILEDSPB+3, FILEDSPB+6*, FILEDSPB+8*, FILEDSPB+10, FILEDSPB+12, FILEDSPB+15, SUB1+2*, FILEDELA+1, FILEDELA+3, ZDEL+1
, ZDEL+4!
ACHSFILE("C" FILEDSPA+1, FILEDSPB+1, SUB1+4, SUB1+5*, SUB2A, ZDEL+4!
ACHSFILE("N" SUB1+6*, ZDEL+4!
>> ACHSFLNM ZDEL+1*, ZDEL+2, ZDEL+3, ZDEL+4, ZDEL+5
>> ACHSFNAM FILEDSPB+3*, FILEDSPB+5
>> ACHSFNLN TARBKUP+10*, ARCHLIST+7*, FILEDSPB+17
>> ACHSHCLR FILEDSPB+8*, FILEDSPB+17
>> ACHSHCMD TARBKUP+13*, TARBKUP+16, TAREXIT+1*, TAREXIT+4, ARCHLIST+14*, ARCHLIST+18
>> ACHSI ARCHLIST+28*, SUB1+2, SUB1+5, SUB1+6
ACHSJFLG ARCHLIST+8!, LISTEND+4*
>> ACHSLDAT SUB2+2*, SUB2A+1*, SUB2A+2
>> ACHSR ARCHLIST+29*, A20+1*, FILEDSPA+1*, FILEDSPA+2, FILEDSPB+1, SUB2+2*, SUB2A*, SUB2A+1, FILEDEL+1*, FILEDELA+1*
, FILEDELA+2, FILEDELA+3, ZDEL+1, ZDEL+4
>> ACHSRR A20+1*, FILEDSPB+1*, FILEDSPB+2, FILEDSPB+3, FILEDSPB+6, FILEDSPB+8, FILEDSPB+10, FILEDSPB+12, FILEDSPB+15
>> ACHSRTCD TARBKUP+16*, TARBKUP+19, TAREXIT+4*, ARCHLIST+18*
>> ACHSSEQ A20+1*, FILEDSPB+13*, FILEDSPB+14
>> ACHSTXST FILEDSPB+6*, FILEDSPB+8*, FILEDSPB+17
>> ACHSX ARCHLIST+28*, SUB1+2, SUB1+6
>> ACHSXPT FILEDSPB+3*, FILEDSPB+5, FILEDSPB+8, ZDEL+5*, ZDEL+6
>> ACHSXSAV FILEDELA+4*, ZDEL+4
>> ACHSY SUB1+2*, SUB1+3, SUB1+4, SUB1+5, SUB1+6
>> ACHSZ SUB1+6*
>> ACHSZDEV ARCHLIST+28
>> ACHSZDIR TARBKUP+6*, TARBKUP+13, ARCHLIST+12*, ARCHLIST+14, ARCHLIST+20, ZDEL+2
>> ACHSZFN TARBKUP+9, TARBKUP+10, TARBKUP+13, ARCHLIST+6, ARCHLIST+7, ARCHLIST+10, ARCHLIST+14, ARCHLIST+20*
>> ACHSZFNS ARCHLIST+10*
>> ACHSZOPT ARCHLIST+9*, ARCHLIST+30
>> ACHSZZA ARCHLIST+20*, ARCHLIST+26
>> DA ZDEL+6*
>> DA(1 ZDEL+6*
>> DIK ZDEL+6*
DIR FILEDSP+2!, LISTEND+1!
DIR("A" FILEDSP+3*, LISTEND+2*
DIR("B" FILEDSP+3*
DIR(0 FILEDSP+3*, LISTEND+2*
DT ARCHLIST+13
>> DTOUT ARCHLIST+1, ARCHLIST+40, FILEDSP+5
>> DUOUT ARCHLIST+1, ARCHLIST+40, FILEDSP+5
DUZ(2 FILEDSPB+3, FILEDSPB+8, ZDEL+5, ZDEL+6
IO(0 TARBKUP+11, TARBKUP+18, ARCHLIST+6, ARCHLIST+31, ARCHLIST+36
U FILEDSPB+3, FILEDSPB+6, FILEDSPB+8, FILEDSPB+10, FILEDSPB+12, FILEDSPB+15, SUB1+2, ZDEL+1
>> X FILEDSPB+10*, FILEDSPB+11, FILEDSPB+12*, FILEDSPB+14, FILEDSPB+16*, FILEDSPB+17, FILEDELA+4*, FILEDELA+5, FILEDELA+6
>> Y ARCHLIST+38*, ARCHLIST+39, FILEDSP+6, FILEDSPB+11*, FILEDSPB+14, LISTEND+4
>> Z FILEDSPB+12*, FILEDSPB+15*, FILEDSPB+16, FILEDELA+3*, FILEDELA+4

Marked Items

Name Field # of Occurrence
$T(@%^ACHSTCK1 LISTEND+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All