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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBTUBO1

Package: Integrated Billing

Routine: IBTUBO1


Information

IBTUBO1 ;ALB/AAS - UNBILLED AMOUNTS - GENERATE UNBILLED REPORTS ;29-SEP-94

Source Information

Source file <IBTUBO1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 4 $$INPT^IBAMTS1  $$ENCL^IBAMTS2  $$BICOST^IBCRCI  ($$CKBIL,CKENC,SCAN)^IBTUBOU  
CPT HCPCS Codes 1 ($$CODEC,$$CPT)^ICPTCOD  
Registration 1 $$PRIM^VASITE  
Scheduling 1 ($$EXOE,$$GETOE,GETCPT)^SDOE  
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: 1

Package Total Caller Graph
Integrated Billing 1 IBTUBOA  

Entry Points

Name Comments DBIA/ICR reference
OPT(IBOE,IBQUERY) ; - Has the outpatient encounter been billed?
; Input: IBOE=pointer to outpatient encounter in file #409.68
; (NOTE: this value may be null)
; IBQUERY (Passed by reference)=flag that is incremented when
; the Scheduling query API is invoked
; *Pre-set variables: DFN=patient IEN, IBDT=event date, IBRT=bill rate,
; IBEDT=End of reporting period date.
; IBX=ien of CLAIMS TRACKING entry file 356
OPTQ
PRERC ; - Determine if a pre-9/1/99 visit has been billed.
; Output: IBQUIT will be set to 1 if the visit has been billed.
; *Pre-set variables DFN,IBDAY,IBDET,IBNAME,IBNCF,IBQUIT,IBRT,IBEDT
; and IB/IBUNB arrays required.
; NO MRA Extract code needed for pre-RC processes
PRCQ
NOOE ; - If there is no encounter, look for add/edits or registrations.
; Output: IBQUIT will be set to 1 if the visit is non-billable.
; *Pre-set variable IBQUIT required.
NOOEQ
SETUB ; Set array elements for the detail report.
; Array element format:
; NON-MRA:
; ^TMP($J,"IBTUB",DIVISION,"OPT",NAME@@DFN,DATE,IBX)=bill status^claim type
; ^TMP($J,"IBTUB",DIVISION,"OPT",NAME@@DFN,DATE,IBX,CPT no)=inst rate^prof rate
; MRA:
; ^TMP($J,"IBTUB",DIVISION,"OPT_MRA",NAME@@DFN,DATE,IBX,CPT no)=1 if MRA req
SETUBQ

External References

