IBCNEHL4 ;DAOU/ALA - HL7 Process Incoming RPI Msgs (cont.) ;26-JUN-2002
Source file <IBCNEHL4.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 6 | ($$DECHL7,$$NUMCHK)^IBCNEHL2 PCK^IBCNEHL3 (CODECHK,DODCK,GTICNM)^IBCNEHLU SST^IBCNEUT2 MSG^IBCNEUT5 ($$ERRN,RSTA)^IBCNEUT7 |
| VA FileMan | 4 | $$FIND1^DIC (,FILE,UPDATE)^DIE $$IENS^DILF $$GET1^DIQ |
| Kernel | 2 | $$NOW^XLFDT $$UP^XLFSTR |
| Health Level Seven | 1 | ($$FMDATE,$$FMNAME)^HLFNC |
| Master Patient Index VistA | 1 | $$GETDFN^MPIF001 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MSA | ; Process the MSA seg
|
|
| MSAX | ;
|
|
| TQCLOSE | ;IB*743/CKB
|
|
| ERRMSA(TRACE,MGRP) | ; Msg Control Id is blank - Send Mailman error msg
|
|
| PID | ; Process the PID seg
|
|
| PIDX | ;
|
|
| GT1 | ; Process the GT1 Guarantor seg
|
|
| GT1X | ;
|
|
| ZHS(EBDA,ERROR,IBSEG,RIEN) | ; Process ZHS Healthcare services delivery segment
|
|
| ZRF(EBDA,ERROR,IBSEG,RIEN) | ; Process ZRF Reference identification segment
|
|
| ZSD(EBDA,ERROR,IBSEG,RIEN) | ; Process ZSD Subscriber date segment
|
|
| ZII(EBDA,ERROR,IBSEG,RIEN) | ; Process ZII Subscriber additional info segment
|
|
| ZTY(EBDA,ERROR,IBSEG,RIEN) | ; Process ZTY Benefit related entity segment
|
|
| G2OCTD(EBDA,ERROR,IBSEG,RIEN) | ; Process G2O.CTD Benefit related entity contact data segment
|
|
| ERR(ERDA,ERROR,IBSEG,RIEN) | ; Process ERR Reject reasons segment
|
|
| NTE(ERDA,ERROR,IBSEG,RIEN) | ; Process NTE segment
|
|
| ZTP(ERROR,IBSEG,RIEN) | ; Process ZTP Subscriber date (subscriber level) segment
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | PID+53, GT1+31, GT1+45, ZTY+24 |
| ^DIE | MSA+33 |
| FILE^DIE | MSA+42, MSA+47, PID+59, PID+66, GT1+49, GT1+54, ZTY+37 |
| UPDATE^DIE | ZHS+17, ZRF+10, ZSD+10, ZII+15, G2OCTD+14, ERR+12, NTE+6, ZTP+10 |
| $$IENS^DILF | NTE+3 |
| $$GET1^DIQ | MSA+24 |
| $$FMDATE^HLFNC | PID+22, GT1+16 |
| $$FMNAME^HLFNC | PID+21, GT1+16 |
| $$DECHL7^IBCNEHL2 | MSA+10, PID+21, GT1+14, GT1+16 |
| $$NUMCHK^IBCNEHL2 | ZHS+7, ZHS+13 |
| PCK^IBCNEHL3 | MSA+16 |
| CODECHK^IBCNEHLU | ZHS+16, ZRF+9, ZSD+9, ZII+14, ZTY+36, G2OCTD+13, ERR+11, ZTP+9 |
| DODCK^IBCNEHLU | PID+39 |
| GTICNM^IBCNEHLU | ERRMSA+5 |
| SST^IBCNEUT2 | TQCLOSE+6 |
| MSG^IBCNEUT5 | ERRMSA+15 |
| $$ERRN^IBCNEUT7 | PID+31 |
| RSTA^IBCNEUT7 | TQCLOSE+6 |
| $$GETDFN^MPIF001 | PID+26, PID+28 |
| $$NOW^XLFDT | MSA+39 |
| $$UP^XLFSTR | MSA+28, MSA+29 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^IBCN(365 - [#365] | GET1^DIQ |
| ^DIC(5 - [#5] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBCN(365 - [#365] | TQCLOSE+4, PID+42, ZHS+4, ZRF+4, ZSD+4, ZII+4, G2OCTD+4, ERR+3, ZTP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACK | MSA+9* |
| DA | MSA+32*, MSA+34!, NTE+1~, NTE+2*, NTE+3 |
| DA(1 | NTE+2* |
| DFN | MSA+23~, MSA+24*, MSA+32, PID+1~, PID+10*, PID+16*, PID+36*, PID+39, PID+42 |
| DIE | MSA+32*, MSA+34! |
| DOB | PID+1~, PID+5*, PID+22*, PID+45, GT1+8~, GT1+9*, GT1+16*, GT1+24, GT1+36 |
| DOD | PID+1~, PID+7*, PID+22*, PID+39, PID+57 |
| DR | MSA+32*, MSA+34! |
| EBDA | ZHS~, ZHS+2, ZHS+3, ZHS+4, ZRF~, ZRF+2, ZRF+3, ZRF+4, ZSD~, ZSD+2 , ZSD+3, ZSD+4, ZII~, ZII+2, ZII+3, ZII+4, ZTY~, ZTY+2, ZTY+3, G2OCTD~ , G2OCTD+2, G2OCTD+3, G2OCTD+4 |
| >> ERACT | MSA+10*, MSA+44 |
| >> ERCON | MSA+10*, MSA+44 |
| ERDA | ERR~, ERR+13*, NTE~, NTE+2 |
| >> ERFLG | MSA+13*, PID+4*, PID+31* |
| ERROR | PID+59, GT1+49, ZHS~, ZRF~, ZSD~, ZII~, ZTY~, G2OCTD~, ERR~, NTE~ , ZTP~ |
| ERROR("DIERR" | PID+32*, PID+33*, PID+34* |
| >> ERTXT | MSA+10*, MSA+27, MSA+28, MSA+29, MSA+38 |
| >> EVENTYP | MSA+22, PID+44, PID+63, GT1+19 |
| FLD | PID+1~, PID+49*, PID+50, PID+51, PID+52, PID+53, PID+54, PID+55, PID+56, GT1+27* , GT1+28, GT1+29, GT1+30, GT1+31, GT1+32, GT1+41*, GT1+42, GT1+43, GT1+44, GT1+45 , GT1+46, GT1+47, GT1+48, ZTY+1~, ZTY+8*, ZTY+10, ZTY+20*, ZTY+21, ZTY+22, ZTY+23 , ZTY+24, ZTY+25, ZTY+26, ZTY+27, G2OCTD+1~, G2OCTD+6*, G2OCTD+7, G2OCTD+11*, ERR+1~, ERR+4* , ERR+5 |
| FLG | GT1+20~ |
| HCT | ERRMSA+2~ |
| >> HLCMP | PID+50, PID+51, PID+52, PID+53, PID+54, PID+55, PID+56, GT1+28, GT1+29, GT1+30 , GT1+31, GT1+32, GT1+42, GT1+43, GT1+44, GT1+45, GT1+46, GT1+47, GT1+48, ZHS+6 , ZHS+9, ZHS+12, ZHS+14, ZHS+15, ZRF+6, ZSD+6, ZSD+8, ZII+6, ZII+12, ZTY+5 , ZTY+10, ZTY+15, ZTY+21, ZTY+22, ZTY+23, ZTY+24, ZTY+25, ZTY+26, ZTY+27, ZTY+32 , ZTY+34, G2OCTD+7, G2OCTD+11, ERR+4, ERR+5, ERR+7, ERR+10, ZTP+5, ZTP+6 |
| >> HLECH | MSA+10, PID+12, PID+13, PID+14, PID+15, PID+21, GT1+13, GT1+16 |
| >> HLREP | NTE+5 |
| >> HLSCMP | PID+50, GT1+28, GT1+42, ZTY+10, ZTY+21, G2OCTD+7, ZTP+5, ZTP+6 |
| I | ERR+1~, ERR+5* |
| IBSEG | ZHS~, ZRF~, ZSD~, ZII~, ZTY~, G2OCTD~, ERR~, NTE~, ZTP~ |
| IBSEG(10 | GT1+9, ZHS+15, ZTY+29 |
| IBSEG(11 | ZTY+32 |
| IBSEG(12 | PID+49, ZTY+34 |
| IBSEG(13 | GT1+10, ZTY+34 |
| IBSEG(14 | ZTY+18 |
| IBSEG(2 | MSA+9, GT1+21 |
| IBSEG(3 | MSA+9, GT1+12, ZHS+6, ZRF+6, ZSD+6, ZII+6, ZTY+5, G2OCTD+6, ERR+4, ZTP+5 |
| IBSEG(30 | PID+7 |
| IBSEG(34 | PID+7 |
| IBSEG(35 | PID+7 |
| IBSEG(4 | MSA+9, PID+11, GT1+9, ZHS+6, ZRF+6, ZSD+8, ZII+12, ZTY+5, NTE+4, ZTP+5 , ZTP+6 |
| IBSEG(5 | ZHS+9, ZRF+8, ZSD+6, ZII+9, ZTY+8, ZTP+8 |
| IBSEG(6 | MSA+10, PID+6, GT1+27, GT1+41, ZHS+9, ZII+10, ZTY+15, G2OCTD+11, ERR+7, ERR+10 |
| IBSEG(7 | MSA+10, ZHS+12, ZII+11, ZTY+15 |
| IBSEG(8 | PID+5, ZHS+12, ZTY+20, ERR+9 |
| IBSEG(9 | PID+5, GT1+9, ZHS+14, ZTY+29, ERR+8 |
| >> IBTRACK( | GT1+22*, GT1+23*, GT1+24*, GT1+25*, GT1+26*, GT1+28*, GT1+29*, GT1+30*, GT1+31*, GT1+32* , GT1+33* |
| >> IBTRACK(0 | MSA+25*, MSA+26*, MSA+27*, MSA+28*, MSA+30*, MSA+35* |
| ICN | ERRMSA+2~, ERRMSA+5, ERRMSA+11, PID+1~, PID+10*, PID+18*, PID+25, PID+26, PID+28, PID+30 , PID+33, PID+36 |
| IDLIST | PID+1~, PID+11*, PID+12, PID+13 |
| IENARR | ERR+1~ |
| IENARR(1 | ERR+13 |
| IENS | NTE+1~, NTE+3*, NTE+5 |
| IENSTR | PID+1~, PID+41*, PID+42, PID+45, PID+46, PID+47, PID+50, PID+51, PID+52, PID+53 , PID+54, PID+55, PID+56, PID+57, PID+58, PID+65, GT1+8~, GT1+34*, GT1+36, GT1+38 , GT1+39, GT1+42, GT1+43, GT1+44, GT1+45, GT1+46, GT1+47, GT1+48, GT1+53, ZHS+1~ , ZHS+3*, ZHS+4, ZHS+7, ZHS+10, ZHS+13, ZHS+14, ZHS+15, ZRF+1~, ZRF+3*, ZRF+4 , ZRF+7, ZRF+8, ZSD+1~, ZSD+3*, ZSD+4, ZSD+7, ZSD+8, ZII+1~, ZII+3*, ZII+4 , ZII+9, ZII+10, ZII+11, ZII+12, ZII+13, ZTY+1~, ZTY+3*, ZTY+6, ZTY+10, ZTY+13 , ZTY+16, ZTY+18, ZTY+21, ZTY+22, ZTY+23, ZTY+24, ZTY+25, ZTY+26, ZTY+27, ZTY+30 , ZTY+32, ZTY+35, G2OCTD+1~, G2OCTD+3*, G2OCTD+4, G2OCTD+7, G2OCTD+9, G2OCTD+12, ERR+1~, ERR+2* , ERR+3, ERR+6, ERR+7, ERR+8, ERR+9, ERR+10, ZTP+1~, ZTP+2*, ZTP+3, ZTP+7 , ZTP+8 |
| IERN | PID+2~, PID+31*, PID+32, PID+33, PID+34 |
| LFAC | PID+1~, PID+7* |
| LOC | ERR+1~, ERR+4*, ERR+5*, ERR+6 |
| LUPDT | PID+1~, PID+7*, PID+22* |
| MGRP | MSA+13, ERRMSA~, ERRMSA+15, PID+39 |
| MSG | ERRMSA+2~, NTE+1~, NTE+5* |
| MSG( | ERRMSA+14* |
| MSG(1 | ERRMSA+9*, ERRMSA+10* |
| MSG(2 | ERRMSA+11* |
| MSG(3 | ERRMSA+13* |
| MSGCT | ERRMSA+2~, ERRMSA+8*, ERRMSA+14 |
| MSGID | MSA+8~, MSA+9*, MSA+13 |
| MSGSTR | NTE+1~, NTE+4*, NTE+5 |
| NAME | ERRMSA+2~, ERRMSA+5, ERRMSA+11, PID+1~, PID+6*, PID+21*, PID+39, PID+65, GT1+8~, GT1+9* , GT1+16*, GT1+26, GT1+53 |
| QUAL | ZHS+1~, ZHS+6*, ZHS+7, ZHS+9*, ZHS+10, ZHS+12*, ZHS+13, ZRF+1~, ZRF+6*, ZRF+7 , ZSD+1~, ZSD+6*, ZSD+7, ZII+1~, ZII+6*, ZII+8, ZII+12, ZII+13, ZTY+1~, ZTY+5* , ZTY+6, ZTY+15*, ZTY+16, ZTY+29*, ZTY+30, ZTY+34*, ZTY+35, G2OCTD+1~, G2OCTD+11*, G2OCTD+12 , ZTP+1~, ZTP+5*, ZTP+7 |
| RDAT0 | TQCLOSE+3~, TQCLOSE+4*, TQCLOSE+5 |
| RIEN | MSA+19, MSA+24, MSA+26, MSA+37, MSA+38, MSA+39, MSA+44, TQCLOSE+4, PID+39, PID+41 , PID+42, GT1+34, GT1+35, GT1+37, ZHS~, ZHS+3, ZHS+4, ZRF~, ZRF+3, ZRF+4 , ZSD~, ZSD+3, ZSD+4, ZII~, ZII+3, ZII+4, ZTY~, ZTY+3, G2OCTD~, G2OCTD+3 , G2OCTD+4, ERR~, ERR+2, ERR+3, NTE~, NTE+2, ZTP~, ZTP+2, ZTP+3 |
| RSTYPE | TQCLOSE+3~, TQCLOSE+5*, TQCLOSE+6 |
| RSUPDT | MSA+8~, PID+1~, PID+64!, GT1+8~, GT1+52!, ZHS+1~, ZHS+16, ZRF+1~, ZRF+9, ZSD+1~ , ZSD+9, ZII+1~, ZII+14, ZTY+1~, ZTY+36, G2OCTD+1~, G2OCTD+13, ERR+1~, ERR+11, NTE+1~ , NTE+6, ZTP+1~, ZTP+9 |
| RSUPDT( | ZHS+4*, ZHS+7*, ZHS+10*, ZHS+13*, ZHS+14*, ZHS+15*, ZRF+4*, ZRF+7*, ZRF+8*, ZSD+4* , ZSD+7*, ZSD+8*, ZII+4*, ZII+9*, ZII+10*, ZII+11*, ZII+12*, ZII+13*, ZTY+6*, ZTY+10* , ZTY+13!, ZTY+16*, ZTY+18*, ZTY+21*, ZTY+22*, ZTY+23*, ZTY+24*, ZTY+25*, ZTY+26*, ZTY+27* , ZTY+30*, ZTY+32*, ZTY+35*, G2OCTD+4*, G2OCTD+7*, G2OCTD+9!, G2OCTD+12*, ERR+3*, ERR+6*, ERR+7* , ERR+8*, ERR+9*, ERR+10*, NTE+5*, ZTP+3*, ZTP+7*, ZTP+8* |
| RSUPDT(365 | MSA+37*, MSA+38*, MSA+39*, MSA+44*, PID+42*, PID+45*, PID+46*, PID+47*, PID+50*, PID+51* , PID+52*, PID+53*, PID+54*, PID+55*, PID+56*, PID+57*, PID+58*, PID+65*, GT1+35*, GT1+36* , GT1+37*, GT1+38*, GT1+39*, GT1+42*, GT1+43*, GT1+44*, GT1+45*, GT1+46*, GT1+47*, GT1+48* , GT1+53* |
| SETID | GT1+20~, GT1+21*, GT1+22, GT1+23, GT1+24, GT1+25, GT1+26, GT1+28, GT1+29, GT1+30 , GT1+31, GT1+32, GT1+33 |
| SEX | PID+1~, PID+5*, PID+45, GT1+8~, GT1+9*, GT1+25, GT1+37 |
| SSN | PID+1~, PID+10*, PID+17*, PID+39, PID+47, GT1+8~, GT1+10*, GT1+23, GT1+38 |
| STATE | PID+1~, PID+53*, GT1+20~, GT1+31*, GT1+45* |
| SUBC | PID+2~, PID+13*, PID+14, PID+15 |
| SUBCDATA | PID+2~, PID+15*, PID+16, PID+17, PID+18 |
| SUBCID | PID+2~, PID+14*, PID+16, PID+17, PID+18 |
| SUBCNT | PID+2~, PID+12*, PID+13 |
| >> SUBID | GT1+13*, GT1+14*, GT1+22, GT1+39 |
| SUBIDC | GT1+8~, GT1+12*, GT1+13 |
| TQN | TQCLOSE+3~, TQCLOSE+5*, TQCLOSE+6 |
| TRACE | MSA+9*, MSA+13, MSA+25, MSA+37, ERRMSA~, ERRMSA+8, ERRMSA+10, ERRMSA+11, ERRMSA+12 |
| U | TQCLOSE+5, PID+42, ZII+9, ZII+10 |
| VAL | ERR+1~, ERR+5* |
| VALUE | ZHS+1~, ZHS+6*, ZHS+7, ZHS+9*, ZHS+10, ZHS+12*, ZHS+13, ZRF+1~, ZRF+6*, ZRF+7 , ZSD+1~, ZSD+6*, ZSD+7, ZII+1~, ZTY+1~, ZTY+5*, ZTY+6, ZTY+15*, ZTY+16, ZTY+24* , ZTY+29*, ZTY+30, ZTY+34*, ZTY+35, G2OCTD+1~, G2OCTD+11*, G2OCTD+12, ZTP+1~, ZTP+5*, ZTP+6* , ZTP+7 |
| VRFDT | MSA+8~, MSA+39* |
| XDFN | PID+1~, PID+26*, PID+28*, PID+30, PID+36 |
| XMSUB | ERRMSA+2~, ERRMSA+8*, ERRMSA+15 |
| Z | NTE+1~, NTE+5*, ZTP+1~, ZTP+6* |