©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ACHSTX7A ; IHS/ITSC/JVK - EXPORT DATA (8A/9) - RECORD 7(638 STATISTICAL DATA FOR DDPS) ; JUL 10, 2008
Source file <ACHSTX7A.m>
| Package | Total | Call Graph |
|---|---|---|
| Contract Health Management Information System | 2 | $$PARM^ACHS ^ACHSTX3C |
| DRG Grouper | 1 | ($$ICDDX,$$ICDOP)^ICDEX |
| IHS Patient | 1 | $$AGE^AUPNPAT |
| Package | Total | Caller Graph |
|---|---|---|
| Contract Health Management Information System | 3 | ACHSTX7 ACHSTX77 ACHSTX7X |
| 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 ACHS*3.1*11 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 ACHS*3.1*11 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 ACHS*3.1*11 INCREASED FOR LOOP FROM 5 TO 9 ENTRIES
|
|
| ZIP(D) | ;EP - D=DFN in ^DPT. Return Zip code of pt.
|
| 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 |
| Name | Line Occurrences |
|---|---|
| HIGH | RECODE+4, RECODE+6 |
| RECODE | DXPX+22 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ADA+8, CPT+9, REV+9 |
| >> | 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* |