Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] Classic Fileman Calls
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call