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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBUCMM

Package: Integrated Billing

Routine: IBUCMM


Information

IBUCMM ;WOIFO/AAT-IBUC VISIT SUMMARY/DETAIL REPORT;30-JUL-02

Source Information

Source file <IBUCMM.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 (C,NOW)^%DTC  ^DIR  
Integrated Billing 1 REPORT^IBUCMM1  

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

Package Total Caller Graph
Integrated Billing 8 IBINRPT  IBMHRPT  IBMHSP  IBOA31  IBOMHC  IBTPRPT  IBUC VISIT REPORT  IBUCSP  

Entry Points

Name Comments DBIA/ICR reference
ASKDEV ; Ask about output device and print the report (or run task)
RUNTASK ; Start Taskman job
DATE
DATAGN ;Loop entry point
FIRST(IBDT)
LAST(IBDT)
NOW()
ASKDT(IBPRMT,IBDFLT) ;Date input
GETPRMPT(IBPRMPT) ;
GETEXCEL() ; Export the report to MS Excel?
; Function return values:
; 0 - User selected "No" at prompt.
; 1 - User selected "Yes" at prompt.
; ^ - User aborted.
; This function allows the user to indicate whether the report should be
; printed in a format that could easily be imported into an Excel
; spreadsheet. If the user wants to print in EXCEL format, the variable
; IBEXCEL will be set to '1', otherwise IBEXCEL will be set to '0' for "No"
; or "^" to abort.
PRTEXCEL() ;Print the MS Excel instructions.

External References

Name Field # of Occurrence
C^%DTC LAST+5
NOW^%DTC NOW+1
^%ZIS ASKDEV+4
HOME^%ZIS RUNTASK+8
^%ZISC ASKDEV+8
^%ZTLOAD RUNTASK+4
^DIR ASKDT+5, GETPRMPT+19, GETEXCEL+20
REPORT^IBUCMM1 ASKDEV+7
$$FMTE^XLFDT ASKDT+3, ASKDT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IBUCMM+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: IBUCMM+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+4
Function Call: WRITE
  • Prompt: !!,"This request has been queued. The task number is "_ZTSK_"."
  • Line Location: RUNTASK+5
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: RUNTASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RUNTASK+8
Function Call: WRITE
  • Prompt: !,"Ending date must follow start date!",!
  • Line Location: DATAGN+8
Function Call: WRITE
  • Prompt: " (",$$FMTE^XLFDT(Y),")"
  • Line Location: ASKDT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETEXCEL+19
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: PRTEXCEL+1
Function Call: WRITE
  • Prompt: !?5,"detail report data and save the detail report data in a text file"
  • Line Location: PRTEXCEL+2
Function Call: WRITE
  • Prompt: !?5,"to a local drive. This report may take a while to run."
  • Line Location: PRTEXCEL+3
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the file,"
  • Line Location: PRTEXCEL+4
Function Call: WRITE
  • Prompt: !?11,"please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: PRTEXCEL+5
Routine Call
  • DIR
  • Line Location:
    • ASKDT+5
    • GETPRMPT+19
    • GETEXCEL+20
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+4
Routine Call
  • %ZIS
  • Line Location:
    • RUNTASK+8

Label References

Name Line Occurrences
$$ASKDT DATAGN+3, DATAGN+6
$$FIRST DATAGN+3
$$GETEXCEL IBUCMM+17
$$GETPRMPT IBUCMM+12, IBUCMM+15
$$LAST DATAGN+6
$$NOW DATE+1
ASKDEV IBUCMM+19
DATAGN DATAGN+8
DATE IBUCMM+8
PRTEXCEL IBUCMM+18
RUNTASK ASKDEV+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%DT IBUCMM+5~, DATE~
%H NOW~
%I NOW~
%ZIS ASKDEV+1~, ASKDEV+3*
DIC IBUCMM+5~
DIR ASKDT+1~, GETPRMPT+3~, GETPRMPT+19!, GETEXCEL+11~, GETEXCEL+21!
DIR("?" GETPRMPT+10*, GETPRMPT+17*, GETEXCEL+16*, GETEXCEL+17*, GETEXCEL+18*
DIR("A" ASKDT+2*, GETPRMPT+7*, GETPRMPT+14*, GETEXCEL+13*
DIR("B" ASKDT+3*, GETPRMPT+8*, GETPRMPT+16*, GETEXCEL+14*, GETEXCEL+15*
DIR(0 ASKDT+4*, GETPRMPT+9*, GETPRMPT+15*, GETEXCEL+12*
DIROUT ASKDT+1~, GETPRMPT+3~
DIRUT ASKDT+1~, ASKDT+5, GETPRMPT+3~, GETEXCEL+11~, GETEXCEL+22
DTOUT GETPRMPT+3~, GETPRMPT+20
DUOUT GETPRMPT+3~, GETPRMPT+20
IBBDT IBUCMM+5~, IBUCMM+8, DATAGN+1*, DATAGN+3*, DATAGN+4, DATAGN+7*, DATAGN+8
IBCA IBUCMM+4~, IBUCMM+15*
IBDFLT ASKDT~, ASKDT+3
IBDT FIRST~*, FIRST+1, LAST~, LAST+1
IBEDT IBUCMM+5~, DATAGN+1*, DATAGN+6*, DATAGN+7, DATAGN+8
IBEXCEL IBUCMM+4~, IBUCMM+17*, IBUCMM+18, ASKDEV+2, GETEXCEL+14
IBM LAST~, LAST+1*, LAST+2*, LAST+3*, LAST+4
IBNOW DATE~, DATE+1*, DATAGN+3, DATAGN+6
IBPRMPT GETPRMPT~, GETPRMPT+6, GETPRMPT+13
IBPRMT ASKDT~, ASKDT+2
IBQUIT IBUCMM+4~, IBUCMM+6*, IBUCMM+8*, IBUCMM+12*, IBUCMM+15*, IBUCMM+17*, IBUCMM+20*
IBSD IBUCMM+4~, IBUCMM+12*
IBVAR RUNTASK+1~, RUNTASK+3*
IBY LAST~, LAST+1*, LAST+2*, LAST+4
IO ASKDEV+7
IO("Q" ASKDEV+6, RUNTASK+7!
POP ASKDEV+1~, ASKDEV+4
X IBUCMM+5~, LAST~, LAST+6, NOW~, NOW+2, ASKDT+1~, GETPRMPT+3~
X1 LAST~, LAST+4*
X2 LAST~, LAST+4*
Y IBUCMM+5~, DATE~, ASKDT+1~, ASKDT+6, ASKDT+7, GETPRMPT+3~, GETPRMPT+20, GETPRMPT+21, GETEXCEL+11~, GETEXCEL+23
Y0 ASKDT+1~
ZTDESC RUNTASK+1~, RUNTASK+2*
ZTRTN RUNTASK+1~, RUNTASK+2*
ZTSAVE RUNTASK+1~
ZTSAVE( RUNTASK+3*
ZTSK RUNTASK+1~, RUNTASK+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All