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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IBCNEHL1 IBCNEHL2 |
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* |