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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBCB2

Package: Integrated Billing

Routine: IBCB2


Information

IBCB2 ;ALB/AAS - Process bill after enter/edited ;13-DEC-89

Source Information

Source file <IBCB2.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Integrated Billing 13 (EN,GVAR)^IBCBB  ARRAY^IBCBB1  $$FT^IBCEF  FPOST^IBCEFG7  ST2^IBCIST  $$CM^IBCIUT1  COMMENT^IBCIUT7  DISP^IBCNQ  
^IBCSC1  $$LOCSCRN^IBCSC11  BL24^IBCSCH  ^IBCSCU  $$QMED^IBCU1  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ($$FMTE,$$NOW)^XLFDT  
Accounts Receivable 1 ^PRCASVC6  
List Manager 1 PAUSE^VALM1  
VA FileMan 1 ^DIR  
Vendor - Document Storage Systems 1 EN^VEJDIBSC  

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 IBCB  IBCB1  IBCBB  IBCC  IBCCCB  IBCECOB2  IBCNQ  IBCRTN  

Entry Points

Name Comments DBIA/ICR reference
VIEW ;View screens; if status allows editing , allow editing
VIEW1
DISP
EDITS ; Perform edits on bill prior to authorization/transmission
ED1 ;
ALLED(IBQUIT) ; Billing edit/correction
ARCHK(IBNOFIX,IBNOPRT,IBQUIT1,IBQUIT,IBEDIT,PRCASV) ; A/R Verification
; Returns IBEDIT, IBQUIT1, IBQUIT,PRCASV array if passed by reference
; IBNOFIX = 1 if no editing needed
; IBNOPRT = 1 if no printing needed
DSPLERR ; Display national/local edits failed
Q
DSPARERR(IBNOPRT) ; Displays A/R errors
NOPTF
NOPTF1
LOCERR ; Check for local edits
; Execute screen post-processor for bills with local scrn 9 affiliations
PRTH(IBPRT,IBA) ; Print a heading for error/warnings sent to a printer
; Returns IBPRT = 1 if valid pritner selected
; IBPRT = -1 if '^' entered
; IBPRT = 0 if home device
CLOSE(IBPRT) ; Close device, reset printer flag
ASKEDIT(IBAC) ; Ask if edit/review of bill is desired
; FUNCTION returns 0/1 for NO/YES
; IBAC = flag for function being performed - to determine edit/review
SCREENS ;
DISP24(IBIFN,IBCORR,IBQUIT) ;
IICM(IBIFN) ; Ingenix ClaimsManager: Claim Scrubber
; Send the bill to ClaimsManager, the IBCISTAT variable returned from ClaimsManager indicates
; 3 - Passed CM with no errors
; 5 - User overriding the CM errors
; 7 - the CM interface isn't working
; 11 - User overriding the CM errors (CM not updated)
;
; Returns False (0) if the bill fails the ClaimsManager Scrubber/errors found
; Returns True (1) if the bill passed the ClaimsManager Scrubber/no errors found or ClaimsManager not On at site
IIQMED(IBIFN) ; DSS QuadraMed Interface: QuadraMed Claim Scrubber
; Send the bill to the QuadraMed Claim Scrubber
; Returns False (0) if the bill fails the QuadraMed Scrubber/errors found
; Returns True (1) if the bill passed the QuadraMed Scrubber/no errors found or QuadraMed not On at site

External References

Name Field # of Occurrence
^%ZIS PRTH+6
HOME^%ZIS CLOSE+3
^%ZISC CLOSE+1
^DIR VIEW+5, DSPLERR+21, ASKEDIT+7, DISP24+2
EN^IBCBB ALLED+15
GVAR^IBCBB ALLED+30, ARCHK+4
ARRAY^IBCBB1 ALLED+30, ARCHK+4
$$FT^IBCEF ALLED+6, ALLED+8
FPOST^IBCEFG7 LOCERR+5
ST2^IBCIST IICM+11
$$CM^IBCIUT1 ED1+8, IICM+11
COMMENT^IBCIUT7 ED1+8
DISP^IBCNQ DISP+1
^IBCSC1 SCREENS+2
$$LOCSCRN^IBCSC11 LOCERR+4
BL24^IBCSCH DISP24+1
^IBCSCU SCREENS+2
$$QMED^IBCU1 IIQMED+8
^PRCASVC6 ARCHK+4
PAUSE^VALM1 ARCHK+11
EN^VEJDIBSC IIQMED+8
$$FMTE^XLFDT PRTH+11
$$NOW^XLFDT PRTH+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"... Checking claim validity"
  • Line Location: ALLED+12
