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

Package: Integrated Billing

Routine: IBCC


Information

IBCC ;ALB/MJB - CANCEL THIRD PARTY BILL ;Feb 09, 2018@10:11:43

Source Information

Source file <IBCC.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Integrated Billing 13 (NOPTF,NOPTF1)^IBCB2  BULL^IBCBULL  RNB^IBCC1  $$ITN^IBCCC  PRIOR^IBCCC2  BSTAT^IBCDC  $$COB^IBCEF  ($$LAST364,$$MRASEC)^IBCEF4  
UPDEDI^IBCEM  ($$MRACNT,$$SPLIT2,$$SPLTMRA)^IBCEMU1  ($$MRAWL,TXSTS)^IBCEMU2  ST2^IBCIST  $$CM^IBCIUT1  
VA FileMan 5 ^DIC  YN^DICN  (,FILE)^DIE  $$GET1^DIQ  ^DIR  
Accounts Receivable 2 $$TPR^PRCAFN  $$CANCEL^RCBEIB  
List Manager 1 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: 5

Package Total Caller Graph
Integrated Billing 5 IBCCC  IBCEM3  IBCEMCA2  IBCIMG  IBCMENU  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
NOPTF ; Note if IB364 is >0 it will be used as the ien to update in file 364
CHK ;
; if user came from CLON, make sure they know about the new CRD option IB*2.0*447 remove TRICARE msg.
NO
HELP
1
Q1
Q
CRD(IBIFN) ; entry to point to add iteration # to claim
PROCESS(IBIFN,IBCAN) ;
; Entry point when the bill number is already known. Use this when
; you just want to try to cancel this bill and this bill only.
; Input:
; IBIFN - Internal bill# (Required)
; IBCAN - Cancel Flag (optional, defaults to 1 if not included)
LOCKED ; -- write record locked message IB*2.0*597

External References

Name Field # of Occurrence
^DIC ASK+18
YN^DICN CHK+7
^DIE CHK+16, CRD+8
FILE^DIE CRD+4
$$GET1^DIQ NOPTF+93
^DIR NOPTF+98
NOPTF^IBCB2 NOPTF+4
NOPTF1^IBCB2 NOPTF+4
BULL^IBCBULL NO+4
RNB^IBCC1 NO+25
$$ITN^IBCCC CRD+2
PRIOR^IBCCC2 NO+4
BSTAT^IBCDC NO+4
$$COB^IBCEF NOPTF+75
$$LAST364^IBCEF4 NO+11
$$MRASEC^IBCEF4 NO+13
UPDEDI^IBCEM NO+13
$$MRACNT^IBCEMU1 NOPTF+57
$$SPLIT2^IBCEMU1 NOPTF+46
$$SPLTMRA^IBCEMU1 NOPTF+46
$$MRAWL^IBCEMU2 NOPTF+28
TXSTS^IBCEMU2 NOPTF+59
ST2^IBCIST NO+8
$$CM^IBCIUT1 NO+8
$$TPR^PRCAFN NOPTF+85, NOPTF+87
$$CANCEL^RCBEIB NO+22
PAUSE^VALM1 LOCKED+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !,"This bill has been referred to Regional Counsel and cannot be 'CANCELLED' in"
  • Line Location: NOPTF+13
Function Call: WRITE
  • Prompt: !,"Integrated Billing. Please use the option 'TP Referred Follow-up'"
  • Line Location: NOPTF+14
Function Call: WRITE
  • Prompt: !,"[PRCA RC ACTION MENU] in Accounts Receivable to request that Regional"
  • Line Location: NOPTF+15
Function Call: WRITE
  • Prompt: !,"Counsel return the bill to your facility."
  • Line Location: NOPTF+16
Function Call: WRITE
  • Prompt: !!?4,"This bill is in a status of REQUEST MRA and it does appear on the"
  • Line Location: NOPTF+29
Function Call: WRITE
  • Prompt: !?4,"MRA Management Work List. Please use the 'MRA Management Menu' options"
  • Line Location: NOPTF+30
Function Call: WRITE
  • Prompt: !?4,"for all processing related to this bill."
  • Line Location: NOPTF+31
Function Call: WRITE
  • Prompt: !!?4,"This bill appears on the CBW Management Work List. Please use the"
  • Line Location: NOPTF+36
