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

Package Total Caller Graph
Integrated Billing 27 IB20P402  IBCBB11  IBCBB3  IBCE837  IBCE837I  IBCE837T  IBCEF83  IBCEFG1  
IBCEFP1  IBCEOB  IBCEOB0  IBCEP2A  IBCEU3  IBCEU4  IBCEU5  IBCIADD1  
IBCSC102  IBCSC10H  IBXSA21  IBXSAH1  IBXSC821  IBXSC8H1  IBXX21  ^IBA(364.5  
^IBA(364.7  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 0000 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+7, 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+7
$$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+7, 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+7*, ADMHR+9*, ADMHR+10
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+7, 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