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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCEU0

Package: Integrated Billing

Routine: IBCEU0


Information

IBCEU0 ;ALB/TMP - EDI UTILITIES ;02-OCT-96

Source Information

Source file <IBCEU0.m>

Entry Points

Name Comments DBIA/ICR reference
NOTECHG(IBDA,IBNTEXT) ; Enter who/when review stat change was entered
; IBDA = ien of entry in file 361.1
; IBNTEXT = array containing the lines of text to store if not using the
; default text IBNTEXT = # of lines IBNTEXT(#)=line text
LOCK(IBFILE,IBREC) ; Lock record # IBREC in file #IBFILE (361 or 361.1)
UNLOCK(IBFILE,IBREC) ; Unlock record # IBREC in file #IBFILE
MSTAT ; Enter reviewed by selected range
MSTATQ
PRPAY(IBIFN,IBMCR) ; Returns total amount of prior payments applied to
; bill ien IBIFN
; IBMCR = flag passed in as 1 if MRA total should be included
PRPAYQ
PRINTUPD(IBTEXT,IBDA) ; If the status message indicates claim was printed
; or the claim record in file 399 says it was, update the transmit
; message status to closed
; IBTEXT = the first line text of the status message (optional)
; IBDA = the ien of the transmission record in file 364
MCRPAY(IBIFN) ; Calculate MRA total for the bill IBIFN
PREOBTOT(IBIFN,IBMRANOT) ; Function - Calculates Patient Responsibility Amount
; Input: IBIFN - ien of Bill Number (ien of file 399)
; IBMRANOT - flag to indicate that this is NOT and MRA
; Output Function returns: Patient Responsibility Amount for all EOB's for bill
CALCPR(EOBADJ) ; Function - Calculate Patient Responsibilty Amount
; For Group Code PR; Ignore the PR-AAA kludge
; Input - EOBADJ = Array of Group Codes & Reason Codes from either the Claim
; Level (10) or Service Line Level (15) of EOB file (#361.1)
; Output - Function returns Patient Responsibility Amount
COBMOD(IBXSAVE,IBXDATA,SEQ) ; output the modifiers from the COB
; SEQ is which modifier we're extracting (1-4)
; Build IBXDATA(line#)=Modifier# SEQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Another user has locked this record - try again later"
  • Line Location: LOCK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: MSTAT+36
Function Call: WRITE
  • Prompt: !,"Bill Number: ",$$EXPAND^IBTRE(361,.01,+^IBM(361,DA,0))
  • Line Location: MSTAT+39
Function Call: WRITE
  • Prompt: !,"Seq #: ",IBDAX," Bill number: ",$$EXPAND^IBTRE(361,.01,+^IBM(361,DA,0)),?45,"REVIEWED"
  • Line Location: MSTAT+53
Function Call: WRITE
  • Prompt: !!,"LAST SELECTION PROCESSED",!
  • Line Location: MSTAT+56

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361 - [#361] Classic Fileman Calls
^IBM(361.1 - [#361.1] EXTERNAL^DILFD
361.121 EXTERNAL^DILFD,  WP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call