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

Package: Integrated Billing

Routine: IBCEU0


Information

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

Source Information

Source file <IBCEU0.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 7 BLD^IBCECSA1  (NOTECHG,UPDTX)^IBCECSA2  SEL^IBCECSA4  ($$COBN,$$FT,F)^IBCEF  $$EOBELIG^IBCEU1  ($$MCRONBIL,$$WNRBILL)^IBEFUNC  $$EXPAND^IBTRE  
VA FileMan 5 FILE^DICN  (,WP)^DIE  $$EXTERNAL^DILFD  EN^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  

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

Package Total Caller Graph
Integrated Billing 11 IBCCCB  IBCECOB1  IBCECOB2  IBCECSA2  IBCECSA4  IBCEF1  IBCEM CSA MULTI SELECT REVIEW  IBCEMSR  
IBCEST  IBY197PO  ^IBA(364.7  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
FILE^DICN NOTECHG+7
^DIE MSTAT+45
WP^DIE NOTECHG+14
$$EXTERNAL^DILFD NOTECHG+13
EN^DIQ MSTAT+25, MSTAT+39
^DIR MSTAT+7, MSTAT+14, MSTAT+28, MSTAT+36, MSTAT+42
BLD^IBCECSA1 MSTATQ+1
NOTECHG^IBCECSA2 MSTAT+54
UPDTX^IBCECSA2 MSTAT+49, MSTAT+50, MSTAT+51, PRINTUPD+14
SEL^IBCECSA4 MSTAT+3
$$COBN^IBCEF PRPAY+5
$$FT^IBCEF PREOBTOT+9
F^IBCEF PRPAY+7
$$EOBELIG^IBCEU1 MCRPAY+5
$$MCRONBIL^IBEFUNC PRPAY+9
$$WNRBILL^IBEFUNC PRPAY+11
$$EXPAND^IBTRE MSTAT+39, MSTAT+53
FULL^VALM1 MSTAT+2
PAUSE^VALM1 LOCK+6, MSTAT+57
$$NOW^XLFDT NOTECHG+6

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
Routine Call
  • DIE
  • Line Location:
    • MSTAT+45
Routine Call
  • DIE
  • Line Location:
    • NOTECHG+14
Routine Call
  • DIR
  • Line Location:
    • MSTAT+7
    • MSTAT+14
    • MSTAT+28
    • MSTAT+36
    • MSTAT+42

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PRINTUPD+9
^IBA(364 - [#364] PRINTUPD+9, PRINTUPD+12
^IBM( LOCK+3, UNLOCK+1
^IBM(361 - [#361] MSTAT+38, MSTAT+39, MSTAT+48, MSTAT+49, MSTAT+50, MSTAT+51, MSTAT+53
^IBM(361.1 - [#361.1] NOTECHG+13, MCRPAY+5, PREOBTOT+19, PREOBTOT+20, PREOBTOT+23, PREOBTOT+31, PREOBTOT+33, PREOBTOT+34, PREOBTOT+36, PREOBTOT+41
, PREOBTOT+42
^TMP("DIERR" NOTECHG+14!

Label References

Name Line Occurrences
$$CALCPR PREOBTOT+37, PREOBTOT+43
$$LOCK MSTAT+26
$$MCRPAY PRPAY+12
$$PRINTUPD MSTAT+48
MSTATQ MSTAT+5, MSTAT+8, MSTAT+15
PRPAYQ PRPAY+6
UNLOCK MSTAT+55

Naked Globals

Name Field # of Occurrence
^(1 PREOBTOT+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA NOTECHG+4~, MSTAT+1~, MSTAT+20*, MSTAT+21, MSTAT+26, MSTAT+38, MSTAT+39, MSTAT+48, MSTAT+49, MSTAT+50
, MSTAT+51, MSTAT+53, MSTAT+54, MSTAT+55
DA(1 NOTECHG+5*, NOTECHG+9*
DA(2 NOTECHG+9*, NOTECHG+13
DD NOTECHG+4~, NOTECHG+7!
DIC NOTECHG+4~, NOTECHG+5*, NOTECHG+7!, MSTAT+25*, MSTAT+39*
DIC(0 NOTECHG+5*
DIE MSTAT+1~, MSTAT+20*
DIR MSTAT+1~, MSTAT+7!, MSTAT+14!, MSTAT+28!, MSTAT+36!, MSTAT+42!
DIR("?" MSTAT+6*, MSTAT+11*, MSTAT+12*!, MSTAT+13*, MSTAT+27*, MSTAT+28*, MSTAT+32*, MSTAT+33*, MSTAT+34*, MSTAT+35*
, MSTAT+41*, MSTAT+42*
DIR("?,1" MSTAT+6*
DIR("A" MSTAT+7*, MSTAT+10*, MSTAT+27*, MSTAT+31*, MSTAT+40*
DIR("B" MSTAT+7*, MSTAT+10*, MSTAT+27*, MSTAT+31*, MSTAT+40*
DIR(0 MSTAT+7*, MSTAT+10*, MSTAT+27*, MSTAT+31*, MSTAT+40*
>> DIRUT MSTAT+8, MSTAT+15, MSTAT+29, MSTAT+43
DLAYGO NOTECHG+4~, NOTECHG+5*, NOTECHG+7!
DO NOTECHG+4~, NOTECHG+7!
DR MSTAT+1~, MSTAT+20*, MSTAT+39*, MSTAT+45*
DUZ NOTECHG+13
EOBADJ PREOBTOT+29~, PREOBTOT+36!*, PREOBTOT+37, PREOBTOT+42!*, PREOBTOT+43, CALCPR~
EOBADJ( CALCPR+8, CALCPR+9, CALCPR+11, CALCPR+12, CALCPR+13
EOBREC PREOBTOT+17~, PREOBTOT+20*, PREOBTOT+22
EOBREC1 PREOBTOT+17~, PREOBTOT+20*, PREOBTOT+25
FRMTYP PREOBTOT+5~, PREOBTOT+9*, PREOBTOT+16
GRPLVL CALCPR+6~, CALCPR+7*, CALCPR+8*, CALCPR+9, CALCPR+11, CALCPR+12, CALCPR+13
IBA MSTAT+1~, MSTAT+19*, MSTAT+20
IBCLOK MSTAT+1~, MSTAT+23*, MSTAT+37*, MSTAT+49, MSTAT+51
IBCLOSE MSTAT+1~, MSTAT+9*, MSTAT+12, MSTAT+13, MSTAT+23, MSTAT+30
IBDA NOTECHG~, NOTECHG+5, PRINTUPD~, PRINTUPD+9, PRINTUPD+12, PRINTUPD+14
IBDAX MSTAT+1~, MSTAT+3, MSTAT+17*, MSTAT+18*, MSTAT+19, MSTAT+53
IBDAX( MSTAT+18, MSTAT+19
IBDAX("" MSTAT+5
IBEOB PREOBTOT+17~, PREOBTOT+18*, PREOBTOT+19*, PREOBTOT+20, PREOBTOT+23, PREOBTOT+29~, PREOBTOT+30*, PREOBTOT+31*, PREOBTOT+33, PREOBTOT+34
, PREOBTOT+36, PREOBTOT+41, PREOBTOT+42
IBFILE LOCK~, LOCK+3, UNLOCK~, UNLOCK+1
IBIEN NOTECHG+4~, NOTECHG+9*, NOTECHG+14
IBIFN PRPAY~, PRPAY+5, PRPAY+7, PRPAY+9, PRPAY+11, PRPAY+12, MCRPAY~, MCRPAY+5, PREOBTOT~, PREOBTOT+9
, PREOBTOT+19, PREOBTOT+31
IBLOOK MSTAT+1~, MSTAT+16*, MSTAT+24, MSTAT+38, MSTAT+52
IBMCR PRPAY~, PRPAY+9
IBMRANOT PREOBTOT~, PREOBTOT+22, PREOBTOT+33
IBNTEXT NOTECHG~, NOTECHG+10, NOTECHG+11
IBOK MSTAT+1~, MSTAT+22*, MSTAT+24, MSTAT+26*, MSTAT+29*, MSTAT+38, MSTAT+43*
IBP PRINTUPD+8~, PRINTUPD+9*, PRINTUPD+14*, PRINTUPD+15
IBP1 PRINTUPD+8~, PRINTUPD+9*, PRINTUPD+10
IBPAY MCRPAY+1~, MCRPAY+2*, MCRPAY+5*, MCRPAY+6
IBPRTOT PREOBTOT+17~, PREOBTOT+18*
IBPTRES PREOBTOT+5~, PREOBTOT+6*, PREOBTOT+16, PREOBTOT+18*, PREOBTOT+25*, PREOBTOT+37*, PREOBTOT+43*, PREOBTOT+44
IBREBLD MSTAT+1~, MSTAT+4*, MSTAT+44*, MSTATQ+1
IBREC LOCK~, LOCK+3, UNLOCK~, UNLOCK+1
IBSEQ PRPAY+4~, PRPAY+5*, PRPAY+6, PRPAY+11
IBSTOP MSTAT+1~, MSTAT+17*, MSTAT+18, MSTAT+29*, MSTAT+43*
IBTEXT NOTECHG+4~, NOTECHG+11*, PRINTUPD~, PRINTUPD+10
IBTEXT(1 NOTECHG+13*
IBTOT PRPAY+4~, PRPAY+6*, PRPAY+8*, PRPAY+12*, PRPAYQ
IBUPD MSTAT+46~, MSTAT+47*, MSTAT+48*, MSTAT+49*, MSTAT+50*, MSTAT+51
IBXDATA COBMOD~, COBMOD+4!
IBXDATA( COBMOD+15*
IBXSAVE COBMOD~
IBXSAVE("LCOB" COBMOD+7, COBMOD+10, COBMOD+12
IBZ PRPAY+4~, PRPAY+8
LN COBMOD+3~, COBMOD+6*, COBMOD+7*, COBMOD+10, COBMOD+12
LNLVL PREOBTOT+29~, PREOBTOT+40*, PREOBTOT+41*, PREOBTOT+42
LNSEQ COBMOD+3~, COBMOD+6*, COBMOD+8*, COBMOD+12, COBMOD+14, COBMOD+15
MOD COBMOD+3~, COBMOD+14*, COBMOD+15
MOD( COBMOD+12*, COBMOD+14
N COBMOD+3~, COBMOD+9*, COBMOD+11*, COBMOD+12
OK LOCK+1~, LOCK+2*, LOCK+3*, LOCK+4, LOCK+7
PTRESP CALCPR+6~, CALCPR+7*, CALCPR+14*, CALCPR+15
Q PRPAY+10~, MCRPAY+1~, MCRPAY+5*
RSNAMT CALCPR+6~, CALCPR+13*, CALCPR+14
RSNCD CALCPR+6~, CALCPR+10*, CALCPR+11*, CALCPR+12, CALCPR+13
SEQ COBMOD~, COBMOD+5, COBMOD+14
U NOTECHG+13, MSTAT+20, MSTAT+38, MSTAT+48, MSTAT+49, MSTAT+50, MSTAT+51, PRINTUPD+9, PRINTUPD+12, MCRPAY+5
, PREOBTOT+22, PREOBTOT+25, PREOBTOT+33, CALCPR+9, CALCPR+12, CALCPR+13, COBMOD+12
>> VALMBCK MSTATQ*
X NOTECHG+4~, NOTECHG+6*, MSTAT+1~
Y NOTECHG+4~, NOTECHG+8, NOTECHG+9, MSTAT+1~, MSTAT+9, MSTAT+16, MSTAT+29, MSTAT+37, MSTAT+43
Z PRPAY+10~, PRPAY+11*, PRINTUPD+11~, PRINTUPD+12*, PRINTUPD+13, COBMOD+3~, COBMOD+9*, COBMOD+10*, COBMOD+12
Z0 PRPAY+10~, MCRPAY+1~
Z2 PRPAY+10~
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