Function Call: WRITE
  • Prompt: !?4,"'CBW Management Menu' options for all processing related to this bill."
  • Line Location: NOPTF+37
Function Call: WRITE
  • Prompt: !?4,"No MRAs have been received"
  • Line Location: NOPTF+63
Function Call: WRITE
  • Prompt: ", but the most recent transmission of this",!?4,"MRA request bill was rejected."
  • Line Location: NOPTF+64
Function Call: WRITE
  • Prompt: " and there are no rejection messages on file",!?4,"for the most recent transmission of this MRA request bill."
  • Line Location: NOPTF+65
Function Call: WRITE
  • Prompt: !!,"Please note that COB data may exist for this bill."
  • Line Location: NOPTF+76
Function Call: WRITE
  • Prompt: !,"Copy and cancel (CLON) must be used to correct this bill."
  • Line Location: NOPTF+77
Function Call: WRITE
  • Prompt: !!,"Please note a PAYMENT of **$"_$$TPR^PRCAFN(IBIFN)_"** has been POSTED to this bill."
  • Line Location: NOPTF+87
Function Call: WRITE
  • Prompt: !!!?5,"This bill was created by the"
  • Line Location: NOPTF+94
Function Call: WRITE
  • Prompt: !?5,"Electronic Claims Management Engine (ECME)."
  • Line Location: NOPTF+95
Function Call: WRITE
  • Prompt: !?5,"Cancellation needs to occur in the ECME package by"
  • Line Location: NOPTF+96
Function Call: WRITE
  • Prompt: !?5,"submitting a REVERSAL to the Payer.",!!
  • Line Location: NOPTF+97
Function Call: WRITE
  • Prompt: !!,"<PLEASE SUBMIT A REVERSAL USING THE APPROPRIATE OPTION IN THE ECME PACKAGE>",$C(7)
  • Line Location: NOPTF+99
Function Call: WRITE
  • Prompt: !!,"LAST CHANCE TO CHANGE YOUR MIND..."
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !!,"<NO ACTION TAKEN>",*7
  • Line Location: NO+0
Function Call: WRITE
  • Prompt: !!,"...Bill has been cancelled..."
  • Line Location: NO+4
Function Call: WRITE
  • Prompt: !,$S(X:">> The receivable associated with the claim was cancelled.",1:">> The receivable associated with the claim was not cancelled.")
  • Line Location: NO+23
Function Call: WRITE
  • Prompt: !,">>> ",$P(X,U,2)
  • Line Location: NO+24
Function Call: WRITE
  • Prompt: !,?3,"Answer 'YES' or 'Y' if you wish to cancel this bill.",!,?3,"Answer 'NO' or 'N' if you want to abort."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"This record was re-opened on "
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !!,"Sorry, another user currently editing this entry."
  • Line Location: LOCKED+1
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: LOCKED+2
Routine Call
  • DIC
  • Line Location:
    • ASK+18
Routine Call
  • DIE
  • Line Location:
    • CHK+16
    • CRD+8
Routine Call
  • DIE
  • Line Location:
    • CRD+4
