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+54
$$EXTERNAL^DILFD NTE+3
$$GET1^DIQ PID+27, PID+35, PID+36, GT1+12, IN1+15, IN1+16, IN1+39, IN1+40, IN1+55, NTE+6
, NTE+7, NTE+12, NTE+14, NTE+30
GETS^DIQ GT1+52, IN1+48
$$HLADDR^HLFNC GT1+36
$$HLDATE^HLFNC PID+28, PID+37, PID+51, GT1+16, GT1+31, GT1+40, GT1+59, GT1+65, IN1+17, IN1+18
IN1+22, IN1+29, IN1+30
$$HLNAME^HLFNC PID+39, GT1+13, GT1+28, GT1+56
$$NOPUNCT^IBCEF SCRUB+2
$$NAME^IBCNEHLU GT1+12
$$MBICHK^IBCNEUT7 PID+7, NTE+11
$$EN^VAFHLPID PID+9
$$SITE^VASITE PID+49
$$HLNAME^XLFNAME PID+43
$$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+24, PID+29, PID+48, GT1+24, GT1+27, GT1+31, GT1+35, GT1+43, GT1+44, IN1+28
IN1+29, IN1+30, IN1+33, CHK+24
^IBA(355.33 - [#355.33] PID+31, PID+38, GT1+9, GT1+16, IN1+7, IN1+17, IN1+18
^IBCN(365.18 - [#365.18] GT1+49, IN1+45, NTE+29
^IBE(365.12 - [#365.12] IN1+10, IN1+11, IN1+35, IN1+36

Label References

Name Line Occurrences
$$ENCHL7 PID+45, PID+47, GT1+14, GT1+29, GT1+37, GT1+57, IN1+10, IN1+11, IN1+15, IN1+16
IN1+35, IN1+36, IN1+39, IN1+40, IN1+53, IN1+55
$$PATREL IN1+21, IN1+37, IN1+56
$$SCRUB GT1+18, GT1+33, GT1+62, IN1+9, IN1+28, IN1+34
CHK GT1+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMDT IN1+1~
ADMN IN1+1~
>> BUFF PID+7, PID+30, PID+31, PID+35, PID+38, GT1+9, GT1+12, GT1+16, IN1+7, IN1+15
IN1+16, IN1+17, IN1+18, 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+25, NTE+26, NTE+27, NTE+31, NTE+32!
DFN PID+6*, PID+9, PID+21, PID+24, PID+27, PID+29, PID+36, PID+42, PID+48, PID+49
GT1+24, GT1+27, GT1+31, GT1+35, GT1+43, GT1+44, IN1+28, IN1+29, IN1+30, IN1+33
IN1+38, CHK+4, CHK+24~*
>> DGREL CHK+5*, CHK+8, CHK+11
DT IN1+8
EDQ PID+1~
EFFDT IN1+1~, IN1+17*, IN1+19, IN1+29*, IN1+31
EICDIIEN GT1+2~, GT1+49*, GT1+50, GT1+51, IN1+2~, IN1+45*, IN1+46, IN1+47, NTE+1~, NTE+29*
, NTE+30
>> EICDVIEN GT1+50, GT1+51, IN1+46, IN1+47
ELIGDT IN1+1~, IN1+8*, IN1+22
EXPDT IN1+1~, IN1+18*, IN1+20, IN1+30*, IN1+32
>> EXT PID+7, PID+23, PID+30, PID+53, GT1+8, GT1+22, GT1+48, IN1+6, IN1+26, IN1+44
, NTE+11, NTE+17, NTE+27
>> FRDT PID+51*, PID+53
>> 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+13, PID+14, PID+15, PID+39, PID+43, PID+49, GT1+13, GT1+15, GT1+18, GT1+28
GT1+30, GT1+33, GT1+56, GT1+58, GT1+62, IN1+10, IN1+35, IN1+53
>> HLFS PID+11, PID+16, PID+17, PID+28, PID+37, PID+45, PID+47, PID+49, PID+52, PID+53
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+10
IN1+11, IN1+15, IN1+16, IN1+19, IN1+20, IN1+21, IN1+22, IN1+23, IN1+31, IN1+32
IN1+34, IN1+35, IN1+36, IN1+37, IN1+39, IN1+40, IN1+41, IN1+52, IN1+53, IN1+55
IN1+56, IN1+57, IN1+60, IN1+61, NTE+31
>> HLQ PID+43
I PID+1~, PID+45*
IBADDR GT1+1~, GT1+36*, GT1+37
IBDOB PID+1~, PID+27*, PID+28, PID+35*, PID+36*, PID+37
IBFMIEN GT1+2~, GT1+51*, GT1+52, GT1+54, GT1+59, GT1+62, GT1+64, IN1+2~, IN1+47*, IN1+48
IN1+51, IN1+52, IN1+53, IN1+54, IN1+57
IBPYIEN IN1+2~, IN1+54*, IN1+55
IBSDATA GT1+1~, GT1+35*, GT1+36
IBTRKDTA GT1+2~, GT1+52!, IN1+2~, IN1+48!
IBTRKDTA( GT1+54, GT1+59, GT1+62, GT1+64, IN1+51, IN1+52, IN1+53, IN1+54, IN1+57
IBWHO PID+1~, PID+24*, PID+25, PID+31*, PID+32
ICN PID+1~, PID+48*, PID+49
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+45, NTE+6, NTE+12, NTE+14, NTE+29, CHK+2~, CHK+3*, CHK+4*, CHK+5
CHK+11, CHK+14
IENS IN1+1~, IN1+38*, IN1+39, IN1+40
>> IN1 IN1+3*, IN1+9*, IN1+10*, IN1+11*, IN1+15*, IN1+16*, IN1+19*, IN1+20*, IN1+21*, IN1+22*
IN1+23*, IN1+31*, IN1+32*, IN1+34*, IN1+35*, IN1+36*, IN1+37*, IN1+39*, IN1+40*, IN1+41*
IN1+52*, IN1+53*, IN1+55*, IN1+56*, IN1+57*, IN1+58, IN1+60*, IN1+61*
>> IRIEN PID+23, PID+24, PID+27, PID+29, PID+36, GT1+23, GT1+24, GT1+27, GT1+31, GT1+35
GT1+43, IN1+27, IN1+28, IN1+29, IN1+30, IN1+33, IN1+38
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+29*, PID+30, PID+38*, PID+39*, PID+41, PID+43*, PID+45*, 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+42*
NM("FILE" PID+42*
NM("IENS" PID+42*
>> NTE NTE+3*, NTE+6*, NTE+7*, NTE+11*, NTE+23*, NTE+25*, NTE+26*, NTE+30*, NTE+31*
>> PATID IN1+9, IN1+34
>> PAYR IN1+10, IN1+11, IN1+35, IN1+36
PER GT1+1~, CHK+19*, CHK+20, CHK+21
>> PID PID+9*, PID+11, PID+16*, PID+17, PID+28*, PID+37*, PID+45*, PID+47*, PID+49*, PID+52*
PID+53*
PID11 PID+1~, PID+11*, PID+12, PID+13*, PID+14*, PID+15*, PID+16
PID19 PID+1~, PID+17*, PID+52
PLIEN GT1+1~, CHK+21*, CHK+22, CHK+23
PREL IN1+1~, IN1+7*, IN1+9, IN1+21, IN1+33*, IN1+34, IN1+37, IN1+50*, IN1+51*, IN1+56
QFL CHK+2~, CHK+3*, CHK+4, CHK+11*
>> QUERY PID+7, GT1+5, GT1+48, IN1+44, NTE+11, NTE+18, NTE+27
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+28, IN1+34
>> TRANSR IN1+8, NTE+3
TYPE NTE+10~, NTE+13*, NTE+14*, NTE+15*, NTE+16*, NTE+18*, NTE+19*, NTE+20*, NTE+21*, NTE+22*
, NTE+23
U PID+24, PID+29, PID+31, PID+38, PID+48, PID+49, GT1+9, GT1+16, GT1+24, GT1+27
GT1+31, GT1+36, GT1+43, GT1+44, IN1+7, IN1+8, IN1+10, IN1+11, IN1+17, IN1+18
IN1+28, IN1+29, IN1+30, IN1+33, IN1+35, IN1+36, NTE+3, CHK+5, CHK+19, CHK+23
CHK+24
VAFSTR PID+1~, PID+6*, PID+7*, PID+9
WHICH NTE+10~, NTE+12*, NTE+15, NTE+16, NTE+20, NTE+21, NTE+22
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