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

Package: Integrated Billing

Routine: IBCEP3


Information

IBCEP3 ;ALB/TMP - EDI UTILITIES for provider ID ;25-SEP-00

Source Information

Source file <IBCEP3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 7 ($$COBN,$$FT,$$INPAT,$$NOPUNCT,F)^IBCEF  $$ISRX^IBCEF1  $$PPTYP^IBCEP0  $$INSSEQ^IBCEP1  $$GETID^IBCEP2  $$PERFPRV^IBCEP2A  (CHANGE,NEW)^IBCEP4A  
VA FileMan 4 ^DIC  (,FILE)^DIE  ^DIK  ^DIR  

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

Package Total Caller Graph
Integrated Billing 19 IBCEP2B  IBCEP5B  IBCEP5D  IBCEP9  IBXS3  IBXS310  IBXS6  IBXS7  
IBXSC3  IBXSC310  IBXSC6  IBXSC61  IBXSC7  IBXSC74  IBXX1  IBXX19  
IBXX20  ^DGCR(399  PROVIDER  

Entry Points

Name Comments DBIA/ICR reference
CUNEED(IBIFN,IBSEQ,IBPTYP,IBRET,IBEMC) ; Determine if care unit needed for
; provider type and insurance company(s) on bill
; IBIFN = ien of bill (file 399)
; IBSEQ = specific COB sequence to check or null for check all
; IBPTYP = the ien of the provider id type in file 355.97 or if null,
; the default performing provider ID type for the ins co's.
; IBRET = flag to return insurance ien (0) or file 355.97 ien (1)
; IBEMC = no longer used
CAREUN(IBINS,IBPTYP,IBFTYP,IBCTYP,IBRX) ; Find ien (file 355.96) for care
; unit for the combination of ins co, prov type, form type and
; care type
; IBINS = ien of ins co (file 36)
; IBPTYP = ien of provider id type (file 355.97)
; IBFTYP = form type (1=UB,2=1500)
; IBCTYP = care type (1=inpat,2=outpat)
; IBRX = 1 if outpat/Rx bill
DISP(IBINS,IBTYPE) ; Return the name of the type of care unit needed
; IBINS = ien of ins co (file 36)
; IBTYPE = 2:PERFORMING PROVIDER ID
DELID(IBIFN,IBSEQ,IBX) ; Delete all provider data specific to an ins co
; represented by the COB sequence IBSEQ for bill IBIFN
; IBX = 1 if called from care unit prompt - don't delete value
SETID(IBIFN,IBSEQ) ; Default provider id for bill IBIFN and ins co for COB
; sequence IBSEQ
ALLID(IBIFN,IBFLD,IBFUNC) ; If form type or care type (I/O/RX) changes,
; determine new provider id values if possible and update them
; this includes primary, secondary, tertiary id's
; IBIFN = ien of claim (file 399)
; IBFLD = ien of the field being changed when this call is made
; (.19 = form type .25 = care type)
; IBFUNC = 1 to add, 2 to delete
CUMNT ; Add/edit care unit
INS
DUP(IBDA,IBOLD,IBFUNC) ; Check if the combination of ins co, prov type, care
; type and form already exists in file 355.96
; IBDA = ien of entry in file 355.96
; IBOLD = the 0-node before changes were made - used to reset the fields
PROFID(IBIFN,IBSEQ,IBID) ; Return id and type of rendering provider id
; used for insurance co at COB seq IBSEQ for bill ien IBIFN
; RETURN VALUES:
; piece 1:
; 1 = FEDERAL TAX ID
; 2 = INSURANCE CO SPECIFIC ID
; 3 = NETWORK ID
; "" = not a CMS-1500 bill or no id found
; piece 2:
; the id #
PROFIDQ
NETWRK(IBIFN,IBID,IBSEQ) ; Determine if ID number IBID is the same as the
; network id for the insurance co
; IBIFN = bill ien (file 399)
; IBSEQ = COB seq # of bill
; Returns 1 if network ID match is found for bill IBIFN, COB seq IBSEQ

External References

Name Field # of Occurrence
^DIC INS+1
^DIE DUP+12
FILE^DIE DELID+11, ALLID+11
^DIK DUP+14
^DIR INS+3, INS+6
$$COBN^IBCEF PROFID+11, NETWRK+9
$$FT^IBCEF CUNEED+20, PROFID+14
$$INPAT^IBCEF CUNEED+20
$$NOPUNCT^IBCEF PROFID+15, PROFID+17, NETWRK+13
F^IBCEF PROFID+15
$$ISRX^IBCEF1 CUNEED+24
$$PPTYP^IBCEP0 NETWRK+11
$$INSSEQ^IBCEP1 CUNEED+31
$$GETID^IBCEP2 ALLID+10, NETWRK+13
$$PERFPRV^IBCEP2A NETWRK+13
CHANGE^IBCEP4A INS+12
NEW^IBCEP4A INS+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+6
Routine Call
  • DIC
  • Line Location:
    • INS+1
Routine Call
  • DIE
  • Line Location:
    • DUP+12
Routine Call
  • DIE
  • Line Location:
    • DELID+11
    • ALLID+11
Routine Call
  • DIR
  • Line Location:
    • INS+3
    • INS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.96 - [#355.96] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DELID+6, ALLID+9, NETWRK+10
^DIC(36 - [#36] CUNEED+31, DISP+4
^IBA(355.96 - [#355.96] CAREUN+14, CAREUN+15, CAREUN+19, CAREUN+20, CAREUN+21, CAREUN+22, INS+5, DUP+5, DUP+7
^IBE(350.9 - [#350.9] PROFID+17
^IBE(355.97 - [#355.97] NETWRK+11

Label References

Name Line Occurrences
$$CAREUN CUNEED+34
$$NETWRK PROFID+17
PROFIDQ PROFID+14, PROFID+16

Naked Globals

Name Field # of Occurrence
^( DELID+6, ALLID+9
^(0 CAREUN+19, CAREUN+20, CAREUN+21, CAREUN+22
^(1 DELID+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D CUMNT+1~
DA CUMNT+1~, DUP+4~, DUP+12*, DUP+14*
DIC CUMNT+1~, INS+1*!
DIC(0 INS+1*
DIE CUMNT+1~, DUP+4~, DUP+12*
DIK CUMNT+1~, DUP+4~, DUP+14*
DIR CUMNT+1~, INS+3!, INS+6!
DIR("A" INS+3*, INS+6*
DIR("B" INS+6*
DIR(0 INS+3*, INS+6*
DR DUP+4~, DUP+10*, DUP+11*
DTOUT CUMNT+1~, INS+2
DUOUT CUMNT+1~, INS+2
DUP DUP+4~, DUP+5*, DUP+8*, DUP+15
IB CUNEED+18~, CUNEED+19*, CUNEED+22, CUNEED+35*, CUNEED+37*, CUNEED+38, CAREUN+9~, CAREUN+10*, CAREUN+16*, CAREUN+18
, CAREUN+19*, CAREUN+20*, CAREUN+21*, CAREUN+22*, CAREUN+24, CUMNT+1~
IB0 DUP+4~, DUP+5*, DUP+7
IBC ALLID+7~, ALLID+10*
IBCT CUMNT+1~
IBCTYP CUNEED+18~, CUNEED+20*, CUNEED+23*, CUNEED+24, CUNEED+34, CAREUN~, CAREUN+19, CAREUN+21
IBDA DUP~, DUP+5, DUP+7, DUP+12, DUP+14
IBDR DELID+3~, DELID+11, SETID+2~, ALLID+7~, ALLID+11
IBDR( DELID+8*, DELID+10*, ALLID+10*
IBEMC CUNEED~, CUNEED+17
IBF CUMNT+1~, INS+4*, INS+7*, INS+8, INS+11, INS+12
IBFLD ALLID~
IBFTYP CUNEED+18~, CUNEED+20*, CUNEED+22, CUNEED+23*, CUNEED+34, CAREUN~, CAREUN+14, CAREUN+19, CAREUN+20
IBFUNC ALLID~, ALLID+10, DUP~, DUP+9, DUP+13
IBID PROFID~, PROFID+12, PROFID+15*, PROFID+16, PROFID+17, PROFID+18, NETWRK~, NETWRK+13
IBIFN CUNEED~, CUNEED+20, CUNEED+24, CUNEED+31, DELID~, DELID+6, DELID+8, DELID+10, SETID~, ALLID~
, ALLID+9, ALLID+10, PROFID~, PROFID+14, PROFID+15, PROFID+17, NETWRK~, NETWRK+10, NETWRK+13
IBINS CAREUN~, CAREUN+14, CAREUN+15, CAREUN+19, CAREUN+20, CAREUN+21, CAREUN+22, DISP~, DISP+4, CUMNT+1~
, INS+4*, INS+5, INS+10, NETWRK+5~, NETWRK+10*, NETWRK+11
IBINS1 CUMNT+1~, INS+4*
IBNET NETWRK+5~, NETWRK+6*, NETWRK+7, NETWRK+13*, NETWRK+14
IBOK CUMNT+1~
IBOLD CUMNT+1~, DUP~, DUP+10, DUP+11
IBPT CUNEED+18~, CUNEED+25*, CUNEED+30
IBPTYP CUNEED~, CUNEED+25, CUNEED+30*, CUNEED+32*, CUNEED+33, CUNEED+34, CAREUN~, CAREUN+14, CAREUN+15, CAREUN+19
, CAREUN+20, CAREUN+21, CAREUN+22, CUMNT+1~
IBPTYP1 CUMNT+1~
IBQ CUNEED+18~, CUNEED+27*, CUNEED+28, CUNEED+29*, CUNEED+30*, CUNEED+33*
IBRET CUNEED~, CUNEED+35
IBRX CUNEED+18~, CUNEED+19*, CUNEED+24*, CUNEED+34, CAREUN~, CAREUN+12
IBSEQ CUNEED~, CUNEED+29, CUNEED+30, CUNEED+35, DELID~, DELID+5, DELID+8, DELID+10, SETID~, PROFID~
, PROFID+11*, PROFID+15, PROFID+17, NETWRK~, NETWRK+9*, NETWRK+10, NETWRK+13
IBT SETID+2~, ALLID+7~, ALLID+10
IBTYP PROFID+10~, PROFID+12*, PROFID+17*, PROFID+18*, PROFIDQ
IBTYPE DISP~, DISP+3
IBX DELID~
IBXDATA PROFID+10~
>> IBXIEN PROFID+11, NETWRK+9
IBY CUMNT+1~
IBZ DELID+3~, DELID+4*, DELID+6*, DELID+8, DELID+10, SETID+2~, SETID+3*, PROFID+10~, PROFID+15
Q CUNEED+18~, CUNEED+34*, CUNEED+35
T CAREUN+13~, CAREUN+14*, CAREUN+15*, CAREUN+16
U CUNEED+35, CUNEED+37, DISP+4, DELID+8, DELID+10, ALLID+10, INS+4, DUP+7, DUP+10, DUP+11
, PROFID+12, PROFID+15, PROFID+17, PROFID+18, NETWRK+11
X DELID+3~, SETID+2~, CUMNT+1~, DUP+4~
Y DELID+3~, SETID+2~, CUMNT+1~, INS, INS+2*, INS+3, INS+4, INS+7, DUP+4~
Z CUNEED+18~, CUNEED+27*, CUNEED+29*, CUNEED+30*, CUNEED+31, CUNEED+35, ALLID+7~, ALLID+8*, ALLID+9*
Z0 CUNEED+18~, CUNEED+31*, CUNEED+33, CUNEED+34, CUNEED+35, DELID+3~, DELID+6*, DELID+8, DELID+10, ALLID+7~
, ALLID+9*, ALLID+10
Z1 DELID+3~, DELID+6*
Z4 CUNEED+18~, CUNEED+31*, CUNEED+32
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