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

Package Total Call Graph
Integrated Billing 12 $$GETMHFR^IBAMTC  FOUND^IBARXMA  $$CANCEL^IBARXMN  ADD^IBECEA3  ($$GETELGP,$$GETVST)^IBECEA36  $$UPDATE^IBECEA38  ($$CDCHK,$$CHKST44,$$ISCDELIG,$$NUMVSTCK,$$OECHK,MESS3,UPDVST)^IBECEAMH  (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+83
$$GET1^DIQ REAS+17, REAS+23, REAS+37, REAS+45, REAS+51, REAS+60, REAS+74, REAS+95, 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
$$GETMHFR^IBAMTC REAS+97
FOUND^IBARXMA REAS+86
$$CANCEL^IBARXMN REAS+86
ADD^IBECEA3 REBILL+81, REBILL+92
$$GETELGP^IBECEA36 UCVSTDB+20
$$GETVST^IBECEA36 UCVSTDB+32
$$UPDATE^IBECEA38 UPDVST+27
$$CDCHK^IBECEAMH REAS+38
$$CHKST44^IBECEAMH REAS+39
$$ISCDELIG^IBECEAMH REAS+39
$$NUMVSTCK^IBECEAMH REAS+56
$$OECHK^IBECEAMH REAS+43
MESS3^IBECEAMH REAS+52, REAS+61
UPDVST^IBECEAMH REAS+98
CLOCK^IBECEAU REAS+110
HDR^IBECEAU ONE+3
PAUSE^IBECEAU ONEQ+2
CLSTR^IBECEAU1 REAS+109
REAS^IBECEAU2 REAS+7
CANC^IBECEAU4 REAS+77, REAS+90
CED^IBECEAU4 ONE+6
ERR^IBECEAU4 ONEQ+2
PROC^IBECEAU4 REAS+71
UPSTAT^IBECEAU4 REAS+81
^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+8
Function Call: WRITE
  • Prompt: !!,"The selected cancellation reason is inactive."
  • Line Location: REAS+19
Function Call: WRITE
  • Prompt: !,"Please select another cancellation reason.",!!
  • Line Location: REAS+20
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+25
Function Call: WRITE
  • Prompt: !!,"There is no bill number associated with this charge.",!,"The charge cannot be cancelled."
  • Line Location: REAS+82
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+106
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+109
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+83
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
^IBE(352.5 - [#352.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] REAS+82, REAS+113, REBILL+21, REBILL+86, REBILL+87, REBILL+88, REBILL+89
^IB("AFDT" REBILL+17
^IBE(350.1 - [#350.1] REAS+30, REAS+32, ISINPT+8, ISRX+8
^IBMH(351.83 - [#351.83] REAS+31
^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+6, ONE+7, ONE+9, ONE+10, REAS+9, REAS+23, REAS+45, REAS+71, REAS+74, REAS+77
, REAS+80, REAS+86, REAS+90
PASS REAS+83
REAS ONE+7, ONE+9, REAS+17, REAS+51, REAS+55
REBILL REAS+113
UCVSTDB REAS+74
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+83*!
>> DFN REAS+56, REAS+86, REAS+97, REAS+109, REAS+113
DIE REAS+83*!
DIR ASKRB+4~
DIR("?" ASKRB+8*
DIR("A" ASKRB+6*, ASKRB+7*
DIR(0 ASKRB+5*
DIROUT ASKRB+4~
DIRUT ASKRB+4~
DR REAS+83*!
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+86*, ONEQ+4!, CANCAPI+9~
IBAPI ONE+3, REAS+113, 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+8, ONE+9, REAS+80, ONEQ+4!, CANCAPI+8~
IBCC ONE+7, ONE+8*, ONEQ+3!, CANCAPI+9~
IBCHG REAS+108, REAS+110, ONEQ+3!, CANCAPI+8~
>> IBCLDA REAS+109
>> IBCLST REAS+110
IBCNMH REAS+95*, REAS+96, REAS+97*, REAS+98, ONEQ+4!
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+9, REAS+17, REAS+23, REAS+45, REAS+51, REAS+60, REAS+77, REAS+83, REAS+90, REAS+95
, 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
>> IBFLG REAS+6*
IBFOUND FNDVST+2~, FNDVST+3*, FNDVST+4, FNDVST+6*, FNDUCV+8~, FNDUCV+11*, FNDUCV+16*
IBFR REAS+39, REAS+56, REAS+97, REAS+109, ONEQ+4!, CANCAPI+8~
IBH ONE+9, ONE+10, 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+10, REAS+82*, REAS+83, 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
IBLPFLG ONE+1~, REAS+4*, REAS+55, REAS+62*
IBN ONE+6, REAS+31, REAS+77, REAS+81, REAS+83, REAS+88, REAS+90, ONEQ+4!, PASS+3, UPDVST+11
, UPDVST+13, UPDVST+15, FNDVST~, FNDVST+6, CANCAPI~
IBND ONE+8, ONE+9, REAS+23, REAS+30, REAS+32, REAS+33, REAS+35, REAS+38, REAS+74, REAS+86
, 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
IBOEEVDT REAS+2~, REAS+35*, REAS+43
IBOENC REAS+2~, REAS+35*, REAS+39, REAS+43
IBPARNT REAS+81, REAS+82, 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
IBSTCD REAS+2~, REAS+37*, REAS+38
IBSTCHCK REAS+28*, REAS+31*, REAS+32*, REAS+38*, REAS+39*, REAS+41, REAS+43*, REAS+45, REAS+51, REAS+55
, REAS+94, ONEQ+4!
IBSTOPDA REAS+2~, REAS+33*, REAS+36, REAS+37
IBSVIEN REAS+1~, REAS+88*, REAS+98, REAS+113
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+110, 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+7, REAS+77, REAS+108, ONEQ+4!, CANCAPI+8~
IBY ONE+6, ONE+10*, REAS+10*, REAS+17, REAS+18*, REAS+23, REAS+24*, REAS+46*, REAS+71, REAS+74
, REAS+86, REAS+90, 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
NUMVSTFL REAS+2~, REAS+56*, REAS+57
RES ASKRB+4~, ISINPT+6~, ISINPT+7*, ISINPT+8*, ISINPT+9, ISRX+6~, ISRX+7*, ISRX+8*, ISRX+9
U REAS+23, REAS+30, REAS+32, REAS+33, REAS+35, REAS+38, REAS+74, REAS+108, REAS+113, 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