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 |  Local Variables  | All
Print Page as PDF
Routine: IBECEA4

Package: Integrated Billing

Routine: IBECEA4


Information

IBECEA4 ;ALB/CPM - Cancel/Edit/Add... Cancel a Charge ;11-MAR-93

Source Information

Source file <IBECEA4.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 10 FOUND^IBARXMA  $$CANCEL^IBARXMN  ADD^IBECEA3  ($$GETELGP,$$GETVST)^IBECEA36  $$UPDATE^IBECEA38  (CLOCK,HDR,PAUSE)^IBECEAU  CLSTR^IBECEAU1  REAS^IBECEAU2  
(CANC,CED,ERR,PROC,UPSTAT)^IBECEAU4  ^IBR  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$RJ^XLFSTR  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 4 IBECEA1  IBECEA3  IBECEAU6  IBRREL  

Entry Points

Name Comments DBIA/ICR reference
ONE ; Cancel a single charge.
REAS ; - ask for the cancellation reason
ONEQ ;Exit utility
PASS ; Pass the action to Accounts Receivable.
UPDVST(IBCAN) ; update the Visit Tracking file
FNDVST(IBBLNO,IBVSTDT,IBN) ; Locate the Visit IEN
UCVSTDB ; Update the UC Visit Tracking DB if the Cancellation Reason is usable on UC copays
CANCAPI(IBN) ;Cancel a copay given a Copay IEN.
REBILL(IBDFN,IBEVDT,IBCRNT) ; Re-bill one of cancelled charges on a given date IB*2.0*682
ASKRB(IBNUM) ; Prompt for re-billing of a cancelled charge IB*2.0*682
ISINPT(IBACT) ; check if given charge is an inpatient charge
ISRX(IBACT) ; check if given charge is an RX charge
FNDUCV(IBDFN,IBEVDT,IBSITE) ; find "visit only" entry in file 351.82

External References

Name Field # of Occurrence
^DIE REAS+36
$$GET1^DIQ REAS+13, REAS+19, REAS+27, UPDVST+11, UPDVST+13, UPDVST+15, UCVSTDB+3, UCVSTDB+8, REBILL+13, REBILL+19
, REBILL+28, REBILL+31, REBILL+33, REBILL+89, REBILL+90
^DIR ASKRB+9
FOUND^IBARXMA REAS+39
$$CANCEL^IBARXMN REAS+39
ADD^IBECEA3 REBILL+81, REBILL+92
$$GETELGP^IBECEA36 UCVSTDB+20
$$GETVST^IBECEA36 UCVSTDB+32
$$UPDATE^IBECEA38 UPDVST+27
CLOCK^IBECEAU REAS+52
HDR^IBECEAU ONE+1
PAUSE^IBECEAU ONEQ+2
CLSTR^IBECEAU1 REAS+51
REAS^IBECEAU2 REAS+3
CANC^IBECEAU4 REAS+30, REAS+43
CED^IBECEAU4 ONE+4
ERR^IBECEAU4 ONEQ+2
PROC^IBECEAU4 REAS+24
UPSTAT^IBECEAU4 REAS+34
^IBR PASS+3
$$SITE^VASITE REBILL+35
$$FMTE^XLFDT REBILL+26, REBILL+27, REBILL+48
$$RJ^XLFSTR REBILL+61, REBILL+63

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This transaction has already been cancelled.",!
  • Line Location: ONE+6
Function Call: WRITE
  • Prompt: !!,"The selected cancellation reason is inactive."
  • Line Location: REAS+15
Function Call: WRITE
  • Prompt: !,"Please select another cancellation reason.",!!
  • Line Location: REAS+16
Function Call: WRITE
  • Prompt: !!,"This is an Urgent Care Copayment. Please use an Urgent Care cancellation reason.",!,"This transaction cannot be completed.",!
  • Line Location: REAS+21
Function Call: WRITE
  • Prompt: !!,"There is no bill number associated with this charge.",!,"The charge cannot be cancelled."
  • Line Location: REAS+35
Function Call: WRITE
  • Prompt: !!,"Please note that there is no billing clock which would cover this charge.",!,"Be sure that this patient's billing clock is correct."
  • Line Location: REAS+48
Function Call: WRITE
  • Prompt: !!,"Please note that there is no billing clock which would cover this charge.",!,"Be sure that this patient's billing clock is correct."
  • Line Location: REAS+51
Function Call: WRITE
  • Prompt: !,"Passing the cancellation action to AR... "
  • Line Location: PASS+2
Function Call: WRITE
  • Prompt: !!,"Unable to locate the bill in the Urgent Care Visit Tracking Database"
  • Line Location: UPDVST+17
