Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNEHLQ

Package: Integrated Billing

Routine: IBCNEHLQ


Information

IBCNEHLQ ;DAOU/ALA - HL7 RQI Message ;17-JUN-2002

Source Information

Source file <IBCNEHLQ.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 3 $$NOPUNCT^IBCEF  $$NAME^IBCNEHLU  $$MBICHK^IBCNEUT7  
VA FileMan 3 $$FIND1^DIC  $$EXTERNAL^DILFD  ($$GET1,GETS)^DIQ  
Kernel 2 $$HLNAME^XLFNAME  $$UP^XLFSTR  
Registration 2 $$EN^VAFHLPID  $$SITE^VASITE  
Health Level Seven 1 ($$HLADDR,$$HLDATE,$$HLNAME)^HLFNC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCNEDEP  IBTRHLO  IBTRHLO1  IBTRHLO2  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point
; Variables
; HLFS = Field Separator
; DFN = Patient IEN
; PAYR = Payer IEN
; BUFF = Buffer IEN
; FRDT = Freshness Date
PID ; Patient Identification Segment
GT1 ; Guarantor Segment
IN1 ; Insurance Segment
NTE(CTR) ; NTE Segment
CHK ; Check for spouse or other information in the Patient Relation File
; DGREL = Relationship (1=Self, 2=Spouse, 3-34,99=Other)
ENCHL7(STR) ; Encode HL7 escape seqs in data fields
SCRUB(Z) ; remove all punctuation from the string and convert lowercase to uppercase
; IB*2*416 - used for subscriber and patient ID fields
SCRUBX ;
PATREL(REL) ; convert pat.relationship to insured from VistA to X12 and return X12 value
; REL - VistA value
;
; VistA values of Self (18), Spouse (01), and Child (19) remain unchanged,
; anything else is converted to X12 value of Other Adult (34)

External References

