Routine: ACHSEXUT

Information

ACHSEXUT ; IHS/ITSC/PMF - GENERIC PRE EXPORT (SPLIT-OUT) PROCESSING PROGRAM ; [ 12/06/2002 10:36 AM ]

Package	Total	Call Graph
Contract Health Management Information System	4	($$GDT,$$JDT,$$LOC,$$OS)^ACHS ARCHLIST^ACHSARCH ^ACHSTCK1 PARMCHK^ACHSTUT2
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSPCC3

Name	Comments	DBIA/ICR reference
A20	;
A10	;
FILEDSP	;
NAMEGEN	;
FILEDSPA	;
FILESEL	;EP
FILEDSPB	;
A9	;S X="EXPORT PROCESSING OF "_ACHSTXNM_" DATA TO "_ACHSCCTR
DSPEND	;
JCANCEL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: "*" Line Location: A9+2
Function Call: WRITE	Prompt: @IOF Line Location: FILEDSP+1
Function Call: WRITE	Prompt: !!,"The following data has been processed TODAY: ",! Line Location: A10+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+16
Function Call: WRITE	Prompt: ?33,$E(X,1,ACHSFNLN),?45,$E(X,ACHSFNLN+1,ACHSFNLN+1),?51,ACHSTXST,?57,ACHSHCLR,! Line Location: FILEDSPB+18
Function Call: WRITE	Prompt: *7,!!,ACHSEMSG,! Line Location: JCANCEL+2

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

Name	Field # of Occurrence
>> %	DSPEND+2*
>> ACHSDTJL	A9+12*, A9+13, FILEDSPA+1, FILEDSPB+1, NAMEGEN+2, NAMEGEN+3
>> ACHSEMSG	DSPEND+2*, JCANCEL+2
>> ACHSEXFN	NAMEGEN+2*
>> ACHSEXFS	NAMEGEN+3*
>> ACHSFILE(	FILEDSPB+3, FILEDSPB+6, FILEDSPB+8, FILEDSPB+12, FILEDSPB+14, FILEDSPB+17
>> ACHSFILE("N"	A9+13, FILEDSPA+1, FILEDSPB+1
>> ACHSFNAM	FILEDSPB+3*, FILEDSPB+5
>> ACHSFNLN	A9+7*, FILEDSPB+18
>> ACHSHBCL	A9+4
>> ACHSHCLR	FILEDSPB+11*, FILEDSPB+18
>> ACHSHDNM	A9+6
ACHSJFLG	FILESEL+4, A9+8!, A9+11, DSPEND+2, JCANCEL+4
>> ACHSOUT	FILESEL+2*
>> ACHSR	A20+1, FILEDSPA+1, FILEDSPA+2, FILEDSPB+1
>> ACHSRR	A20+1, FILEDSPB+1, FILEDSPB+2, FILEDSPB+3, FILEDSPB+6, FILEDSPB+8, FILEDSPB+12, FILEDSPB+14, FILEDSPB+17
>> ACHSSEQ	A20+1, FILEDSPB+15, FILEDSPB+16
>> ACHSTXST	FILEDSPB+6, FILEDSPB+8, FILEDSPB+18
>> ACHSUXFP	A9+7, NAMEGEN+2, NAMEGEN+3
>> ACHSXPT	FILEDSPB+3*, FILEDSPB+5, FILEDSPB+8, FILEDSPB+11
>> ACHSXX	A9+5, A9+6, A9+7, NAMEGEN+2, NAMEGEN+3
>> ACHSXXX	A9+3, A9+4, A9+6
>> ACHSZ	FILEDSPB+6*, FILEDSPB+17
>> ACHSZDIR	NAMEGEN+2
>> ACHSZFN	A9+7*
>> ACHSZOPT	A9+7*
>> ACHSZZ1	FILEDSPB+17*, DSPEND+3
DT	A9+12
>> DTOUT	FILESEL+2, A9+10
>> DUOUT	A9+10
DUZ(2	FILEDSPB+3, FILEDSPB+8, FILEDSPB+11
IO(0	JCANCEL+1
IOF	FILEDSP+1
U	FILEDSPB+3, FILEDSPB+6, FILEDSPB+8, FILEDSPB+12, FILEDSPB+14, FILEDSPB+17
>> X	A9+13, FILEDSPB+12, FILEDSPB+13, FILEDSPB+14, FILEDSPB+16, FILEDSPB+17, FILEDSPB+18, DSPEND+3*, NAMEGEN+2, NAMEGEN+3
>> Y	FILEDSPB+13, FILEDSPB+16, DSPEND+1, DSPEND+2, DSPEND+3*
>> Z	FILEDSPB+14, FILEDSPB+17

Name	Field # of Occurrence
$T(@%^ACHSTCK1	DSPEND+2