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

Package: Integrated Billing

Routine: IBCEP2A


Information

IBCEP2A ;ALB/TMP - EDI UTILITIES for provider ID ;25-APR-01

Source Information

Source file <IBCEP2A.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 5 ($$COBN,$$FT,$$INPAT)^IBCEF  $$ISRX^IBCEF1  $$GETID^IBCEP2  GETPRV^IBCEU  $$EXPAND^IBTRE  
VA FileMan 2 EN^DDIOL  ^DIE  
Registration 1 ($$PRIM,$$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: 13

Package Total Caller Graph
Integrated Billing 13 IBCBB1  IBCBB2  IBCEF77  IBCEF80  IBCEP2  IBCEP2B  IBCEP3  IBXSA21  
IBXSAH1  IBXSC824  IBXSC8H4  IBXSC8H5  PROVIDER  

Entry Points

Name Comments DBIA/ICR reference
ALT(IBPERF,IBSRC,IBALT,IBINS4,IBPTYP) ; set source level to next higher level
; or set the alternate type and source if performing provider id
; alternate type and source exist
; IBPERF = 1 if performing provider id is requested
; IBINS4 = '4' node of insurance co (file 36)
; Pass IBPTYP by reference to get alternate provider id type
; Pass IBALT by reference. Set to 1 if alternate id is to be used next
ALTQ
IDSET(IBPTYP,IBINS4,IBPERF,IBSPEC,IBSRC,IBUP) ; set variables for provider id type search
CAREST(IBIFN) ; Return state file ien of state where care was performed
; IBIFN = ien of bill in file 399
CARESTX ;
RECALCA(IBIFN) ; Recalculate all performing provider id's on bill IBIFN
; IBIFN = ien of bill entry (file 399)
RECALC(IBDA,IBSEQ,IBX,IBD) ; Recalculate id #, if possible - called
; from input transforms in subfile 399.0222, fields .05-.07
; IBDA = DA array of the provider entry (file 399.0222)
; IBSEQ = the numeric COB sequence of the provider id (1-3)
; IBX = the current value of the id in the subfile
; IBD = flag that if set to 1 will suppress the display text
RECALCQ
PERFPRV(IBIFN) ; Returns the variable pointer of the 'performing provider'
; (attending or rendering) for a bill IBIFN
INSPAR(IBIFN,SEQ) ;
GETTYP(IBXIEN,IBCOBN,IBFUNC) ; Function returns provider id type for insurance co
; with COB of IBCOBN on claim ien IBXIEN in first ^ pc and 1 in second
; ^ piece if the id is required
;
; IBFUNC=1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;6:ASSISTANT SURGEON;9:OTHER
;
UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,IBUNIT,IBCU,IBT) ; Match most-least specific
; *** SEE PARAMETER DEFINITIONS IN IBCEP3 ***
UNIQ1Q
UNIQ2(IBIFN,IBINS,IBPTYP,IBUNIT,IBCU,IBT) ; Match on most-least specific
; *** SEE PARAMETER DEFINITIONS IN IBCEP3 ***
UNIQ2Q

External References