Name Field # of Occurrence
$$FIND1^DIC IN1+10, IN1+36, IN1+56
$$EXTERNAL^DILFD NTE+3
$$GET1^DIQ PID+21, PID+29, PID+30, GT1+12, IN1+16, IN1+17, IN1+41, IN1+42, IN1+57, NTE+6
, NTE+7, NTE+12, NTE+14, NTE+31
GETS^DIQ GT1+52, IN1+50
$$HLADDR^HLFNC GT1+36
$$HLDATE^HLFNC PID+22, PID+31, PID+45, GT1+16, GT1+31, GT1+40, GT1+59, GT1+65, IN1+18, IN1+19
, IN1+23, IN1+30, IN1+31
$$HLNAME^HLFNC PID+33, GT1+13, GT1+28, GT1+56
$$NOPUNCT^IBCEF SCRUB+2
$$NAME^IBCNEHLU GT1+12
$$MBICHK^IBCNEUT7 PID+3, NTE+11
$$EN^VAFHLPID PID+4
$$SITE^VASITE PID+43
$$HLNAME^XLFNAME PID+37
$$UP^XLFSTR SCRUB+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 GET1^DIQ
^IBE(355.12 - [#355.12] GET1^DIQ
^IBA(355.33 - [#355.33] GET1^DIQ
^IBCN(365.1 - [#365.1] EXTERNAL^DILFD,  GET1^DIQ
^IBE(365.12 - [#365.12] FIND1^DIC,  GET1^DIQ
^IBCN(365.18 - [#365.18] GET1^DIQ
365.185 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPR(408.12 - [#408.12] CHK+4, CHK+5, CHK+19
^DGPR(408.13 - [#408.13] CHK+23
^DPT - [#2] PID+18, PID+23, PID+42, GT1+24, GT1+27, GT1+31, GT1+35, GT1+43, GT1+44, IN1+29
, IN1+30, IN1+31, IN1+34, CHK+24
^IBA(355.33 - [#355.33] PID+25, PID+32, GT1+9, GT1+16, IN1+7, IN1+18, IN1+19
^IBCN(365.18 - [#365.18] GT1+49, IN1+47, NTE+30
^IBE(365.12 - [#365.12] IN1+11, IN1+12, IN1+37, IN1+38

Label References

Name Line Occurrences
$$ENCHL7 PID+39, PID+41, GT1+14, GT1+29, GT1+37, GT1+57, IN1+11, IN1+12, IN1+16, IN1+17
, IN1+37, IN1+38, IN1+41, IN1+42, IN1+55, IN1+57
$$PATREL IN1+22, IN1+39, IN1+58
$$SCRUB GT1+18, GT1+33, GT1+62, IN1+9, IN1+29, IN1+35
CHK GT1+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMDT IN1+1~
ADMN IN1+1~
>> BUFF PID+3, PID+24, PID+25, PID+29, PID+32, GT1+9, GT1+12, GT1+16, IN1+7, IN1+16
, IN1+17, IN1+18, IN1+19, NTE+11
CHR ENCHL7+8~, ENCHL7+11*, ENCHL7+12, ENCHL7+13, ENCHL7+14
CNT ENCHL7+8~, ENCHL7+11*, ENCHL7+14
CTR NTE~, NTE+3, NTE+5, NTE+9, NTE+26, NTE+27, NTE+28, NTE+32, NTE+33!
DFN PID+3*, PID+4, PID+15, PID+18, PID+21, PID+23, PID+30, PID+36, PID+42, PID+43
, GT1+24, GT1+27, GT1+31, GT1+35, GT1+43, GT1+44, IN1+29, IN1+30, IN1+31, IN1+34
, IN1+40, CHK+4, CHK+24~*
>> DGREL CHK+5*, CHK+8, CHK+11
DT IN1+8
EDQ PID+1~
EFFDT IN1+1~, IN1+18*, IN1+20, IN1+30*, IN1+32
EICDIIEN GT1+2~, GT1+49*, GT1+50, GT1+51, IN1+2~, IN1+47*, IN1+48, IN1+49, NTE+1~, NTE+30*
, NTE+31
>> EICDVIEN GT1+50, GT1+51, IN1+48, IN1+49
ELIGDT IN1+1~, IN1+8*, IN1+23
EXPDT IN1+1~, IN1+19*, IN1+21, IN1+31*, IN1+33
>> EXT PID+3, PID+17, PID+24, PID+47, GT1+8, GT1+22, GT1+48, IN1+6, IN1+27, IN1+46
, NTE+11, NTE+18, NTE+28
>> FRDT PID+45*, PID+47
>> GT1 GT1+4*, GT1+15*, GT1+17*, GT1+18*, GT1+30*, GT1+32*, GT1+33*, GT1+37*, GT1+40*, GT1+41*
, GT1+42, GT1+45*, GT1+58*, GT1+60*, GT1+62*, GT1+65*, GT1+66*, GT1+68, GT1+69*, GT1+70*
>> HLECH PID+7, PID+8, PID+9, PID+33, PID+37, PID+43, GT1+13, GT1+15, GT1+18, GT1+28
, GT1+30, GT1+33, GT1+56, GT1+58, GT1+62, IN1+11, IN1+37, IN1+55
>> HLFS PID+5, PID+10, PID+11, PID+22, PID+31, PID+39, PID+41, PID+43, PID+46, PID+47
, GT1+15, GT1+17, GT1+18, GT1+30, GT1+32, GT1+33, GT1+37, GT1+40, GT1+41, GT1+42
, GT1+45, GT1+58, GT1+60, GT1+62, GT1+65, GT1+66, GT1+69, GT1+70, IN1+9, IN1+11
, IN1+12, IN1+16, IN1+17, IN1+20, IN1+21, IN1+22, IN1+23, IN1+24, IN1+32, IN1+33
, IN1+35, IN1+37, IN1+38, IN1+39, IN1+41, IN1+42, IN1+43, IN1+54, IN1+55, IN1+57
, IN1+58, IN1+59, IN1+62, IN1+63, NTE+32
>> HLQ PID+37
I PID+1~, PID+39*
IBADDR GT1+1~, GT1+36*, GT1+37
IBDOB PID+1~, PID+21*, PID+22, PID+29*, PID+30*, PID+31
IBFMIEN GT1+2~, GT1+51*, GT1+52, GT1+54, GT1+59, GT1+62, GT1+64, IN1+2~, IN1+49*, IN1+50
, IN1+53, IN1+54, IN1+55, IN1+56, IN1+59
IBPYIEN IN1+2~, IN1+56*, IN1+57
IBSDATA GT1+1~, GT1+35*, GT1+36
IBTRKDTA GT1+2~, GT1+52!, IN1+2~, IN1+50!
IBTRKDTA( GT1+54, GT1+59, GT1+62, GT1+64, IN1+53, IN1+54, IN1+55, IN1+56, IN1+59
IBWHO PID+1~, PID+18*, PID+19, PID+25*, PID+26
ICN PID+1~, PID+42*, PID+43
IDOB GT1+1~, GT1+16*, GT1+17, GT1+31*, GT1+32, GT1+40, GT1+59*, GT1+60, GT1+65, CHK+23*
, CHK+24*
IEN GT1+49, IN1+47, NTE+6, NTE+12, NTE+14, NTE+30, CHK+2~, CHK+3*, CHK+4*, CHK+5
, CHK+11, CHK+14
IENS IN1+1~, IN1+40*, IN1+41, IN1+42
>> IN1 IN1+3*, IN1+9*, IN1+11*, IN1+12*, IN1+16*, IN1+17*, IN1+20*, IN1+21*, IN1+22*, IN1+23*
, IN1+24*, IN1+32*, IN1+33*, IN1+35*, IN1+37*, IN1+38*, IN1+39*, IN1+41*, IN1+42*, IN1+43*
, IN1+54*, IN1+55*, IN1+57*, IN1+58*, IN1+59*, IN1+60, IN1+62*, IN1+63*
>> IRIEN PID+17, PID+18, PID+21, PID+23, PID+30, GT1+23, GT1+24, GT1+27, GT1+31, GT1+35
, GT1+43, IN1+28, IN1+29, IN1+30, IN1+31, IN1+34, IN1+40
ISEX GT1+1~, GT1+41, GT1+64*, GT1+66, CHK+3*, CHK+23*, CHK+24*
LOOP ENCHL7+8~, ENCHL7+14*
NEW ENCHL7+8~, ENCHL7+12*, ENCHL7+14*, ENCHL7+15
NM PID+1~, PID+23*, PID+24, PID+32*, PID+33*, PID+35, PID+37*, PID+39*, GT1+1~, GT1+12*
, GT1+13*, GT1+14*, GT1+15, GT1+27*, GT1+28*, GT1+29*, GT1+30, GT1+54*, GT1+55, GT1+56*
, GT1+57*, GT1+58
NM("FIELD" PID+36*
NM("FILE" PID+36*
NM("IENS" PID+36*
>> NTE NTE+3*, NTE+6*, NTE+7*, NTE+11*, NTE+24*, NTE+26*, NTE+27*, NTE+31*, NTE+32*
>> PATID IN1+9, IN1+35
>> PAYR IN1+10, IN1+11, IN1+12, IN1+36, IN1+37, IN1+38
PER GT1+1~, CHK+19*, CHK+20, CHK+21
>> PID PID+4*, PID+5, PID+10*, PID+11, PID+22*, PID+31*, PID+39*, PID+41*, PID+43*, PID+46*
, PID+47*
PID11 PID+1~, PID+5*, PID+6, PID+7*, PID+8*, PID+9*, PID+10
PID19 PID+1~, PID+11*, PID+46
PLIEN GT1+1~, CHK+21*, CHK+22, CHK+23
PREL IN1+1~, IN1+7*, IN1+9, IN1+22, IN1+34*, IN1+35, IN1+39, IN1+52*, IN1+53*, IN1+58
QFL CHK+2~, CHK+3*, CHK+4, CHK+11*
>> QUERY GT1+5, GT1+48, IN1+46, NTE+11, NTE+19, NTE+28
RDATA GT1+1~, CHK+23*, CHK+24
REL PATREL~, PATREL+6
RLIEN GT1+1~, CHK+3*, CHK+11*, CHK+14*, CHK+16, CHK+19
RPLC ENCHL7+8~, ENCHL7+13*, ENCHL7+14
SEX GT1+1~, GT1+43*, GT1+44*, GT1+45
STR ENCHL7~, ENCHL7+11, ENCHL7+12, ENCHL7+14, ENCHL7+15*, ENCHL7+17
>> SUBID GT1+18, GT1+33, IN1+9, IN1+29, IN1+35
>> TRANSR IN1+8, NTE+3
TYPE NTE+10~, NTE+13*, NTE+14*, NTE+15*, NTE+16*, NTE+17*, NTE+19*, NTE+20*, NTE+21*, NTE+22*
, NTE+23*, NTE+24
U PID+18, PID+23, PID+25, PID+32, PID+42, PID+43, GT1+9, GT1+16, GT1+24, GT1+27
, GT1+31, GT1+36, GT1+43, GT1+44, IN1+7, IN1+8, IN1+11, IN1+12, IN1+18, IN1+19
, IN1+29, IN1+30, IN1+31, IN1+34, IN1+37, IN1+38, NTE+3, CHK+5, CHK+19, CHK+23
, CHK+24
VAFSTR PID+1~, PID+3*, PID+4
WHICH NTE+10~, NTE+12*, NTE+15, NTE+16, NTE+17, NTE+21, NTE+22, NTE+23
WHO GT1+1~, GT1+9*, GT1+10, GT1+24*, GT1+25, GT1+42, CHK+11
Z SCRUB~, SCRUB+2*, SCRUB+3*, SCRUBX+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All