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

Package: Integrated Billing

Routine: IBCEU


Information

IBCEU ;ALB/TMP - EDI UTILITIES ;02-OCT-96

Source Information

Source file <IBCEU.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 7 $$TOB^IBCBB  ($$COBN,$$FT,$$INPAT,F)^IBCEF  $$DEFID^IBCEF74  ALLIDS^IBCEFP  $$FILTERP^IBCSC10H  ($$MCRONBIL,$$WNRBILL)^IBEFUNC  $$EXPAND^IBTRE  
Kernel 2 $$GET^XUA4A72  $$ESBLOCK^XUSESIG1  
VA FileMan 2 ^%DT  EN^DDIOL  

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

Package Total Caller Graph
Integrated Billing 24 IB20P402  IBCBB11  IBCBB3  IBCE837  IBCE837I  IBCEF83  IBCEFG1  IBCEFP1  
IBCEOB  IBCEOB0  IBCEP2A  IBCEU3  IBCEU4  IBCEU5  IBCIADD1  IBCSC102  
IBCSC10H  IBXSA21  IBXSAH1  IBXSC821  IBXSC8H1  IBXX21  LINE PROVIDER  PROVIDER  

Entry Points

Name Comments DBIA/ICR reference
TESTPT(DFN) ; Determine if pt is test pt
; Returns 1 if a test pt, 0 if not
MAINPRV(IBIFN) ; Returns name^id^ien^type code of 'main' prov on bill IBIFN
PRVOK(VAL,IBIFN) ; Check bill form & prov function agree
; VAL = internal value of prov function
PRVOK1(VAL,IBIFN) ; Check for both attending and rendering on bill
SPEC(IBPRV,IBDT) ; Returns spec code for vp ien IBPRV from file 355.9
; (for new person entries, as of date in IBDT)
; DBIA 1625
CRED(IBPRV,IBIFN,IBPIEN,IBTYP) ; Returns prov credentials
; IBPRV = vp of provider for file 200 or 355.93
; IBIFN = bill ien in file 399 (optional)
; IBPIEN = prov ien - file 399.0222 (optional)
; DEM;432 - prov ien can be from file 399.0404
; as well (optional).
; IBTYP = the prov type
CREDQ ;
GETPRV(IBIFN,IBTYP,IBPRV) ; Returns prov(s) of type(s) IBTYP for
; bill ien IBIFN.
; IBTYP = prov types needed, separated by ',' or ALL
;
; OUTPUT:
; IBPRV array: IBPRV(type)= 1 if prov is from old prov flds
; IBPRV(type,ct)=name^current COB id^vp provider ien^cred
; IBPRV(type,ct,seq)=COB seq specific id
; IBPRV(type)=default nm^def id
; IBPRV(type,"NOTOPT")= defined if a required prov type
GETQ
NEEDPRV(IBIFN,IBTYP,IBPRV) ; Check for needed prov
; If needed, not entered, insert defaults for MCR only
CKPROV(IBIFN,IBTYP,IBVAL) ; Checks if prov of type IBTYP in 'PRV' node
; of bill IBIFN
; If IBVAL = 1, skips the check for an existing provider, just looks
; for existence of the function itself
XFER(IBQ) ; Transfer DILIST
; IBQ = # of entries already found
DATE(X) ; Convert date X in YYYYMMDD or YYMMDD to FM format
; FP = flag to indicate if past or future dates are expected
DTQ
BCLASS(IBIFN) ; Returns actual bill classif. code from ptr fld
; .25 in file 399 for bill ien IBIFN
ADMHR(IBIFN,IBDTTM) ; Extract admit hr from admit dt/tm
; Default 00 if no time and bill is 11X or 18X
OLAB(IBIFN) ; Returns 1 if bill IBIFN is outside lab
PSRV(IBIFN) ; Returns 1 if bill IBIFN has any purch services
SEQBILL(IBIFN) ; Returns the ien's of all bills in COB sequence for bill IBIFN
; Return value is "^" delimited: primary ien^secondary ien^tertiary ien
GETPRV1(IBIFN,IBTYP,IBPRV) ; Returns prov(s) of type(s) IBTYP for
; bill ien IBIFN for TPJI display
; IBTYP = prov types needed, separated by ',' or ALL
;
; OUTPUT:
; IBPRV array: IBPRV(level,type,ct)=name^current COB id^vp provider ien^cred
RTYPOK(VAL,IBIFN) ;sceen for field 399,285 Attachment Report Type - Check for a valid Report Type depending on Claim Type
; VAL = internal value of report type file#353.3
; IBIFN = file 399 ien

