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
Print Page as PDF
Routine: IBOCDRPT

Package: Integrated Billing

Routine: IBOCDRPT


Information

IBOCDRPT ;ELZ/OAK - CATASTROPHICALLY DISABLED PATIENT BILLING ;03/21/2011

Source Information

Source file <IBOCDRPT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - this will produce a report of patient's with charges that are CD.
DQ
EXIT
LTCCHK(IBZ) ; Check for all LTC Action Types. Return 1 if Action Type is LTC, 0 if not.
HEAD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The Catastrophically Disabled legislation effective date is May 5, 2010."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"You should not enter a date prior to that date, any date entered before"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"that will be automatically changed to May 5, 2010."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Select the device for the Catastrophically Disabled Charge report. It"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"should be queued to a printer off hours as it can take some time to run"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"with at least a margin of 132 columns."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$E($P(IBDPT,"^"),1,20)
  • Line Location: DQ+30
Function Call: WRITE
  • Prompt: ?22,$E($P(IBDPT,"^",9),6,9)
  • Line Location: DQ+31
Function Call: WRITE
  • Prompt: ?27,$$FMTE^XLFDT($G(IBDG("DATE")),"2DZ")
  • Line Location: DQ+32
Function Call: WRITE
  • Prompt: ?36,$$FMTE^XLFDT(IBDT,"2DZ")
  • Line Location: DQ+33
Function Call: WRITE
  • Prompt: ?57,$E($P($G(^IBE(350.1,+$P(IBZ,"^",3),0)),"^"),1,9)
  • Line Location: DQ+35
Function Call: WRITE
  • Prompt: ?67,$E($P($P(IBZ,"^",11),"-",2),1,8)
  • Line Location: DQ+36
Function Call: WRITE
  • Prompt: ?76,$E($P($G(^IBE(350.21,+$P(IBZ,"^",5),0)),"^"),1,8)
  • Line Location: DQ+37
Function Call: WRITE
  • Prompt: ?85,$J($FN($P(IBARBILL,"^",3),"",2),7)
  • Line Location: DQ+38
Function Call: WRITE
  • Prompt: ?93,$J($FN($G(IBARDATA(430,IBARX,77,"E")),"",2),7)
  • Line Location: DQ+39
Function Call: WRITE
  • Prompt: ?101,$J($FN($G(IBARDATA(430,IBARX,78,"E")),"",2),5)
  • Line Location: DQ+40
Function Call: WRITE
  • Prompt: ?107,$J($FN($G(IBARDATA(430,IBARX,79,"E")),"",2),5)
  • Line Location: DQ+41
Function Call: WRITE
  • Prompt: ?113,$$FMTE^XLFDT($G(IBARDATA(430,IBARX,141,"I")),"2DZ")
  • Line Location: DQ+42
Function Call: WRITE
  • Prompt: ?122,$E($G(IBARDATA(430,IBARX,203,"E")),1,6)
  • Line Location: DQ+43
Function Call: WRITE
  • Prompt: ?129,$E($G(IBARDATA(430,IBARX,255.1,"E")),1,4)
  • Line Location: DQ+44
Function Call: WRITE
  • Prompt: @IOF,!,"Catastrophically Disabled Copayment Charge Report PAGE: ",IBP,!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: "PATIENT SSN CD DATE DOS RX TYPE BILL NO STATUS BALANCE PD PRIN INT ADM TOP FUND RSC",!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+6
Info |  Source |  Entry Points |  Interaction Calls