Routine: ACHSTX7A

Information

ACHSTX7A ; IHS/ITSC/JVK - EXPORT DATA (8A/9) - RECORD 7(638 STATISTICAL DATA FOR DDPS) ; JUL 10, 2008

Source Information

Source file <ACHSTX7A.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Contract Health Management Information System	2	$$PARM^ACHS ^ACHSTX3C
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Patient	1	$$AGE^AUPNPAT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSTX7 ACHSTX77 ACHSTX7X

Entry Points

Name	Comments	DBIA/ICR reference
TYPE(D)	;EP - D=DFN in ^AUPNPAT. Return "I" if Indian, else "O"
INS(ACHSR)	;EP ACHSR=DFN in ^AUPNPAT. Return if pt has MCaid, MCare, Pvt ins.
ADA(F,D)	;EP - F=DUZ(2), D=Document EIN. Return ADA codes, fee, and units.
REV(F,D)	;EP - ITSC/SET/JVK ACHS3.111 ADDED FOR EXPORT OF REV ; F=DUZ(2), D=Document EIN. Return REV codes, fee, and units.
AGE(Y)	;EP - Y=DFN in ^AUPNPAT. Return age of pt in 2 digit numeric string.
HIGH	;
CPT(F,D)	;EP- ITSC/SET/JVK ACHS3.111 ADDED FOR EXPORT OF CPT ; F=DUZ(2), D=Document EIN. Return CPT codes, fee, and units.
RECODE	; Code copied from APCPAPOV. Look up the RECODE APC/ICD value.
DXPX	;EP - ITSC/SET/JVK ACHS3.111 INCREASED FOR LOOP FROM 5 TO 9 ENTRIES
ZIP(D)	;EP - D=DFN in ^DPT. Return Zip code of pt.

External References

Name	Field # of Occurrence
$$PARM^ACHS	DXPX+2, DXPX+10, DXPX+20
^ACHSTX3C	INS+3
$$AGE^AUPNPAT	AGE+2
$$ICDDX^ICDEX	DXPX+9
$$ICDOP^ICDEX	DXPX+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	DXPX+7, DXPX+9, DXPX+17, DXPX+19, ADA+8, CPT+9, REV+9
^AUPNPAT - [#9000001]	TYPE+1, TYPE+2, TYPE+3, TYPE+4, TYPE+5
^AUTTADA - [#9999999.31]	ADA+8
^AUTTBEN - [#9999999.25]	TYPE+6
^AUTTRCD - [#9999999.08]	HIGH+5, HIGH+7
^AUTTRCD("AH"	HIGH+1, HIGH+3, HIGH+5
^AUTTREVN - [#9999999.72]	REV+9
^DPT - [#2]	ZIP+1
^ICPT - [#81]	CPT+9

Label References

Name	Line Occurrences
HIGH	RECODE+4, RECODE+6
RECODE	DXPX+22

Naked Globals

Name	Field # of Occurrence
^(	ADA+8, CPT+9, REV+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TYPE+5, TYPE+6, INS+6, INS+7, INS+8, ZIP+1, ZIP+2, ADA+8, CPT+9, REV+9
A	INS+4~, INS+5, INS+7, INS+11, ADA+6~, ADA+8, CPT+7~, CPT+9, REV+7~, REV+9*
>> ACHS	DXPX+1, DXPX+7, DXPX+9, DXPX+12, DXPX+17, DXPX+19, DXPX+22*, RECODE+1
>> ACHS("AC"	DXPX+22, RECODE+1, HIGH+2, HIGH+6, HIGH+7
>> ACHS("DA1"	HIGH+3*, HIGH+4, HIGH+5, HIGH+7
>> ACHS("DA2"	HIGH+5*
>> ACHS("HIGH"	HIGH+1*, HIGH+2, HIGH+3, HIGH+5
>> ACHS("ICD"	RECODE+1, RECODE+4, RECODE+5*, HIGH+6
>> ACHS("LOW"	HIGH+5*, HIGH+6
ACHS3C	INS+1~
ACHS3C(	INS+6, INS+7, INS+8
ACHS3CFL	INS+1~, INS+2*
ACHSAGE	AGE+1~, AGE+2*, AGE+3
>> ACHSAPC(	DXPX+22*
>> ACHSAPC(1	DXPX+1*
>> ACHSAPC(2	DXPX+1*
ACHSDEST	INS+1~, INS+2*
>> ACHSDIEN	DXPX+7, DXPX+9, DXPX+17, DXPX+19
ACHSDOCR	INS+1~
>> ACHSDX(	DXPX+2, DXPX+3, DXPX+9, DXPX+10, DXPX+11*, DXPX+22, RECODE+1
ACHSINSR	INS+1~
ACHSMCD	INS+1~
>> ACHSPX(	DXPX+2, DXPX+3, DXPX+19, DXPX+20, DXPX+21*
ACHSR	INS~
ACHSTRAN	INS+1~
>> ACHSX	DXPX+2, DXPX+3, DXPX+7*, DXPX+9, DXPX+10, DXPX+11
>> ACHSY	DXPX+22, RECODE+3, RECODE+4, RECODE+6, RECODE+7, HIGH+1
B	INS+4~, INS+5, INS+8, INS+11, ADA+6~, ADA+7, ADA+8, ADA+9, ADA+13, CPT+7~ , CPT+8, CPT+9, CPT+11, CPT+12, REV+7~, REV+8, REV+9, REV+11*, REV+12
C	INS+4~, INS+5, INS+9, INS+11, ADA+6~, ADA+7, ADA+8, ADA+9, ADA+13, CPT+7~ , CPT+8, CPT+9, CPT+11, CPT+12, REV+7~, REV+8, REV+9, REV+11*, REV+12
D	TYPE~, TYPE+1, TYPE+2, TYPE+3, TYPE+4, TYPE+5, ZIP~, ZIP+1, ADA~, ADA+8 , CPT~, CPT+9, REV~, REV+9
DA	INS+1~
DT	DXPX+2, DXPX+10, DXPX+20
DUZ(2	DXPX+7, DXPX+9, DXPX+17, DXPX+19
E	ADA+6~, ADA+7, ADA+8, ADA+10, ADA+11, ADA+12, ADA+13, CPT+7~, CPT+8, CPT+10* , CPT+11, CPT+12, REV+7~, REV+8, REV+10, REV+11, REV+12
F	ADA~, ADA+8, CPT~, CPT+9, REV~, REV+9
>> J	CPT+9, CPT+10, REV+9, REV+10
U	DXPX+9, DXPX+19, HIGH+5, HIGH+7, TYPE+1, TYPE+2, TYPE+3, TYPE+4, TYPE+5, TYPE+6 , ZIP+1, ADA+8, ADA+13, CPT+9, CPT+12, REV+9, REV+12
>> X	DXPX+17, DXPX+19, DXPX+20, DXPX+21, ADA+8, ADA+10, ADA+12, CPT+9, CPT+10, REV+9 , REV+10*
Y	AGE~, AGE+2, ADA+11, ADA+12, CPT+10, REV+10*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSTX7A

Call Graph Total: 4

Caller Graph Total: 3