Name Field # of Occurrence
$$GET1^DIQ PRERC+17
$$INPT^IBAMTS1 OPT+14
$$ENCL^IBAMTS2 OPT+15
$$BICOST^IBCRCI OPT+51, OPT+52, PRERC+30
$$CKBIL^IBTUBOU OPT+68, PRERC+16
CKENC^IBTUBOU NOOE+7
SCAN^IBTUBOU NOOE+10
$$CODEC^ICPTCOD SETUB+13
$$CPT^ICPTCOD OPT+45
$$EXOE^SDOE NOOE+6
$$GETOE^SDOE OPT+19
GETCPT^SDOE OPT+39
$$PRIM^VASITE OPT+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] OPT+65, OPT+78, PRERC+13
^DPT - [#2] OPT+16
^TMP($J OPT+21, PRERC+7, PRERC+8, SETUB+9*, SETUB+10*, SETUB+16*, SETUB+17*

Label References

Name Line Occurrences
NOOE OPT+24
NOOEQ NOOE+7
OPTQ OPT+9, OPT+14, OPT+15, OPT+21, OPT+24, OPT+29, OPT+30, OPT+39, OPT+60, OPT+94
PRCQ PRERC+9, PRERC+25
PRERC OPT+29
SETUB OPT+29, OPT+156
SETUBQ SETUB+11

Naked Globals

Name Field # of Occurrence
^( OPT+78

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN OPT+9, OPT+14, OPT+16, OPT+65, PRERC+8, PRERC+13, NOOE+6, NOOE+10, SETUB+9, SETUB+10
, SETUB+16, SETUB+17
>> IB(10 OPT+134*
>> IB(11 OPT+152*
>> IB(12 OPT+152*
>> IB(13 OPT+117*
>> IB(14 OPT+110*
>> IB(7 PRERC+36*
>> IB(8 PRERC+36*
>> IB(9 OPT+134*
IBCN OPT+10~, OPT+45*, OPT+48
>> IBCOMP OPT+73, PRERC+20
IBCPT OPT+10~, OPT+60, OPT+94, SETUB+12
IBCPT( OPT+51*, OPT+52*, OPT+55, OPT+56!, OPT+57!, OPT+85, OPT+87!, OPT+88!, OPT+89!, OPT+113
, OPT+121, OPT+125, OPT+126, OPT+131, OPT+132, OPT+134, OPT+139, OPT+143, OPT+144, OPT+149
, OPT+150, OPT+152, SETUB+12, SETUB+14, SETUB+15, SETUB+16
IBCPT("MRA" OPT+85*, OPT+106, OPT+115, SETUB+9, SETUB+10, SETUB+16, SETUB+17
IBCPTNM SETUB+8~, SETUB+13*, SETUB+16, SETUB+17
IBCPTSUM OPT+10~
IBCPTSUM( OPT+55*, OPT+87
IBCT OPT+10~, OPT+82*, OPT+84, OPT+85, OPT+88
IBCTF SETUB+8~, SETUB+14*, SETUB+15*, SETUB+16
IBDATA OPT+10~, OPT+68*, OPT+69, OPT+73, OPT+82, PRERC+16*, PRERC+20, NOOE+3~
IBDAY OPT+10~, OPT+16*, OPT+29, OPT+51, OPT+52, OPT+65, PRERC+8, PRERC+13, PRERC+30, SETUB+9
, SETUB+10, SETUB+16, SETUB+17
>> IBDET SETUB+11
IBDIV OPT+10~, OPT+19*, OPT+21, OPT+51, OPT+52, OPT+100*, OPT+108, OPT+123, OPT+125, OPT+129
, OPT+131, OPT+141, OPT+143, OPT+147, OPT+149, PRERC+6*, PRERC+7*, PRERC+8, PRERC+17*, PRERC+26*
, PRERC+31, PRERC+33, SETUB+9, SETUB+10, SETUB+16, SETUB+17
>> IBDT OPT+9, OPT+14, OPT+16, NOOE+6, NOOE+10
>> IBEDT OPT+73, PRERC+20
IBFL OPT+10~
>> IBINMRA SETUB+9, SETUB+10, SETUB+16, SETUB+17
IBMRA OPT+11~, OPT+106*, OPT+107, OPT+115*, OPT+122, OPT+140
IBMRA( OPT+69*, OPT+73, OPT+85
IBNAME OPT+10~, OPT+16*, PRERC+8, SETUB+9, SETUB+10, SETUB+16, SETUB+17
IBNCF OPT+11~, OPT+16*, OPT+70*, PRERC+16*, SETUB+9
IBOE OPT~, OPT+15, OPT+19, OPT+24, OPT+30, OPT+39
IBQUERY OPT~, NOOE+10
IBQUIT OPT+11~, OPT+16*, OPT+24, OPT+29, PRERC+7, PRERC+8*, PRERC+9, PRERC+13, PRERC+22*, PRERC+25
, NOOE+7
>> IBRT OPT+9, OPT+51, OPT+52, PRERC+30
>> IBSBD OPT+100
IBSC NOOE+3~
IBSDV NOOE+3~
IBTCHRG OPT+11~, OPT+83*, OPT+87
>> IBUNB( OPT+108*, OPT+123*, OPT+125*, OPT+129*, OPT+131*, OPT+141*, OPT+143*, OPT+147*, OPT+149*, PRERC+31*
, PRERC+33*
>> IBUNB("CPTMS" OPT+130*, OPT+148*
>> IBUNB("CPTMS-MRA" OPT+124*, OPT+142*
>> IBUNB("ENCNTRS" OPT+109*, PRERC+34*
>> IBUNB("UNBILOP" OPT+132*, OPT+150*, PRERC+32*
>> IBUNB("UNBILOP-MRA" OPT+126*, OPT+144*
>> IBX OPT+9, SETUB+9, SETUB+10, SETUB+16, SETUB+17
>> IBXTRACT OPT+110, OPT+117, OPT+134, OPT+152, PRERC+36
IBXX OPT+11~, OPT+42*, OPT+45, OPT+64*, OPT+65*, OPT+68, OPT+69, OPT+73, OPT+78, OPT+85
, PRERC+12~*, PRERC+13*, PRERC+16, PRERC+17, PRERC+30*, PRERC+31, PRERC+32, PRERC+36, NOOE+3~, NOOE+6*
, NOOE+7, SETUB+12*, SETUB+13, SETUB+14, SETUB+15, SETUB+16, SETUB+17
IBYD OPT+11~, OPT+78*, OPT+81, OPT+82, OPT+83
IBYY OPT+11~, OPT+39, OPT+77*, OPT+78*
IBYY( OPT+42, OPT+45
IBZ OPT+11~, OPT+45*, OPT+51, OPT+52, OPT+55, OPT+56, OPT+57, OPT+81*, OPT+84, OPT+85
, OPT+87, OPT+88, OPT+89, OPT+113*, OPT+115, OPT+121, OPT+125, OPT+126, OPT+131, OPT+132
, OPT+134, OPT+139, OPT+143, OPT+144, OPT+149, OPT+150, OPT+152
IBZERR NOOE+3~
U OPT+16, OPT+19, OPT+69, OPT+73, OPT+81, OPT+82, OPT+83, PRERC+20, SETUB+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All