External References

Name Field # of Occurrence
^%DT DATE+4
EN^DDIOL PRVOK1+4
$$TOB^IBCBB NEEDPRV+4
$$COBN^IBCEF MAINPRV+3, GETPRV+32, SEQBILL+4
$$FT^IBCEF PRVOK+8, PRVOK1+3, GETPRV+21, NEEDPRV+4, NEEDPRV+30, NEEDPRV+33, CKPROV+5, RTYPOK+8
$$INPAT^IBCEF GETPRV+21, NEEDPRV+4, CKPROV+9
F^IBCEF GETPRV+13, PSRV+3, GETPRV1+8
$$DEFID^IBCEF74 GETPRV+39, GETPRV+44
ALLIDS^IBCEFP GETPRV1+10
$$FILTERP^IBCSC10H PRVOK+15
$$MCRONBIL^IBEFUNC GETPRV+16
$$WNRBILL^IBEFUNC GETPRV+32, NEEDPRV+6
$$EXPAND^IBTRE GETPRV+37, GETPRV1+18, GETPRV1+29
$$GET^XUA4A72 SPEC+5
$$ESBLOCK^XUSESIG1 CREDQ+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PRVOK1+4, CRED+15, CRED+21, CRED+23, CRED+24, CRED+27, CRED+28, GETPRV+25, GETPRV+28, GETPRV+29
, GETPRV+30, GETPRV+33, GETPRV+35, GETPRV+44, NEEDPRV+3, NEEDPRV+19, CKPROV+6, CKPROV+7, CKPROV+9, CKPROV+10
, BCLASS+2, ADMHR+4, OLAB+3, SEQBILL+3
^DGCR(399.1 - [#399.1] BCLASS+2
^DPT - [#2] TESTPT+2
^IBA(355.93 - [#355.93] SPEC+6, CREDQ+3
^TMP("DILIST" XFER+4, XFER+6
^TMP("IBLIST" XFER+4*, XFER+6*, XFER+7*

Label References

Name Line Occurrences
$$BCLASS ADMHR+4
$$CRED GETPRV+40
CREDQ CRED+15, CRED+21
DTQ DATE+3
GETPRV MAINPRV+2
GETQ GETPRV+25
NEEDPRV GETQ

Naked Globals

Name Field # of Occurrence
^( NEEDPRV+19
^("U1" GETPRV+28, GETPRV+30
^("UF2" GETPRV+29
^(0 CKPROV+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+2~, DATE+4*
DFN TESTPT~, TESTPT+2
DT SPEC+4
IB GETPRV+11~, GETPRV+33*, GETPRV+35, GETPRV+39, GETPRV+40, GETPRV+44, GETPRV1+7~
IB0 NEEDPRV+2~, NEEDPRV+3*, NEEDPRV+4
IBALL GETPRV+26~, GETPRV+27*, GETPRV+28, GETPRV+29, GETPRV+30
IBBT PRVOK+3~, PRVOK+8*, PRVOK+9, PRVOK+13, PRVOK+15, PRVOK+16, RTYPOK+4~, RTYPOK+8*, RTYPOK+9
IBCOB MAINPRV+1~, MAINPRV+3*, MAINPRV+6
IBCOBID GETPRV1+16~
IBCRED CRED+8~, CRED+9*, CRED+24*, CRED+28*, CREDQ+1, CREDQ+2*, CREDQ+3*, CREDQ+4
IBCT GETPRV+11~, GETPRV+33*, GETPRV+34*, GETPRV+39, GETPRV+40, GETPRV+44, GETPRV1+7~, GETPRV1+11*, GETPRV1+12*, GETPRV1+14
, GETPRV1+17, GETPRV1+18, GETPRV1+19, GETPRV1+20, GETPRV1+21, GETPRV1+22*, GETPRV1+23*, GETPRV1+25, GETPRV1+28, GETPRV1+29
, GETPRV1+30, GETPRV1+31, GETPRV1+32
IBD GETPRV+11~, GETPRV+35*, GETPRV+36, GETPRV+37, GETPRV+38*, GETPRV+39, GETPRV+40, GETPRV+44, GETPRV1+7~
>> IBDR20 PRVOK+15
IBDT SPEC~, SPEC+4*, SPEC+5
IBDTTM ADMHR~, ADMHR+3
IBFT NEEDPRV+2~, NEEDPRV+4*, NEEDPRV+13, NEEDPRV+30, NEEDPRV+33, NEEDPRV+37, CKPROV+4~, CKPROV+5*, CKPROV+9
IBID GETPRV+11~, GETPRV+32*, GETPRV+38, GETPRV+39, GETPRV1+7~
IBIFN MAINPRV~, MAINPRV+2, MAINPRV+3, PRVOK~, PRVOK+6, PRVOK+8, PRVOK+15, PRVOK1~, PRVOK1+3, PRVOK1+4
, CRED~, CRED+15, CRED+21, CRED+22, CRED+23, CRED+24, CRED+26, CRED+27, CRED+28, GETPRV~
, GETPRV+13, GETPRV+16, GETPRV+21, GETPRV+25, GETPRV+28, GETPRV+29, GETPRV+30, GETPRV+32, GETPRV+33, GETPRV+35
, GETPRV+39, GETPRV+40, GETPRV+44, GETQ, NEEDPRV~, NEEDPRV+3, NEEDPRV+4, NEEDPRV+6, NEEDPRV+19, NEEDPRV+30
, NEEDPRV+33, CKPROV~, CKPROV+5, CKPROV+6, CKPROV+7, CKPROV+9, CKPROV+10, BCLASS~, BCLASS+2, ADMHR~
, ADMHR+4, OLAB~, OLAB+3, PSRV~, PSRV+3, SEQBILL~, SEQBILL+3, SEQBILL+4, SEQBILL+5, GETPRV1~
, GETPRV1+8, GETPRV1+10, GETPRV1+12, GETPRV1+14, GETPRV1+17, GETPRV1+19, GETPRV1+21, GETPRV1+23, GETPRV1+25, GETPRV1+28
, GETPRV1+30, GETPRV1+32, RTYPOK~, RTYPOK+7, RTYPOK+8
IBINP NEEDPRV+2~, NEEDPRV+4*, NEEDPRV+16, NEEDPRV+21, NEEDPRV+22
IBL OLAB+1~, OLAB+2*, OLAB+4*, OLAB+5
IBLAB OLAB+1~, OLAB+3*, OLAB+4
>> IBLNPRV CRED+15, CRED+21, CRED+22, CRED+26
IBMRAND GETPRV+11~, GETPRV+16*, GETPRV+18, NEEDPRV+2~, NEEDPRV+6*, NEEDPRV+23, NEEDPRV+34, NEEDPRV+40, GETPRV1+7~
IBPIEN CRED~, CRED+22, CRED+23*, CRED+24, CRED+26, CRED+27*, CRED+28
IBPNM GETPRV+11~, GETPRV+37*, GETPRV+39, GETPRV1+7~
IBPRIEN GETPRV1+16~, GETPRV1+17*, GETPRV1+18, GETPRV1+20, GETPRV1+27~, GETPRV1+28*, GETPRV1+29, GETPRV1+31
>> IBPROCP CRED+21, CRED+26, CRED+27, CRED+28
IBPRTYP GETPRV1+7~, GETPRV1+13*, GETPRV1+14*, GETPRV1+15, GETPRV1+17, GETPRV1+18, GETPRV1+19, GETPRV1+20, GETPRV1+21, GETPRV1+24*
, GETPRV1+25*, GETPRV1+26, GETPRV1+28, GETPRV1+29, GETPRV1+30, GETPRV1+31, GETPRV1+32
IBPRV MAINPRV+1~, MAINPRV+2, SPEC~, SPEC+5, SPEC+6, CRED~, CREDQ+1, CREDQ+2, CREDQ+3, GETPRV~
, GETPRV+15*, GETQ, NEEDPRV~, GETPRV1~, GETPRV1+9*
IBPRV( MAINPRV+4, MAINPRV+5, MAINPRV+6, GETPRV+20*, GETPRV+38, GETPRV+39*, GETPRV+40*, GETPRV+44*
IBPRV(1 NEEDPRV+10*, GETPRV1+18*, GETPRV1+19*, GETPRV1+20*, GETPRV1+21*
IBPRV(2 NEEDPRV+15*, NEEDPRV+20!, NEEDPRV+21*, NEEDPRV+22*, NEEDPRV+24*, GETPRV1+29*, GETPRV1+30*, GETPRV1+31*, GETPRV1+32*
IBPRV(3 GETPRV+29*, NEEDPRV+30*, NEEDPRV+33*, NEEDPRV+35*
IBPRV(4 GETPRV+21*, GETPRV+28*, NEEDPRV+39*, NEEDPRV+41*
IBPRV(9 GETPRV+30*
IBQ MAINPRV+1~, MAINPRV+3*, MAINPRV+5*, MAINPRV+6*, MAINPRV+7, XFER~, XFER+4, XFER+7
IBSEQ SEQBILL+2~, SEQBILL+3*, SEQBILL+5*, SEQBILL+6
IBSPEC SPEC+3~, SPEC+5*, SPEC+6*, SPEC+7
IBTOB NEEDPRV+2~, NEEDPRV+4*, NEEDPRV+16
IBTYP CRED~, CRED+22, CRED+23, CRED+26, CRED+27, GETPRV~, GETPRV+27, GETPRV+28, GETPRV+29, GETPRV+30
, GETPRV+33, GETQ, NEEDPRV~, NEEDPRV+8, NEEDPRV+13, NEEDPRV+26, NEEDPRV+37, CKPROV~, CKPROV+6, GETPRV1~
, GETPRV1+15, GETPRV1+26
IBVAL CKPROV~, CKPROV+10
IBWNR GETPRV+11~, GETPRV+32*, GETPRV+38, GETPRV1+7~
IBXDATA PSRV+1~
IBXSAVE PSRV+1~, GETPRV1+10
IBXSAVE("BOX24" PSRV+4
IBXSAVE("L-PROV" GETPRV1+23, GETPRV1+25, GETPRV1+28, GETPRV1+30, GETPRV1+32
IBXSAVE("PROVINF" GETPRV1+12, GETPRV1+14, GETPRV1+17, GETPRV1+19, GETPRV1+21
IBY GETPRV+11~, GETPRV+15*, GETPRV+33*, GETPRV+38, GETPRV+39, GETPRV+40, GETPRV+44, GETPRV1+7~, GETPRV1+9*
IBZ GETPRV+11~, GETPRV+15, GETPRV+33*, XFER+2~, XFER+3*, XFER+4*, XFER+7, PSRV+1~, PSRV+2*, PSRV+4*
, PSRV+5, GETPRV1+7~, GETPRV1+9
OBPRNM GETPRV1+16~
OK PRVOK+3~, PRVOK+4*, PRVOK+5, PRVOK+6, PRVOK+10*, PRVOK+11*, PRVOK+12*, PRVOK+13*, PRVOK+15*, PRVOK+16
, PRVOK+17*, PRVOK+18*, PRVOK+19*, PRVOK+20*, PRVOK+21*, PRVOK+23, PRVOK1+1~, PRVOK1+2*, PRVOK1+4*, PRVOK1+5
, CKPROV+4~, CKPROV+5*, CKPROV+9*, CKPROV+11*, CKPROV+12, RTYPOK+4~, RTYPOK+5*, RTYPOK+6, RTYPOK+7, RTYPOK+9*
, RTYPOK+11*, RTYPOK+12
R CKPROV+4~
TM ADMHR+2~, ADMHR+3*, ADMHR+4*, ADMHR+5*, ADMHR+6
U TESTPT+2, MAINPRV+5, MAINPRV+6, SPEC+5, SPEC+6, CRED+24, CRED+28, CREDQ+2, CREDQ+3, GETPRV+15
, GETPRV+28, GETPRV+29, GETPRV+30, GETPRV+36, GETPRV+37, GETPRV+38, GETPRV+39, GETPRV+40, GETPRV+44, NEEDPRV+19
, CKPROV+9, CKPROV+10, XFER+7, BCLASS+2, ADMHR+4, OLAB+3, PSRV+4, SEQBILL+3, SEQBILL+5, GETPRV1+9
, GETPRV1+17, GETPRV1+18, GETPRV1+19, GETPRV1+20, GETPRV1+21, GETPRV1+28, GETPRV1+30, GETPRV1+31, GETPRV1+32, RTYPOK+11
VAL PRVOK~, PRVOK+5, PRVOK+10, PRVOK+11, PRVOK+12, PRVOK+13, PRVOK+15, PRVOK+17, PRVOK+18, PRVOK+19
, PRVOK+20, PRVOK+21, PRVOK1~, PRVOK1+4, RTYPOK~, RTYPOK+6, RTYPOK+9, RTYPOK+11
X DATE~, DATE+3*, DATE+4*, DTQ
Y DATE+2~, DATE+4
Z MAINPRV+1~, MAINPRV+4*, MAINPRV+5, MAINPRV+6, GETPRV+11~, GETPRV+20*, GETPRV+41*, GETPRV+44, NEEDPRV+18~, NEEDPRV+19*
, CKPROV+4~, CKPROV+6*, CKPROV+7, CKPROV+9, CKPROV+10, XFER+2~, XFER+3*, XFER+4*, PSRV+1~, PSRV+4*
, SEQBILL+2~, SEQBILL+4*, SEQBILL+5, GETPRV1+7~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All