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

Package: Integrated Billing

Routine: IBCF4


Information

IBCF4 ;ALB/ARH - PRINT BILL ADDENDUM ;12-JAN-94

Source Information

Source file <IBCF4.m>

Entry Points

Name Comments DBIA/ICR reference
PRXA ;get bill number then print rx refill addendums for bills
DEV ;get the device
EXIT ;clean up and quit
EN ;ENTRY POINT IF QUEUED, print all rx refills for a bill
RX
PROS
END
CHG(IBY,IBTYP,IBRC) ; Return charge for item entry IBY or null if no charge
; IBRC = the array containing the revenue code items and their units and charges
; IBTYP = the type of item being priced
HDR ;print the report header
PAUSE ;pause at end of screen if being displayed on a terminal
STOP() ;determine if user has requested the queued report to stop
RXDISP ;displays all rx refills bills
DATE(X)
BILLAD(IFN) ;returns true if bill has either rx refills or prosthetics so addendum should print

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Transmittable Bill can NOT be printed until transmitted"
  • Line Location: PRXA+9
Function Call: WRITE
  • Prompt: !!,"Report requires 132 columns."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"PRESCRIPTION REFILLS:",!
  • Line Location: RX+1
Function Call: WRITE
  • Prompt: !,$P(IBY,U,1),?13,$$FMTE^XLFDT(+$P(IBY,U,3),2),?22,$J($S(IBYC:"$"_$FN(IBYC,",",2),1:""),10),?34,$G(^TMP($J,"IBDRUG",+$P(IBY,U,4),.01))
  • Line Location: RX+9
Function Call: WRITE
  • Prompt: ?77,"QTY: ",$P(IBY,U,7)
  • Line Location: RX+11
Function Call: WRITE
  • Prompt: ?87,"DAYS SUPPLY: ",$P(IBY,U,6)
  • Line Location: RX+12
Function Call: WRITE
  • Prompt: ?105,"NDC #: ",$P(IBY,U,8)
  • Line Location: RX+13
Function Call: WRITE
  • Prompt: !!!,"PROSTHETIC ITEMS:",!
  • Line Location: PROS+1
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(+$P(IBY,U,1),2),?11,$J($S(IBYC:"$"_$FN(IBYC,",",2),1:""),10),?24,$E($P(IBY,U,5),1,55)
  • Line Location: PROS+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: IBHDR
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<85
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(IOM-30),IBCDT,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !,$P(IBZ,U,1),?10,$E($P($G(^DPT(+$P(IBZ,U,2),0)),U,1),1,20),?32,$$DATE(+$P(IBZ,U,3)),?42,$S(+$P(IBZ,U,5)<3:"INPT",1:"OUTPT")
  • Line Location: RXDISP+3
Function Call: WRITE
  • Prompt: ?49,$P($G(^DGCR(399.3,+$P(IBZ,U,7),0)),U,4),?59,$E($$EXSET^IBEFUNC(+$P(IBZ,U,13),399,.13),1,7),?68,$E($P($G(^IBE(353,+$P(IBZ,U,19),0)),U,1),1,11)
  • Line Location: RXDISP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call