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

Package: Integrated Billing

Routine: IBCF4


Information

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

Source Information

Source file <IBCF4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  YN^DICN  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
Integrated Billing 3 $$TXMT^IBCEF4  RCITEM^IBCSC5A  ZERO^IBRXUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IB PRINT BILL ADDENDUM  IBCFP1  IBCSC5A  IBCSC5B  

Entry Points

Name Comments DBIA/ICR reference
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
EN ;ENTRY POINT IF QUEUED, print all rx refills for a bill
END
HDR ;print the report header
PROS
DATE(X)
RX
DEV ;get the device
BILLAD(IFN) ;returns true if bill has either rx refills or prosthetics so addendum should print
PAUSE ;pause at end of screen if being displayed on a terminal
EXIT ;clean up and quit
RXDISP ;displays all rx refills bills
STOP() ;determine if user has requested the queued report to stop
PRXA ;get bill number then print rx refill addendums for bills

External References

Name Field # of Occurrence
DD^%DT HDR+2
NOW^%DTC HDR+2
^%ZIS DEV+2
^%ZISC EXIT+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD STOP+1
^DIC PRXA+3
YN^DICN PRXA+11
^DIR PAUSE+2
$$TXMT^IBCEF4 PRXA+5
RCITEM^IBCSC5A RX+3, PROS+3
ZERO^IBRXUTL RX+8
$$FMTE^XLFDT RX+9, PROS+7

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
Routine Call
  • DIC
  • Line Location:
    • PRXA+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EN+1
^DPT - [#2] EN+2
^IBA(362.4 - [#362.4] RX, RX+4, RX+5, BILLAD+1
^IBA(362.5 - [#362.5] PROS, PROS+4, PROS+5, BILLAD+1
^IBA(364 - [#364] PRXA+5, PRXA+8, PRXA+9
^TMP($J RX+9, RX+10!

Label References

Name Line Occurrences
$$CHG RX+6, PROS+6
$$STOP HDR+1
EN DEV+4
END PROS
EXIT PRXA+3, DEV+2, DEV+3
HDR EN+2, RX+14, PROS+8
PAUSE RX+14, PROS+8, PROS+9
PROS RX
PRXA PRXA+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRXA+11*, PRXA+12, HDR+2
>> %ZIS DEV+2*
>> %ZIS("A" DEV+2*
DIC PRXA+3*!
DIC("S" PRXA+1*
DIC(0 PRXA+3*
DIR PAUSE+2!
DIR(0 PAUSE+2*
DIROUT EXIT+2!
DIRUT EXIT+2!, PAUSE+3
DPTNOFZY PRXA+2~*
DTOUT EXIT+2!
DUOUT EXIT+2!, PAUSE+3
IBBILL PRXA+3*, DEV+3, EXIT+2!
IBCDT END!, HDR+2*, HDR+4
IBHDR EN+2*, END!, HDR+4
IBI END!, HDR+6*
IBIFN PRXA+3*, PRXA+5, PRXA+8, EXIT+2!, EN+1, RX+3, PROS+3
IBLDT PRXA+7~, PRXA+8*
IBLN RX+14*, PROS+8*, END!, HDR+1*
IBPGN EN+2*, END!, HDR+1*, HDR+3, HDR+4, STOP+1
IBPI PROS+4*, END!
IBPIFN PROS+4*, PROS+5, PROS+6, END!
IBQUIT EXIT+2!, EN+2*, RX+4, PROS+4, PROS+9, HDR+1*, PAUSE+3*
IBRC RX+2!, RX+6, RX+15!, PROS+2!, PROS+6, END!, CHG~, CHG+4*, CHG+5*, CHG+6
IBRC( CHG+4, CHG+5, CHG+6*!
IBRIFN RX+4*, RX+5, RX+6, END!
IBRX EN+2*, RX+4*, END!
IBTXOK PRXA+5, PRXA+6*, PRXA+13*, EXIT+2!
IBTYP CHG~, CHG+4, CHG+5, CHG+6
IBX PRXA+7~, PRXA+8*, PRXA+9, END!, BILLAD+1~*, BILLAD+2
IBXREF EN+1*, RX, RX+4, PROS, PROS+4, END!
IBY EN+1*, EN+2, RX+5*, RX+8, RX+9, RX+11, RX+12, RX+13, PROS+5*, PROS+7
, END!, CHG~, CHG+4
IBYC RX+6*, RX+9, PROS+5*, PROS+6*, PROS+7, END!, CHG+3~, CHG+4*, CHG+6*, CHG+7
IBZ CHG+3~, CHG+5*, CHG+6*
IFN BILLAD~, BILLAD+1*
IO DEV+4
IO("Q" DEV+3!
IOF HDR+3
IOM HDR+4, HDR+6
IOSL RX+14, PROS+8
IOST HDR+3, PAUSE+1
>> POP DEV+2
U PRXA+3, PRXA+9, EN+2, RX+8, RX+9, RX+11, RX+12, RX+13, PROS+7, CHG+6
X EXIT+2!, DATE~
Y PRXA+3, EXIT+2!, HDR+2*
>> ZTDESC DEV+3*
>> ZTQUEUED EXIT+1, STOP+1
ZTREQ EXIT+1*, STOP+1!
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
ZTSK DEV+3!
>> ZTSTOP STOP+1*, STOP+2
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