©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
BADEHL4 ;IHS/MSC/MGH/VAC - Dentrix HL7 inbound interface ;01-Oct-2010 ;MGH
Source file <BADEHL4.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 2 | $$FMDATE^HLFNC $$GET^HLOPRS |
| Patient Care Component | 2 | ($$DEL,EN)^APCDALVR EN^APCDVDLT |
| VA Fileman | 2 | DD^%DT $$GET1^DIQ |
| Electronic Dental Record | 1 | ($$IMP,ACK,NEW,PRV)^BADEHL3 |
| Toolkit | 1 | $$GET^XPAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHECKPRV(PROV) | ;See if the provider in the message is new
|
|
| VDEL(FILE,IEN,VSIT) | ;Delete a V-file entry
|
|
| PROVDEL(VSIT,PROV) | ||
| UPD | ;EP Update a V Dental entry
|
|
| POVDEL(FILE,IEN,VSIT) | ||
| ADD | ||
| DEL | ;EP Delete V file entry
|
|
| DELV | ||
| CHECK(VSIT,PROV) | ;Remove the POV and PRV if those are the 2 remaining dependent entries
|
|
| VSTDEL(VSIT) | ;Delete the visit with zero dependents
|
|
| GETTOS(CODE,DESC) | ;EP
|
|
| SETUP | ;Setup the variables needed to modifiy or add
|
|
| MOD |
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | SETUP+21 |
| $$DEL^APCDALVR | VDEL+3 |
| EN^APCDALVR | MOD+1, ADD+1 |
| EN^APCDVDLT | VSTDEL+4 |
| $$IMP^BADEHL3 | CHECK+4, POVDEL+4 |
| ACK^BADEHL3 | UPD+8, UPD+16, UPD+22, UPD+35, SETUP+14, SETUP+32, SETUP+48, SETUP+49, DEL+7, DEL+10 , VDEL+4 |
| NEW^BADEHL3 | UPD+32 |
| PRV^BADEHL3 | CHECKPRV+17 |
| $$GET1^DIQ | UPD+13 |
| $$FMDATE^HLFNC | UPD+27, SETUP+19 |
| $$GET^HLOPRS | UPD+15, UPD+19, UPD+21, UPD+34, SETUP+7, SETUP+10, SETUP+13, SETUP+29, SETUP+30, SETUP+36 , SETUP+37, DEL+9 |
| $$GET^XPAR | UPD+24, SETUP+16, SETUP+46 |
| FileNo | Call Tags |
|---|---|
| ^AUTTADA - [#9999999.31] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADEOPS - [#9002010.03] | GETTOS+5, GETTOS+6 |
| ^ADEOPS("B" | GETTOS+8 |
| ^AUPNVDEN - [#9000010.05] | UPD+6, UPD+11, UPD+29, DEL+7, DEL+8, CHECKPRV+4, CHECKPRV+22 |
| ^AUPNVDEN("AD" | CHECKPRV+21 |
| ^AUPNVPOV - [#9000010.07] | CHECK+16, POVDEL+8, POVDEL+11, POVDEL+13, POVDEL+24, POVDEL+36 |
| ^AUPNVPOV("AD" | CHECK+15, POVDEL+6, POVDEL+10, POVDEL+23, POVDEL+35 |
| ^AUPNVPRV - [#9000010.06] | CHECK+26, CHECKPRV+11, CHECKPRV+12, CHECKPRV+30, CHECKPRV+32, CHECKPRV+39, PROVDEL+4 |
| ^AUPNVPRV("AD" | CHECK+25, CHECKPRV+9, CHECKPRV+29, CHECKPRV+38, PROVDEL+3 |
| ^AUPNVSIT - [#9000010] | UPD+8, DEL+12, CHECK+33, POVDEL+42, PROVDEL+10 |
| ^AUTTADA - [#9999999.31] | UPD+12 |
| ^AUTTADA("B" | UPD+38 |
| ^AUTTLOC("C" | SETUP+45 |
| ^ICD9("AB" | CHECK+7, CHECK+8, CHECK+10, CHECK+11, POVDEL+19, POVDEL+20, POVDEL+31, POVDEL+32 |
| ^SC - [#44] | SETUP+43, SETUP+47 |
| ^SC("B" | SETUP+42 |
| ^VA(200 - [#200] | SETUP+26 |
| Name | Line Occurrences |
|---|---|
| $$GETTOS | SETUP+31 |
| ADD | UPD+42, UPD+43 |
| CHECKPRV | UPD+17 |
| DEL | UPD+32 |
| DELV | UPD+42, UPD+43 |
| POVDEL | DEL+18 |
| PROVDEL | DEL+19 |
| SETUP | UPD+42, UPD+43 |
| VDEL | DELV+1, DEL+16, CHECK+22, CHECK+31, CHECKPRV+35, POVDEL+17, POVDEL+29, POVDEL+41, PROVDEL+9 |
| VSTDEL | DEL+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADACODE | UPD+2~, UPD+12*, UPD+43 |
| APCDALVR | DEL+3~ |
| APCDALVR("APCDACS" | UPD+18* |
| APCDALVR("APCDANE" | SETUP+3* |
| APCDALVR("APCDATMP" | MOD*, ADD* |
| APCDALVR("APCDLOC" | SETUP+65* |
| APCDALVR("APCDPAT" | UPD+4* |
| APCDALVR("APCDTCDT" | SETUP+22* |
| APCDALVR("APCDTCLN" | SETUP+23* |
| APCDALVR("APCDTEPR" | SETUP+27* |
| APCDALVR("APCDTEXK" | SETUP+24*, SETUP+67* |
| APCDALVR("APCDTFEE" | SETUP+11* |
| APCDALVR("APCDTNOU" | SETUP+5* |
| APCDALVR("APCDTOS" | SETUP+33* |
| APCDALVR("APCDTPRV" | SETUP+28* |
| APCDALVR("APCDTSC" | UPD+39* |
| APCDALVR("APCDTSUR" | SETUP+8* |
| APCDALVR("APCDVSIT" | UPD+9* |
| APCDALVR("AUPNTALK" | SETUP+2* |
| APCDSUR | UPD+1~ |
| >> APCDTCDT | SETUP+21*, SETUP+22 |
| APCDTEE | UPD+1~ |
| >> APCDTEXK | SETUP+24, SETUP+67, DEL+5 |
| >> APCDTFEE | SETUP+10*, SETUP+11 |
| >> APCDTOS | SETUP+31*, SETUP+32, SETUP+33 |
| >> APCDTSC | UPD+11*, UPD+12, UPD+13, UPD+42 |
| >> APCDTSUR | SETUP+7*, SETUP+8 |
| APCDVDFN | VSTDEL+1~ |
| APCDVDG | VSTDEL+1~ |
| APCDVDLT | VSTDEL+1~, VSTDEL+3* |
| APCDVFLE | VSTDEL+1~ |
| APCDVI | VSTDEL+2~ |
| APCDVIGR | VSTDEL+1~ |
| APCDVNM | VSTDEL+1~ |
| APCDVSIT | UPD+1~, UPD+6*, UPD+8, UPD+9, DELV+1, CHECKPRV+9, CHECKPRV+21, CHECKPRV+29, CHECKPRV+35, CHECKPRV+38 |
| >> ASUFAC | SETUP+38*, SETUP+45 |
| >> ASUFAC2 | SETUP+36*, SETUP+38 |
| AUPNVSIT | VSTDEL+1~ |
| >> BADERR | SETUP+45*, SETUP+46*, SETUP+47*, SETUP+48 |
| >> BADEWARN | SETUP+40*, SETUP+42*, SETUP+43*, SETUP+49 |
| CODE | GETTOS~ |
| CODEIEN | UPD+1~, UPD+38*, UPD+39, UPD+42 |
| DA | UPD+1~, DEL+2~, VDEL+1~, VDEL+2*, VDEL+3, VSTDEL+2~ |
| DCNT | DEL+2~, DEL+12*, DEL+19, DEL+26, CHECK+33*, POVDEL+42*, PROVDEL+10* |
| DCNT2 | DEL+2~ |
| DESC | GETTOS~, GETTOS+1, GETTOS+4, GETTOS+6, GETTOS+8 |
| >> DFN | UPD+4, UPD+8, UPD+16, UPD+22, UPD+35, SETUP+14, SETUP+32, SETUP+48, SETUP+49, DEL+7 , DEL+10, VDEL+4 |
| DIEN | UPD+1~, DEL+2~, DEL+4*, DEL+7, DEL+8, DEL+16 |
| DIK | DEL+2~, VDEL+1~, VDEL+2*, VDEL+3, VSTDEL+2~ |
| DPRV | CHECKPRV+1~, CHECKPRV+4*, CHECKPRV+6, CHECKPRV+23, CHECKPRV+33 |
| EKEY | POVDEL+1~, POVDEL+3*, POVDEL+12 |
| >> EXKEY | UPD+6, UPD+11, UPD+29, DELV+1, DEL+4, CHECKPRV+4, CHECKPRV+23 |
| FDA | CHECKPRV+27~, CHECKPRV+41*, CHECKPRV+42*, CHECKPRV+43, CHECKPRV+44! |
| FDA( | CHECKPRV+42 |
| FILE | DELV*, DELV+1, DEL+15*, DEL+16, DEL+17*, DEL+18, VDEL~, VDEL+2, CHECK+21*, CHECK+22 , CHECK+30*, CHECK+31, CHECKPRV+34*, CHECKPRV+35, POVDEL~, POVDEL+15*, POVDEL+17, POVDEL+28*, POVDEL+29, POVDEL+40* , POVDEL+41, PROVDEL+8*, PROVDEL+9 |
| >> FNUM | CHECKPRV+42 |
| >> HLMSGIEN | UPD+8, UPD+16, UPD+22, UPD+35, SETUP+14, SETUP+32, SETUP+48, SETUP+49, DEL+7, DEL+10 , VDEL+4 |
| >> HOSLOC | SETUP+37*, SETUP+38, SETUP+41, SETUP+42*, SETUP+43*, SETUP+44 |
| >> I | CHECK+4*, CHECK+6, CHECK+9, POVDEL+4*, POVDEL+5, POVDEL+30 |
| ICD | CHECK+1~, CHECK+3*, CHECK+7*, CHECK+8*, CHECK+10*, CHECK+11*, CHECK+12, CHECK+17, POVDEL+2*, POVDEL+19* , POVDEL+20*, POVDEL+21, POVDEL+25, POVDEL+31*, POVDEL+32*, POVDEL+33, POVDEL+37 |
| ICDIEN | CHECK+1~, CHECK+17*, CHECK+22, POVDEL+2*, POVDEL+13*, POVDEL+14, POVDEL+16*, POVDEL+17, POVDEL+25*, POVDEL+29 , POVDEL+37*, POVDEL+41 |
| IEN | VDEL~, VDEL+2, CHECKPRV+1~, CHECKPRV+21*, CHECKPRV+22, CHECKPRV+23, CHECKPRV+38*, POVDEL~, POVDEL+3 |
| >> KEY | POVDEL+2*, POVDEL+8*, POVDEL+9, POVDEL+11*, POVDEL+12 |
| >> LOC | SETUP+43*, SETUP+45*, SETUP+46, SETUP+47, SETUP+65 |
| >> LOCA | SETUP+47* |
| LP | GETTOS+2~, GETTOS+5*, GETTOS+6 |
| MATCH | UPD+1~, DEL+2~, CHECK+1~, CHECK+14*, CHECK+15, CHECK+17*, CHECK+18, CHECK+20, CHECK+24*, CHECK+25 , CHECK+27*, CHECK+28, CHECK+29, CHECKPRV+1~, CHECKPRV+2*, CHECKPRV+13*, CHECKPRV+15, CHECKPRV+17, CHECKPRV+20*, CHECKPRV+21 , CHECKPRV+23*, CHECKPRV+25, CHECKPRV+26, POVDEL+1~, POVDEL+22*, POVDEL+23, POVDEL+25*, POVDEL+26, POVDEL+27, POVDEL+34* , POVDEL+35, POVDEL+37*, POVDEL+38, POVDEL+39, PROVDEL+1~, PROVDEL+2*, PROVDEL+3, PROVDEL+5*, PROVDEL+6, PROVDEL+7 |
| >> MOD | SETUP+29*, SETUP+31 |
| NOOPSITE | UPD+3~, UPD+13*, SETUP+31, SETUP+32 |
| >> PARLOC | SETUP+42*, SETUP+43, SETUP+46*, SETUP+47 |
| PIEN | UPD+2~, CHECKPRV+29*, CHECKPRV+30, CHECKPRV+32, CHECKPRV+35, CHECKPRV+38*, CHECKPRV+39, CHECKPRV+42 |
| >> PNAME | SETUP+26*, SETUP+27, SETUP+28 |
| POV | DEL+2~ |
| POVIEN | CHECK+1~, CHECK+15*, CHECK+16, CHECK+17, POVDEL+2*, POVDEL+6*, POVDEL+7, POVDEL+8, POVDEL+10*, POVDEL+11 , POVDEL+13, POVDEL+16, POVDEL+23*, POVDEL+24, POVDEL+25, POVDEL+35*, POVDEL+36, POVDEL+37 |
| POVIEN2 | UPD+2~, CHECK+16*, CHECK+17, POVDEL+2*, POVDEL+24*, POVDEL+25, POVDEL+36*, POVDEL+37 |
| PP | CHECKPRV+27~, CHECKPRV+28*, CHECKPRV+32*, CHECKPRV+37 |
| PPRV | CHECKPRV+1~, CHECKPRV+22*, CHECKPRV+23 |
| PRIM | CHECKPRV+1~, CHECKPRV+2*, CHECKPRV+11*, CHECKPRV+17 |
| PROV | UPD+2~, UPD+15*, UPD+16, UPD+17, SETUP+26, DEL+9*, DEL+10, DEL+19, CHECK~, CHECK+27 , CHECKPRV~, CHECKPRV+6, CHECKPRV+13, CHECKPRV+40, PROVDEL~, PROVDEL+5 |
| PROV2 | CHECK+1~, CHECK+26*, CHECK+27, POVDEL+1~, PROVDEL+1~, PROVDEL+4*, PROVDEL+5 |
| PROVIEN | CHECK+1~, CHECK+25*, CHECK+26, CHECK+27, CHECKPRV+30*, CHECKPRV+33, CHECKPRV+39*, CHECKPRV+40, POVDEL+1~, PROVDEL+1~ , PROVDEL+3*, PROVDEL+4, PROVDEL+5 |
| PROVIEN2 | CHECK+1~, CHECK+27*, CHECK+31, POVDEL+1~, PROVDEL+1~, PROVDEL+5*, PROVDEL+9 |
| PRV | DEL+2~ |
| PRVIEN | CHECKPRV+1~, CHECKPRV+12*, CHECKPRV+13 |
| RET | GETTOS+2~, GETTOS+3*, GETTOS+5, GETTOS+6*, GETTOS+8*, GETTOS+9 |
| SCODE | UPD+2~, UPD+36*, UPD+37*, UPD+38, UPD+43 |
| >> SEGFT1 | UPD+15, UPD+19, UPD+21, UPD+34, SETUP+7, SETUP+10, SETUP+13, SETUP+29, SETUP+30, SETUP+36 , SETUP+37, DEL+9 |
| SURGDES | SETUP+1~, SETUP+30*, SETUP+31 |
| TCODE | UPD+2~, UPD+34*, UPD+35, UPD+36, UPD+37 |
| TEXK | DEL+2~, DEL+5*, DEL+18 |
| TYPE | UPD+2~, UPD+19* |
| U | UPD+6, UPD+11, UPD+12, UPD+29, SETUP+26, SETUP+43, SETUP+47, DEL+8, DEL+12, VSTDEL+1~ , CHECK+16, CHECK+26, CHECK+33, CHECKPRV+4, CHECKPRV+11, CHECKPRV+12, CHECKPRV+22, CHECKPRV+30, CHECKPRV+32, CHECKPRV+39 , GETTOS+6, POVDEL+8, POVDEL+11, POVDEL+13, POVDEL+24, POVDEL+36, POVDEL+42, PROVDEL+4, PROVDEL+10 |
| >> VISDT | UPD+28*, SETUP+20*, CHECK+4, POVDEL+4 |
| VPRV | CHECK+1~, CHECK+24*, CHECKPRV+1~, CHECKPRV+9*, CHECKPRV+11, CHECKPRV+12, POVDEL+1~, PROVDEL+1~, PROVDEL+2* |
| VSIT | DEL+2~, DEL+8*, DEL+12, DEL+16, DEL+18, DEL+19, DEL+26, VDEL~, VSTDEL~, VSTDEL+3 , CHECK~, CHECK+15, CHECK+22, CHECK+25, CHECK+31, CHECK+33, POVDEL~, POVDEL+6, POVDEL+10, POVDEL+17 , POVDEL+23, POVDEL+29, POVDEL+35, POVDEL+41, POVDEL+42, PROVDEL~, PROVDEL+3, PROVDEL+9, PROVDEL+10 |
| VTIME | UPD+2~, UPD+24*, UPD+25*, UPD+26, SETUP+16*, SETUP+17*, SETUP+18 |
| X | UPD+2~, UPD+21*, UPD+22, UPD+23, UPD+26*, UPD+27, SETUP+13*, SETUP+14, SETUP+15, SETUP+18* , SETUP+19, VDEL+1~, VDEL+3*, VDEL+4 |
| Y | UPD+2~, UPD+27*, UPD+28, UPD+32, SETUP+19*, SETUP+20, SETUP+21 |
| Y2 | UPD+2~, UPD+29*, UPD+32 |