Name Field # of Occurrence
EN^DDIOL RECALCA+4, RECALCA+7, RECALCA+13, RECALCA+16, RECALCA+17, RECALC+9, RECALC+11, RECALC+12, INSPAR+6, INSPAR+8
, INSPAR+9, INSPAR+10, INSPAR+11, INSPAR+12
^DIE RECALCA+15
$$COBN^IBCEF INSPAR+3, GETTYP+8
$$FT^IBCEF PERFPRV+3, GETTYP+11, UNIQ1+9, UNIQ2+7
$$INPAT^IBCEF UNIQ1+12, UNIQ2+10
$$ISRX^IBCEF1 UNIQ1+12, UNIQ2+10
$$GETID^IBCEP2 RECALC+10
GETPRV^IBCEU PERFPRV+4
$$EXPAND^IBTRE RECALCA+11, INSPAR+9, INSPAR+10, INSPAR+11
$$PRIM^VASITE CAREST+15, CAREST+16
$$SITE^VASITE CAREST+17, CAREST+18, CAREST+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] CAREST+6, CAREST+11, RECALCA+8, RECALCA+10, RECALC+8, INSPAR+4, GETTYP+9
^DIC(36 - [#36] INSPAR+4, INSPAR+7, GETTYP+14, GETTYP+15, GETTYP+16
^DIC(4 - [#4] CAREST+20
^IBA(355.9 - [#355.9] UNIQ1+8, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27
^IBA(355.91 - [#355.91] UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25
^IBA(355.93 - [#355.93] CAREST+8
^IBE(355.97 - [#355.97] IDSET+2
^XUSEC("IB SUPERVISOR" RECALCA+7

Label References

Name Line Occurrences
$$RECALC RECALCA+12
ALTQ ALT+8
CARESTX CAREST+8
RECALCQ RECALC+9, RECALC+11
UNIQ1Q UNIQ1+11, UNIQ1+16, UNIQ1+20, UNIQ1+24
UNIQ2Q UNIQ2+9, UNIQ2+14, UNIQ2+18, UNIQ2+22

Naked Globals

Name Field # of Occurrence
^( RECALCA+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A GETTYP+6~, GETTYP+7*, GETTYP+14*, GETTYP+15, GETTYP+16, GETTYP+17
DA RECALCA+2~, RECALCA+9*, RECALCA+12
DA(1 RECALCA+6*, RECALCA+15
DIE RECALCA+2~, RECALCA+15*
DIR RECALCA+2~
DR RECALCA+2~, RECALCA+15*
DT CAREST+13, CAREST+18
DUZ RECALCA+7
EVDT CAREST+2~, CAREST+12*, CAREST+13*, CAREST+15, CAREST+17
IB0 CAREST+2~, CAREST+11*, CAREST+12, CAREST+14
IBALT ALT~, ALT+10*
IBCOBN GETTYP~, GETTYP+8*, GETTYP+9
IBCU UNIQ1~, UNIQ1+8, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2~, UNIQ2+13, UNIQ2+17, UNIQ2+21
, UNIQ2+25
IBD RECALC~, RECALC+9, RECALC+11, RECALC+12
IBDA RECALC~, RECALC+8
IBDA(1 RECALC+8, RECALC+10
IBDIV CAREST+2~, CAREST+14*, CAREST+15*, CAREST+16*, CAREST+17, CAREST+18
IBFUNC GETTYP~, GETTYP+14, GETTYP+15, GETTYP+16
IBID UNIQ1+6~, UNIQ1+7*, UNIQ1+15*, UNIQ1+16, UNIQ1+19*, UNIQ1+20, UNIQ1+23*, UNIQ1+24, UNIQ1+27*, UNIQ1Q
, UNIQ2+5~, UNIQ2+6*, UNIQ2+13*, UNIQ2+14, UNIQ2+17*, UNIQ2+18, UNIQ2+21*, UNIQ2+22, UNIQ2+25*, UNIQ2Q
IBIFN CAREST~, CAREST+6, CAREST+11, RECALCA~, RECALCA+6, RECALCA+8, RECALCA+10, PERFPRV~, PERFPRV+3, PERFPRV+4
, INSPAR~, INSPAR+3, INSPAR+4, UNIQ1~, UNIQ1+9, UNIQ1+12, UNIQ2~, UNIQ2+7, UNIQ2+10
IBINS UNIQ1~, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2~, UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25
IBINS4 ALT~, ALT+8, ALT+10, IDSET~, IDSET+4
IBP RECALCA+2~, RECALCA+8*, RECALCA+11, RECALCA+12, RECALCA+13, RECALCA+14, PERFPRV+2~, PERFPRV+4
IBP( PERFPRV+5
IBPERF ALT~, ALT+8, IDSET~, IDSET+3
IBPN RECALC+7~, RECALC+8*, RECALC+9, RECALC+10
IBPROV UNIQ1~, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27
IBPT PERFPRV+2~, PERFPRV+3*, PERFPRV+4, PERFPRV+5
IBPTYP ALT~, ALT+10*, IDSET~, IDSET+2, UNIQ1~, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2~
, UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25
IBQ PERFPRV+2~
IBSEQ RECALCA+2~, RECALCA+11*, RECALCA+13, RECALCA+16, RECALCA+17, RECALC~, RECALC+10
IBSPEC IDSET~, IDSET+2*, IDSET+3
IBSRC ALT~, ALT+8*, ALT+9*, ALT+10*, ALTQ, IDSET~, IDSET+4*
IBT UNIQ1~, UNIQ1+15*, UNIQ1+19*, UNIQ1+23*, UNIQ1+27*, UNIQ2~, UNIQ2+13*, UNIQ2+17*, UNIQ2+21*, UNIQ2+25*
IBU2 CAREST+2~, CAREST+6*, CAREST+7
IBUNIT UNIQ1~, UNIQ2~, UNIQ2+6*, UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25
IBUP IDSET~, IDSET+4*
IBX RECALCA+2~, RECALCA+12*, RECALCA+13, RECALCA+14, RECALCA+15, RECALCA+16, RECALC~, RECALC+12, RECALC+13*, RECALCQ
, UNIQ1+6~, UNIQ1+8*, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2+5~
IBXIEN GETTYP~, GETTYP+8, GETTYP+9, GETTYP+11
IBZ RECALCA+2~, RECALCA+8*, RECALCA+9, RECALC+7~, RECALC+10*, RECALC+11, RECALC+12, RECALC+13
IBZ0 RECALCA+2~, RECALCA+10*, RECALCA+11, RECALCA+12, RECALCA+13, RECALCA+14, RECALCA+15
INST CAREST+2~, CAREST+17*, CAREST+18*, CAREST+19*, CAREST+20
NVAFAC CAREST+2~, CAREST+7*, CAREST+8
Q UNIQ1+6~, UNIQ1+15*, UNIQ1+19*, UNIQ1+23*, UNIQ1+27*, UNIQ2+5~, UNIQ2+13*, UNIQ2+17*, UNIQ2+21*, UNIQ2+25*
R GETTYP+6~, GETTYP+7*, GETTYP+15*, GETTYP+16*, GETTYP+17
SEQ INSPAR~, INSPAR+3*, INSPAR+4, INSPAR+7
STATE CAREST+2~, CAREST+3*, CAREST+8*, CAREST+20*, CARESTX+1
U ALT+8, ALT+10, IDSET+3, IDSET+4, CAREST+7, CAREST+8, CAREST+12, CAREST+14, CAREST+20, RECALCA+8
, RECALCA+11, RECALCA+12, RECALCA+13, RECALCA+14, RECALC+8, PERFPRV+5, INSPAR+7, INSPAR+10, INSPAR+11, GETTYP+14
, GETTYP+15, GETTYP+16, GETTYP+17, UNIQ1+8, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2+13, UNIQ2+17
, UNIQ2+21, UNIQ2+25
X RECALCA+2~, INSPAR+2
Y RECALCA+2~
Z IDSET+1~, IDSET+3*, IDSET+4, PERFPRV+2~, PERFPRV+3*, INSPAR+1~, INSPAR+4*, INSPAR+5, INSPAR+7, GETTYP+6~
, GETTYP+9*, GETTYP+10, GETTYP+14, GETTYP+15, GETTYP+16
Z0 INSPAR+1~, INSPAR+7*, INSPAR+8, GETTYP+6~, GETTYP+11*, GETTYP+13, GETTYP+14, GETTYP+15, GETTYP+16, UNIQ1+6~
, UNIQ1+9*, UNIQ1+11, UNIQ1+12*, UNIQ1+15, UNIQ1+23, UNIQ2+5~, UNIQ2+7*, UNIQ2+9, UNIQ2+10*, UNIQ2+13
, UNIQ2+21
Z1 UNIQ1+6~, UNIQ1+12*, UNIQ1+15, UNIQ1+19, UNIQ2+5~, UNIQ2+10*, UNIQ2+13, UNIQ2+17
Z2 UNIQ1+6~, UNIQ1+12*, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2+5~, UNIQ2+10*, UNIQ2+13, UNIQ2+17
, UNIQ2+21, UNIQ2+25
Z4 INSPAR+1~, INSPAR+4*, INSPAR+9, INSPAR+10, INSPAR+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All