Routine: ACHSACO1

Information

ACHSACO1 ; IHS/ITSC/TPF/PMF - AREA CONSOLIDATION (2/3) ;

Source Information

Source file <ACHSACO1.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Contract Health Management Information System	2	$$AOP^ACHS END^ACHSACO2
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Contract Health Management Information System	8	ACHSACO ACHSACO2 ACHSTX3 ACHSTX4 ACHSTX5 ACHSTX6 ACHSTX7 ACHSTX8

Entry Points

Name	Comments	DBIA/ICR reference
TU	; UFMS Record ;ACHS3.113 IHS/OIT/FCJ ADDED FOR PROCESSING UFMS RECORD
T6	;'PROCESS AREA OFFICE DATA'
T7	; Statistical records.
T4	;
T5	;'PROCESS FI DATA' 'FACILITIES EXPORTING FI DATA'
T2	; FACILITY GENERATED DHR records for HAS and/or CORE. ; For HAS
T3	;
A1	; Initialize counters, main process loop.
REC(X)	;EP - Return the name of the export record, 1-8.
T	;
SVRSUB	; Generate ^ACHSSVR global from 5A & 5B records.
T4A	;
CORE(R)	;PROCESS A '2B' RECORD INTO THE 80-160 '2' PART TWO RECORD
SVR5A	;
SVR5B	;

External References

Name	Field # of Occurrence
$$AOP^ACHS	A1+13, T3+3, T4+3, T4A+3, T5+1, T6+1
END^ACHSACO2	A1+43
^DIC	SVR5A+4
$$REPEAT^XLFSTR	CORE+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Transferring ",$P(ACHSXD2,U,7)," CHS Data Records..." Line Location: A1+16
Function Call: WRITE	Prompt: !,"From ",$P($P(IOPAR,":"),"(",2),!! Line Location: A1+17
Function Call: WRITE	Prompt: X Line Location: A1+39
Function Call: WRITE	Prompt: TCOUNT," " Line Location: A1+40
Routine Call	DIC Line Location: SVR5A+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSAOP - [#9002079]	T3+3, T4+3, T5+1, T5+2, SVR5A+6
^ACHSAOPD(	T6+2*
^ACHSAOVU(	T4A+4*
^ACHSAOVU(0	A1+6
^ACHSBCBS(	T3+4, T4+4, T5+1*
^ACHSCORE("COUNT"	A1+10
^ACHSPCC(	T2+14, T2+16
^ACHSPCC("COUNT"	A1+2, T2+17*
^ACHSPG2(	T7+5*
^ACHSPG2(0	A1+9
^ACHSPIG(	T7+9*
^ACHSPIG(0	A1+8
^ACHSSVR(	SVR5A+12, SVR5B+3
^ACHSUFMS(	TU+3*
^ACHSUFMS("COUNT"	A1+11
^ACHSUFMS(0	A1+12
^ACHSZOCT("AOPD"	A1+5
^ACHSZOCT("BCBS"	A1+4
^ACHSZOCT("PIG"	A1+7

Label References

Name	Line Occurrences
$$CORE	T2+14, T2+16
SVR5A	SVRSUB+1
SVR5B	SVRSUB+1
SVRSUB	T5+2
T	A1+29
T2	T+8
T3	T+12
T4	T+15
T4A	T4+3
T5	T+17
T6	T+20
T7	T+23
TU	T+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	A1+3*
>> ACHSCCOR	A1+10*
>> ACHSCCOR("P"	A1+13*
>> ACHSCT	A1+2, T2+13, T2+14, T2+15*, T2+16, T2+17
>> ACHSCTFI	A1+2, A1+4, T3+4, T4+4, T5+1*
>> ACHSCTFS	A1+2, SVR5A+11, SVR5A+12, SVR5B+3
>> ACHSCTP2	A1+2, A1+9, T7+3*, T7+5
>> ACHSCTPD	A1+2, A1+5, T6+2*
>> ACHSCTPG	A1+2, A1+7, A1+8, T7+7, T7+9
>> ACHSCTUA	A1+12, TU+4
>> ACHSCTUF	A1+2, A1+11, TU+2*, TU+3
>> ACHSCTV	A1+2, A1+6, A1+19, T4A+4*
>> ACHSCTVS	A1+19*
>> ACHSDRUN	T+29
>> ACHSEIN	SVR5A+9, SVR5A+10, SVR5A+12, SVR5B+3, CORE+2*, CORE+3
>> ACHSF10	CORE+6*, CORE+8
>> ACHSF11	CORE+7*, CORE+8
>> ACHSF12	CORE+5*, CORE+8
>> ACHSFACD	T2+14, T2+16, T7+5, T7+9
>> ACHSFCPT	T+4, T+5, T+29, T3+3, T4+3, T5+1
>> ACHSHR1	T2+8*, CORE+3
>> ACHSHR2	T2+10*, CORE+5, CORE+6, CORE+7
>> ACHSJ	T+29*
>> ACHSRTYP	T+2*, T+3, T+8, T+12, T+15, T+17, T+20, T+23, T+25
ACHSSRTY	T2+3~, T2+6*, T2+8, T2+10, T2+12
>> ACHSSTV	T7+2
>> ACHSSTYP	T7+4, T7+5, T7+8, T7+9
>> ACHSTOTL(	A1+3, T+3, T+29
>> ACHSX2	A1+27*, T+2, T2+6, T2+8, T2+10, T3+4, T4+4, T4A+4, T5+1, T6+2 , T7+4, T7+5, T7+8, T7+9, TU+1, TU+3, TU+4, SVRSUB+1, SVR5A+2, SVR5A+7 , SVR5A+8, SVR5A+9, SVR5B+2, CORE+2
ACHSX3	SVR5A+1!, SVR5A+7*, SVR5A+12, SVR5B+1, SVR5B+3
>> ACHSX4	SVR5B+2*, SVR5B+3
>> ACHSXD2	A1+16
>> ACHSZFAC	SVR5A+8*, SVR5A+12, SVR5B+3
>> ACHSZFAC(	T+4, T+5, T+29*
>> D	SVR5A+2*
>> DIC	SVR5A+2*
>> DIC(0	SVR5A+2*
DUZ(2	T3+3, T4+3, T5+1, T5+2, SVR5A+6
>> DX	A1+18*
>> DY	A1+18*
IO	A1+24
IO(0	A1+14, A1+40
>> IOPAR	A1+17
R	CORE~, CORE+1, CORE+3, CORE+4, CORE+8, CORE+9*, CORE+10
>> TCOUNT	A1+23*, A1+40
U	A1+6, A1+16, T+5, REC+7
X	A1+23, A1+25, A1+26, A1+30, SVR5A+2, SVR5A+3, REC~, REC+5, REC+7
>> Y	SVR5A+5, SVR5A+6

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSACO1

Call Graph Total: 4

Caller Graph Total: 8