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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBECECQ1

Package: Integrated Billing

Routine: IBECECQ1


Information

IBECECQ1 ;BSL/DVA-BILLING - SEND/RECEIVE QRY & DSR HL7 messages FOR PATIENT ACCUMULATOR INTERFACE ; 01 Jun 2022 7:17 AM

Source Information

Source file <IBECECQ1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 4 ($$DFN,$$ICN)^IBARXMU  (NEWREC,UPDATE)^IBECECU1  EN^IBECECU2  ($$CLSDT,CCINPT,EN,INPT)^IBECECX1  
Health Level Seven 3 ($$ADDSEG,$$NEWMSG,SET)^HLOAPI  $$SENDONE^HLOAPI1  ($$GET,$$MSGID,$$NEXTSEG,$$STARTMSG)^HLOPRS  
Kernel 1 ($$FMADD,$$FMTHL7,$$HL7TFM,$$NOW)^XLFDT  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Integrated Billing 4 IBAMTD  IBAUTL3  IBECEA33  IBEMTBC  
Health Level Seven 1 MESSAGE TYPE ACTIONS  

Entry Points

Name Comments DBIA/ICR reference
ADM ;Called from IB MEANS TEST BILLING protocol
EDTCLCK(DFN,IBADMIT) ;Called from Billing CLock Maintenance option
MTEQRY(DFN,IBADMIT) ;Query for Billing CLock Maintenance option
CCBILL(DFN,IBADMIT) ;OUTGOING QRY Called from CC Inpatient Bill
EN(DFN) ;OUTGOING QRY ENTRY POINT
; IBQIEN - Query Request Message IEN (#778) that initiated this response CALLED FROM CLADD^IBAUTL3
MSH ; Build MSH Segment
MSA ;Build MSA Segment (OPTIONAL)
QRD ;Build QRD segment
QRF ;Build QRF segment
SENDQRY ;
QRYIN ; receives incoming HL7 QRY^R02 and returns a DSR
QRDQI ; INCOMING QRD SEGMENT
QRFQI ; INCOMING QRF SEGMENT
DSRIN ;MAIN ENTRY POINT - incoming DSR message
MSA1 ;PULL 351 REFERENCE NUMBER
QRDDI
DSPDI
DSROUT(ICN,IBIEN,IBADMIT) ;MAIN ENTRY POINT - Outgoing DSR message
; IBIEN - Query Request Message IEN (#778) that initiated this response
; ------ Sample message ----
MSHO
MSAO
QRDO
DSPO
SENDDSR ;
ERR1(IBERRMSG) ;HANDLE ERROR RESPONSES
UDCL ;Update original billing clock so nightly querys are not sent for patients without TFL's

External References

Name Field # of Occurrence
$$GET1^DIQ EDTCLCK+7, EDTCLCK+8, EDTCLCK+9, QRD+8, DSPDI+34, DSPDI+35, DSPDI+36, QRDO+8, UDCL+8
$$ADDSEG^HLOAPI MSA+4, QRD+14, QRF+5, MSAO+4, QRDO+14, DSPO+20
$$NEWMSG^HLOAPI MSH+8, MSHO+9
SET^HLOAPI MSA+1, MSA+2, QRD+1, QRD+3, QRD+4, QRD+5, QRD+7, QRD+9, QRD+10, QRD+11
, QRD+12, QRD+13, QRF+1, QRF+2, QRF+3, QRF+4, MSAO+1, MSAO+2, MSAO+3, QRDO+1
, QRDO+3, QRDO+4, QRDO+5, QRDO+6, QRDO+7, QRDO+9, QRDO+10, QRDO+11, QRDO+12, QRDO+13
, DSPO+1, DSPO+2, DSPO+3, DSPO+4, DSPO+5, DSPO+6, DSPO+7, DSPO+8, DSPO+9, DSPO+10
, DSPO+17, DSPO+18, DSPO+19
$$SENDONE^HLOAPI1 SENDQRY+5, SENDDSR+5
$$GET^HLOPRS QRDQI+1, QRDQI+2, QRDQI+3, QRFQI+1, DSRIN+9, MSA1+2, QRDDI+2, QRDDI+3, QRDDI+5, QRDDI+6
, DSPDI+3, DSPDI+5, DSPDI+6, DSPDI+7, DSPDI+9, DSPDI+10, DSPDI+11, DSPDI+12, DSPDI+13, DSPDI+14
, DSPDI+18, DSPDI+19, DSPDI+21, DSPDI+22, DSPDI+23, DSPDI+24, DSPDI+25, DSPDI+28, DSPDI+29, DSPDI+30
, DSPDI+31
$$MSGID^HLOPRS DSROUT+11
$$NEXTSEG^HLOPRS QRYIN+8, DSRIN+5, UDCL+3
$$STARTMSG^HLOPRS QRYIN+2, DSRIN+4, UDCL+2
$$DFN^IBARXMU QRDDI+4, DSROUT+9, UDCL+6
$$ICN^IBARXMU EDTCLCK+2, MTEQRY+2, CCBILL+10, EN+10
NEWREC^IBECECU1 DSPDI+41
UPDATE^IBECECU1 DSPDI+40
EN^IBECECU2 DSPDI+42
$$CLSDT^IBECECX1 EDTCLCK+8, MTEQRY+4
CCINPT^IBECECX1 CCBILL+9
EN^IBECECX1 DSROUT+13
INPT^IBECECX1 EN+9, DSROUT+13
$$FMADD^XLFDT EDTCLCK+5, DSPDI+43, DSPDI+46
$$FMTHL7^XLFDT MTEQRY+5, MTEQRY+6, QRD+2, DSPDI+44, DSPDI+46, DSPDI+47, QRDO+2, DSPO+4, DSPO+10
$$HL7TFM^XLFDT QRFQI+2, DSPDI+8, DSPDI+15, DSPDI+20
$$NOW^XLFDT EDTCLCK+5, QRD+2, QRDO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Running Billing Clock Query, please wait."
  • Line Location: EDTCLCK+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: EDTCLCK+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IBE(351 - [#351] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(351 - [#351] EDTCLCK+6, EDTCLCK+9, DSPDI+33, DSPDI+45, UDCL+7, UDCL+8, UDCL+10*
^TMP("DSR" MSH+1!, MSHO+1!

Label References

Name Line Occurrences
DSPDI DSRIN+8
DSROUT QRYIN+12
EN ADM+2
ERR1 DSRIN+9, DSPDI+4
MSA1 DSRIN+6
MSH MTEQRY+10, CCBILL+13, EN+13, DSPDI+49
MTEQRY EDTCLCK+3
QRD MTEQRY+10, CCBILL+13, EN+13, DSPDI+49
QRDDI DSRIN+7
QRDQI QRYIN+9, UDCL+4
QRF MTEQRY+10, CCBILL+13, EN+13, DSPDI+49
QRFQI QRYIN+10
SENDQRY MTEQRY+10, CCBILL+13, EN+13, DSPDI+49
UDCL DSPDI+32, ERR1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %P1 QRD+2*, QRD+3, QRDO+2*, QRDO+3
DFN ADM+2, EDTCLCK~, EDTCLCK+2, EDTCLCK+3, EDTCLCK+6, MTEQRY~, MTEQRY+2, CCBILL~, CCBILL+9, CCBILL+10
, EN~, EN+9, EN+10, QRD+8, DSRIN+2~, QRDDI+4*, DSPDI+33, DSPDI+42, DSPDI+45, DSROUT+9*
, DSROUT+10, DSROUT+13, QRDO+8
>> DGPMA ADM+1
DT EDTCLCK+8, DSPDI+47, DSPO+4
>> ERR QRYIN+2*
ERROR CCBILL+2~, EN+2~, MSH+8, MSA+4, QRD+14, QRF+5, SENDQRY+5, DSPDI+48!, DSROUT+7~, MSHO+9
, MSAO+4, QRDO+14, DSPO+20, SENDDSR+5
FIELD CCBILL+2~, EN+2~, MSA+1*, MSA+2*, QRD+1*, QRD+3*, QRD+4*, QRD+5*, QRD+7*, QRD+9*
, QRD+10*, QRD+11*, QRD+12*, QRD+13*, QRF+1*, QRF+2*, QRF+3*, QRF+4*, DSROUT+7~
HDR DSRIN+2~, DSRIN+4
>> HLERR QRYIN+4*
>> HLMSGIEN QRYIN+2, QRYIN+3, DSRIN+4
>> IB778 MSA1+2*, UDCL+2
IB901 DSPDI+1~, DSROUT+8~, DSPO+5
IB9011 DSPDI+1~, DSPDI+21*, DSROUT+8~
IB902 DSPDI+1~, DSROUT+8~, DSPO+6
IB9021 DSPDI+1~, DSPDI+22*, DSROUT+8~
IB903 DSPDI+1~, DSROUT+8~, DSPO+7
IB9031 DSPDI+1~, DSPDI+23*, DSROUT+8~
IB904 DSPDI+1~, DSROUT+8~, DSPO+8
IB9041 DSPDI+1~, DSPDI+24*, DSROUT+8~
IBACBCLK CCBILL+2~, EN+2~
IBACTC DSPDI+1~, DSROUT+8~
IBADM CCBILL+2~, EN+2~
IBADMIT EDTCLCK~, EDTCLCK+3, EDTCLCK+6, EDTCLCK+9, MTEQRY~, MTEQRY+4, MTEQRY+6*, MTEQRY+7, CCBILL~, CCBILL+9
, EN+2~, QRF+3, QRDDI+5*, DSPDI+43*, DSPDI+45, DSPDI+46*, DSROUT~
IBAGG DSRIN+2~, DSRIN+3*
IBC0 CCBILL+2~, EN+2~
IBCBDT DSPDI+2~, DSPDI+33, DSPDI+34*, DSPDI+40
IBCKNUM DSPDI+1~, DSPDI+29*, DSROUT+8~, DSPO+18
>> IBCLDA MSA1+1*
IBCLDAY DSROUT+8~, DSPO+9
IBCLDAY1 DSPDI+1~, DSPDI+25*, DSROUT+8~
IBCLDT DSPDI+1~, DSROUT+8~, DSPO+4*
IBCLDT1 DSPDI+1~, DSPDI+19*, DSPDI+20*, DSROUT+8~
IBCLK UDCL+1~
IBCLNDT QRYIN+13!, DSPO+10*
IBCLNDT1 DSROUT+8~
IBCNDT DSPDI+2~
IBCNT DSPDI+2~, DSPDI+5*, DSPDI+40, DSPDI+41, DSPDI+42, DSPDI+44
IBCRTST DSPDI+2~, DSPDI+36*, DSPDI+38
IBDA DSPDI+2~, DSPDI+33*, DSPDI+34, DSPDI+35, DSPDI+36, DSPDI+37, UDCL+1~, UDCL+7*, UDCL+8*, UDCL+9
, UDCL+10
IBDA1 DSPDI+2~, DSPDI+37*, DSPDI+40
IBDFN UDCL+1~, UDCL+6*, UDCL+7, UDCL+8
IBDISC CCBILL+2~, EN+2~
IBDISCH MTEQRY+1~, MTEQRY+4*, MTEQRY+5*, MTEQRY+8, CCBILL+2~, EN+2~, QRF+4, QRDDI+6*, DSPDI+44, DSPDI+46*
, DSPDI+47*
IBECADM QRYIN+1~, QRYIN+12, QRFQI+1*, QRFQI+2*
>> IBECDA EDTCLCK+9*
IBECDAT UDCL+1~, UDCL+8*
IBECDT EDTCLCK+1~
>> IBECDT1 EDTCLCK+6*
IBECENDT EDTCLCK+1~, EDTCLCK+8*, EDTCLCK+9
IBECIEN EDTCLCK+1~, EDTCLCK+6*, EDTCLCK+7, EDTCLCK+8, EDTCLCK+9
IBECLDT EDTCLCK+1~, EDTCLCK+7*, EDTCLCK+8
IBECSTDT EDTCLCK+1~, EDTCLCK+8*
>> IBERR DSRIN+3*
IBERRMSG DSPDI+2~, DSPDI+3*, DSPDI+4, ERR1~, ERR1+3
>> IBFLAG1 EDTCLCK+5*, EDTCLCK+9*
IBHDR QRYIN+2, UDCL+1~, UDCL+2
IBHDR("MESSAG E TYPE" , QRYIN+5
>> IBI901 DSPDI+9*
>> IBI902 DSPDI+10*
>> IBI903 DSPDI+11*
>> IBI904 DSPDI+12*
IBICKDT DSPDI+1~, DSPDI+16*
IBICLDAY DSPDI+1~, DSPDI+13*
IBICLDT DSPDI+1~, DSPDI+7*, DSPDI+8*, DSPDI+33, DSPDI+39, DSPDI+40, DSPDI+42
IBICLNDT DSPDI+2~, DSPDI+14*, DSPDI+15*, DSPDI+16, DSPDI+43, DSPDI+44, DSPDI+46
IBICN MTEQRY+1~, MTEQRY+2*, MTEQRY+3, CCBILL+2~, CCBILL+10*, CCBILL+11, EN+2~, EN+10*, EN+11, QRD+11
, QRDDI+3*, QRDDI+4
IBICNUM DSPDI+1~, DSPDI+30*, DSROUT+8~, DSPO+19
IBIEN CCBILL+2~, EN+2~, QRYIN+3*, QRYIN+12, DSROUT~, DSROUT+11
>> IBISETID DSPDI+6*
>> IBISITE DSPDI+31*
>> IBISTAT DSPDI+28*, DSPDI+32
IBMSG QRYIN+2, QRYIN+8, DSRIN+2~, DSRIN+4, DSRIN+5, UDCL+1~, UDCL+2, UDCL+3
IBMSG("HDR" MSA1+1
IBNOW EDTCLCK+1~, EDTCLCK+5*, EDTCLCK+9
IBOADMIN CCBILL+2~, EN+2~, DSPDI+2~
>> IBOADMIT MTEQRY+7*, QRD+12, DSPDI+46*
IBODISCH MTEQRY+8*, CCBILL+2~, EN+2~, QRD+13, DSPDI+2~, DSPDI+47*
IBQIEN CCBILL+2~, EN+2~
IBQRY DSPDI+2~, DSPDI+45*
>> IBQRYDT QRDDI+2*
IBQRYS DSPDI+2~, DSPDI+35*, DSPDI+38
IBSADMIT QRYIN+1~, QRDQI+2*, QRDO+12
IBSDISCH QRYIN+1~, QRDQI+3*, QRDO+13
IBSEGT QRYIN+8*, QRYIN+9, QRYIN+10, DSRIN+5*, DSRIN+6, DSRIN+7, DSRIN+8, DSRIN+9, UDCL+1~, UDCL+3*
, UDCL+4
IBSETID DSPDI+1~, DSROUT+8~
IBSETID1 DSPDI+1~, DSPDI+18*, DSROUT+8~
IBSTAT QRYIN+2*, QRYIN+4, DSPO+17, UDCL+1~, UDCL+2*
IBTRYTIL EDTCLCK+1~, EDTCLCK+5*
ICN QRYIN+1~, QRYIN+11, QRYIN+12, QRDQI+1*, DSROUT~, DSROUT+9, QRDO+11, UDCL+5, UDCL+6
MSG CCBILL+2~, EN+2~, MSH+7*, MSH+8, MSA+4, QRD+14, QRF+5, SENDQRY+5, DSROUT+7~, MSHO+8*
, MSHO+9, MSAO+4, QRDO+14, DSPO+20, SENDDSR+5
NAME CCBILL+2~, EN+2~, QRD+8*, QRD+9, QRD+10, DSROUT+7~, QRDO+8*, QRDO+9, QRDO+10
PARMS CCBILL+2~, EN+2~, MSH+1~, MSH+8, SENDQRY+5, DSROUT+7~, MSHO+1~, MSHO+9, SENDDSR+5
PARMS("COUNTRY" MSH+2*, MSHO+2*
PARMS("EVENT" MSH+4*, MSHO+4*
PARMS("MESSAG E STRUCTURE" , MSH+6*, MSHO+7*, E TYPE" , MSH+3*, MSHO+3*
PARMS("SENDIN G APPLICATION" , SENDQRY+1*, MSHO+5*, SENDDSR+1*
PARMS("VERSION" MSH+5*, MSHO+6*
QRYNUM CCBILL+2~, EN+2~, DSROUT+7~, DSROUT+11*, MSAO+3, QRDO+6
SEG CCBILL+2~, EN+2~, MSA+1, MSA+2, MSA+4, QRD+1, QRD+3, QRD+4, QRD+5, QRD+7
, QRD+9, QRD+10, QRD+11, QRD+12, QRD+13, QRD+14, QRF+1, QRF+2, QRF+3, QRF+4
, QRF+5, QRYIN+8, QRDQI+1, QRDQI+2, QRDQI+3, QRFQI+1, DSRIN+2~, DSRIN+5, DSRIN+9, MSA1+2
, QRDDI+2, QRDDI+3, QRDDI+5, QRDDI+6, DSPDI+3, DSPDI+5, DSPDI+6, DSPDI+7, DSPDI+9, DSPDI+10
, DSPDI+11, DSPDI+12, DSPDI+13, DSPDI+14, DSPDI+18, DSPDI+19, DSPDI+21, DSPDI+22, DSPDI+23, DSPDI+24
, DSPDI+25, DSPDI+28, DSPDI+29, DSPDI+30, DSPDI+31, DSPDI+48!, DSROUT+7~, MSAO+1, MSAO+2, MSAO+3
, MSAO+4, QRDO+1, QRDO+3, QRDO+4, QRDO+5, QRDO+6, QRDO+7, QRDO+9, QRDO+10, QRDO+11
, QRDO+12, QRDO+13, QRDO+14, DSPO+1, DSPO+2, DSPO+3, DSPO+4, DSPO+5, DSPO+6, DSPO+7
, DSPO+8, DSPO+9, DSPO+10, DSPO+17, DSPO+18, DSPO+19, DSPO+20, UDCL+1~, UDCL+3
SEG("SEGMENT TYPE" , QRYIN+8, DSRIN+5, UDCL+3
SERR MTEQRY+3*, MTEQRY+9*, CCBILL+2~, CCBILL+11*, CCBILL+12*, EN+2~, EN+11*, EN+12*, DSROUT+7~, DSROUT+10*
, DSROUT+12*
SERROR MTEQRY+3*, CCBILL+2~, CCBILL+11*, EN+2~, EN+11*, DSROUT+7~, DSROUT+10*
U EDTCLCK+9, DSPDI+45
VALUE CCBILL+2~, EN+2~, MSA+1*, MSA+2*, QRD+1*, QRD+3*, QRD+4*, QRD+5*, QRD+7*, QRD+9*
, QRD+10*, QRD+11*, QRD+12*, QRD+13*, QRF+1*, QRF+2*, QRF+3*, QRF+4*, DSROUT+7~
WHOTO CCBILL+2~, EN+2~, SENDQRY+5, DSROUT+7~, SENDDSR+5
WHOTO("MIDDLE WARE LINK NAME" , SENDQRY+4*, SENDDSR+4*
WHOTO("RECEIV ING APPLICATION" , SENDQRY+2*, SENDDSR+2*
WHOTO("STATIO N NUMBER" , SENDQRY+3*, SENDDSR+3*
X CCBILL+2~, EN+2~, MSH+8*, MSA+4*, QRD+14*, QRF+5*, MSHO+9*, MSAO+4*, QRDO+14*, DSPO+20*
XXX CCBILL+2~, EN+2~, SENDQRY+5*, DSRIN+2~, DSRIN+4*, DSROUT+7~, SENDDSR+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All