Routine: ACHSTXP2

Package	Total	Call Graph
Contract Health Management Information System	6	($$PARM,RTRN)^ACHS (FYCVT,LINES)^ACHSFU (ERROR,KILLGLBS)^ACHSTX ^ACHSTX3 (CANOBJ,KILL)^ACHSTX8 ^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 ^ACHSUF

Kernel

^%ZISC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSTXP

Package

Total

Caller Graph

Contract Health Management Information System

ACHSTXP

Name	Comments	DBIA/ICR reference
AFACERR	;
S8	;
ERR	;
BC	;EP - Generate Export records 2B and 2C for CORE.
S3
S2	;export Re-Generation.
S7	;
S6	;
S5	;
S4	;
S7A	;
SET(%)	;
CVTEND1	;

External References

Name	Field # of Occurrence
^%ZISC	ERR+2, AFACERR+2
$$PARM^ACHS	S2+2
RTRN^ACHS	ERR+2
FYCVT^ACHSFU	S8+7, BC+14
LINES^ACHSFU	ACHSTXP2+5
ERROR^ACHSTX	S8+12, S8+19
KILLGLBS^ACHSTX	ACHSTXP2+10
^ACHSTX3	CVTEND1+4
CANOBJ^ACHSTX8	S8+13
KILL^ACHSTX8	ERR+2, AFACERR+2
^ACHSUF	ACHSTXP2+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!?30,"EXPORT CHS DATA",!,ACHS(""),! Line Location: ACHSTXP2+6
Function Call: WRITE	Prompt: !!,7,7,"A DHR RECORD WAS PRODUCED THAT WAS NOT 80 CHARACTERS IN LENGTH:",!!,^(ACHSRCT),!,7,7 Line Location: S8+19
Function Call: WRITE	Prompt: !!,"NUMBER OF RECORDS PROCESSED = ",!! Line Location: S8+20
Function Call: WRITE	Prompt: $J(ACHSRCT,8) Line Location: S8+21
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+5, S2+7
^ACHSDATA(	S8+17, S8+19, SET+2
^ACHSF - [#9002080]	S2+2, S3, S4+1, S5+1, S5+2, S6+1, S6+4, S6+5, S6+6, S6+7 , S6+11, BC+10
^ACHSOCC - [#9002078.5]	BC+6
^ACHSTXOB(	S8+4*
^ACHSTXPD(	S6+10*
^ACHSTXPG(	S7+4, S7A+2
^ACHSTXPT(	S8+5*
^ACHSTXVN(	S6+12, S8+11
^AUTTLOC - [#9999999.06]	S2+1, S2+2
^AUTTVNDR - [#9999999.11]	S8+14, BC+20, BC+23, BC+34
^DIC(5 - [#5]	BC+36

Name	Line Occurrences
AFACERR	S2+2, S2+3
BC	S8+22
CVTEND1	S3+1
S3	S4+2
S4	S4+2, S5+2
S5	S5+2, S6+3
S6	S6+5, S6+6, S7A+3, S8+1, S8+3, S8+23
S7	S6+9
S7A	S7+3
S8	S7+1, S7A+1
SET	BC+16, BC+45

Name	Field # of Occurrence
^(	S8+19
^(0	S6+5, S6+6

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	ACHSTXP2+17, S2+5, S2+7*
>> ACHS(	S2+5, S2+7
>> ACHS("*"	ACHSTXP2+6
>> ACHSABD	BC+11*, BC+15
>> ACHSAED	BC+12*, BC+15
>> ACHSAFAC	S2+1, S2+2, S2+3
>> ACHSBDT	ACHSTXP2+16, S2+1, S2+9, S3*, S3+1, S3+2, S4+1, S5+1, S6+1, S8+20
ACHSCAN	S8+17, CVTEND1+3!, BC+3, BC+4, BC+15
ACHSCDE	S8+10*, S8+12, S8+17, CVTEND1+3!
ACHSCHSS	ACHSTXP2+7*, ACHSTXP2+9!
ACHSCTY	S6+4, S6+5, S8+10, CVTEND1+3!
ACHSDCR	ACHSTXP2+14*, CVTEND1+3!
ACHSDEST	S6+4*, S6+10, S6+12, S7+1, S8+5, S8+11, CVTEND1+3!
>> ACHSDIEN	BC+10
ACHSDOCN	S8+10*, S8+17, CVTEND1+3!
ACHSDOCR	S6+6*, S7A+2, S8+5, S8+6, S8+10, CVTEND1+3!, BC+6, BC+9
ACHSDR3	S6+7, BC+10, BC+11, BC+12, BC+13!
>> ACHSEDT	ACHSTXP2+16*, S2+1, S3+1
ACHSEFDT	S8+10*, S8+17, CVTEND1+3!
>> ACHSEXP	ACHSTXP2+15*, S2+5, S2+7, S6+9, S7+3, S8+3
ACHSF638	ACHSTXP2+14*, S2+7, S6+9, S7A+1, S8+3, CVTEND1+3!
>> ACHSFC	S8+8, S8+9, BC+15
>> ACHSFDT	S2+1, S3+2, S8+20*
ACHSFED	S8+14*, S8+17, CVTEND1+3!
ACHSIPA	S6+5*, S8+17, CVTEND1+3!
>> ACHSLDAT	S2+1*
ACHSOBJC	S8+17, CVTEND1+3!, BC+6, BC+7, BC+15
ACHSPROV	S6+11, S6+12, S8+10, S8+11, S8+14, CVTEND1+3!, BC+20, BC+23, BC+34
>> ACHSRCT	S3+2, S8+15, S8+17, S8+19, S8+20, S8+21, CVTEND1+1, CVTEND1+2, SET+2, SET+3
>> ACHSROUT	CVTEND1+1, CVTEND1+2
>> ACHSRR	ACHSTXP2+14*
>> ACHSRTYP(	ACHSTXP2+17*
>> ACHSRTYP(2	S8+16*
ACHSTOS	S6+6*, S7+4, S7A+2, S8+17, CVTEND1+3!
ACHSTY	S3+3, S4+1, S4+2, S5+1, S6+1, S6+4, S6+10, S7+1, S8+1, S8+10 , CVTEND1+3!
ACHSVAD2	BC+36*, BC+37!
ACHSVADR	BC+34*, BC+35, BC+36, BC+37!
>> ACHSX	S8+6, BC+9
ACHSXLOC	S8+8, S8+9, S8+10, CVTEND1+3!
>> ACHSY	S8+9, BC+15
DA	S5+3, S6+1, S6+3, S6+5, S6+10, S7+4, S7A+2, S8+4, CVTEND1+3!
DT	S8+10
DUZ(2	S2+1, S2+2, S2+5, S2+7, S3, S4+1, S5+1, S5+2, S6+1, S6+4 , S6+5, S6+6, S6+7, S6+11, BC+10
IOF	ACHSTXP2+6
>> J	ACHSTXP2+14*
>> P	S4+3, S5+1, S5+2, S6+1, S6+4, S6+5, S6+6, S6+7, S6+10, S6+11 , S7+4, S7A+2, S8+4
U	S2+1, S2+2, S5+2, S6+4, S6+5, S6+6, S6+11, S7A+2, S8+5, S8+6 , S8+10, S8+14, BC+6, BC+9, BC+11, BC+12, BC+20, BC+23, BC+35, BC+36 , BC+37
>> X	S2+2, S6+5
X1	S8+6*, S8+10, S8+17, CVTEND1+3!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTXP2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: