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: IBECECU1

Package: Integrated Billing

Routine: IBECECU1


Information

IBECECU1 ;BSL/DVA-BILLING SEND/RECEIVE DFT HL7 MESSAGES PATIENT ACCUMULATOR INTERFACE - SEND/RECEIVE A DFT UPDATE TO/FROM OTHER SITES ; 08 Jul 2022 9:21 AM

Source Information

Source file <IBECECU1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Health Level Seven 4 ($$ADDSEG,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  ($$ACK,$$SENDACK)^HLOAPI2  ($$GET,$$NEXTSEG,$$STARTMSG)^HLOPRS  
VA FileMan 4 NOW^%DTC  FILE^DICN  (,FILE)^DIE  ($$GET1,GETS)^DIQ  
Integrated Billing 3 ($$DFN,$$ICN,$$TFL)^IBARXMU  $$SITE^IBATUTL  ($$GETIEN,ERR1,INPT)^IBECECX1  
Registration 2 $$GCRNSITE^VAFCCRNR  $$SITE^VASITE  
Kernel 1 ($$FMADD,$$FMTHL7,$$HL7TFM,$$NOW)^XLFDT  
Master Patient Index VistA 1 $$GETDFN^MPIF001  

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: 7

Package Total Caller Graph
Integrated Billing 6 IBAUTL3  IBAUTL5  IBECEA32  IBECEAU1  IBECECQ1  IBEMTBC  
Health Level Seven 1 MESSAGE TYPE ACTIONS  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,IBCLDA,IBUPVRSN) ; OUTGOING DFT PRIMARY ENTRY POINT
; IBCLDA - IEN FROM 351
MSH ; Build outgoing MSH Segment
EVN ;
PID ; Build outgoing PID Segment
FT1 ; Build FT1 Outgoing segment
SEND ;SEND MESSAGE AND QUIT
RECV ; INCOMING DFT PRIMARY ENTRY POINT
PIDI ;Parse Incoming PID Segment
FT1I ;Parse Incoming FT1 Segment, assumes one record only
; Get new 365 day clock data
PARSE ; Get the updated clock data to send via DFT
NEWREC ;Create a new entry in file 351
AGGR
UPDATE(IBDA)
MSA ;Build and send App Ack
DFTACK ;process app ack
GETDET ;get outgoing DFT details based on returned App Ack Message ID

External References

