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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Integrated Billing 2 ($$SEL,DISP,EXPRT,PRT)^IBATO1  ($$COPAY,$$FAC,$$INST,$$SLDR,$$VISN)^IBATUTL  
VA FileMan 2 COMMA^%DTC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 5 IBAT EXCEL REPORT  IBAT PATIENT REPORT  IBAT SUMMARY REPORT  IBAT WORKLOAD REPORT  IBATO1  

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

External References

Name Field # of Occurrence
COMMA^%DTC NUM+1
^%ZIS DEV+4
HOME^%ZIS DEV+7
^%ZISC DQ+16, DQ+52
^%ZTLOAD DEV+7
^DIR START+7, PAGE+3
$$SEL^IBATO1 ENW+4, ENP+4, ENEX+8
DISP^IBATO1 ENW+3, ENP+3, ENEX+7
EXPRT^IBATO1 DQ+25
PRT^IBATO1 DQ+44
$$COPAY^IBATUTL DQ+40
$$FAC^IBATUTL START+10
$$INST^IBATUTL HEAD+6
$$SLDR^IBATUTL START+10
$$VISN^IBATUTL DQ+9
$$FMADD^XLFDT DQ+4
$$FMTE^XLFDT HEAD+4

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
Routine Call
  • DIR
  • Line Location:
    • START+7
    • PAGE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBAT(351.61 - [#351.61] DQ+6, DQ+7, DQ+39, DQ+41
^TMP("IBATO" DQ+3!, DQ+13*, DQ+16!, DQ+25, DQ+29, DQ+32, DQ+35, DQ+37, DQ+38, DQ+51!

Label References

Name Line Occurrences
$$DEV START+11
$$NUM PRINT+5, PRINT+6, PRINT+7
$$PAGE ENEX+6, DQ+50, HEAD+2
HEAD PRINT+2
PRINT DQ+47, DQ+49
START ENW+5, ENP+5, ENEX+9
SUM DQ+45
TOTAL DQ+46, DQ+48
ZERO DQ+30, DQ+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2~, DEV+4*
A DQ+17~, DQ+20*, DQ+21*, DQ+25*
B DQ+17~, DQ+20*, DQ+21*, DQ+25*
C DQ+17~, DQ+25*
D DQ+17~, DQ+25*
DIR START+1~, PAGE+2~
DIR("A" START+6*
DIR(0 START+5*, PAGE+3*
DIROUT START+1~, PAGE+2~
DIRUT START+1~, START+7, PAGE+2~, PAGE+4
DTOUT START+1~, PAGE+2~
DUOUT START+1~, PAGE+2~
IBBDT START+1~, DQ+4, HEAD+4
IBCOPAY DQ+1~, DQ+40*, DQ+41, DQ+42*, DQ+43
IBCOUNT DQ+1~, DQ+41*, DQ+42
IBDT DQ+1~, DQ+4*, DQ+6*
IBEDT START+1~, DQ+6, HEAD+4
IBEX ENEX+1~, ENEX+2*, DQ+16
IBFAC START+1~, DQ+12, DQ+49
IBFAC( DQ+12, DQ+49
IBFIELD ENW+1~, ENP+1~, ENEX+1~
IBFIELD( DQ+20
IBHEAD ENW+1~, ENW+2*, ENP+1~, ENP+2*, ENEX+1~, ENS+1~, ENS+2*, START+8*, HEAD+4
IBIEN DQ+1~, DQ+6*, DQ+7, DQ+13, DQ+36*, DQ+37*, DQ+38, DQ+39, DQ+44
IBIEN(0 DQ+7*, DQ+8, DQ+9, DQ+10, DQ+11, DQ+12, DQ+13, DQ+38*, DQ+40, DQ+41
IBIEN(6 DQ+39*, DQ+43*, DQ+45
IBLAST DQ+2~, DQ+4*
IBLINE DQ+2~, DQ+5*
IBLOC DQ+1~, DQ+10*, DQ+13, DQ+31*, DQ+32*, DQ+33, DQ+35, DQ+37, DQ+38, DQ+45
, DQ+46, DQ+47
IBMARG ENW+1~, ENW+4*, ENP+1~, ENP+4*, ENEX+1~, ENEX+8*, DQ+44, DEV+3
IBMUL ENW+1~, ENP+1~, ENEX+1~
IBMUL( DQ+21
IBP TOTAL+1~, TOTAL+2*, SUM+1~, SUM+2*, ZERO+1~, ZERO+2*, PRINT+1~, PRINT+3*, PRINT+4, PRINT+5
, PRINT+6, PRINT+7
IBPAGE DQ+1~, DQ+4*, HEAD+2, HEAD+3*, HEAD+4
IBPRT PRINT~, PRINT+2
IBPRT( PRINT+5, PRINT+6, PRINT+7
IBQUIT ENEX+1~, ENEX+2*, DQ+1~, DQ+4*, DQ+29, DQ+32, DQ+35, DQ+37, DQ+46, DQ+47
, DQ+48, DQ+49, PRINT+3, HEAD+2*, PAGE+1
IBSAVE DQ+2~, DQ+4*
IBTMP DQ+1~, DQ+41*
IBTYPE DQ+1~, DQ+11*, DQ+13, DQ+34*, DQ+35*, DQ+37, DQ+38, DQ+41, DQ+45
IBVISN DQ+1~, DQ+9*, DQ+12, DQ+13, DQ+28*, DQ+29*, DQ+30, DQ+32, DQ+35, DQ+37
, DQ+38, DQ+45, DQ+48, DQ+49
IBX DQ+2~, DQ+5*, TOTAL+1~, TOTAL+2*
IBXREF START+1~, START+7*, DQ+6
IO DQ+3
IO("Q" DEV+5, DEV+7!
IOF HEAD+4
IOM HEAD+4, HEAD+5
IOST DQ+50, HEAD+2
POP DEV+2~, DEV+4
X START+1~, TOTAL~, SUM~, ZERO~, HEAD~, HEAD+6, PAGE+2~, NUM~, NUM+2
X( TOTAL+2, SUM+2*, ZERO+2*
X("TOTAL" TOTAL+2*
X2 NUM~
X3 NUM~
Y START+1~, START+7, START+8, SUM~, SUM+2, PAGE+2~
Z SUM~, SUM+2, HEAD+1~, HEAD+5*
ZTDESC DEV~
>> ZTQUEUED DQ+16, DQ+52
>> ZTREQ DQ+16*, DQ+52*
ZTRTN DEV~, DEV+6*
ZTSAVE DEV+2~
ZTSAVE("IB*" DEV+6*
ZTSK DEV+2~, DEV+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All