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

Package: Integrated Billing

Routine: IBOHTOT


Information

IBOHTOT ;ALB/EMG - COUNT/AMT OF CHARGES ON HOLD REPORT ; FEB 25 1997

Source Information

Source file <IBOHTOT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DEV
DQ ; -entry from tasked job
DATA ; -gross count of action types, total charges
; -^tmp($j,"ib",ibaction type,"gcnt")=count
; -^tmp($j,"ib",ibaction type,"gtot")=sum of charges
; -^tmp($j,"ibtot","fcnt")=final count of entries
; -^tmp($j,"ibtot","ftot")=final sum of charges
PRINT ; -output data
TPRINT ; -grand total of data
LINE ;
HDR ;
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Count and Dollar Amount of Charges ON HOLD Report",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !!?((IOM-25)/2),"TOTALS BY ACTION TYPE"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,?(IOM-26/2),"**************************"
  • Line Location: TPRINT+2
Function Call: WRITE
  • Prompt: !,?((IOM/2)-20),"TOTAL NUMBER OF ENTRIES: ",$J($S($D(^TMP($J,"IBTOT","FCNT")):^("FCNT"),1:0),13)
  • Line Location: TPRINT+3
Function Call: WRITE
  • Prompt: !,?((IOM/2)-20)," TOTAL DOLLAR AMOUNT: $",$J($S($D(^TMP($J,"IBTOT","FTOT")):^("FTOT"),1:0),12,2)
  • Line Location: TPRINT+4
Function Call: WRITE
  • Prompt: !!?((IOM/2)-$L($P(IBATYP," ",2,99))),$P(IBATYP," ",2,99)
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: !?((IOM/2)-12),"NUMBER ENTRIES: ",$J($S($D(^TMP($J,"IB",IBATYP,"GCNT")):^("GCNT"),1:0),9)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: !?((IOM/2)-12),"DOLLAR AMOUNT: $",$J($S($D(^TMP($J,"IB",IBATYP,"GTOT")):^("GTOT"),1:0),9,2)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?((IOM-42)/2),"Count and Dollar Amount of Charges ON HOLD"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?((IOM-3)/2),"for"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?(IOM-26/2),"Date Printed: ",IBHDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?(IOM-8/2),"Page: ",IBPAG
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?(IOM-26/2),"--------------------------"
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls