Routine: ACHSTX2

Package	Total	Call Graph
Contract Health Management Information System	7	($$PARM,RTRN)^ACHS (FYCVT,LINES)^ACHSFU (ERROR,KILLGLBS)^ACHSTX ^ACHSTX3 (CANOBJ,KILL)^ACHSTX8 S1^ACHSTXFT ^ACHSUF
Kernel	1	^%ZISC

Package

Total

Call Graph

Contract Health Management Information System

($$PARM,RTRN)^ACHS (FYCVT,LINES)^ACHSFU (ERROR,KILLGLBS)^ACHSTX ^ACHSTX3 (CANOBJ,KILL)^ACHSTX8 S1^ACHSTXFT ^ACHSUF

Kernel

^%ZISC

Package	Total	Caller Graph
Contract Health Management Information System	4	ACHSTX ACHSTX1R ACHSTXA1 ACHSTXAR

Package

Total

Caller Graph

Contract Health Management Information System

ACHSTX ACHSTX1R ACHSTXA1 ACHSTXAR

Entry Points

Name	Comments	DBIA/ICR reference
AFACERR	;
S8	;
ERR	;
AF	;Area - FI records set globals ;ACHS3.114 8.31.2007 IHS/OIT/FCJ ADDED SECTION
S3	;
S2	;EP - For export Re-Generation.
S1	;
BC	;EP - Generate Export records 2B and 2C for CORE.
S7	;
S6	;
S5	;
S4	;
S7A	;
SET(%)	;
S11	;
CVTEND1	;

External References

Name	Field # of Occurrence
^%ZISC	ERR+2, AFACERR+2
$$PARM^ACHS	S2+5, S2+7, S2+8, S6+13, S7A+5, AF+1, AF+3, AF+4
RTRN^ACHS	ERR+2
FYCVT^ACHSFU	S8+11, BC+14
LINES^ACHSFU	ACHSTX2+11
ERROR^ACHSTX	S8+20, S8+27, S8+29
KILLGLBS^ACHSTX	ACHSTX2+16
^ACHSTX3	CVTEND1+4
CANOBJ^ACHSTX8	S8+21
KILL^ACHSTX8	ERR+2, AFACERR+2
S1^ACHSTXFT	S8+29
^ACHSUF	ACHSTX2+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!?30,"EXPORT CHS DATA",!,ACHS(""),! Line Location: ACHSTX2+12
Function Call: WRITE	Prompt: !!,7,7,"A DHR RECORD WAS PRODUCED THAT WAS NOT 80 CHARACTERS IN LENGTH:",!!,^(ACHSRCT),!,7,7 Line Location: S8+27
Function Call: WRITE	Prompt: !!,"NUMBER OF RECORDS PROCESSED = ",!! Line Location: S8+28
Function Call: WRITE	Prompt: $J(ACHSRCT,8) Line Location: S8+30
Function Call: WRITE	Prompt: !!,7,7,"DCR REGISTER ERROR YOU MUST CLOSE YOUR REGISTERS FIRST" Line Location: ERR+1
Function Call: WRITE	Prompt: !!,7,7,"AUTHORIZING FACILITY CODE ERROR - JOB CANCELLED" Line Location: AFACERR+1
Function Call: WRITE	Prompt: $J(ACHSRCT,8) Line Location: SET+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(3 - [#9002063]	S2+7, S2+8
^ACHS(9 - [#9002069]	S1+1, S11+1, S11+2
^ACHSDATA(	S8+25, S8+27, SET+2
^ACHSF - [#9002080]	ACHSTX2+17, S2+5, S3+1, S4+1, S5+1, S5+2, S6+1, S6+8, S6+9, S6+10 , S6+11, S6+12, BC+10
^ACHSOCC - [#9002078.5]	BC+6
^ACHSTXOB(	AF+3*
^ACHSTXPD(	S6+14, AF+1
^ACHSTXPG(	S7A+5*
^ACHSTXPT(	AF+5*
^ACHSTXST - [#9002070]	ACHSTX2+20, ACHSTX2+21, ACHSTX2+22
^ACHSTXVN(	S6+15, S8+19, AF+6*
^AUTTLOC - [#9999999.06]	S2+4, S2+5
^AUTTVNDR - [#9999999.11]	S8+22, BC+20, BC+23, BC+34
^DIC(5 - [#5]	BC+36

Name	Line Occurrences
AF	S8+8
AFACERR	S2+5, S2+6
BC	S8+31
CVTEND1	S3+2
ERR	S2+1
S1	ACHSTX2+20, S11+2
S11	S11+2, S11+3
S2	S1+2
S3	S4+2
S4	S4+2, S5+2
S5	S5+2, S6+3
S6	S6+9, S6+10, S8+1, S8+9, S8+32
S7	S6+13
SET	BC+16, BC+45

Name	Field # of Occurrence
^(	S8+27
^(0	S11+2, S6+9, S6+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BC+15, BC+16, BC+20, BC+23, BC+24, BC+35, BC+37, BC+42, BC+44, BC+45 , SET~, SET+1*, SET+2
>> ACHS	ACHSTX2+19, S2+7, S2+8*
>> ACHS(	S2+7, S2+8
>> ACHS("*"	ACHSTX2+12
>> ACHSABD	BC+11*, BC+15
>> ACHSAED	BC+12*, BC+15
>> ACHSAFAC	S2+4, S2+5, S2+6
>> ACHSBDT	ACHSTX2+17, ACHSTX2+22, S2+4, S3+1*, S3+2, S3+3, S4+1, S5+1, S6+1, S7A+5 , S8+28
ACHSCAN	S8+25, CVTEND1+3!, BC+3, BC+4, BC+15
ACHSCDE	S8+17*, S8+20, S8+25, CVTEND1+3!
>> ACHSCFY	S1+1, S11+1, S11+2
ACHSCHSS	ACHSTX2+13*, ACHSTX2+15!
ACHSCTY	S6+8, S6+9, S8+17, CVTEND1+3!
ACHSDCR	ACHSTX2+17, S11+1, S11+2, CVTEND1+3!
ACHSDEST	S6+8*, S6+14, S6+15, S8+19, CVTEND1+3!, AF+1, AF+3, AF+5, AF+6
>> ACHSDIEN	BC+10
ACHSDOCN	S8+18*, S8+25, CVTEND1+3!
ACHSDOCR	S6+10*, S7A+5, S8+10, S8+18, CVTEND1+3!, AF+5, BC+6, BC+9
ACHSDR3	S6+11, BC+10, BC+11, BC+12, BC+13!
>> ACHSEDT	ACHSTX2+17, S11+2, S2+1, S2+4, S3+2
ACHSEFDT	S8+17*, S8+25, CVTEND1+3!
>> ACHSERR	S8+29*
ACHSF638	ACHSTX2+17*, S2+8, S6+13, S7A+5, S8+9, CVTEND1+3!
>> ACHSFC	S8+12, S8+13, BC+15
>> ACHSFDT	S2+4, S3+3, S8+28*
>> ACHSFDTT	S2+4, S7A+5
ACHSFED	S8+22*, S8+25, CVTEND1+3!
ACHSIPA	S6+9*, S8+25, CVTEND1+3!
>> ACHSLDAT	S2+4*
ACHSOBJC	S8+25, CVTEND1+3!, BC+6, BC+7, BC+15
ACHSPROV	S6+12*, S6+15, S8+19, S8+22, CVTEND1+3!, AF+6, BC+20, BC+23, BC+34
>> ACHSRCT	S3+3, S8+23, S8+25, S8+27, S8+28, S8+30, CVTEND1+1, CVTEND1+2, SET+2, SET+3
>> ACHSROUT	CVTEND1+1, CVTEND1+2
>> ACHSRR	ACHSTX2+17*
>> ACHSRTYP(	ACHSTX2+19*
>> ACHSRTYP(2	S8+24*
ACHSTOS	S6+10*, S7A+5, S8+25, CVTEND1+3!
ACHSTY	S3+4, S4+1, S4+2, S5+1, S6+1, S6+8, S6+14, S7A+5, S8+1, S8+17 , CVTEND1+3!, AF+1
ACHSVAD2	BC+36*, BC+37!
ACHSVADR	BC+34*, BC+35, BC+36, BC+37!
>> ACHSX	S8+10, BC+9
ACHSXLOC	S8+12, S8+13, S8+18, CVTEND1+3!
>> ACHSY	S8+13, BC+15
DA	ACHSTX2+20, ACHSTX2+22, ACHSTX2+23, S1+1, S1+2, S11+1, S5+3, S6+1, S6+3, S6+9 , S6+14, S7A+5, CVTEND1+3!, AF+1, AF+3
DT	ACHSTX2+20, ACHSTX2+22, S8+17
DUZ(2	ACHSTX2+17, ACHSTX2+20, ACHSTX2+21, ACHSTX2+22, S1+1, S11+1, S11+2, S2+4, S2+5, S2+7 , S2+8, S3+1, S4+1, S5+1, S5+2, S6+1, S6+8, S6+9, S6+10, S6+11 , S6+12, BC+10
>> I	ACHSTX2+21*
IOF	ACHSTX2+12
>> J	ACHSTX2+17, ACHSTX2+21
>> N	ACHSTX2+22*
>> P	ACHSTX2+21, ACHSTX2+22, S4+3, S5+1*, S5+2, S6+1, S6+8, S6+9, S6+10, S6+11 , S6+12, S6+14, S7A+5, AF+1, AF+3
U	ACHSTX2+17, ACHSTX2+22, S11+2, S2+4, S2+5, S5+2, S6+8, S6+9, S6+10, S6+12 , S7A+5, S8+10, S8+18, S8+22, AF+5, BC+6, BC+9, BC+11, BC+12, BC+20 , BC+23, BC+35, BC+36, BC+37
>> X	S2+5, S6+9
X1	S8+10*, S8+25, CVTEND1+3!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTX2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: