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

Package: Integrated Billing

Routine: IBATO


Information

IBATO ;LL/ELZ - TRANSFER PRICING REPORTS ; 18-DEC-98

Source Information

Source file <IBATO.m>

Entry Points

Name Comments DBIA/ICR reference
ENW ; produces a workload report
ENP ; produces a patient detail report
ENEX ; excel formatted report
ENS ; produces a summary report
START ;
DQ ; queued entry point
TOTAL(X) ; totals up types in subscripted X
SUM(X,Z,Y) ; adds up amounts for type in X
ZERO(X) ; zeros out variables
PRINT(IBPRT) ; prints out report sum from what is passed
DEV(ZTDESC,ZTRTN) ; device handler for reports
; needs task description and entry point returns 1 if queued or pop
HEAD(X) ;
PAGE() ; performs page reads and returns 1 if quitting is needed
NUM(X,X2,X3) ; calls to format numbers

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This will produce a report that can be exported into an excel spread sheet."
  • Line Location: ENEX+3
Function Call: WRITE
  • Prompt: !,"If you select any fields with an asterisk (*) then the report will contain"
  • Line Location: ENEX+4
Function Call: WRITE
  • Prompt: !,"fields which are multiples. Multiple fields will cause dollar amounts to"
  • Line Location: ENEX+5
Function Call: WRITE
  • Prompt: !,"repeat for each multiple line!",!
  • Line Location: ENEX+6
Function Call: WRITE
  • Prompt: !,"Select how you want this report to sort by for a date range."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: $P(IBFIELD(A,B),"^"),"|"
  • Line Location: DQ+20
Function Call: WRITE
  • Prompt: $P(IBMUL(A,B),"^"),"|"
  • Line Location: DQ+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+22
Function Call: WRITE
  • Prompt: !!,$S(IBP="DGPM(":"INPATIENT",IBP="SCE(":"OUTPATIENT",IBP="PSRX(":"PHARMACY",IBP="RMPR(660,":"PROSTHETICS",1:"TOTAL")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ":",?27,"COUNT: ",$$NUM($P(IBPRT(IBP),"^"),0)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?20,"TOTAL AMOUNT: ",$$NUM($P(IBPRT(IBP),"^",3))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?5,"*** Requires a margin of at least ",IBMARG," ***"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Task# ",ZTSK
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: @IOF,!,IBHEAD,$$FMTE^XLFDT(IBBDT,"5D")," to ",$$FMTE^XLFDT(IBEDT,"5D"),?IOM-10,"Page: ",IBPAGE
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"LOCATION: "_$P($$INST^IBATUTL(X),"^")
  • Line Location: HEAD+6
Info |  Source |  Entry Points |  Interaction Calls