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,$$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+88
^DIR NOPTF+93
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+70
$$LAST364^IBCEF4 NO+11
$$MRASEC^IBCEF4 NO+13
UPDEDI^IBCEM NO+13
$$MRACNT^IBCEMU1 NOPTF+52
$$SPLTMRA^IBCEMU1 NOPTF+42
$$MRAWL^IBCEMU2 NOPTF+28
TXSTS^IBCEMU2 NOPTF+54
ST2^IBCIST NO+8
$$CM^IBCIUT1 NO+8
$$TPR^PRCAFN NOPTF+80, NOPTF+82
$$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+58
Function Call: WRITE
  • Prompt: ", but the most recent transmission of this",!?4,"MRA request bill was rejected."
  • Line Location: NOPTF+59
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+60
Function Call: WRITE
  • Prompt: !!,"Please note that COB data may exist for this bill."
  • Line Location: NOPTF+71
Function Call: WRITE
  • Prompt: !,"Copy and cancel (CLON) must be used to correct this bill."
  • Line Location: NOPTF+72
Function Call: WRITE
  • Prompt: !!,"Please note a PAYMENT of **$"_$$TPR^PRCAFN(IBIFN)_"** has been POSTED to this bill."
  • Line Location: NOPTF+82
Function Call: WRITE
  • Prompt: !!!?5,"This bill was created by the"
  • Line Location: NOPTF+89
Function Call: WRITE
  • Prompt: !?5,"Electronic Claims Management Engine (ECME)."
  • Line Location: NOPTF+90
Function Call: WRITE
  • Prompt: !?5,"Cancellation needs to occur in the ECME package by"
  • Line Location: NOPTF+91
Function Call: WRITE
  • Prompt: !?5,"submitting a REVERSAL to the Payer.",!!
  • Line Location: NOPTF+92
Function Call: WRITE
  • Prompt: !!,"<PLEASE SUBMIT A REVERSAL USING THE APPROPRIATE OPTION IN THE ECME PACKAGE>",$C(7)
  • Line Location: NOPTF+94
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+93

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+65, 1
^DGCR(399 - [#399] ASK+14, ASK+22, NOPTF+6, NOPTF+9, NOPTF+19, NOPTF+35, NOPTF+42, NOPTF+44, NOPTF+61, NOPTF+73
NOPTF+81, NOPTF+84, NO+1, NO+15, Q+1
^IBE(350.9 - [#350.9] NO+17
^PRCA(430 - [#430] NOPTF+12
^VA(200 - [#200] NOPTF+65

Label References

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

Naked Globals

Name Field # of Occurrence
^( NO+15
^(0 NOPTF+65
^(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+93!
DIR("A" NOPTF+93*
DIR("B" NOPTF+93*
DIR(0 NOPTF+93*
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+64, NOPTF+65, 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+64, NONO+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+42, NOPTF+57, NOPTF+61, NOPTF+70, NOPTF+81, NOPTF+84, NO+21
>> IBCNCSA NOPTF+56
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+42, NOPTF+52, NOPTF+54
NOPTF+70, NOPTF+80, NOPTF+82, NOPTF+88, 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+44, NOPTF+61, NOPTF+73, NOPTF+81, NOPTF+84, 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+45*, NOPTF+52, NOPTF+61*, NOPTF+66*, NOPTF+74*, NOPTF+81*
NOPTF+84*, CHK+7*, NO*, Q1!
IBSTAT NOPTF+20*, NOPTF+28, NOPTF+52, Q!
>> IBU NOPTF+65
IBX Q!
IBZ Q!
PRCABILL NOPTF+79~, NOPTF+80*, NOPTF+81, NOPTF+82, NOPTF+84
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+53~, NOPTF+54, NOPTF+56, NOPTF+59, NOPTF+60
U NOPTF+6, NOPTF+12, NOPTF+20, NOPTF+35, NOPTF+42, NOPTF+64, NOPTF+65, 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+65*, NOPTF+88, NOPTF+94, 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