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

Package: Integrated Billing

Routine: IBOCPDS


Information

IBOCPDS ;ALB/ARH - CLERK PRODUCTIVITY REPORT (SUMMARY) ;10/8/91

Source Information

Source file <IBOCPDS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Get parameters then run the report.
DEV ; - Get the device.
ENT ; - Find, save, and print the data that satisfies the search parameters
; entry for tasked jobs.
EXIT ; - Clean up and quit.
FILE ; - Save the data in sorted order in a temporary file.
FILEMRA ; Capture and file MRA data into the scratch global
; 9/9/03 - ESG - MRA Project
FMX ;
PRINT ; - Print the report from the temp sort file to the appropriate device.
LINE ; - Print all data for a particular clerk.
HDR ; - Print the report header.
PAUSE ; - Pause at end of screen if beeing displayed on a terminal.
STOP() ; - Determine if user has requested the queued report to stop.
HLP ; - "Do you want to print..." prompt.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?22,IBHDR,!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Report requires 132 columns."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"TOTAL:",?T1,$J(+$P(IBT,U,1),L1),?T2,$J($P(IBT,U,2),L2,2),?T3,$J(+$P(IBT,U,3),L1),?T4,$J($P(IBT,U,4),L2,2),?T5,$J(+$P(IBT,U,5),L1),?T6,$J($P(IBT,U,6),L2,2),!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,$S(IBNCLK:"CLERK #"_IBCT,1:$E(IBCLK,1,25))
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: !,"RATE TYPE TOTALS"
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?30,$E($P(^DGCR(399.3,IBRT,0),U,1),1,20),?T1,$J(+$P(IBT,U,1),L1),?T2,$J($P(IBT,U,2),L2,2),?T3,$J(+$P(IBT,U,3),L1),?T4,$J($P(IBT,U,4),L2,2)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: ?T5,$J(+$P(IBT,U,5),L1),?T6,$J($P(IBT,U,6),L2,2),!
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?T1," -----",?T2," -----------",?T3," -----",?T4," -----------",?T5," -----",?T6," -----------"
  • Line Location: LINE+11
Function Call: WRITE
  • Prompt: !?7,DIV,?T1,$J(+$P(IBT,U,1),L1),?T2,$J($P(IBT,U,2),L2,2),?T3,$J(+$P(IBT,U,3),L1),?T4,$J($P(IBT,U,4),L2,2),?T5,$J(+$P(IBT,U,5),L1),?T6,$J($P(IBT,U,6),L2,2)
  • Line Location: LINE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+20
Function Call: WRITE
  • Prompt: ?T1," -----",?T2," -----------",?T3," -----",?T4," -----------"
  • Line Location: LINE+24
Function Call: WRITE
  • Prompt: ?T5," -----",?T6," -----------"
  • Line Location: LINE+25
Function Call: WRITE
  • Prompt: !,?30,"SUBTOTAL:",?T1,$J(+$P(IBT,U,1),L1),?T2,$J($P(IBT,U,2),L2,2),?T3,$J(+$P(IBT,U,3),L1),?T4,$J($P(IBT,U,4),L2,2)
  • Line Location: LINE+27
Function Call: WRITE
  • Prompt: ?T5,$J(+$P(IBT,U,5),L1),?T6,$J($P(IBT,U,6),L2,2),!
  • Line Location: LINE+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "CLERK PRODUCTIVITY SUMMARY FOR BILLS ",IBH1," ",IBBEGE," - ",IBENDE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?(IOM-30),IBCDT,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?T1,"---",$S(IBORDER'="A":"-",1:""),"TOTAL ",IBH2,"---",$S(IBORDER'="A":"--",1:""),?T3,"-",$S(IBORDER'="A":"-",1:""),IBH2," CANCELLED-",$S(IBORDER'="A":"--",1:"")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?T5,"-----MRA REQUESTS-----"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,IBH1," BY",?30,"RATE TYPE",?T1,$J("COUNT",L1),?T2,$J("AMOUNT",L2),?T3,$J("COUNT",L1),?T4,$J("AMOUNT",L2)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?T5,$J("COUNT",L1),?T6,$J("AMOUNT",L2),!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: IBI,!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !!,"Select: '<CR>' to print the summary with the clerks' actual names"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !?11,"'Y' to print the summary with an identifier ('CLERK #xxx')"
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !?15,"in place of the clerks' names",!?11,"'^' to quit"
  • Line Location: HLP+3
Info |  Source |  Entry Points |  Interaction Calls