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

Package Total Call Graph
VA FileMan 4 NOW^%DTC  FILE^DICN  (,FILE)^DIE  ($$GET1,GETS)^DIQ  
Health Level Seven 3 ($$ADDSEG,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  ($$GET,$$NEXTSEG,$$STARTMSG)^HLOPRS  
Integrated Billing 3 $$ICN^IBARXMU  $$SITE^IBATUTL  INPT^IBECECX1  
Kernel 1 ($$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: 6

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

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,IBCLDA) ; OUTGOING DFT PRIMARY ENTRY POINT
; IBCLDA - IEN FROM 351
MSH ; Build outgoing MSH Segment
EVN ; Build outgoing EVN Segment
PID ; Build outgoing PID Segment
FT1 ; Build FT1 Outgoing segment
FT2 ;BUILD OUTGOING FT2 SEGMENT
SEND ;SEND MESSAGE AND QUIT
RECV ; INCOMING DFT PRIMARY ENTRY POINT
EVNI ;Parse Incoming EVN Segment
PIDI ;Parse Incoming PID Segment
FT1I ;Parse Incoming FT1 Segment, assumes one record only
; Get new 365 day clock data
FT2I ;Parse Incoming FT1 Segment,
PARSE ; Get the updated clock data to send via DFT
NEWREC ;Create a new entry in file 351
AGGR
MULTCLK
CHCKDAYS ;Check days for each clock - For future Cerner work
UPDATE(IBDA)

External References

Name Field # of Occurrence
NOW^%DTC EVN+3
FILE^DICN NEWREC+5
^DIE NEWREC+22, UPDATE+14
FILE^DIE NEWREC+37
$$GET1^DIQ EN+8, RECV+16, RECV+17, NEWREC+16
GETS^DIQ PARSE+3
$$ADDSEG^HLOAPI EVN+12, PID+9, FT1+11
$$NEWMSG^HLOAPI MSH+9
SET^HLOAPI EVN+1, EVN+4, EVN+6, EVN+7, EVN+10, EVN+11, PID+1, PID+3, PID+5, PID+6
FT1+1, FT1+2, FT1+3, FT1+4, FT1+5, FT1+6, FT1+7, FT1+8, FT1+9, FT1+10
$$SENDONE^HLOAPI1 SEND+5
$$GET^HLOPRS EVNI+1, EVNI+3, EVNI+4, EVNI+5, EVNI+6, PIDI+1, PIDI+2, PIDI+4, FT1I+2, FT1I+3
FT1I+5, FT1I+6, FT1I+7, FT1I+8, FT1I+9, FT1I+10, FT1I+11
$$NEXTSEG^HLOPRS RECV+8
$$STARTMSG^HLOPRS RECV+3
$$ICN^IBARXMU PID+2
$$SITE^IBATUTL PARSE+4
INPT^IBECECX1 EN+7
$$GETDFN^MPIF001 PIDI+3, NEWREC+7
$$FMTHL7^XLFDT EVN+3, EVNI+2, PARSE+6, PARSE+14
$$HL7TFM^XLFDT FT1I+4, FT1I+12
$$NOW^XLFDT NEWREC+19, NEWREC+33, NEWREC+35, UPDATE+11

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+6, RECV+15, NEWREC+1, NEWREC+4, NEWREC+8, NEWREC+14, NEWREC+38, AGGR+11, AGGR+12, AGGR+14
, UPDATE+2, UPDATE+15
^TMP("DFT" MSH+1!

Label References

Name Line Occurrences
AGGR NEWREC+12
EVN EN+9
EVNI RECV+9
FT1 EN+10
FT1I RECV+11
FT2 EN+10
FT2I RECV+12
MSH EN+9
NEWREC RECV+20
PARSE EN+9
PID EN+9
PIDI RECV+10
SEND EN+10
UPDATE RECV+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EVN+3
AGG AGGR+2~, AGGR+3*, AGGR+17*, AGGR+19*, AGGR+20
DA NEWREC+2~, NEWREC+5*, NEWREC+17*, NEWREC+23!, UPDATE+1~, UPDATE+3*, UPDATE+15
DATEQ RECV+1~
DFN EN~, EN+7, EN+8, PID+2, PID+3, RECV+1~, RECV+15, PIDI+3*, NEWREC+7*, NEWREC+8
NEWREC+9, NEWREC+14, AGGR+11, AGGR+12
DIC NEWREC+2~, NEWREC+3*
DIC(0 NEWREC+3*
DIE NEWREC+2~, NEWREC+17*, NEWREC+23!, UPDATE+1~, UPDATE+3*
>> DILOCKTM NEWREC+1, UPDATE+2
DR NEWREC+2~, NEWREC+17*, NEWREC+18*, NEWREC+19*, NEWREC+20*, NEWREC+23!, UPDATE+3*, UPDATE+4*, UPDATE+5*, UPDATE+6*
, UPDATE+7*, UPDATE+8*, UPDATE+9*, UPDATE+10*, UPDATE+11*, UPDATE+12*, UPDATE+13*
DT AGGR+10, AGGR+21
DUZ NEWREC+18, UPDATE+10
ERR RECV+1~, RECV+3*
ERROR EN+3~, MSH+9, EVN+12, PID+9, FT1+11, SEND+5
FIELD EN+3~, EVN+1*, EVN+3*, EVN+4, EVN+6*, EVN+7*, EVN+10*, EVN+11*, PID+1*, PID+3*
PID+5*, PID+6*
HLERR RECV+1~, RECV+5*
>> HLMSGIEN RECV+3, RECV+4
IB901 EN+4~, FT1+5, PARSE+8*
IB902 EN+4~, FT1+6, PARSE+9*
IB903 EN+4~, FT1+7, PARSE+10*
IB904 EN+4~, FT1+8, PARSE+11*
IBACBCLK EN+3~
IBACTC RECV+2~, EVNI+3*
IBADM EN+3~
IBADMIT EN+3~
IBAEVNT RECV+1~, EVNI+1*, EVNI+2*
>> IBAGG NEWREC+12
IBARRAY PARSE+1~
IBARRAY(351 PARSE+5, PARSE+7, PARSE+8, PARSE+9, PARSE+10, PARSE+11, PARSE+12, PARSE+13
IBCBDT RECV+2~, RECV+15, RECV+16*, RECV+19
IBCKNUM RECV+2~, EVNI+4*
IBCLDA EN~, EN+6, FT1+2, FT1I+2*, PARSE+3, PARSE+5, PARSE+7, PARSE+8, PARSE+9, PARSE+10
PARSE+11, PARSE+12, PARSE+13
IBCLDAY EN+4~, FT1+9, PARSE+12*
IBCLDT EN+4~, FT1+3, PARSE+5*, PARSE+6*
IBCLNDT EN+4~, FT1+10, PARSE+13*, PARSE+14*
>> IBCNT NEWREC+20, NEWREC+21
IBDA RECV+2~, RECV+15*, RECV+16, RECV+17, RECV+18, AGGR+2~, AGGR+12*, AGGR+13, AGGR+14, UPDATE~
, UPDATE+2, UPDATE+3
IBDA1 RECV+2~, RECV+18*, RECV+19
IBDISCH EN+3~
IBDTUP NEWREC+2~, NEWREC+19*, UPDATE+1~, UPDATE+11*
IBDUZ NEWREC+2~, NEWREC+18*, UPDATE+1~, UPDATE+10*
IBERR PARSE+1~
IBEVFAC EVN+11, RECV+1~, EVNI+6*
IBEVOCC RECV+1~
IBFDA NEWREC+2~
IBFDA(351 NEWREC+9*, NEWREC+13*, NEWREC+24*, NEWREC+25*, NEWREC+26*, NEWREC+27*, NEWREC+28*, NEWREC+29*, NEWREC+30*, NEWREC+31*
NEWREC+32*, NEWREC+33*, NEWREC+34*, NEWREC+35*, NEWREC+36*
IBFLG AGGR+2~, AGGR+11, AGGR+12*
IBHDR RECV+1~, RECV+3
IBHDR("MESSAG E TYPE" , RECV+6
IBI901 RECV+2~, FT1I+6*, NEWREC+25, AGGR+24*, UPDATE+4
IBI902 RECV+2~, FT1I+7*, NEWREC+26, AGGR+25*, UPDATE+5
IBI903 RECV+2~, FT1I+8*, NEWREC+27, AGGR+26*, UPDATE+6
IBI904 RECV+2~, FT1I+9*, NEWREC+28, AGGR+27*, UPDATE+7
IBICKDT RECV+2~, FT1I+11*, FT1I+12*, NEWREC+30, UPDATE+9
IBICLDAY RECV+2~, FT1I+10*, NEWREC+29, AGGR+19, AGGR+23*, UPDATE+8
IBICLDT RECV+2~, RECV+13, RECV+15, RECV+19, FT1I+3*, FT1I+4*, NEWREC+13, AGGR+15, AGGR+17, AGGR+18
AGGR+28*
>> IBICLNDT NEWREC+15, AGGR+10, AGGR+21
IBICN EN+3~, EN+9, PID+2*, PID+4, PID+5, PIDI+1*
IBICNAL RECV+2~, PIDI+2*, PIDI+3, NEWREC+7
IBICNUM RECV+2~, EVNI+5*
IBIEN EN+3~, RECV+1~, RECV+4*
IBISTAT RECV+2~, FT1I+5*, NEWREC+24
IBMSG RECV+1~, RECV+3, RECV+8
IBMSG("HDR" RECV+14
IBNADM EN+4~, EVN+10
IBNAME EN+4~, PIDI+4*
IBQIEN EN+3~
IBQRYS RECV+1~, RECV+17*
IBREASON NEWREC+2~, NEWREC+20*, NEWREC+21*, UPDATE+12*
IBSEGT RECV+1~, RECV+8*, RECV+9, RECV+10, RECV+11, RECV+12
IBSITE EN+4~, PARSE+4*
IBSNDST RECV+2~, RECV+14*, NEWREC+20, NEWREC+31, UPDATE+12
IBSOC EN+4~
IBSTAT EN+4~, EVN+6, FT1+4, RECV+1~, RECV+3*, RECV+5, PARSE+7*
IBSTDT AGGR+2~, AGGR+16*, AGGR+28
IBWHAT RECV+1~
ICN RECV+1~
IEN NEWREC+2~, NEWREC+5*
IEN351 NEWREC+2~, NEWREC+14*, NEWREC+16, NEWREC+17
IENS NEWREC+2~, NEWREC+5*, NEWREC+9, NEWREC+13, NEWREC+24, NEWREC+25, NEWREC+26, NEWREC+27, NEWREC+28, NEWREC+29
NEWREC+30, NEWREC+31, NEWREC+32, NEWREC+33, NEWREC+34, NEWREC+35, NEWREC+36
MSG EN+3~, MSH+8*, MSH+9, EVN+12, PID+9, FT1+11, SEND+5
MSGTYPE RECV+1~
NAME EN+3~, EN+8*, PID+6
NODE AGGR+2~, AGGR+10*, AGGR+11*, AGGR+12
NODE0 AGGR+2~, AGGR+14*, AGGR+15, AGGR+16, AGGR+17, AGGR+18, AGGR+19, AGGR+23, AGGR+24, AGGR+25
AGGR+26, AGGR+27
PARMS EN+3~, MSH+1~, MSH+9, 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+3~
SEG EN+3~, EVN+1, EVN+4, EVN+6, EVN+7, EVN+10, EVN+11, EVN+12, PID+1, PID+3
PID+5, PID+6, PID+9, FT1+1, FT1+2, FT1+3, FT1+4, FT1+5, FT1+6, FT1+7
FT1+8, FT1+9, FT1+10, FT1+11, RECV+1~, RECV+8, EVNI+1, EVNI+3, EVNI+4, EVNI+5
EVNI+6, PIDI+1, PIDI+2, PIDI+4, FT1I+2, FT1I+3, FT1I+5, FT1I+6, FT1I+7, FT1I+8
FT1I+9, FT1I+10, FT1I+11
SEG("SEGMENT TYPE" , RECV+8
SERR EN+3~, PID+4*
SERROR EN+3~, PID+4*
U EN+6, NEWREC+4, NEWREC+5, AGGR+12
VALUE EN+3~, EVN+1*, EVN+3*, EVN+4, EVN+6*, EVN+7*, EVN+10*, EVN+11*, PID+1*, PID+3*
PID+5*, PID+6*
WHOTO EN+3~, SEND+5
WHOTO("MIDDLE WARE LINK NAME" , SEND+3*
WHOTO("RECEIV ING APPLICATION" , SEND+1*
WHOTO("STATIO N NUMBER" , SEND+2*
X EN+3~, MSH+9*, EVN+12*, PID+9*, FT1+11*, NEWREC+2~, NEWREC+4*
XXX EN+3~, SEND+5*
Y NEWREC+2~, NEWREC+5
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