Function Call: WRITE
  • Prompt: !!,"... Executing national IB edits"
  • Line Location: ALLED+14
Function Call: WRITE
  • Prompt: !!!,"... Executing A/R edits"
  • Line Location: ALLED+29
Function Call: WRITE
  • Prompt: !,"There is an unresolved A/R error - cannot authorize bill"
  • Line Location: ARCHK+11
Function Call: WRITE
  • Prompt: !?5,"**Errors**:"
  • Condition for execution: I=1
  • Line Location: DSPLERR+6
Function Call: WRITE
  • Prompt: !?5,$E($P(Y,"^",2),1,80)
  • Line Location: DSPLERR+6
Function Call: WRITE
  • Prompt: !!,?3,"Local Edits:"
  • Line Location: DSPLERR+12
Function Call: WRITE
  • Prompt: !,?5,$E(IBXERR(I),1,75)
  • Line Location: DSPLERR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLERR+18
Function Call: WRITE
  • Prompt: !,?5,"An undetermined A/R error was found - "_$G(PRCAERR)
  • Line Location: DSPARERR+8
Function Call: WRITE
  • Prompt: !!,*7,"PTF Record for this Bill was DELETED!",!,"Further processing not allowed. Cancel and re-enter."
  • Line Location: NOPTF1+0
Function Call: WRITE
  • Prompt: !!,"No errors found for local edits"
  • Line Location: LOCERR+5
Function Call: WRITE
  • Prompt: !,"INCONSISTENCIES LIST FOR BILL #: ",$P($G(^DGCR(399,IBIFN,0)),U),!,$J("",29),"AT: ",$$FMTE^XLFDT($$NOW^XLFDT,2),!,$J("",19),"GENERATED BY: ",$P($G(^VA(200,DUZ,0)),U),!!
  • Line Location: PRTH+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP24+1
Routine Call
  • %ZIS
  • Line Location:
    • PRTH+6
Routine Call
  • %ZIS
  • Line Location:
    • CLOSE+3
Routine Call
  • DIR
  • Line Location:
    • VIEW+5
    • DSPLERR+21
    • ASKEDIT+7
    • DISP24+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DISP, ALLED+26, ALLED+30, NOPTF, PRTH+11
