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

Package: Integrated Billing

Routine: IBCEF74


Information

IBCEF74 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03

Source Information

Source file <IBCEF74.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 12 ($$COB,$$COBN,$$FT,$$INPAT,F)^IBCEF  $$ISRX^IBCEF1  $$PROVPTR^IBCEF7  PRACT^IBCEF71  $$CH35591^IBCEF72  ($$CHCKSEC,$$CHSEC)^IBCEF73  EN^IBCEF74A  SORT^IBCEF77  
ALLIDS^IBCEFP  ($$GETID,$$IDFIND)^IBCEP2  $$MCR24K^IBCEU3  $$MCRONBIL^IBEFUNC  
VA FileMan 2 $$EXTERNAL^DILFD  ^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: 8

Package Total Caller Graph
Integrated Billing 8 IBCBB1  IBCBB2  IBCEF7  IBCEF74A  IBCEU  IBCSC102  IBCSC10H  IBCSCH  

Entry Points

Name Comments DBIA/ICR reference
SORT(IBPRNUM,IBPRTYP,IB399,IBSRC,IBDST,IBN,IBEXC,IBSEQ,IBLIMIT) ;
PROVINF(IB399,IBPRNUM,IBRES,IBSORT,IBINSTP) ;
SECIDCK(IBIFN,IBSEQ,IBTYP,IBIFN1) ; Function returns 1 if ID type ptr in
; IBTYP is valid X12 code for the claim/prov function (IBPROVF)
; as a sec id
; IBSEQ = COB seq being checked
; IBIFN1 = entry # in PRV multiple being checked
; Called from input transform of fields .12-.14, subfile 399.0222
DEFID(IBIFN,IBPRV) ;
; IBIFN = ien of bill
; IBPRV = ien of entry subfile 399.0222
; Function returns default ids: prim id def^sec id def^tert id def
; SSN cannot be the default ID
DISPID(IBXIEN) ; Display list of all prov and fac ids that will
; extract for this bill if transmitted electronically
DISPIDX ;
NOMORE() ;
DEFSEC(IBIFN,IBARR) ; Returns array in IBARR for default prov sec ids for ien IBIFN
; IBARR if passed by ref is returned IBARR(prov function,COBN)=def id

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD DISPID+9, DISPID+10, DISPID+11, DISPID+24, DISPID+34
^DIR DISPIDX+1, NOMORE+1
$$COB^IBCEF PROVINF+24
$$COBN^IBCEF SECIDCK+10, DISPID+5, DEFSEC+5
$$FT^IBCEF PROVINF+8, SECIDCK+9, DEFID+8, DISPID+5, DEFSEC+5
$$INPAT^IBCEF PROVINF+10, DEFSEC+6
F^IBCEF DEFID+9
$$ISRX^IBCEF1 PROVINF+9
$$PROVPTR^IBCEF7 PROVINF+14
PRACT^IBCEF71 PROVINF+19
$$CH35591^IBCEF72 PROVINF+25
$$CHCKSEC^IBCEF73 PROVINF+31, PROVINF+33
$$CHSEC^IBCEF73 SECIDCK+12
EN^IBCEF74A DISPID+39
SORT^IBCEF77 SORT+1
ALLIDS^IBCEFP DISPID+16
$$GETID^IBCEP2 DEFID+13
$$IDFIND^IBCEP2 DEFSEC+14
$$MCR24K^IBCEU3 PROVINF+27, PROVINF+29
$$MCRONBIL^IBEFUNC PROVINF+27, PROVINF+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPID+6
Function Call: WRITE
  • Prompt: !,"If this bill is transmitted electronically, the following IDs will be sent:"
  • Line Location: DISPID+7
Function Call: WRITE
  • Prompt: !," Primary Ins Co: ",$$EXTERNAL^DILFD(399,101,"",Z)
  • Line Location: DISPID+9
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: DISPID+9
Function Call: WRITE
  • Prompt: !,"Secondary Ins Co: ",$$EXTERNAL^DILFD(399,101,"",Z)
  • Line Location: DISPID+10
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: DISPID+10
Function Call: WRITE
  • Prompt: !," Tertiary Ins Co: ",$$EXTERNAL^DILFD(399,101,"",Z)
  • Line Location: DISPID+11
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: DISPID+11
Function Call: WRITE
  • Prompt: !!,"Provider IDs: (VistA Records OP1,OP2,OP4,OP8,OP9,OP10,OPR,OPR1,OPR2,OPR3,OPR4,",!?29,"OPR5,OPR7,OPR8,OPR9,OPRA,OPRB,OPRC):"
  • Line Location: DISPID+13
