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

Package: Integrated Billing

Routine: IBCEU3


Information

IBCEU3 ;ALB/TMP - EDI UTILITIES FOR 1500 CLAIM FORM ;12/29/05 9:58am

Source Information

Source file <IBCEU3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 8 ($$COBCT,$$FT,F)^IBCEF  B24^IBCEF3  ($$CFIDS,$$DOL)^IBCEF77  ($$SPEC,GETPRV)^IBCEU  $$MCRSPEC^IBCEU4  $$DATE^IBCF2  $$FO^IBCNEUT1  ($$MCRONBIL,$$MODLST)^IBEFUNC  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 12 IBCBB2  IBCBB9  IBCEF74  IBCEF80  IBCEFP  IBCIADD1  IBCINPT  IBCIUT1  
IBXSAH  IBXSC8H3  ^IBA(364.5  ^IBA(364.7  

Entry Points

Name Comments DBIA/ICR reference
BOX19(IBIFN) ; New Box 19 added for patch 488. This is for workman's comp?
; This returns the Paperwork Attachment
; Information in the following format:
; PWKNNFX12348907CHEY<3 Spaces>Next set if more than one on claim
; PWK is the qualifier for data, followed by the appropriate Report Type
FORMAT(DATA) ; format data for ouput
OBOX19(IBIFN) ; THIS IS NOLONGER USED. IT WAS REPLACE WITH ABOVE.
; Returns the text that should print in box 19 of the CMS-1500
; for bill ien IBIFN
; Data is derived from a combo of data throughout
; the system and is limited to 80 characters. The hierarchy for
; including data is as follows (until 80 characters have been used):
; DATE LAST SEEN and REFERRING PHYSICIAN ID# (physical therapy)
; specialty codes = 025,065,073,067,048
; LAST X-RAY DATE (chiropractic) specialty code = 35
; HOMEBOUND INDICATOR (independent lab renders an EKG or obtains
; a specimen from a homebound patient)
; NO ASSIGNMENT OF BENEFITS (if no assignment of benefits indicated)
; Hearing aid testing (if applicable)
; ATTENDING PHYSICIAN NOT HOSPICE EMPLOYEE (if applicable)
; SPECIAL PROGRAM indicator if Medicare demonstration project for
; lung volume reduction surgery study is set
; COMMENTS FOUND IN BOX 19 DATA FIELD FOR THE CLAIM
; REMARKS FOUND IN BILL COMMENT FOR THE CLAIM, INCLUDING PROSTHETICS
; DETAIL
NPRT
BOX19Q
LENOK(IBDATA,IB19) ; Add text IBDATA to box 19 string (IB19 passed by ref)
; Check length of box 19 data - truncate at 71 (max length)
; Returns 0 if max length reached or exceeded, otherwise, 1
; Changed 96 to 71 for new 1500 form
LENOKQ
ASK19(IBIFN) ; Ask to display CMS-1500 box 19 data for current IBIFN
; changed to 71 length.
ONLAB(IBIFN) ; Functions returns 1 if the bill IBIFN is outside non-lab
TEXT24(FLD,IBXSAVE,IBXDATA,IBSUB) ; Format the text line of box 24 by fld
; INPUT:
; FLD = the letter of the field in box 24 (A-J)
; IBXSAVE = passed by reference = extracted data for the box 24 lines
; IBSUB = the subscript of the IBXSAVE array to use.
; If null, use "BOX24"
; OUTPUT:
; IBXDATA = passed by reference, set to the correct part of the
; text that will print in the field's positions
LINSPEC(IBIFN) ; Checks the specialities of line and claim level providers
; called from IBCBB2 to check for Chiro codes & IBCBB9 to check for 99's on Medicare
; Default = 99 if no valid SPEC code found for line and claim level provider
; Get rendering for professional, attending for institutional
; If multiple lines w/ rendering or attending, returns a string of spec codes
BILLSPEC(IBIFN,IBPRV) ; Returns the specialty of the provider on bill IBIFN
; If IBPRV is supplied, returns the data for that provider, otherwise,
; returns the specialty of the 'main/required' provider on the bill.
; Default = 99 if no valid code found
; IBPRV = vp of provider (file 200 or 355.93)
SPECQ
CHAMPVA(IBIFN) ; Returns 1 if the bill IBIFN has a CHAMPVA rate type
FAC(IBIFN) ; Obsolete function. Used by old output formatter field and data element N-RENDERING INSTITUTION
MCR24K(IBIFN,IBPRV) ;Function returns MEDICARE id# for professional (CMS-1500) box 24k for bill IBIFN if appropriate

External References

Name Field # of Occurrence
$$GET1^DIQ BOX19+14, OBOX19+63
^DIR ASK19+4, ASK19+8
$$COBCT^IBCEF OBOX19+53
$$FT^IBCEF BOX19+14, LINSPEC+8, LINSPEC+22, BILLSPEC+13, MCR24K+4
F^IBCEF OBOX19+33, OBOX19+36, OBOX19+39, OBOX19+42, OBOX19+59, NPRT, NPRT+3
B24^IBCEF3 OBOX19+45
$$CFIDS^IBCEF77 TEXT24+18
$$DOL^IBCEF77 TEXT24+66
$$SPEC^IBCEU LINSPEC+13, BILLSPEC+10, BILLSPEC+17
GETPRV^IBCEU LINSPEC+9, BILLSPEC+14
$$MCRSPEC^IBCEU4 MCR24K+4
$$DATE^IBCF2 OBOX19+29, OBOX19+34
$$FO^IBCNEUT1 TEXT24+46, TEXT24+47, TEXT24+48, TEXT24+49, TEXT24+50
$$MCRONBIL^IBEFUNC MCR24K+4
$$MODLST^IBEFUNC TEXT24+45
$$SITE^VASITE MCR24K+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,"19",?45,$E(Z,1,23)
  • Line Location: ASK19+7
Function Call: WRITE
  • Prompt: !,?4,$E(Z,24,71),!
  • Condition for execution: $L(Z)>23
  • Line Location: ASK19+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK19+8
Routine Call
  • DIR
  • Line Location:
    • ASK19+4
    • ASK19+8

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] BOX19+17, BOX19+19, BOX19+22, BOX19+23, BOX19+27, OBOX19+29, ONLAB+3, LINSPEC+7, LINSPEC+14, LINSPEC+15
, LINSPEC+17, LINSPEC+18, LINSPEC+19, BILLSPEC+7, BILLSPEC+18, BILLSPEC+19, CHAMPVA+1
^DGCR(399.3 - [#399.3] CHAMPVA+1
^IBE(353.3 - [#353.3] FORMAT+3
^TMP("IBTX" OBOX19+22

Label References

Name Line Occurrences
$$BILLSPEC OBOX19+26
$$BOX19 ASK19+7
$$FORMAT BOX19+24, BOX19+28
$$LENOK OBOX19+29, OBOX19+34, OBOX19+40, OBOX19+43, OBOX19+50, OBOX19+54, OBOX19+57, OBOX19+60, OBOX19+64, NPRT+2
, NPRT+4
BOX19Q OBOX19+30, OBOX19+38, OBOX19+40, OBOX19+43, OBOX19+49, OBOX19+58, OBOX19+60, OBOX19+66, NPRT+2, NPRT+4
LENOKQ LENOK+7
NPRT OBOX19+27
SPECQ BILLSPEC+9

Naked Globals

Name Field # of Occurrence
^(0 BILLSPEC+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ART FORMAT+1~, FORMAT+2*, FORMAT+3*, FORMAT+4
DATA BOX19+11~, BOX19+23*, BOX19+24, BOX19+26*, BOX19+27*, BOX19+28, BOX19+31*, BOX19+32, FORMAT~, FORMAT+2
, FORMAT+4
DEL BOX19+11~, BOX19+15*, BOX19+24, BOX19+28, BOX19+31, BOX19+32
DIC ASK19+2~
DIE ASK19+2~
DIR ASK19+2~, ASK19+8!
DIR("A" ASK19+3*, ASK19+8*
DIR("B" ASK19+3*, ASK19+5!
DIR(0 ASK19+3*, ASK19+8*
DR ASK19+2~
FLD TEXT24~, TEXT24+16, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+53, TEXT24+64, TEXT24+70
, TEXT24+77, TEXT24+81, TEXT24+85
I BOX19+11~, BOX19+31*, TEXT24+58*, TEXT24+59, TEXT24+60, TEXT24+61, TEXT24+62
IB19 BOX19+11~, BOX19+15*, BOX19+24*, BOX19+28*, BOX19+30, BOX19+32*, BOX19+33*, BOX19+35, OBOX19+20~, OBOX19+21*
, OBOX19+29, OBOX19+34, OBOX19+40, OBOX19+43, OBOX19+50, OBOX19+54, OBOX19+57, OBOX19+60, OBOX19+64, NPRT+2
, NPRT+4, BOX19Q, LENOK~, LENOK+6*, LENOK+7*
>> IBAC TEXT24+32
IBAUX TEXT24+12~, TEXT24+26*, TEXT24+28, TEXT24+78
IBBX19 BOX19+11~, BOX19+19*, BOX19+30, BOX19+31, BOX19+33
IBCP LINSPEC+5~, LINSPEC+17*, LINSPEC+18, LINSPEC+19
IBDAT TEXT24+12~, TEXT24+25*, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+45, TEXT24+57, TEXT24+64
, TEXT24+70
IBDATA LENOK~, LENOK+6
IBDT LINSPEC+5~, LINSPEC+7*, LINSPEC+13, BILLSPEC+5~, BILLSPEC+7*, BILLSPEC+10, BILLSPEC+17
IBE TEXT24+12~, TEXT24+34*, TEXT24+38*, TEXT24+42*, TEXT24+43*, TEXT24+44*, TEXT24+63*, TEXT24+64*, TEXT24+70*, TEXT24+78*
, TEXT24+82*, TEXT24+86*, TEXT24+91
IBGO OBOX19+20~, OBOX19+21*, OBOX19+29*, OBOX19+30, OBOX19+34*, OBOX19+38, OBOX19+49, OBOX19+50*, OBOX19+52, OBOX19+54*
, OBOX19+56, OBOX19+57*, OBOX19+58, OBOX19+64*, OBOX19+66
IBHAID OBOX19+20~, OBOX19+47*, OBOX19+53, OBOX19+54*
IBHOSP OBOX19+20~, OBOX19+47*, OBOX19+57*
IBID OBOX19+20~, OBOX19+34*, OBOX19+36*
IBIFN BOX19~, BOX19+14, BOX19+17, BOX19+19, BOX19+22, BOX19+23, BOX19+27, OBOX19~, OBOX19+22, OBOX19+26
, OBOX19+29, OBOX19+33, OBOX19+36, OBOX19+39, OBOX19+42, OBOX19+45, OBOX19+53, OBOX19+59, OBOX19+63, NPRT
, NPRT+3, ASK19~, ASK19+7, ONLAB~, ONLAB+3, LINSPEC~, LINSPEC+7, LINSPEC+8, LINSPEC+9, LINSPEC+14
, LINSPEC+15, LINSPEC+17, LINSPEC+18, LINSPEC+19, LINSPEC+22, BILLSPEC~, BILLSPEC+7, BILLSPEC+13, BILLSPEC+14, BILLSPEC+18
, BILLSPEC+19, CHAMPVA~, CHAMPVA+1, FAC~, MCR24K~, MCR24K+4
IBINS LINSPEC+5~, LINSPEC+8*, LINSPEC+10, BILLSPEC+5~, BILLSPEC+13*, BILLSPEC+15
IBLINE TEXT24+12~, TEXT24+14*, TEXT24+90*, TEXT24+91, TEXT24+92*, TEXT24+93
IBLSDT OBOX19+20~, OBOX19+34*
>> IBNOSHOW OBOX19+45, TEXT24+32
IBP ONLAB+1~, ONLAB+2*, ONLAB+4*, ONLAB+5
IBPRT OBOX19+20~, OBOX19+24*, OBOX19+27
IBPRV LINSPEC+9, BILLSPEC~, BILLSPEC+6*, BILLSPEC+9, BILLSPEC+10, BILLSPEC+14, MCR24K~, MCR24K+4
IBPRV( LINSPEC+12, LINSPEC+13, BILLSPEC+16, BILLSPEC+17
IBPUR ONLAB+1~, ONLAB+3*, ONLAB+4
IBREM OBOX19+20~, NPRT+1*, NPRT+2*, NPRT+4
IBREN TEXT24+12~, TEXT24+18*, TEXT24+19, TEXT24+20, TEXT24+21
IBRENNPI TEXT24+12~, TEXT24+21*, TEXT24+87
IBRENQ TEXT24+12~, TEXT24+19*, TEXT24+83
IBRENSID TEXT24+12~, TEXT24+20*, TEXT24+86
IBRTP BOX19+11~, BOX19+17*, BOX19+21
IBS TEXT24+12~, TEXT24+34*, TEXT24+38*, TEXT24+42*, TEXT24+43*, TEXT24+44*, TEXT24+63*, TEXT24+64*, TEXT24+70*, TEXT24+78*
, TEXT24+82*, TEXT24+86*, TEXT24+91
IBSPC LINSPEC+5~, LINSPEC+6*, LINSPEC+13*, LINSPEC+15*, LINSPEC+19*, LINSPEC+22*, LINSPEC+23
IBSPEC OBOX19+20~, OBOX19+26*, OBOX19+32, LINSPEC+5~, LINSPEC+13*, LINSPEC+15*, LINSPEC+19*, BILLSPEC+5~, BILLSPEC+6*, BILLSPEC+10*
, BILLSPEC+17*, BILLSPEC+19*, SPECQ*, SPECQ+1
IBSPI OBOX19+20~, OBOX19+63*, OBOX19+64
IBSUB OBOX19+20~, OBOX19+22*, OBOX19+23, OBOX19+24, OBOX19+45, OBOX19+49, OBOX19+50, OBOX19+53, OBOX19+57, TEXT24~
, TEXT24+14*, TEXT24+24, TEXT24+25, TEXT24+26, TEXT24+27, TEXT24+32
IBTEXT TEXT24+12~, TEXT24+27*, TEXT24+30*, TEXT24+32*, TEXT24+78*, TEXT24+83*, TEXT24+86*, TEXT24+91
IBVAL TEXT24+12~, TEXT24+34*, TEXT24+35*, TEXT24+38*, TEXT24+39*, TEXT24+42*, TEXT24+43*, TEXT24+44*, TEXT24+46*, TEXT24+47*
, TEXT24+48*, TEXT24+49*, TEXT24+50*, TEXT24+57*, TEXT24+58, TEXT24+63*, TEXT24+64*, TEXT24+66*, TEXT24+67*, TEXT24+70*
, TEXT24+72*, TEXT24+78*, TEXT24+79*, TEXT24+82*, TEXT24+87*, TEXT24+93
IBXDATA OBOX19+20~, OBOX19+33!, OBOX19+34, OBOX19+36, OBOX19+39!, OBOX19+40, OBOX19+42!, OBOX19+43, OBOX19+59!, OBOX19+60
, NPRT!, NPRT+2, NPRT+3!, NPRT+4, TEXT24~, TEXT24+13!
IBXDATA( TEXT24+91*, TEXT24+93*
>> IBXIEN TEXT24+17, TEXT24+18
IBXRAY OBOX19+20~, OBOX19+47*
IBXSAVE OBOX19+23~, OBOX19+45, TEXT24~
IBXSAVE( OBOX19+23, OBOX19+45, OBOX19+49, OBOX19+50, OBOX19+53, OBOX19+57, TEXT24+24, TEXT24+25, TEXT24+26, TEXT24+27
, TEXT24+32
IBZ TEXT24+12~, TEXT24+28*, TEXT24+29*, TEXT24+30
IN TEXT24+54~, TEXT24+55*, TEXT24+59
LET TEXT24+54~, TEXT24+59*, TEXT24+60*, TEXT24+61*, TEXT24+62*, TEXT24+63
LN BOX19+11~, BOX19+15*, BOX19+22*, BOX19+23
M TEXT24+45~*, TEXT24+47, TEXT24+48, TEXT24+49, TEXT24+50
NUM TEXT24+54~, TEXT24+58*, TEXT24+59, TEXT24+60, TEXT24+61, TEXT24+62
OK LENOK+4~, LENOK+5*, LENOK+7*, LENOKQ
OUT FORMAT+1~, FORMAT+4*, FORMAT+5, TEXT24+54~, TEXT24+56*, TEXT24+59
U BOX19+17, BOX19+19, BOX19+24, FORMAT+2, FORMAT+3, FORMAT+4, OBOX19+29, OBOX19+32, OBOX19+50, OBOX19+53
, OBOX19+57, ONLAB+3, TEXT24+19, TEXT24+20, TEXT24+21, TEXT24+28, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43
, TEXT24+44, TEXT24+45, TEXT24+57, TEXT24+64, TEXT24+70, TEXT24+78, LINSPEC+7, LINSPEC+13, LINSPEC+15, LINSPEC+19
, BILLSPEC+7, BILLSPEC+17, BILLSPEC+19, CHAMPVA+1, MCR24K+4
U8 BOX19+11~
X ASK19+2~
Y ASK19+2~, ASK19+6
Z OBOX19+20~, OBOX19+49*, OBOX19+50, OBOX19+53, OBOX19+57, ASK19+2~, ASK19+7*, TEXT24+12~, TEXT24+14*, TEXT24+24*
, TEXT24+25, TEXT24+26, TEXT24+27, TEXT24+32, LINSPEC+5~, LINSPEC+10*, LINSPEC+12, LINSPEC+13, LINSPEC+14, LINSPEC+18
, BILLSPEC+5~, BILLSPEC+15*, BILLSPEC+16, BILLSPEC+17, BILLSPEC+18
Z0 OBOX19+20~, LINSPEC+14*, LINSPEC+15, LINSPEC+18*, LINSPEC+19, BILLSPEC+18*, BILLSPEC+19
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 |  Naked Globals |  Local Variables  | All