©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
ACHSEOB4 ; IHS/ITSC/TPF/PMF - PROCESS EOBRS (5/6) - UPDATE DOCUMENT(2/2) ;
Source file <ACHSEOB4.m>
| Package | Total | Call Graph |
|---|---|---|
| Contract Health Management Information System | 3 | ($$PARM,$$ZEROTH)^ACHS ^ACHSEOBG CPTREV^ACHSEOBZ |
| MailMan | 2 | KILL^XM ^XMB |
| VA Fileman | 2 | (,IX)^DIC FILE^DICN |
| DRG Grouper | 1 | ($$ICDDX,$$ICDOP)^ICDEX |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| Kernel | 1 | $$STRIP^XLFSTR |
| Package | Total | Caller Graph |
|---|---|---|
| Contract Health Management Information System | 2 | ACHSEOB3 ACHSEOB9 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICNV | ; Convert E and vee codes and place decimal.
|
|
| SENDMSG(DIC,DA) | ;
|
|
| TXT | ;
|
|
| SHUNT | ||
| G | ;
|
|
| I1 | ; Check DX codes first
|
|
| PROC | ;EP
|
|
| REV | ; Add missing Revenue Code.
|
|
| CPT | ; Add missing CPT code.
|
|
| ICD | ;EP.
|
|
| CPTREV | ;EP - Process EOBR CPT / REVENUE / ADA codes.
|
|
| ERR | ;
|
|
| ICDLK | ; ACHS*3.1*23;NO LONGER USED
|
|
| ADA | ; Add missing ADA code.
|
|
| ICNV1 | ;
|
|
| C1 | ;
|
|
| DOCUMENT | ; Add EOBR info to CPT/REV/ADA multiple in DOCUMENT multiple.
|
|
| PROC1 | ;
|
|
| PROC2 | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$PARM^ACHS | ICD+5, ICD+7 |
| $$ZEROTH^ACHS | DOCUMENT+2 |
| ^ACHSEOBG | I1+18, I1+25, PROC2+4, PROC2+9, PROC2+16, REV+1, ADA+1, CPT+1, DOCUMENT+5, ERR+2 |
| CPTREV^ACHSEOBZ | SHUNT |
| ^DIC | C1+11, REV+2, ADA+2, CPT+2 |
| IX^DIC | ICDLK+4 |
| FILE^DICN | I1+24, PROC2+15, DOCUMENT+4 |
| $$ICDDX^ICDEX | I1+9 |
| $$ICDOP^ICDEX | PROC2+2 |
| $$VAL^XBDIQ1 | SENDMSG+7 |
| $$STRIP^XLFSTR | C1+5 |
| KILL^XM | SENDMSG+12 |
| ^XMB | SENDMSG+12 |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls |
| ^ACHSF - [#9002080] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | C1+9 |
| ^ACHSF - [#9002080] | I1+12*, I1+15, I1+16, I1+18, PROC2+5*, PROC2+9, DOCUMENT+2*, DOCUMENT+6*, DOCUMENT+7*, DOCUMENT+8* , DOCUMENT+10*, DOCUMENT+12*, DOCUMENT+14*, DOCUMENT+15*, G+3*, G+7*, G+8* |
| ^DD( | C1+8, SENDMSG+7 |
| ^DD(9002080.01 | I1+12, PROC2+5 |
| ^DIC - [#1] | SENDMSG+5 |
| ^TMP("ACHSEOB" | C1+1, C1+5, G+2, G+3 |
| ^TMP("ACHSEOB4" | SENDMSG+1!, SENDMSG+4*, SENDMSG+5*, SENDMSG+6*, SENDMSG+7*, SENDMSG+13! |
| Name | Line Occurrences |
|---|---|
| ADA | C1+13 |
| C1 | DOCUMENT+5, DOCUMENT+16, G+9 |
| CPT | C1+13 |
| DOCUMENT | C1+12, REV+4, ADA+4, CPT+4 |
| ERR | I1+10, ICDLK+2 |
| I1 | ICD+6, ICD+9 |
| ICDLK | ICDLK+6 |
| ICNV | ICD+9 |
| ICNV1 | ICD+9 |
| PROC1 | PROC+2 |
| PROC2 | PROC1+6 |
| REV | C1+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SENDMSG+7 |
| ^(0 | DOCUMENT+6*, DOCUMENT+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | SENDMSG+5* |
| >> ACHS | ICD+5*, ICD+6, ICD+7*, ICD+8, PROC+2*, SHUNT+1*, C1+1*, C1+2, C1+5 |
| ACHSCTR | SENDMSG+2~, SENDMSG+3*, SENDMSG+4*, SENDMSG+5, SENDMSG+6*, SENDMSG+7* |
| >> ACHSDA | G+1*, G+3*, G+6*, G+7, G+8 |
| >> ACHSDIEN | I1+12, I1+15, I1+16, I1+18, I1+23, PROC2+5, PROC2+9, PROC2+14, DOCUMENT+2, DOCUMENT+3 |
| >> ACHSEDAT | I1+18*, I1+25*, PROC2+4*, PROC2+9*, PROC2+16*, REV+1*, REV+3, ADA+1*, ADA+3, CPT+1* , CPT+3, DOCUMENT+5*, ERR+1* |
| >> ACHSEOBR( | ICD+5, ICD+6, ICD+7, ICD+8 |
| >> ACHSEOBR("F" | C1+5*, DOCUMENT+6, DOCUMENT+7, DOCUMENT+8, DOCUMENT+9, DOCUMENT+11, DOCUMENT+13 |
| >> ACHSEOBR("G" | PROC+2 |
| >> ACHSERRE | I1+18*, I1+25*, PROC2+4*, PROC2+9*, PROC2+16*, REV+1*, ADA+1*, CPT+1*, DOCUMENT+5*, ERR+1* |
| ACHSFLD | SENDMSG+2~, SENDMSG+3*, SENDMSG+7* |
| >> ACHSMRCA | C1+3*, REV+3*, ADA+3*, CPT+3*, DOCUMENT+16, G+5, G+7 |
| >> ACHSMSG | DOCUMENT+9*, DOCUMENT+16, G+3 |
| >> ACHSREJ | ICD+5, ICD+6, ICD+7, ICD+8 |
| >> ACHSTDA | DOCUMENT+15 |
| ACHSTMP | I1+13~*, I1+15*, I1+16, I1+18 |
| >> ACHSX | ICD+6*, ICD+8*, ICD+9*, I1+9, ICNV+1*, ICNV+2*, ICNV+3*, ICNV1+1*, PROC+2*, PROC1+6 , PROC1+7*, PROC1+8*, PROC2+2, PROC2+4, C1+5*, C1+7, C1+10, C1+13, REV+1, ADA+1 , CPT+1, DOCUMENT+5, G+2*, G+3, ICDLK+2*, ERR+1 |
| >> D | ICDLK+3* |
| DA | SENDMSG~, SENDMSG+5, SENDMSG+7 |
| DA(1 | I1+23*, PROC2+14*, DOCUMENT+3*, DOCUMENT+6, DOCUMENT+7, DOCUMENT+8, DOCUMENT+10, DOCUMENT+12, DOCUMENT+14, DOCUMENT+15 , G+3, G+7, G+8 |
| DA(2 | I1+22*, PROC2+13*, DOCUMENT+3*, DOCUMENT+6, DOCUMENT+7, DOCUMENT+8, DOCUMENT+10, DOCUMENT+12, DOCUMENT+14, DOCUMENT+15 , G+3, G+7, G+8 |
| DD | I1+24!, PROC2+15!, DOCUMENT+4! |
| DIC | I1+20*, PROC2+11*, C1+10*, DOCUMENT+3*, ICDLK+3*, SENDMSG~, SENDMSG+5, SENDMSG+7 |
| DIC("DR" | I1+21*, PROC2+12* |
| DIC(0 | I1+20*, PROC2+11*, C1+7*, C1+9*, CPT+2*, ICDLK+3* |
| DO | I1+24!, PROC2+15!, DOCUMENT+4! |
| DT | ICD+5, ICD+7, G+8 |
| DUZ(2 | I1+12, I1+15, I1+16, I1+18, I1+22, PROC2+5, PROC2+9, PROC2+13, DOCUMENT+2, DOCUMENT+3 |
| U | I1+9, I1+12, I1+18, PROC2+2, PROC2+5, PROC2+9, DOCUMENT+3, DOCUMENT+6, DOCUMENT+7, DOCUMENT+8 , DOCUMENT+10, DOCUMENT+12, DOCUMENT+14, DOCUMENT+15, G+8, SENDMSG+5, SENDMSG+7 |
| X | I1+19*, I1+25, ICNV1+1*, PROC2+10*, PROC2+16, C1+7*, C1+8*, C1+9, C1+10*, REV+2* , REV+3, ADA+2*, ADA+3, CPT+2*, CPT+3, DOCUMENT+3*, DOCUMENT+9*, DOCUMENT+10, DOCUMENT+11*, DOCUMENT+12 , DOCUMENT+13*, DOCUMENT+14, ICDLK+1*, ICDLK+2, ICDLK+3*, SENDMSG+2~, SENDMSG+4*, SENDMSG+7* |
| >> XMB | SENDMSG+8* |
| XMDUZ | SENDMSG+2~, SENDMSG+9* |
| XMSUB | SENDMSG+2~, SENDMSG+9* |
| XMTEXT | SENDMSG+2~, SENDMSG+10* |
| XMY | SENDMSG+2~ |
| XMY(1 | SENDMSG+11* |
| >> Y | I1+9*, I1+10, I1+18, I1+19, I1+25, PROC2+2*, PROC2+4, PROC2+9, PROC2+10, PROC2+16 , C1+12, DOCUMENT+3, DOCUMENT+5, DOCUMENT+6*, DOCUMENT+7, DOCUMENT+8, DOCUMENT+10, DOCUMENT+12, DOCUMENT+14, DOCUMENT+15 , G+3, G+7, G+8, ICDLK+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(TXT+ACHSCTR | SENDMSG+4 |