Routine Call
  • DIR
  • Line Location:
    • NOPTF+98

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" NOPTF+70, 1
^DGCR(399 - [#399] ASK+14, ASK+22, NOPTF+6, NOPTF+9, NOPTF+19, NOPTF+35, NOPTF+46, NOPTF+49, NOPTF+66, NOPTF+78
, NOPTF+86, NOPTF+89, NO+1, NO+15, Q+1
^IBE(350.9 - [#350.9] NO+17
^PRCA(430 - [#430] NOPTF+12
^VA(200 - [#200] NOPTF+70

Label References

Name Line Occurrences
1 NOPTF+69
ASK ASK+22, NOPTF+3, NOPTF+4, NOPTF+12, NOPTF+28, NOPTF+35, NOPTF+93, NO, NO+26, 1+1
, PROCESS+10
CHK HELP, 1
HELP CHK+7
LOCKED ASK+22
NO CHK+7
Q ASK+8, ASK+11, ASK+12, NO, NO+26
Q1 ASK+18

Naked Globals

Name Field # of Occurrence
^( NO+15
^(0 NOPTF+70
^(2 NO+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHK+7*, Q!
DA NOPTF+1~, CHK+10*, CRD+6*
DFN Q!
DIC ASK+18*, Q!
DIC("A" ASK+18*
DIC(0 ASK+18*
DIE CHK+10*, CHK+16!, Q!, CRD+6*, CRD+8!
DIE("NO^" CHK+10*
>> DILOCKTM ASK+22
DIR NOPTF+98!
DIR("A" NOPTF+98*
DIR("B" NOPTF+98*
DIR(0 NOPTF+98*
DPTNOFZY ASK+17~*
DR CHK+11*, CHK+12*, CHK+15*, CHK+16!, Q!, CRD+7*, CRD+8!
I NOPTF+1~, NOPTF+19*, NO+15*
IB Q!
IB( NOPTF+19*, NO+15*
IB("S" NOPTF+69, NOPTF+70, NO+16, NO+17, NO+18
IB("U1" NO+16
IB(0 NOPTF+20, 1
IB364 ASK+19!, NO+10
IBAC1 NOPTF+4, Q!
IBARST Q!
IBCAN IBCC+6*, NOPTF+4, NOPTF+69, NO, NO+25, NO+26, Q1!, PROCESS~, PROCESS+9*
>> IBCCCC CHK+7*, NO
>> IBCCR NO+1*
>> IBCE("EDI" ASK+11, NOPTF+28
>> IBCEAUTO CHK+7, CHK+9, CHK+12
>> IBCICNCL NO+8
IBCIERR NO+8!
IBCIREDT NO+8!
IBCISNT NO+8*!
IBCISTAT NO+8!
>> IBCNCOPY CHK+2
>> IBCNCRD NOPTF+6, NOPTF+46, NOPTF+62, NOPTF+66, NOPTF+75, NOPTF+86, NOPTF+89, NO+21
>> IBCNCSA NOPTF+61
IBEDI NO+10*, NO+11*, NO+13, Q!
IBEPAR Q!
IBFDA CRD+1~
IBFDA(399 CRD+3*
IBIFN NOPTF+2*, NOPTF+3, NOPTF+6, NOPTF+12, NOPTF+19, NOPTF+28, NOPTF+35, NOPTF+46, NOPTF+57, NOPTF+59
, NOPTF+75, NOPTF+85, NOPTF+87, NOPTF+93, CHK+10, NO+1, NO+4, NO+8, NO+11, NO+13
, NO+15, NO+16, CRD~, CRD+2, CRD+3, CRD+6, PROCESS~
>> IBITN CRD+2*, CRD+3
IBLOCK ASK+14!, ASK+21*, ASK+22, NOPTF+9, NOPTF+49, NOPTF+66, NOPTF+78, NOPTF+86, NOPTF+89, Q+1!
>> IBMCSCAN CHK+7
>> IBMCSRSC CHK+15
>> IBMRANOT NOPTF+35
IBNOASK ASK+8, ASK+9*, ASK+18, NOPTF+2, PROCESS+7~, PROCESS+8*
IBQUIT ASK+16*, ASK+18*, NOPTF+10*, NOPTF+38*, NOPTF+50*, NOPTF+57, NOPTF+66*, NOPTF+71*, NOPTF+79*, NOPTF+86*
, NOPTF+89*, CHK+7*, NO*, Q1!
IBRETSPLT NOPTF+45~, NOPTF+46
IBRETSPLT("" NOPTF+46
IBSTAT NOPTF+20*, NOPTF+28, NOPTF+57, Q!
>> IBU NOPTF+70
IBX Q!
IBZ Q!
PRCABILL NOPTF+84~, NOPTF+85*, NOPTF+86, NOPTF+87, NOPTF+89
PRCASV Q!
PRCASV("AMT" NO+16*, NO+22
PRCASV("ARCRD" NO+21*, NO+22
PRCASV("ARREC" NO+16*, NO+22
PRCASV("BY" NO+16*, NO+18*, NO+22
PRCASV("COMMENT" NO+17*, NO+22
PRCASV("DATE" NO+16*, NO+22
PRCASVC Q!
REJ NOPTF+58~, NOPTF+59, NOPTF+61, NOPTF+64, NOPTF+65
U NOPTF+6, NOPTF+12, NOPTF+20, NOPTF+35, NOPTF+46, NOPTF+69, NOPTF+70, NO+1, NO+17, NO+18
, NO+24, 1
X NO+22*, NO+23, NO+24, Q!
Y ASK+18, ASK+21, NOPTF+2, NOPTF+70*, NOPTF+93, NOPTF+99, 1*, Q!
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