Function Call: WRITE
  • Prompt: !,"for this veteran. Please review and update the Urgent Care Visit "
  • Line Location: UPDVST+18
Function Call: WRITE
  • Prompt: !,"Tracking Maintenance Utility.",!
  • Line Location: UPDVST+19
Function Call: WRITE
  • Prompt: !!,"The selected Cancellation Reason cannot be used when cancelling"
  • Line Location: UCVSTDB+5
Function Call: WRITE
  • Prompt: !,"an Urgent Care Copay."
  • Line Location: UCVSTDB+6
Function Call: WRITE
  • Prompt: !!,"Patient is in Enrollment Group 6 on the day of this visit."
  • Line Location: UCVSTDB+23
Function Call: WRITE
  • Prompt: !,"Urgent Care Visit Tracking for this visit is set to Visit Only."
  • Line Location: UCVSTDB+24
Function Call: WRITE
  • Prompt: !,"If this needs to be a free visit, please update the visit using"
  • Line Location: UCVSTDB+25
Function Call: WRITE
  • Prompt: !,"the Urgent Care Visit Tracking Maintenance Option after RUR review."
  • Line Location: UCVSTDB+26
Function Call: WRITE
  • Prompt: !!,"The following copay charges from the same date may be re-billed:"
  • Line Location: REBILL+57
Function Call: WRITE
  • Prompt: !!," Bill From Bill To Charge Type Bill # Cancel Reason Stop Charge"
  • Line Location: REBILL+58
Function Call: WRITE
  • Prompt: !,IBDASH
  • Line Location: REBILL+59
Function Call: WRITE
  • Prompt: !
  • Line Location: REBILL+65
Function Call: WRITE
  • Prompt: !,"Please review this patient's copayments during this period for potential re-billing."
  • Line Location: REBILL+67
Routine Call
  • DIE
  • Line Location:
    • REAS+36
Routine Call
  • DIR
  • Line Location:
    • ASKRB+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls,  GET1^DIQ
