Routine: ACHSARCH

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

Package

Total

Call Graph

Contract Health Management Information System

($$GDT,$$JDT,$$JTF,$$LOC)^ACHS (ABEND,ENDX,JCANCEL)^ACHSARC1 $$TERMINAL^ACHSHCMD (,ERROR,OPENHFS)^ACHSTCK1

VA Fileman

^DIK $$GET1^DIQ ^DIR

Kernel

($$DEL,$$STATUS)^%ZISH $$FMTE^XLFDT

IHS VA Utilities

$$DIR^XBDIR

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

Package

Total

Caller Graph

Contract Health Management Information System

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

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

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSARCH

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items