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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCF33

Package: Integrated Billing

Routine: IBCF33


Information

IBCF33 ;ALB/ARH - UB-04 CMS-1450 (GATHER CODES) ;25-AUG-1993

Source Information

Source file <IBCF33.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 7 $$INPAT^IBCEF  $$PRCD^IBCEF1  HOS^IBCEF22  CKREV^IBCEF3  $$TXMT^IBCEF4  $$DATE^IBCF2  $$GETMOD^IBEFUNC  

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 IBCF3  IBCF331  ^IBA(364.5  ^IBA(364.7  

Entry Points

Name Comments DBIA/ICR reference
RV ;rev codes sorted by bedsection - no longer used as of patch IB*2*51
TOTAL ;add total
CPT ;add additional procedures
OPV ;add outpatient visit dates
CONT ;D ^IBCF331 ;More free text - can no longer print on UB-04
END
SPACE ;checks to see if IBX can fit on page, if not starts new page
FILLPG ;fill rest of page with blank lines
SET1 ; add rev codes to array: rev cd ^ rev cd st abbrev. ^ CPT CODE ^ unit charge ^ units ^ total ^ non-cov charge ^ form locator 49 ^ rev code mult ien ^ cpt modifiers attached to revenue code/procedure (unlinked)^ outpt serv date
SET2 ;set free text into block 42 array
FILLUP ; Fill block 42 with blank lines
NEXTLN ;checks counter for next line, resets if necessary,
MOD(RCLN,IBIFN) ; return modifier(s) for a directly linked CPT charge or for an indirectly linked one
MODQ
DATE45(IBIFN,IBXDATA,IBDATE) ; What prints in the service date box of UB-04
; INPUT:
; IBIFN = ien of bill
; IBDATE = the default outpt service date
; OUTPUT:
; IBXDATA = the output formatter array with the service dates
; (pass by reference)

External References

Name Field # of Occurrence
$$INPAT^IBCEF DATE45+8
$$PRCD^IBCEF1 SET1+12
HOS^IBCEF22 IBCF33+12
CKREV^IBCEF3 DATE45+11
$$TXMT^IBCEF4 IBCF33+14
$$DATE^IBCF2 SET1+13, SET1+14
$$GETMOD^IBEFUNC MOD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] IBCF33+10, IBCF33+25, RV+1, RV+2, RV+3, RV+4, RV+8
^DGCR(399.1 - [#399.1] RV+5
^DGCR(399.2 - [#399.2] SET1+11
^TMP($J END*, SPACE+1, FILLPG+1, SET1+16*, SET2+3, SET2+4*, FILLUP+2, FILLUP+3*, NEXTLN+2*, DATE45+9

Label References

Name Line Occurrences
$$MOD IBCF33+26
END IBCF33+36
FILLPG END, SPACE+1
FILLUP FILLPG+1
NEXTLN SET1+7, SET2+2, FILLUP+1, NEXTLN+2
SET1 IBCF33+30, RV+5, RV+8
SET2 IBCF33+34, IBCF33+35
SPACE TOTAL+4

Naked Globals

Name Field # of Occurrence
^( RV+8, DATE45+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
IBARRAY END+1!
IBBS RV+1*, RV+2, RV+3, END+1!
IBBSN RV+1*, RV+5*, END+1!
IBCBILL IBCF33+9~
IBCOL IBCF33+9~, IBCF33+10*, END+1!, SET2+2*, SET2+4, FILLUP+1*, FILLUP+3
IBCPTN MOD+1~, MOD+3*
IBCU2 IBCF33+9~, IBCF33+10*
IBDA IBCF33+30*, RV+3*, RV+4, RV+8*, END+1!, SET1+13, SET1+14
IBDATE DATE45~, DATE45+10
IBFILL FILLPG+1*, FILLPG+2!, SET2+3*, FILLUP+2*
IBI IBCF33+9~, FILLPG+1~*
IBIFN IBCF33+10, IBCF33+12, IBCF33+14, IBCF33+25, IBCF33+26, RV+1, RV+2, RV+3, RV+4, RV+8
, MOD~, MOD+3, DATE45~
IBIN DATE45+7~, DATE45+8*, DATE45+10
IBINPAT IBCF33+9~
IBJ IBCF33+9~
IBLINES IBCF33+10*, END+1!, SPACE+1, SET1+16*, SET2+4*, FILLUP+3*, NEXTLN+2*
IBLN END+1!, SPACE+1~*, FILLPG+1~*, SET1+6~, SET1+16*, SET2+2~, SET2+3*, SET2+4, FILLUP+1~, FILLUP+2*
, FILLUP+3, NEXTLN+2*
IBLPG IBCF33+9~, IBCF33+20*
IBMOD IBCF33+25*, SET1+6~, SET1+10*, SET1+12, MOD+1~, MOD+2*, MOD+3*, MOD+4*, MODQ
IBN SET1+6~, SET1+9*, SET1+13, SET1+14
IBNOCHG IBCF33+15*, IBCF33+30*, RV+1*, RV+5*, RV+8*, END+1!
IBNOCOM IBCF33+10*, IBCF33+14*, END, END+1!, SET2+1
>> IBPG END*
IBR DATE45+7~, DATE45+9*, DATE45+10
IBRV RV+2*, RV+3, END+1!
IBSTATE IBCF33+9~
IBX IBCF33+9~, RV+4*, RV+5, TOTAL+4*, END*, SPACE+1, SET1+6~, SET1+11*, SET1+12
IBXDATA DATE45~
IBXDATA( IBCF33+21, IBCF33+25, IBCF33+26*, IBCF33+27, IBCF33+29, IBCF33+30, DATE45+11*
IBXDATA("" IBCF33+20
>> IBXIEN DATE45+8
>> IBXSAVE("PROS-UB-04" IBCF33+11!, IBCF33+20, IBCF33+32, IBCF33+35, END+1!
>> IBXSAVE("RX-UB-04" IBCF33+11!, IBCF33+20, IBCF33+32, IBCF33+34, END+1!
IBY IBCF33+9~, SPACE+1~*, SET1+6~, SET1+7*, SET1+12*, SET1+13*, SET1+14*, SET1+15*, SET1+16
IBZ IBCF33+9~, IBCF33+27*, IBCF33+29*, IBCF33+30, IBCF33+34*, IBCF33+35*, RV+5*, RV+8*, END+1!, FILLPG+1~*
, SET1+9, SET1+10, SET1+11, SET1+12, SET1+13, SET1+14, SET1+15, SET2+4, FILLUP+3
IBZ1 IBCF33+22~, IBCF33+25*, IBCF33+26
RCLN MOD~, MOD+3, MOD+4
U IBCF33+25, IBCF33+26, IBCF33+27, IBCF33+29, IBCF33+30, RV+5, RV+8, END, SET1+9, SET1+10
, SET1+12, SET1+13, SET1+14, SET1+15, SET1+16, SET2+4, FILLUP+3, MOD+3, MOD+4, DATE45+10
Z IBCF33+9~, IBCF33+15*, IBCF33+21*, IBCF33+25, IBCF33+26, IBCF33+27, IBCF33+29, IBCF33+30, IBCF33+33~, IBCF33+34*
, IBCF33+35*, DATE45+7~, DATE45+9*, DATE45+11
Z0 DATE45+7~, DATE45+10*, DATE45+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All