^IBE(350.1 - [#350.1] GET1^DIQ
^IBE(350.3 - [#350.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] REAS+35, REAS+55, REBILL+21, REBILL+86, REBILL+87, REBILL+88, REBILL+89
^IB("AFDT" REBILL+17
^IBE(350.1 - [#350.1] ISINPT+8, ISRX+8
^IBUC(351.82 - [#351.82] FNDVST+4, FNDVST+5, REBILL+39, REBILL+40, REBILL+78, FNDUCV+11, FNDUCV+12
^XUSEC("IB EDIT" REBILL+69

Label References

Name Line Occurrences
$$ASKRB REBILL+74
$$FNDUCV REBILL+35
$$FNDVST UPDVST+15
$$ISINPT REBILL+12
$$ISRX REBILL+11, REBILL+21
ONE CANCAPI+15
ONEQ ONE+4, ONE+5, ONE+7, ONE+8, REAS+5, REAS+19, REAS+24, REAS+27, REAS+30, REAS+33
, REAS+39, REAS+43
PASS REAS+36
REAS ONE+5, ONE+7, REAS+13
REBILL REAS+55
UCVSTDB REAS+27
UPDVST UCVSTDB+11, UCVSTDB+14, UCVSTDB+17, UCVSTDB+22, UCVSTDB+29, UCVSTDB+35, UCVSTDB+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REAS+36*!
>> DFN REAS+39, REAS+51, REAS+55
DIE REAS+36*!
DIR ASKRB+4~
DIR("?" ASKRB+8*
DIR("A" ASKRB+6*, ASKRB+7*
DIR(0 ASKRB+5*
DIROUT ASKRB+4~
DIRUT ASKRB+4~
DR REAS+36*!
DTOUT ASKRB+4~
DUOUT ASKRB+4~
DUZ REBILL+69
IB0 REBILL+6~, REBILL+21*, REBILL+26, REBILL+27, REBILL+30, REBILL+32
IBACT REBILL+6~, REBILL+10*, REBILL+11, REBILL+12, ISINPT~, ISINPT+8, ISRX~, ISRX+8
IBAMC REAS+39*, ONEQ+4!, CANCAPI+9~
IBAPI ONE+1, REAS+55, ONEQ+1, CANCAPI+10~, CANCAPI+13*
IBATYP ONEQ+3!, CANCAPI+8~
IBBLNO UPDVST+8~, UPDVST+11*, UPDVST+12*, UPDVST+14*, UPDVST+15, FNDVST~, FNDVST+4
IBCAN UPDVST~, UPDVST+22, UPDVST+23, UPDVST+24, UPDVST+25
IBCANC ONEQ+4!, CANCAPI+8~, CANCAPI+9~
IBCANTR ONE+6, ONE+7, REAS+33, ONEQ+4!, CANCAPI+8~
IBCC ONE+5, ONE+6*, ONEQ+3!, CANCAPI+9~
IBCHG REAS+50, REAS+52, ONEQ+3!, CANCAPI+8~
>> IBCLDA REAS+51
>> IBCLST REAS+52
IBCNRSLT ONEQ+1*, CANCAPI+10~, CANCAPI+16
IBCNT REBILL+6~, REBILL+9*, REBILL+22*, REBILL+26, REBILL+27, REBILL+28, REBILL+29, REBILL+30, REBILL+31, REBILL+32
, REBILL+33, REBILL+34, REBILL+36, REBILL+47*, REBILL+48, REBILL+49, REBILL+50, REBILL+51, REBILL+54, REBILL+60
, REBILL+74
IBCRES REAS+5, REAS+13, REAS+19, REAS+30, REAS+36, REAS+43, ONEQ+3!, UCVSTDB+3, UCVSTDB+8, CANCAPI+8~
IBCRNT REBILL~, REBILL+13, REBILL+20
IBDASH REBILL+6~, REBILL+56*, REBILL+59
IBDESC ONEQ+3!, CANCAPI+9~
IBDFN REBILL~, REBILL+17, REBILL+35, REBILL+39, FNDUCV~, FNDUCV+10, FNDUCV+13
IBDT REBILL+6~, REBILL+16*, REBILL+17, REBILL+41
IBEDT REBILL+6~, REBILL+15*, REBILL+16
IBELIG UCVSTDB+2~, UCVSTDB+20*, UCVSTDB+21, UCVSTDB+29
IBERROR UPDVST+8~, UPDVST+9*, UPDVST+27
IBEVDA ONEQ+4!, CANCAPI+9~
IBEVDT REBILL~, REBILL+14, REBILL+15, REBILL+35, FNDUCV~, FNDUCV+10, FNDUCV+11
>> IBFAC REBILL+35, REBILL+43
IBFOUND FNDVST+2~, FNDVST+3*, FNDVST+4, FNDVST+6*, FNDUCV+8~, FNDUCV+11*, FNDUCV+16*
IBFR REAS+51, ONEQ+4!, CANCAPI+8~
IBH ONE+7, ONE+8, ONEQ+4!, CANCAPI+8~, CANCAPI+9~
IBHASUC REBILL+6~, REBILL+8*, REBILL+29*, REBILL+39
IBIDX ONEQ+3!, CANCAPI+9~
IBIENS REBILL+6~, REBILL+18*, REBILL+19, REBILL+28, REBILL+31, REBILL+33, REBILL+84*, REBILL+90
IBIL ONE+8, REAS+35*, REAS+36, ONEQ+3!, CANCAPI+8~, CANCAPI+9~
IBINPT REBILL+6~, REBILL+12*, REBILL+14, REBILL+15, REBILL+67
IBJOB CANCAPI+8~, CANCAPI+13*
IBLINES REBILL+6~
IBLINES( REBILL+26*, REBILL+27*, REBILL+28*, REBILL+29, REBILL+30*, REBILL+31*, REBILL+32*, REBILL+33*, REBILL+34*, REBILL+36*
, REBILL+48*, REBILL+49*, REBILL+50*, REBILL+51*, REBILL+61, REBILL+62, REBILL+63, REBILL+77, REBILL+78, REBILL+80
, REBILL+84, REBILL+86, REBILL+87, REBILL+88, REBILL+89, REBILL+91
IBN ONE+4, REAS+30, REAS+34, REAS+36, REAS+41, REAS+43, ONEQ+4!, PASS+3, UPDVST+11, UPDVST+13
, UPDVST+15, FNDVST~, FNDVST+6, CANCAPI~
IBND ONE+6, ONE+7, REAS+19, REAS+27, REAS+39, ONEQ+3!, UCVSTDB+20, UCVSTDB+32, CANCAPI+8~, REBILL+10
, REBILL+14, REBILL+15
IBNOFRVS UCVSTDB+2~, UCVSTDB+32*, UCVSTDB+35
IBNOS ONEQ+4!, PASS+3*, CANCAPI+9~
IBNUM ASKRB~, ASKRB+5, ASKRB+7, ASKRB+8
IBPARNT REAS+34, REAS+35, ONEQ+4!, CANCAPI+8~, CANCAPI+9~
IBREAS UPDVST+8~, UPDVST+22*, UPDVST+23*, UPDVST+24*, UPDVST+25*, UPDVST+27
IBREB ONEQ+4!, CANCAPI+9~
IBREBILL REBILL+6~
IBREBILL("BILLFR" REBILL+78*, REBILL+87*
IBREBILL("BILLTO" REBILL+78*, REBILL+88*
IBREBILL("CHRGAMT" REBILL+90*
IBREBILL("CHRGTYPE" REBILL+79*, REBILL+89*
IBREBILL("EVDT" REBILL+78*, REBILL+86*
IBREBILL("UC" REBILL+80*, REBILL+91*
IBRES FNDUCV+8~, FNDUCV+9*, FNDUCV+10, FNDUCV+16*, FNDUCV+18
IBRTN UPDVST+8~, UPDVST+27*
IBSDT REBILL+6~, REBILL+14*, REBILL+16
IBSEQNO ONEQ+3!, CANCAPI+8~, CANCAPI+9~
IBSERV PASS+1~
IBSITE UPDVST+12, FNDUCV~, FNDUCV+10, FNDUCV+15
IBSL ONEQ+4!, CANCAPI+9~
IBSTAT UPDVST+8~, UPDVST+13*, UPDVST+14, UPDVST+22*, UPDVST+23*, UPDVST+24*, UPDVST+25*, UPDVST+27
IBSVIEN REAS+1~, REAS+41*, REAS+55
IBTO ONEQ+4!, CANCAPI+9~
IBTOTL ONEQ+3!, CANCAPI+9~
IBUC0 REBILL+6~, REBILL+40*, REBILL+41, REBILL+42, REBILL+43, REBILL+48, FNDUCV+8~, FNDUCV+12*, FNDUCV+13, FNDUCV+14
, FNDUCV+15
IBUCBH UCVSTDB+2~, UCVSTDB+8*, UCVSTDB+11, UCVSTDB+14, UCVSTDB+17
IBUCFLG REBILL+6~, REBILL+13*, REBILL+46
IBUCIEN REBILL+6~, REBILL+35*, REBILL+36
IBUCSKIP REBILL+6~, REBILL+9*, REBILL+46*
IBUNIT REAS+52, ONEQ+3!, CANCAPI+8~
IBVSTD FNDVST+2~, FNDVST+5*, FNDVST+6
IBVSTDT FNDVST~, FNDVST+6
IBVSTIEN UPDVST+8~, UPDVST+15*, UPDVST+16, UPDVST+27, FNDVST+2~, FNDVST+3*, FNDVST+4*, FNDVST+5, FNDVST+7
IBXA ONE+5, REAS+30, REAS+50, ONEQ+4!, CANCAPI+8~
IBY ONE+4, ONE+8*, REAS+6*, REAS+13, REAS+14*, REAS+19, REAS+20*, REAS+24, REAS+27, REAS+39
, REAS+43, ONEQ+1, ONEQ+2, ONEQ+4!, PASS+3*, UCVSTDB+4*, CANCAPI+9~, CANCAPI+13*
IBZ REBILL+6~, REBILL+17*, REBILL+18, REBILL+20, REBILL+21, REBILL+34, REBILL+39*, REBILL+40, REBILL+51, REBILL+60*
, REBILL+61, REBILL+62, REBILL+63, REBILL+74*, REBILL+77, REBILL+78, REBILL+80, REBILL+84, REBILL+86, REBILL+87
, REBILL+88, REBILL+89, REBILL+91, FNDUCV+8~, FNDUCV+11*, FNDUCV+12, FNDUCV+16
RES ASKRB+4~, ISINPT+6~, ISINPT+7*, ISINPT+8*, ISINPT+9, ISRX+6~, ISRX+7*, ISRX+8*, ISRX+9
U REAS+19, REAS+27, REAS+50, REAS+55, FNDVST+6, UCVSTDB+20, UCVSTDB+32, REBILL+10, REBILL+14, REBILL+15
, REBILL+21, REBILL+26, REBILL+27, REBILL+28, REBILL+29, REBILL+30, REBILL+31, REBILL+32, REBILL+33, REBILL+41
, REBILL+42, REBILL+43, REBILL+48, REBILL+49, REBILL+50, REBILL+61, REBILL+62, REBILL+63, REBILL+78, REBILL+86
, REBILL+87, REBILL+88, REBILL+89, ISINPT+8, ISRX+8, FNDUCV+13, FNDUCV+14, FNDUCV+15
X ASKRB+4~
Y PASS+3, ASKRB+4~, ASKRB+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 |  Local Variables  | All