Function Call: WRITE
  • Prompt: !!?5,$$EXTERNAL^DILFD(399.0222,.01,"",IBPRV),": "_$$EXTERNAL^DILFD(399.0222,.02,"",$P(IBID("PROVINF",IBIFN,"C",1,IBPRV),U))
  • Line Location: DISPID+24
Function Call: WRITE
  • Prompt: !?8,"NPI: ",?40,$S($P($G(IBID("PROVINF",IBIFN,"C",1,IBPRV,0)),U,4)]"":$P(IBID("PROVINF",IBIFN,"C",1,IBPRV,0),U,4),1:"***MISSING***")
  • Line Location: DISPID+25
Function Call: WRITE
  • Prompt: !,?8,"(",IBID("PROVINF",IBIFN,CO,IBN),") ",$$EXTERNAL^DILFD(36,4.01,"",IBCODE),?40,$P(IBID("PROVINF",IBIFN,CO,IBN,IBPRV,Z0),U,4)
  • Line Location: DISPID+34
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPIDX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOMORE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NOMORE+2
Routine Call
  • DIR
  • Line Location:
    • DISPIDX+1
    • NOMORE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] EXTERNAL^DILFD
^DGCR(399 - [#399] EXTERNAL^DILFD
399.0222 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PROVINF+5, PROVINF+21, PROVINF+22, SECIDCK+8, DEFID+10, DEFID+12, DISPID+9, DISPID+10, DISPID+11, DEFSEC+7
, DEFSEC+9
^DIC(36 - [#36] DEFSEC+8
^IBE(355.97 - [#355.97] PROVINF+31, PROVINF+32, SECIDCK+11

Label References

Name Line Occurrences
$$NOMORE DISPID+23, DISPID+32
DISPIDX DISPID+36
SORT PROVINF+34

Naked Globals

Name Field # of Occurrence
^( DEFSEC+9
^("I" DEFID+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CO DISPID+3~, DISPID+27*, DISPID+28, DISPID+29, DISPID+30, DISPID+34
DIR DISPID+3~, DISPIDX+1!
DIR("A" DISPIDX+1*, NOMORE+1*
DIR(0 DISPIDX+1*, NOMORE+1*
IB35591 PROVINF+3~, PROVINF+25*, PROVINF+33
IB355OV PROVINF+13~, PROVINF+20*, PROVINF+23*, PROVINF+27*, PROVINF+29*, PROVINF+30, PROVINF+31, PROVINF+32
IB399 SORT~, SORT+1, PROVINF~, PROVINF+1, PROVINF+5, PROVINF+8, PROVINF+9, PROVINF+10, PROVINF+14, PROVINF+21
, PROVINF+22, PROVINF+24, PROVINF+27, PROVINF+29, PROVINF+34
IBARR DEFSEC~, DEFSEC+4!
IBARR( DEFSEC+11*, DEFSEC+15*
IBARRX DEFSEC+3~
IBCAR DEFSEC+3~, DEFSEC+6*
IBCARE PROVINF+3~, PROVINF+9*, PROVINF+10*, PROVINF+19, PROVINF+25
IBCOBN SECIDCK+7~, SECIDCK+10*, SECIDCK+12, DISPID+3~, DISPID+5*, DISPID+9, DISPID+10, DISPID+11, DEFSEC+3~, DEFSEC+5*
IBCODE DISPID+3~, DISPID+30*, DISPID+31, DISPID+33, DISPID+34
IBCT DISPID+3~
IBCURR PROVINF+3~, PROVINF+24*, PROVINF+27, PROVINF+29
IBDST SORT~, SORT+1
IBEXC SORT~, SORT+1, PROVINF+3~, PROVINF+20*, PROVINF+32*, PROVINF+33, PROVINF+34
IBFRM SECIDCK+7~, SECIDCK+9*, SECIDCK+12, DISPID+3~, DISPID+5*
IBFRMTYP PROVINF+3~, PROVINF+8*, PROVINF+17, PROVINF+19, PROVINF+25, PROVINF+27, PROVINF+29, PROVINF+31, PROVINF+33
IBID DISPID+3~, DISPID+16, DISPID+39
IBID("PROVINF" DISPID+22, DISPID+24, DISPID+25, DISPID+28, DISPID+29, DISPID+30, DISPID+34
IBID1 DISPID+3~
IBIFN SECIDCK~, SECIDCK+6, SECIDCK+8, SECIDCK+9, SECIDCK+10, DEFID~, DEFID+5, DEFID+8, DEFID+9, DEFID+10
, DEFID+12, DEFID+13, DISPID+3~, DISPID+4*, DISPID+5, DISPID+9, DISPID+10, DISPID+11, DISPID+16, DISPID+22
, DISPID+24, DISPID+25, DISPID+28, DISPID+29, DISPID+30, DISPID+34, DISPID+39, DEFSEC~, DEFSEC+2, DEFSEC+5
, DEFSEC+6, DEFSEC+7, DEFSEC+9, DEFSEC+14
IBIFN1 SECIDCK~, SECIDCK+8
IBINS DEFID+6~, DEFID+12*, DEFSEC+3~, DEFSEC+12*, DEFSEC+13
IBINS4 DEFID+6~
IBINSCO PROVINF+3~, PROVINF+5*, PROVINF+19, PROVINF+25, PROVINF+32, PROVINF+33
IBINSTP PROVINF~, PROVINF+11, PROVINF+19, PROVINF+27, PROVINF+29, PROVINF+31, PROVINF+33
IBLIMIT SORT~, SORT+1, PROVINF+3~, PROVINF+11*, PROVINF+34
IBN SORT~, SORT+1, PROVINF+3~, PROVINF+4*, PROVINF+25*, PROVINF+32*, PROVINF+33*, PROVINF+34, DISPID+3~, DISPID+28*
, DISPID+29, DISPID+30, DISPID+34
IBOK SECIDCK+7~
IBPC DEFSEC+3~, DEFSEC+5*, DEFSEC+8
IBPRNUM SORT~, SORT+1, PROVINF~, PROVINF+2, PROVINF+5, PROVINF+23, PROVINF+27, PROVINF+34, PROVINF+36
IBPROV PROVINF+3~, PROVINF+14*, PROVINF+15, PROVINF+19, PROVINF+35
IBPROVF SECIDCK+7~, SECIDCK+8*, SECIDCK+12
IBPRTYP SORT~, SORT+1, PROVINF+3~, PROVINF+12*, PROVINF+14, PROVINF+19, PROVINF+21, PROVINF+27, PROVINF+29, PROVINF+31
, PROVINF+32, PROVINF+33, PROVINF+34, PROVINF+35
IBPRV DEFID~, DEFID+10, DISPID+21*, DISPID+22, DISPID+24, DISPID+25, DISPID+28, DISPID+29, DISPID+30, DISPID+34
IBQUIT DISPID+3~, DISPID+18*, DISPID+23*, DISPID+29, DISPID+32*, DISPID+36, DISPID+39, DISPIDX+1
IBRES PROVINF~, PROVINF+34
IBRES( PROVINF+32*, PROVINF+33*, PROVINF+35*, PROVINF+36*
IBRETARR PROVINF+18~*, PROVINF+19, PROVINF+34
IBSEQ SORT~, SORT+1, SECIDCK~, SECIDCK+12
IBSORT PROVINF~, PROVINF+2*, PROVINF+32, PROVINF+33, PROVINF+34, PROVINF+35, PROVINF+36
IBSRC SORT~, SORT+1
IBTYP SECIDCK~, SECIDCK+11, DISPID+3~, DISPID+26!
IBTYP( DISPID+31, DISPID+33*
IBUB DEFID+6~, DEFID+8*
IBX12 SECIDCK+7~, SECIDCK+11*, SECIDCK+12
IBXIEN DISPID~, DISPID+2, DISPID+4
IBZ DEFID+6~, DEFID+7*, DISPID+3~
ID DEFID+6~, DEFID+10*, DEFID+11, DEFID+13*, DEFID+15*, DEFID+16
IOF DISPID+6, NOMORE+2
IOSL DISPID+23, DISPID+32
Q DEFSEC+3~, DEFSEC+10*, DEFSEC+11, DEFSEC+12, DEFSEC+14, DEFSEC+15
U PROVINF+23, PROVINF+30, PROVINF+31, PROVINF+32, PROVINF+33, SECIDCK+11, DEFID+10, DEFID+11, DEFID+13, DEFID+15
, DISPID+24, DISPID+25, DISPID+30, DISPID+34, DEFSEC+7, DEFSEC+8, DEFSEC+11, DEFSEC+12, DEFSEC+14
X DISPID+3~, DEFSEC+3~, DEFSEC+14*, DEFSEC+15
Y DISPID+3~, NOMORE+3
Z PROVINF+13~, PROVINF+21*, PROVINF+22*, PROVINF+23, DEFID+6~, DEFID+10*, DEFID+13, DISPID+3~, DISPID+9*, DISPID+10*
, DISPID+11*, DEFSEC+3~, DEFSEC+7*, DEFSEC+8*, DEFSEC+9*
Z0 DISPID+3~, DISPID+29*, DISPID+30, DISPID+34, DEFSEC+3~, DEFSEC+9*, DEFSEC+11, DEFSEC+14, DEFSEC+15
Z1 DEFID+6~, DEFID+11*, DEFID+12, DEFID+13, DEFID+15, DISPID+3~
ZINS DEFSEC+3~, DEFSEC+5*, DEFSEC+7*, DEFSEC+8*, DEFSEC+12
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