^DGPT - [#45] NOPTF
^IBA(351.9 - [#351.9] ED1+8
^IBE(350.8 - [#350.8] DSPLERR+6, DSPARERR+5
^TMP($J DSPLERR+4, Q!
^VA(200 - [#200] PRTH+11

Label References

Name Line Occurrences
$$ASKEDIT ALLED+22, ARCHK+11, DISP24+4
ALLED ED1+2
ARCHK ALLED+31
CLOSE DSPLERR+15, DSPARERR+9
DISP ED1+11
DISP24 ALLED+6, ALLED+8
DSPARERR ARCHK+8
DSPLERR ALLED+18
ED1 ED1+14
LOCERR ALLED+15
PRTH DSPLERR+2, DSPARERR+2
Q DSPLERR+16
SCREENS VIEW1+1
VIEW ED1+14
VIEW1 ALLED+8

Naked Globals

Name Field # of Occurrence
^( DSPLERR+4
^("S" DISP
^(0 DSPLERR+6, NOPTF

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRTH+4~
%ZIS("A" PRTH+5*
DIR VIEW+1~, VIEW+5!, DSPLERR+19~, DSPLERR+21!, ASKEDIT+3~, ASKEDIT+7!, DISP24+2!
DIR("?" VIEW+4*, ASKEDIT+6*
DIR("A" VIEW+4*, DSPLERR+20*, ASKEDIT+5*, DISP24+2*
DIR("B" VIEW+4*, DSPLERR+20*, ASKEDIT+5*, DISP24+2*
DIR(0 VIEW+4*, DSPLERR+20*, ASKEDIT+4*, DISP24+2*
>> DTOUT VIEW+6
DUZ PRTH+11
ERRPRT DSPARERR+1~
I DSPLERR+6*, DSPLERR+12*, DSPLERR+14*, DSPARERR+1~
>> IB("S" DISP*
IBA PRTH~
IBAC ALLED+22, ARCHK+11, ASKEDIT~, ASKEDIT+5, DISP24+4
>> IBAC1 NOPTF*
>> IBCISNT IICM+11*
>> IBCISTAT IICM+11
IBCORR ALLED+1~, ALLED+2*, ALLED+6, ALLED+8*, ALLED+10, DISP24~, DISP24+4*
IBDISP DISP+2*, ED1+11, ED1+14!
IBDONE ALLED+1~, ALLED+2*, ALLED+8, ALLED+17, ALLED+20, ALLED+21*, ALLED+24*, ALLED+26*, ALLED+32*, DSPLERR+23*
IBDONE1 ALLED+1~
IBEDIT VIEW1*, ALLED+1~, ALLED+25*, ALLED+26, ALLED+31, ARCHK~, ARCHK+4, ARCHK+12*
IBER ED1+2, ED1+14!, ALLED+1~, ALLED+2*, ALLED+17, DSPLERR+6, DSPLERR+13*, DSPLERR+17, DSPLERR+23*
IBH SCREENS+1~
IBIFN DISP, ED1+8, ALLED+6, ALLED+8, ALLED+26, ALLED+30, NOPTF, LOCERR+4, LOCERR+5, PRTH+11
, DISP24~, DISP24+1, IICM~, IICM+11, IIQMED~, IIQMED+8
IBNOFIX ALLED+6, ALLED+8, ALLED+11, ALLED+21, ALLED+24, ALLED+31, ARCHK~, ARCHK+10, DSPLERR+16
IBNOPRT ARCHK~, ARCHK+5, ARCHK+6, ARCHK+8, DSPARERR~, DSPARERR+2
IBOK IICM+10~*, IICM+11*, IICM+12
IBPOPOUT VIEW+2*, VIEW1+2, ALLED+9, SCREENS+3!
IBPRT ALLED+1~, DSPLERR+2, DSPLERR+15, DSPARERR+2, DSPARERR+9, LOCERR+2~, PRTH~, CLOSE~
IBPRT("PRT" ALLED+33, ARCHK+5, DSPLERR+3, DSPLERR+15, DSPARERR+2, DSPARERR+9, PRTH+7*, PRTH+8*, PRTH+9*, CLOSE+2*
IBQMED IIQMED+7~*, IIQMED+9
IBQUIT VIEW+6*, VIEW1+2*, ED1+1*, ED1+2, ED1+8, ED1+10, ALLED~, ALLED+2*, ALLED+6, ALLED+8
, ALLED+9*, ALLED+10, ALLED+20, ALLED+22*, ALLED+26, ALLED+31, ALLED+33*, ARCHK~, ARCHK+9, ARCHK+11*
, DSPLERR+3*, DSPARERR+2*, DISP24~, DISP24+5*
IBQUIT1 ALLED+1~, ALLED+27~, ALLED+28*, ALLED+31, ARCHK~, ARCHK+4, ARCHK+6*, ARCHK+10*, ARCHK+11*
IBREEDIT VIEW+8*, EDITS+1~, ED1+14*
>> IBV VIEW+3*, VIEW+4, VIEW+8, SCREENS+3
IBVIEW VIEW+3*, VIEW1*, ED1+14!
IBXERR ALLED+1~, ALLED+17, ALLED+19!, DSPLERR+11, DSPLERR+13, DSPLERR+17, DSPLERR+23!, DSPLERR+24!, LOCERR+3!, LOCERR+5
IBXERR( DSPLERR+14
IBXIEN LOCERR+2~, LOCERR+5*
IBZ LOCERR+2~, LOCERR+4*, LOCERR+5
IO PRTH+8, PRTH+10
IO(0 PRTH+8
IOF DISP24+1
J DSPARERR+1~
POP PRTH+4~, PRTH+7
>> PRCAERR DSPARERR+3, DSPARERR+5, DSPARERR+6, DSPARERR+8
PRCASV ED1+2, ALLED+26, ALLED+31, ARCHK~
PRCASV("OKAY" ALLED+26, ARCHK+6, ARCHK+7
U ED1+8, ALLED+26, ALLED+30, DSPARERR+3, DSPARERR+5, DSPARERR+6, PRTH+11
X DSPLERR+6*, DSPLERR+19~, DSPARERR+1~, ASKEDIT+3~
Y VIEW+1~, VIEW+7, DSPLERR+6*, DSPLERR+19~, DSPLERR+22, DSPARERR+1~, ASKEDIT+3~, ASKEDIT+8, DISP24+3, DISP24+4
>> Y1 DSPLERR+6*
>> Y2 DSPLERR+5*, DSPLERR+6*, DSPLERR+13*, DSPLERR+22*, DSPLERR+24
Z DSPLERR+1~, DSPLERR+4*, DSPARERR+4~, DSPARERR+5*, DSPARERR+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All