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

Package: Integrated Billing

Routine: IBECEA1


Information

IBECEA1 ;ALB/RLW - Cancel/Edit/Add... Action Entry Points ; Sep 30, 2020@15:16:44

Source Information

Source file <IBECEA1.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Integrated Billing 13 ^IBAERR1  IVM^IBAMTV32  SERV^IBAUTL2  CLADD^IBAUTL3  $$COPAYCHK^IBAUTL8  $$PFSSWARN^IBBSHDWN  ARRAY^IBECEA0  ($$DUPCPYCHK,$$GETINFO,CPYDISPLAY)^IBECEA1  
^IBECEA3  UPDATE^IBECEA38  $$FNDVST^IBECEA4  ($$CDCHK,$$CHKST44,$$ISCDELIG,$$OECHK,$$UPDATE,MESS2B)^IBECEAMH  ^IBR  
List Manager 2 ($$SETSTR,FULL)^VALM1  EN^VALM2  
VA FileMan 2 ($$GET1,Y)^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Uncategorized 1 ^@(  

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

Package Total Caller Graph
Integrated Billing 6 IBACM ADD CHARGE ONE  IBACM CANCEL CHARGE ONE  IBACM PASS CHARGE  IBACM UPDATE CHARGE ONE  IBECEA1  IBRREL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
PASS ; 'Pass a Charge' Entry Action (added by Jim Moore 4/30/92)
MSG ; Display results message.
ADD ; 'Add a Charge' Entry Action
UPD ; 'Edit a Charge' Entry Action
CAN ; 'Cancel a Charge' Entry Action
CANQ
PAUSE ; Keep this around for awhile.
DUPCPYCHK(IBIENS) ;
; Input: IBIENS = A single charge IEN to release or a series of charge IENs separated by commas
; Output: 0: No Duplicate Copay exists for the patient/date
; #: IEN of the Duplicate Copay
; If the charge currently being released is a Copay charge, then check for duplicates
; All charges including ON HOLD Copay charges will be in the ACHDT x-ref
IBARY(IBIENS,IBARY) ; Process user selection and save in IBARY ordered by priority
; IBARY will only contain the Copay related charges that need to be checked for duplicates.
; Input: Y = A single charge IEN to release or a series of charge IENs separated by commas
; IBARY = Array name passed by reference for return array.
; Output: IBARY(Date of Interest, Priority Index, IEN in "#350)=""
GETINFO(IBIEN) ; Display Duplicate Copay info to the user.
; IBIEN = Existing Copay already charged for Patient/Date
CPYDISPLAY(IBIEN1,IBIEN2) ; Display Duplicate Copay info to the user.
; Input: IBIEN1 - IEN of 1st charge - Currently in IB
; IBIEN2 - IEN of 2nd charge - Could be in IB or AR

External References

Name Field # of Occurrence
^@( CAN+5
$$GET1^DIQ PASS+60, GETINFO+4, GETINFO+6, GETINFO+7, GETINFO+8, GETINFO+9, GETINFO+11, GETINFO+12, CPYDISPLAY+13
Y^DIQ PASS+44
^DIR MSG+3, PAUSE+1
^IBAERR1 MSG+2
IVM^IBAMTV32 PASS+78
SERV^IBAUTL2 PASS+74
CLADD^IBAUTL3 PASS+75
$$COPAYCHK^IBAUTL8 DUPCPYCHK+21
$$PFSSWARN^IBBSHDWN PASS+6, ADD+1, CAN+2
ARRAY^IBECEA0 CAN+6
$$DUPCPYCHK^IBECEA1 PASS+14
$$GETINFO^IBECEA1 CPYDISPLAY+9, CPYDISPLAY+10, CPYDISPLAY+17
CPYDISPLAY^IBECEA1 PASS+18
^IBECEA3 ADD+2
UPDATE^IBECEA38 PASS+56
$$FNDVST^IBECEA4 PASS+54
$$CDCHK^IBECEAMH PASS+60
$$CHKST44^IBECEAMH PASS+61
$$ISCDELIG^IBECEAMH PASS+61
$$OECHK^IBECEAMH PASS+62
$$UPDATE^IBECEAMH PASS+65
MESS2B^IBECEAMH PASS+65
^IBR PASS+42
$$SETSTR^VALM1 PASS+45, PASS+47
FULL^VALM1 PASS+17
EN^VALM2 PASS+5, CAN+1
$$FMTE^XLFDT GETINFO+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(IBY>0:"done.",1:"error (see msg)")
  • Line Location: PASS+75
Function Call: WRITE
  • Prompt: !,"Passing billing data to the IVM package... "
  • Line Location: PASS+78
Function Call: WRITE
  • Prompt: "done."
  • Line Location: PASS+78
Function Call: WRITE
  • Prompt: !,"Charge #"_IBII_" "_IBMSG
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"Rebuilding list of charges..."
  • Line Location: CAN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CPYDISPLAY+19
Function Call: WRITE
  • Prompt: !,"patient/date."
  • Line Location: CPYDISPLAY+23
Function Call: WRITE
  • Prompt: !,"Also check the following Outpatient Observation charge."
  • Line Location: CPYDISPLAY+25
Function Call: WRITE
  • Prompt: !!,"Date Charge Type Stop Charge"
  • Line Location: CPYDISPLAY+26
Function Call: WRITE
  • Prompt: !,"The first charge is currently On Hold, the second charge has already been"
  • Line Location: CPYDISPLAY+31
Function Call: WRITE
  • Prompt: !,"passed to AR:"
  • Line Location: CPYDISPLAY+32
Function Call: WRITE
  • Prompt: !,"Also check the following Outpatient Observation charge."
  • Line Location: CPYDISPLAY+34
Function Call: WRITE
  • Prompt: !!,"Date Charge Type Stop Charge Bill Transaction"
  • Line Location: CPYDISPLAY+35
Function Call: WRITE
  • Prompt: !,"================================================================================"
  • Line Location: CPYDISPLAY+38
Function Call: WRITE
  • Prompt: !,IBTEXT1
  • Line Location: CPYDISPLAY+39
Function Call: WRITE
  • Prompt: !,IBTEXT2
  • Line Location: CPYDISPLAY+40
Function Call: WRITE
  • Prompt: !,IBTEXT3
  • Line Location: CPYDISPLAY+41
Function Call: WRITE
  • Prompt: !!,"Please review these charges and determine what action(s) should be taken."
  • Line Location: CPYDISPLAY+43
Routine Call
  • DIR
  • Line Location:
    • MSG+3
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ
^IBE(352.5 - [#352.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(350 PASS+44
^IB - [#350] PASS+27, PASS+32, PASS+33, PASS+43, PASS+71, IBARY+8
^IBE(350.1 - [#350.1] PASS+38, PASS+39, PASS+52, PASS+59, PASS+70
^IBE(350.21 - [#350.21] PASS+35
^IBE(351 - [#351] PASS+71
^IBMH(351.83 - [#351.83] PASS+64
^TMP("IBACM" PASS+11, PASS+28, PASS+48*
^TMP("IBACMIDX" PASS+12, PASS+29

Label References

Name Line Occurrences
CANQ CAN+1
IBARY DUPCPYCHK+10
MSG PASS+27
PAUSE CPYDISPLAY+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C PASS+1~, PASS+44*
>> DFN PASS+71, DUPCPYCHK+21
DIR MSG+3!, PAUSE+1!
DIR(0 MSG+3*, PAUSE+1*
IBAFY PASS+1~
IBARTYP PASS+2~
IBARY DUPCPYCHK+6~, DUPCPYCHK+10, DUPCPYCHK+12, IBARY~
IBARY( DUPCPYCHK+15, DUPCPYCHK+17, DUPCPYCHK+19, IBARY+19*, IBARY+22*, IBARY+25*, IBARY+27*, IBARY+30*, IBARY+33*
IBAT IBARY+5~, IBARY+11*, IBARY+12, IBARY+16*, IBARY+19, IBARY+21, IBARY+24, IBARY+27, IBARY+29, IBARY+32
IBATYP PASS+1~, GETINFO+2~, GETINFO+4*, GETINFO+5*, GETINFO+15
IBATYPE PASS+3~, PASS+37*, PASS+38, PASS+39, PASS+52, PASS+59, PASS+70
IBAUPD UPD+1*, CAN+2, CAN+5, CAN+7!
IBBG CAN+6*, CAN+7!
IBBIL GETINFO+2~, GETINFO+7*, GETINFO+18
IBBLNO PASS+3~, PASS+46*, PASS+47, PASS+52, PASS+56, PASS+63, PASS+65
IBCDCHK PASS+3~, PASS+58*, PASS+59*, PASS+60*, PASS+61*, PASS+62*, PASS+63
>> IBCLDT PASS+73*
IBCOMMIT CAN+4*, CAN+6, CAN+7!
IBCSTOP GETINFO+2~, GETINFO+9*, GETINFO+10*, GETINFO+16
IBDATA0 IBARY+5~, IBARY+8*, IBARY+9, IBARY+11, IBARY+14, IBARY+16
IBDATE GETINFO+2~, GETINFO+11*, GETINFO+12*, GETINFO+13*, GETINFO+14
IBDT DUPCPYCHK+6~, DUPCPYCHK+14*, DUPCPYCHK+15*, DUPCPYCHK+17, DUPCPYCHK+19, IBARY+5~, IBARY+14*, IBARY+16, IBARY+17, IBARY+19
, IBARY+22, IBARY+25, IBARY+27, IBARY+30, IBARY+33
IBDUPCPY PASS+9~*, PASS+10, PASS+14*, PASS+16, PASS+18, PASS+24, MSG+1, DUPCPYCHK+6~, DUPCPYCHK+8*, DUPCPYCHK+15
, DUPCPYCHK+17, DUPCPYCHK+19, DUPCPYCHK+21*, DUPCPYCHK+23, DUPCPYCHK+26
IBERROR PASS+1~, PASS+56, PASS+65
IBEXCOPAY PASS+2~
IBFLAG CPYDISPLAY+8~, CPYDISPLAY+14*, CPYDISPLAY+21, CPYDISPLAY+29
IBFR PASS+3~, PASS+50*, PASS+54, PASS+60, PASS+61
IBHLDR PASS+1~, PASS+40*, PASS+78
IBIEN DUPCPYCHK+6~, DUPCPYCHK+18*, DUPCPYCHK+19*, DUPCPYCHK+21, IBARY+5~, IBARY+7*, IBARY+8, IBARY+19, IBARY+22, IBARY+25
, IBARY+27, IBARY+30, IBARY+33, GETINFO~, GETINFO+4, GETINFO+6, GETINFO+7, GETINFO+8, GETINFO+9, GETINFO+11
, GETINFO+12
IBIEN1 CPYDISPLAY~, CPYDISPLAY+6, CPYDISPLAY+9
IBIEN2 CPYDISPLAY~, CPYDISPLAY+6, CPYDISPLAY+10, CPYDISPLAY+13, CPYDISPLAY+17
IBIENS DUPCPYCHK~, DUPCPYCHK+10, IBARY~, IBARY+7
IBII PASS+1~, PASS+10*, PASS+11, PASS+12, PASS+27*, PASS+28, PASS+29, PASS+48, MSG+2
IBIL PASS+2~
IBINDX IBARY+5~, IBARY+7*
IBLINE PASS+1~, PASS+11*, PASS+28*, PASS+45*, PASS+47*, PASS+48
IBMHVST PASS+3~, PASS+64*, PASS+65
IBMSG PASS+1~, PASS+32*, PASS+33*, PASS+34*, PASS+35*, PASS+36*, PASS+38*, PASS+39*, PASS+49*, MSG+2
IBN PASS+2~
IBNBR CAN+4*, CAN+5*, CAN+7!
IBND PASS+1~, PASS+33*, PASS+34, PASS+35, PASS+36, PASS+37, PASS+43*, PASS+44, PASS+46, PASS+50
, PASS+54, PASS+58, PASS+71, PASS+73, PASS+78
>> IBNOD(0 CAN+1
IBNOS PASS+1~, PASS+29*
IBNOS2 PASS+2~, PASS+12*, PASS+14, PASS+18, PASS+27, PASS+29*, PASS+32, PASS+33, PASS+43, PASS+64
, PASS+71
IBOEEVDT PASS+3~, PASS+58*, PASS+62
IBOENC PASS+3~, PASS+58*, PASS+61, PASS+62
IBPRTY DUPCPYCHK+6~, DUPCPYCHK+16*, DUPCPYCHK+17*, DUPCPYCHK+19
IBSEQNO PASS+2~, PASS+38*
IBSERV PASS+2~, PASS+74
IBSTAT PASS+1~, PASS+35*, PASS+40, PASS+44*, PASS+49
IBSTOPDA PASS+3~, PASS+58*, PASS+60
IBTCH GETINFO+2~, GETINFO+6*, GETINFO+17
IBTEXT GETINFO+2~, GETINFO+14*, GETINFO+15*, GETINFO+16*, GETINFO+17*, GETINFO+18*, GETINFO+19*, GETINFO+20
IBTEXT1 CPYDISPLAY+8~, CPYDISPLAY+9*, CPYDISPLAY+39
IBTEXT2 CPYDISPLAY+8~, CPYDISPLAY+10*, CPYDISPLAY+40
IBTEXT3 CPYDISPLAY+8~, CPYDISPLAY+11*, CPYDISPLAY+17*, CPYDISPLAY+22, CPYDISPLAY+24, CPYDISPLAY+30, CPYDISPLAY+33, CPYDISPLAY+41
IBTOTL PASS+2~
IBTRAN PASS+2~
IBTRANS CPYDISPLAY+8~, CPYDISPLAY+13*, CPYDISPLAY+14
IBTRN GETINFO+2~, GETINFO+8*, GETINFO+19
IBVSTIEN PASS+2~, PASS+54*, PASS+56
IBXA PASS+2~, PASS+70*, PASS+71
IBY PASS+1~, PASS+11*, PASS+28*, PASS+38*, PASS+42*, PASS+49, PASS+75, MSG+2
U PASS+37, PASS+46, PASS+50, PASS+52, PASS+54, PASS+58, PASS+59, IBARY+11, IBARY+14, IBARY+16
, CPYDISPLAY+17
>> VALMBCK PASS+5*, PASS+6*, PASS+20*, ADD+1*, CAN+1*, CAN+2*, CAN+4*
>> VALMBG CAN+6*
>> VALMDDF("BILL#" PASS+47
>> VALMDDF("STATUS" PASS+45
>> VALMY PASS+6
>> VALMY( PASS+10, PASS+27, CAN+5
>> VALMY(0 CAN+1
>> XQORNOD(0 PASS+5
Y PASS+2~, PASS+42, PASS+44*, PASS+45
Z PASS+3~, PASS+65*
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