Name Field # of Occurrence
NOW^%DTC EVN+3
FILE^DICN NEWREC+6
^DIE EN+13, EN+14, NEWREC+24, NEWREC+43, UPDATE+19, UPDATE+20, DFTACK+23
FILE^DIE NEWREC+41
$$GET1^DIQ EN+10, EN+12, EN+15, PID+8, RECV+16, RECV+17, RECV+18, PARSE+16, PARSE+17, NEWREC+18
, NEWREC+43, UPDATE+20, GETDET+11
GETS^DIQ PARSE+3
$$ADDSEG^HLOAPI EVN+5, PID+11, FT1+14
$$NEWMSG^HLOAPI MSH+9
SET^HLOAPI EVN+1, EVN+2, EVN+4, PID+1, PID+2, PID+6, PID+9, PID+10, FT1+1, FT1+3
, FT1+4, FT1+5, FT1+6, FT1+7, FT1+8, FT1+9, FT1+10, FT1+11, FT1+12, FT1+13
$$SENDONE^HLOAPI1 SEND+6
$$ACK^HLOAPI2 MSA+9
$$SENDACK^HLOAPI2 MSA+10
$$GET^HLOPRS PIDI+2, PIDI+4, FT1I+2, FT1I+3, FT1I+5, FT1I+7, FT1I+8, FT1I+9, FT1I+10, FT1I+11
, FT1I+12, FT1I+13, DFTACK+7, DFTACK+11, DFTACK+16
$$NEXTSEG^HLOPRS RECV+9, DFTACK+6, GETDET+4
$$STARTMSG^HLOPRS RECV+4, DFTACK+5, GETDET+3
$$DFN^IBARXMU PIDI+3
$$ICN^IBARXMU PID+4
$$TFL^IBARXMU EN+8
$$SITE^IBATUTL PARSE+4
$$GETIEN^IBECECX1 GETDET+10
ERR1^IBECECX1 DFTACK+19
INPT^IBECECX1 EN+11, GETDET+9
$$GETDFN^MPIF001 NEWREC+8
$$GCRNSITE^VAFCCRNR MSA+2
$$SITE^VASITE DFTACK+14
$$FMADD^XLFDT PARSE+14
$$FMTHL7^XLFDT EVN+3, PARSE+6, PARSE+15
$$HL7TFM^XLFDT FT1I+6, FT1I+14, PARSE+14
$$NOW^XLFDT NEWREC+21, NEWREC+36, NEWREC+38, UPDATE+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IBE(351 - [#351] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(351 - [#351] EN+9, RECV+15, NEWREC+1, NEWREC+4, NEWREC+9, NEWREC+16, NEWREC+44, AGGR+15, UPDATE+4, UPDATE+21
, DFTACK+22, DFTACK+24
^TMP("DFT" MSH+1!

Label References

Name Line Occurrences
AGGR NEWREC+13, UPDATE+2
EVN EN+17
FT1 EN+18
FT1I RECV+11, GETDET+6
GETDET DFTACK+18
MSA RECV+6, RECV+7, RECV+12, RECV+13, RECV+24, RECV+29
MSH EN+17
NEWREC RECV+27
PARSE EN+17
PID EN+17
PIDI RECV+10, GETDET+5
SEND EN+18
UPDATE RECV+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EVN+3
>> %P1 EVN+3*
AGG AGGR+2~, AGGR+3*, AGGR+22*, AGGR+23
DA EN+13*, EN+14*, NEWREC+2~, NEWREC+6*, NEWREC+19*, NEWREC+25!, NEWREC+43*, UPDATE+1~, UPDATE+5*, UPDATE+20*
, UPDATE+21, DFTACK+23*
DATEQ RECV+1~
DFN EN~, EN+8, EN+11, EN+15, PID+4, PID+8, RECV+1~, RECV+12, RECV+15, PIDI+3*
, NEWREC+8*, NEWREC+9, NEWREC+10, NEWREC+16, GETDET+9, GETDET+10
DIC NEWREC+2~, NEWREC+3*
DIC(0 NEWREC+3*
DIE EN+13*, EN+14*, NEWREC+2~, NEWREC+19*, NEWREC+25!, NEWREC+43*, UPDATE+1~, UPDATE+5*, UPDATE+20*, DFTACK+23*
>> DILOCKTM NEWREC+1, UPDATE+4, DFTACK+22
DR EN+13*, EN+14*, NEWREC+2~, NEWREC+19*, NEWREC+20*, NEWREC+21*, NEWREC+22*, NEWREC+25!, NEWREC+43*, UPDATE+5*
, UPDATE+7*, UPDATE+8*, UPDATE+9*, UPDATE+10*, UPDATE+11*, UPDATE+12*, UPDATE+13*, UPDATE+14*, UPDATE+15*, UPDATE+16*
, UPDATE+17*, UPDATE+18*, UPDATE+20*, DFTACK+23*
DT FT1I+15, NEWREC+26, NEWREC+33, UPDATE+6, UPDATE+13
DUZ NEWREC+20, UPDATE+14
ERR RECV+1~, RECV+4*
ERROR EN+5~, MSH+9, EVN+5, PID+11, FT1+14, SEND+6
FIELD EN+5~, EVN+1*, EVN+2*, EVN+3*, EVN+4, PID+1*, PID+5*, PID+6, PID+9*, PID+10*
>> HLMSGIEN RECV+4, RECV+5, DFTACK+5
IB351IEN RECV+3~, NEWREC+42*, AGGR+14, AGGR+15, DFTACK+4~, DFTACK+21, DFTACK+22, DFTACK+23, DFTACK+24, GETDET+10*
, GETDET+11*
IB778 DFTACK+4~, GETDET+1~, GETDET+2*, GETDET+3
IB901 EN+6~, FT1+7, PARSE+8*
IB902 EN+6~, FT1+8, PARSE+9*
IB903 EN+6~, FT1+9, PARSE+10*
IB904 EN+6~, FT1+10, PARSE+11*
IBACBCLK EN+5~
IBACK MSA+3~, MSA+9, MSA+10, DFTACK+4~, DFTACK+7*, DFTACK+9
IBACTC RECV+2~
IBADM EN+5~
IBADMIT EN+5~
IBAEVNT RECV+1~
>> IBAGG NEWREC+13, UPDATE+2
IBARRAY PARSE+1~
IBARRAY(351 PARSE+5, PARSE+7, PARSE+8, PARSE+9, PARSE+10, PARSE+11, PARSE+12, PARSE+13
IBBEGDT NEWREC+2~, NEWREC+14*, NEWREC+15, UPDATE+1~, UPDATE+3*
IBCBDT RECV+2~, RECV+15, RECV+17*, RECV+21, RECV+26, NEWREC+14, UPDATE+3
IBCLDA EN~, EN+9, EN+10, EN+12, EN+13, EN+14, PARSE+3, PARSE+5, PARSE+7, PARSE+8
, PARSE+9, PARSE+10, PARSE+11, PARSE+12, PARSE+13, PARSE+16, PARSE+17
IBCLDAU DFTACK+4~, GETDET+8*, GETDET+11
IBCLDAY EN+6~, FT1+11, PARSE+12*
IBCLDT EN+6~, FT1+5, PARSE+5*, PARSE+6*, PARSE+14
IBCLNDT EN+6~, FT1+12, PARSE+13*, PARSE+14*, PARSE+15*
>> IBCNT NEWREC+22, NEWREC+23
>> IBCORRECT FT1+13
IBDA RECV+2~, RECV+15*, RECV+16, RECV+17, RECV+18, RECV+19, AGGR+2~, UPDATE~, UPDATE+4, UPDATE+5
, UPDATE+20
IBDA1 RECV+2~, RECV+19*, RECV+22
IBDISCH EN+5~
IBDTUP NEWREC+2~, NEWREC+21*, UPDATE+1~, UPDATE+15*
IBDUZ NEWREC+2~, NEWREC+20*, UPDATE+1~, UPDATE+14*
IBECLK AGGR+2~, AGGR+21*, AGGR+22
>> IBECNIEN NEWREC+6*
IBECVRSN EN+6~, EN+12*, EN+13*, EN+14*
IBERR PARSE+1~, NEWREC+42, MSA+3~, MSA+9, MSA+10, DFTACK+4~, DFTACK+16*, DFTACK+19
IBERROR RECV+2~, RECV+6*, RECV+7*, RECV+12*, RECV+13*, RECV+23*, RECV+28*, MSA+4, MSA+5
IBERRS DFTACK+4~, DFTACK+17*
IBEVOCC RECV+1~
IBFDA NEWREC+2~
IBFDA(351 NEWREC+10*, NEWREC+15*, NEWREC+27*, NEWREC+28*, NEWREC+29*, NEWREC+30*, NEWREC+31*, NEWREC+32*, NEWREC+33*, NEWREC+34*
, NEWREC+35*, NEWREC+36*, NEWREC+37*, NEWREC+38*, NEWREC+39*, NEWREC+40*
IBFLG AGGR+2~
IBFVRSN RECV+3~, FT1I+4*, NEWREC+40, UPDATE+18, GETDET+8
IBHDR RECV+1~, RECV+4, DFTACK+4~, DFTACK+5, GETDET+1~, GETDET+3
IBHDR("MESSAG E TYPE" , RECV+7
IBI901 RECV+2~, FT1I+8*, NEWREC+28, AGGR+21, AGGR+27*, UPDATE+8
IBI902 RECV+2~, FT1I+9*, NEWREC+29, AGGR+21, AGGR+28*, UPDATE+9
IBI903 RECV+2~, FT1I+10*, NEWREC+30, AGGR+21, AGGR+29*, UPDATE+10
IBI904 RECV+2~, FT1I+11*, NEWREC+31, AGGR+21, AGGR+30*, UPDATE+11
IBICKDT RECV+2~, FT1I+13*, FT1I+14*, FT1I+15, NEWREC+33, UPDATE+13
IBICLDAY RECV+2~, FT1I+12*, NEWREC+32, AGGR+21, AGGR+26*, UPDATE+12
IBICLDT RECV+2~, RECV+13, RECV+15, RECV+21, RECV+26, FT1I+5*, FT1I+6*, NEWREC+14, AGGR+19, AGGR+21
, AGGR+31*, UPDATE+3, GETDET+7
IBICLDTS DFTACK+4~, GETDET+7*, GETDET+10
>> IBICLNDT NEWREC+17, NEWREC+26, UPDATE+6
IBICN EN+5~, EN+17, PID+4*, PID+5
IBICNAL RECV+2~, PIDI+2*, PIDI+3, NEWREC+8
IBICNUM RECV+2~
IBID DFTACK+4~, DFTACK+11*, DFTACK+14, GETDET+2
IBIEN EN+5~, RECV+1~, RECV+5*
IBISTAT RECV+2~, FT1I+7*, FT1I+15*, NEWREC+26*, NEWREC+27, UPDATE+6*
IBISTN RECV+1~, FT1I+2*, FT1I+4
IBIVRSN RECV+1~, FT1I+3*, FT1I+4
IBMSG RECV+1~, RECV+4, RECV+9, MSA+9, DFTACK+5, DFTACK+6, GETDET+1~, GETDET+3, GETDET+4
IBMSG("HDR" RECV+14, DFTACK+17
IBNADM EN+6~
IBNAME EN+6~, PIDI+4*
IBPARMS MSA+3~, MSA+9
IBPARMS("ACK CODE" , MSA+4*
IBPARMS("COUNTRY" MSA+7*
IBPARMS("ERRO R MESSAGE" , MSA+5*
IBPARMS("MESS AGE TYPE" , MSA+6*
IBPARMS("VERSION" MSA+8*
IBQIEN EN+5~
IBQRYS RECV+1~, RECV+18*
IBRCLK AGGR+2~, AGGR+21*, AGGR+22
IBREASON NEWREC+2~, NEWREC+22*, NEWREC+23*, UPDATE+16*
IBSEG DFTACK+4~, DFTACK+6, DFTACK+7, DFTACK+11, DFTACK+16
IBSEGT RECV+1~, RECV+9*, RECV+10, RECV+11, GETDET+4*, GETDET+5, GETDET+6
IBSITE EN+6~, PARSE+4*
IBSNDST RECV+2~, RECV+14*, NEWREC+22, NEWREC+34, UPDATE+16, MSA+2
IBSOC EN+6~
IBSTAT EN+6~, FT1+6, RECV+1~, RECV+4*, RECV+6, PARSE+7*, DFTACK+4~, DFTACK+5*, GETDET+1~, GETDET+3*
>> IBSTATION EN+13, EN+14
IBSTDT AGGR+2~, AGGR+18*, AGGR+20, AGGR+31
>> IBSTN FT1+2, FT1+3, PARSE+16*
IBSYCLK AGGR+2~, AGGR+19*, AGGR+20*, AGGR+21
IBTFL EN+6~, EN+8*
IBUPDT RECV+1~, RECV+20*, RECV+23, RECV+28, NEWREC+42*, UPDATE+22*
IBUPVRSN EN~, EN+13
IBVNUM EN+6~, EN+12*, EN+13
IBVRSN EN+6~, FT1+4, PARSE+17*
IBWHAT RECV+1~
IBX MSA+3~, MSA+9*, MSA+10*
ICN RECV+1~
IEN NEWREC+2~, NEWREC+6*
IEN351 NEWREC+2~, NEWREC+16*, NEWREC+18, NEWREC+19
IENS NEWREC+2~, NEWREC+6*, NEWREC+10, NEWREC+15, NEWREC+27, NEWREC+28, NEWREC+29, NEWREC+30, NEWREC+31, NEWREC+32
, NEWREC+33, NEWREC+34, NEWREC+35, NEWREC+36, NEWREC+37, NEWREC+38, NEWREC+39, NEWREC+40, NEWREC+42, NEWREC+43
MSG EN+5~, MSH+8*, MSH+9, EVN+5, PID+11, FT1+14, SEND+6
MSGTYPE RECV+1~
NAME EN+5~, EN+15*, PID+8*, PID+9, PID+10
NODE AGGR+2~
NODE0 AGGR+2~, AGGR+15*, AGGR+18, AGGR+19, AGGR+21, AGGR+26, AGGR+27, AGGR+28, AGGR+29, AGGR+30
PARMS EN+5~, MSH+1~, MSH+9, SEND+6
PARMS("APP AC K RESPONSE" , SEND+5*
PARMS("COUNTRY" MSH+2*
PARMS("EVENT" MSH+4*
PARMS("MESSAG E STRUCTURE" , MSH+7*, E TYPE" , MSH+3*
PARMS("SENDIN G APPLICATION" , MSH+5*, SEND+4*
PARMS("VERSION" MSH+6*
QRYNUM EN+5~
SEG EN+5~, EVN+1, EVN+2, EVN+4, EVN+5, PID+1, PID+2, PID+6, PID+9, PID+10
, PID+11, FT1+1, FT1+3, FT1+4, FT1+5, FT1+6, FT1+7, FT1+8, FT1+9, FT1+10
, FT1+11, FT1+12, FT1+13, FT1+14, RECV+1~, RECV+9, PIDI+2, PIDI+4, FT1I+2, FT1I+3
, FT1I+5, FT1I+7, FT1I+8, FT1I+9, FT1I+10, FT1I+11, FT1I+12, FT1I+13, GETDET+1~, GETDET+4
SEG("SEGMENT TYPE" , RECV+9, GETDET+4
U EN+9, NEWREC+4, NEWREC+6, AGGR+21
VALUE EN+5~, EVN+1*, EVN+2*, EVN+3*, EVN+4, PID+1*, PID+5*, PID+6, PID+9*, PID+10*
WHOTO EN+5~, SEND+6
WHOTO("MIDDLE WARE LINK NAME" , SEND+3*
WHOTO("RECEIV ING APPLICATION" , SEND+1*
WHOTO("STATIO N NUMBER" , SEND+2*
X EN+5~, MSH+9*, EVN+5*, PID+11*, FT1+14*, NEWREC+2~, NEWREC+4*
XXX EN+5~, SEND+6*
Y NEWREC+2~, NEWREC+6
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