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

Package: Integrated Billing

Routine: IBCC1


Information

IBCC1 ;ALB/MJB - CANCEL THIRD PARTY BILL ;10-OCT-94

Source Information

Source file <IBCC1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 5 PSOCPVW^IBNCPDPC  FIND^IBOHCT  $$SCE^IBSDU  $$EXPAND^IBTRE  PRODATA^IBTUTL1  
VA FileMan 4 NOW^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 2 EN^PSOCPVW  DIC^PSODI  
E Claims Management Engine 1 $$CLAIM^BPSBUTL  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 2 IBCC  IBCSCH1  

Entry Points

Name Comments DBIA/ICR reference
RNB ; -- Add a reason not billable to claims tracking
INPT
OPT ; -- is opt-find entries in IBT(356, for opt dates and then edit
RX ; -- find rx's on bill
PRO ; -- find prosthetics on bill
CTSET(IBTRE) ; procedure to store this CT entry in the scratch global
CTSETX ;
RNBEDIT(IBTRE,CTTYPE,TCNT,CNT) ; CT entry display and capture RNB data and additional comment data
TYPE(Z) ; function to get the type of claims tracking entry
; Z is the ien to file 356
RNBC(IBTRN) ; check comments (#356,1.08), certain RNBs have certain Additional Comments requirements

External References

Name Field # of Occurrence
NOW^%DTC RNBEDIT+68
$$CLAIM^BPSBUTL RNBEDIT+41
^DIE RNBEDIT+65, RNBEDIT+68, RNBC+8, RNBC+14
$$GET1^DIQ RNBEDIT+32
^DIR RNBC+12
PSOCPVW^IBNCPDPC RNBEDIT+40
FIND^IBOHCT RNBEDIT+71
$$SCE^IBSDU RNBEDIT+31
$$EXPAND^IBTRE RNBEDIT+22
PRODATA^IBTUTL1 RNBEDIT+52
EN^PSOCPVW RNBEDIT+38
DIC^PSODI RX+3
$$FMTE^XLFDT RNBEDIT+25, RNBEDIT+30, RNBEDIT+44, RNBEDIT+45, RNBEDIT+53, RNBC+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Since you have canceled this bill, you may enter a Reason Not Billable and"
  • Line Location: RNBEDIT+5
Function Call: WRITE
  • Prompt: !,"an Additional Comment into Claims Tracking."
  • Line Location: RNBEDIT+6
Function Call: WRITE
  • Prompt: !,"This will take the care off of the UNBILLED lists."
  • Line Location: RNBEDIT+7
Function Call: WRITE
  • Prompt: !!,CTZ
  • Line Location: RNBEDIT+10
Function Call: WRITE
  • Prompt: !!,"Claims Tracking Entry [",CNT," of ",TCNT,"]"
  • Line Location: RNBEDIT+20
Function Call: WRITE
  • Prompt: !?7,"Entry ID#: ",+IBTRED
  • Line Location: RNBEDIT+21
Function Call: WRITE
  • Prompt: !?12,"Type: ",$$EXPAND^IBTRE(356,.18,$P(IBTRED,U,18))
  • Line Location: RNBEDIT+22
Function Call: WRITE
  • Prompt: !?2,"Admission Date: ",$$FMTE^XLFDT($P(IBTRED,U,6),"1P")
  • Line Location: RNBEDIT+25
Function Call: WRITE
  • Prompt: !?6,"Visit Date: ",$$FMTE^XLFDT($P(IBTRED,U,6),"1P")
  • Line Location: RNBEDIT+30
Function Call: WRITE
  • Prompt: !?10,"Clinic: ",$$GET1^DIQ(44,+$P(IBOE0,U,4)_",",.01)
  • Line Location: RNBEDIT+32
Function Call: WRITE
  • Prompt: !?3,"Prescription#: ",$G(PSOTMP(52,+$P(IBTRED,U,8),.01,"E"))
  • Line Location: RNBEDIT+42
Function Call: WRITE
  • Prompt: !?11,"ECME#: ",IBECME
  • Line Location: RNBEDIT+43
Function Call: WRITE
  • Prompt: !?7,"Fill Date: ",$$FMTE^XLFDT($P(IBTRED,U,6),"1P")
  • Line Location: RNBEDIT+44
Function Call: WRITE
  • Prompt: !?5,"Refill Date: ",$$FMTE^XLFDT($P(IBTRED,U,6),"1P")
  • Line Location: RNBEDIT+45
Function Call: WRITE
  • Prompt: !?12,"Drug: ",$G(PSOTMP(52,+$P(IBTRED,U,8),6,"E"))
  • Line Location: RNBEDIT+46
Function Call: WRITE
  • Prompt: !?3,"Delivery Date: ",$$FMTE^XLFDT($P(IBTRED,U,6),"1P")
  • Line Location: RNBEDIT+53
Function Call: WRITE
  • Prompt: !?12,"Item: ",$G(IBRMPR(660,+IBDA,4,"E"))
  • Line Location: RNBEDIT+54
Function Call: WRITE
  • Prompt: !?5,"Description: ",$G(IBRMPR(660,+IBDA,24,"E"))
  • Line Location: RNBEDIT+55
Function Call: WRITE
  • Prompt: !," Note: A Reason Not Billable has been previously entered",!?8,"for this Claims Tracking record."
  • Line Location: RNBEDIT+58
Function Call: WRITE
  • Prompt: !," Note: An Additional Comment has been previously entered",!?8,"for this Claims Tracking record."
  • Line Location: RNBEDIT+59
Function Call: WRITE
  • Prompt: !!,"The RNB of OTHER requires a Comment of at least 15 characters",!
  • Line Location: RNBC+6
Function Call: WRITE
  • Prompt: !!,"For the RNB of GLOBAL SURGERY, add the related Surgery Date to the CT comments:",!,IBCOMM,!
  • Line Location: RNBC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RNBC+12
Routine Call
  • DIE
  • Line Location:
    • RNBEDIT+65
    • RNBEDIT+68
    • RNBC+8
    • RNBC+14
Routine Call
  • DIR
  • Line Location:
    • RNBC+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] Classic Fileman Calls
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] RNB+4, OPT+2
^DGPM("APTT1" INPT+2
^IBA(362.4 - [#362.4] RX+1, RX+2
^IBA(362.5 - [#362.5] PRO+1, PRO+2
^IBE(356.6 - [#356.6] INPT+8, OPT+1, TYPE+2
^IBE(356.8 - [#356.8] RNBC+2
^IBT(356 - [#356] INPT+3, INPT+10, INPT+11, OPT+3, OPT+4, RX+4, RX+5, PRO+4, RNBEDIT+17, RNBEDIT+18
, RNBEDIT+68, RNBEDIT+71, TYPE+2, RNBC+2, RNBC+3, RNBC+8
^TMP($J RNB+6!, PRO+10, PRO+14, PRO+15, PRO+19!, CTSET+2*

Label References

Name Line Occurrences
$$TYPE CTSET+2
CTSET INPT+4, INPT+11, OPT+4, RX+5, PRO+4
RNBC RNBEDIT+73
RNBEDIT PRO+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RNBEDIT+15~, RNBEDIT+68
CNT RNB+2~, PRO+13*, PRO+15*, RNBEDIT~, RNBEDIT+20
CTTYPE RNBEDIT~, RNBEDIT+24, RNBEDIT+28, RNBEDIT+35, RNBEDIT+49
CTZ RNBEDIT+3~, RNBEDIT+8*, RNBEDIT+9*, RNBEDIT+10
D0 RNBC+1~
DA RNB+1~, RNBEDIT+61*, RNBC+1~, RNBC+8*, RNBC+14*
>> DATE INPT+1*, INPT+2, INPT+9*, INPT+10
>> DFN RNB+5*, INPT+1*, INPT+2, INPT+9*, INPT+10, INPT+11, OPT+3, OPT+4, RNBEDIT+71*
>> DGPM INPT+2*, INPT+3
DIC RNB+1~, RX+3*!, RNBC+1~
DIC(0 RX+3*
DIE RNB+1~, RNBEDIT+61*, RNBC+1~, RNBC+8*, RNBC+14*
DIR RNBC+1~
DIR("A" RNBC+12*
DIR(0 RNBC+12*
DIRUT RNBC+1~
DR RNB+1~, RNBEDIT+61*, RNBEDIT+62*, RNBEDIT+63*, RNBEDIT+64*, RNBEDIT+68*, RNBC+1~, RNBC+7*, RNBC+14*
DUOUT RNBC+1~
DUZ RNBEDIT+68
FILL RNB+1~, RX+4*, RX+5
I RNB+1~
IB RNB+1~
IB(0 RNB+4*, RNB+5, INPT+1, INPT+9
IBAPPT RNB+1~, OPT+2*, OPT+3
IBCODE RNB+1~, INPT+8*, INPT+10, INPT+11, OPT+1*, OPT+3, OPT+4
IBCOMM RNBC+1~, RNBC+3*, RNBC+5, RNBC+10, RNBC+11, RNBC+13*
IBD RNB+1~, RX+1*, RX+2, PRO+1*, PRO+2
IBDA RNBEDIT+50~, RNBEDIT+51*, RNBEDIT+52, RNBEDIT+54, RNBEDIT+55
IBDATA RNB+1~, RX+2*, RX+3, PRO+2*
IBDD RNB+1~, RX+1*, PRO+1*
IBDT RNB+1~, INPT+10*, INPT+11, OPT+3*, OPT+4, RX+2*, RX+5
IBECME RNBEDIT+36~, RNBEDIT+41*, RNBEDIT+43
>> IBIFN RNB+3, RNB+4, OPT+2, RX+1, PRO+1
>> IBMCSCAC RNBEDIT+59, RNBEDIT+63, RNBEDIT+64, RNBC+8*
>> IBMCSRNB RNBEDIT+58, RNBEDIT+62
>> IBNOCANC PRO+13*, RNBEDIT+4
IBOE RNBEDIT+29~, RNBEDIT+31*
IBOE0 RNBEDIT+29~, RNBEDIT+31*, RNBEDIT+32
IBPRO RNB+1~, PRO+2*, PRO+3, PRO+4
IBQUIT RNB+1~, RNB+4*, INPT+5, INPT+11, OPT+2, OPT+4, RX+1, RX+4, RX+5, PRO+1
, PRO+4, PRO+14, PRO+15, RNBEDIT+1, RNBEDIT+71*
IBRMPR RNBEDIT+50~
IBRMPR(660 RNBEDIT+54, RNBEDIT+55
IBRNB RNBC+1~, RNBC+2*, RNBC+5, RNBC+10
IBRX RNB+1~, RX+2*, RX+3*, RX+4, RX+5
IBTALK RNB+1~, RNBEDIT+2, RNBEDIT+13*
IBTRE RNB+1~, INPT+3*, INPT+4, INPT+11*, OPT+4*, RX+5*, PRO+4*, PRO+10*, PRO+15*, CTSET~
, CTSET+1, CTSET+2, RNBEDIT~, RNBEDIT+17, RNBEDIT+18, RNBEDIT+61, RNBEDIT+68, RNBEDIT+71, RNBEDIT+73
IBTRED RNB+1~, RNBEDIT+15~, RNBEDIT+17*, RNBEDIT+21, RNBEDIT+22, RNBEDIT+25, RNBEDIT+30, RNBEDIT+31, RNBEDIT+38, RNBEDIT+40
, RNBEDIT+41, RNBEDIT+42, RNBEDIT+44, RNBEDIT+45, RNBEDIT+46, RNBEDIT+51, RNBEDIT+53, RNBEDIT+58, RNBEDIT+68
IBTRED1 RNBEDIT+15~, RNBEDIT+18*, RNBEDIT+59, RNBEDIT+68
IBTRN RNBC~, RNBC+1, RNBC+2, RNBC+3, RNBC+8, RNBC+14
IBTSAV RNB+1~, INPT+3*, INPT+11
IBTYP RNB+1~, RNB+4*, INPT, OPT+1
J RNB+1~
PSONTALK RNBEDIT+36~, RNBEDIT+37*
PSOTMP RNBEDIT+36~, RNBEDIT+40
PSOTMP(52 RNBEDIT+42, RNBEDIT+46
TCNT RNB+2~, PRO+9*, PRO+10*, PRO+13, PRO+15, RNBEDIT~, RNBEDIT+8, RNBEDIT+9, RNBEDIT+20
U RNBEDIT+22, RNBEDIT+25, RNBEDIT+30, RNBEDIT+31, RNBEDIT+32, RNBEDIT+38, RNBEDIT+40, RNBEDIT+41, RNBEDIT+42, RNBEDIT+44
, RNBEDIT+45, RNBEDIT+46, RNBEDIT+51, RNBEDIT+53, RNBEDIT+58, RNBEDIT+59, RNBEDIT+62, RNBEDIT+68, TYPE+2, RNBC+2
, RNBC+3, RNBC+8
X RNB+1~, RX+3*!, RNBEDIT+36~, RNBEDIT+38*, RNBC+1~
Y RNB+1~, RX+3!, RNBEDIT+71, RNBC+1~, RNBC+12, RNBC+13
Z TYPE~, TYPE+2
ZT RNB+2~, PRO+9*, PRO+10*, PRO+13*, PRO+14*, PRO+15
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