Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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+15
Function Call: WRITE
  • Prompt: !!,"... Executing national IB edits"
  • Line Location: ALLED+17
Function Call: WRITE
  • Prompt: !!!,"... Executing A/R edits"
  • Line Location: ALLED+31
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+3
Info |  Source |  Entry Points |  Interaction Calls