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

Package: Integrated Billing

Routine: IBJDF82


Information

IBJDF82 ;ALB/RRG - AR PRODUCTIVITY REPORT (PRINT) ;29-AUG-00

Source Information

Source file <IBJDF82.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the AR Productivity Report
;
SUM ; - Print Summary Report
ENQ
WCLK ; - Print Clerk Name or Identifier
WTOT ; Write the Totals by Clerk
WTOT1 ; Write the Grand Totals
HDRD ; - Prints the Detailed Report Header
;
HDRS ; - Prints the Summary Report Header
;
DASH(X,Y) ; - Return a dashed line.
; Input: X=Number of Columns (80 or 132), Y=Char to be printed
;
PAUSE ; - Page break.
;
DT(X) ; - Return date.
; Input: X=Date in Fileman format
; Output: Z=Date in MMDDYY format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no AR Productivity information for the parameters selected."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$P(IBTRXDAT,"^",1),?13,$$DAT1^IBOUTL($P(IBTRXDAT,"^",2))
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: ?23,$E($P(IBTRXDAT,"^",3),1,28)
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: ?53,$E($P(IBTRXDAT,"^",4),1,20)
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: ?75,$J($FN($P(IBTRXDAT,"^",5),",",2),11)
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: ?90,$J($FN($P(IBTRXDAT,"^",6),",",2),11)
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: ?104,$$DAT1^IBOUTL($P(IBTRXDAT,"^",7))
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: ?115,$S(IBTRXNUM:IBTRXNUM,1:"N/A")
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !,?13,"COMMENT: ",?22,$E($P(IBTRXDAT,"^",8),1,90)
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: !,$S(IBPNI="I":"CLERK # "_CLIDENT,1:CLNAM)
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !,$S(IBPNI="I":"CLERK # "_CLIDENT,1:CLNAM)
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: ?25,$P(SUMDAT,"^",3),?50,$J($P(SUMDAT,"^",1),12)
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: ?65,$J($FN($P(SUMDAT,"^",2),",",2),15),!
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !,?25,$P(SUMDAT,"^",3),?50,$J($P(SUMDAT,"^",1),12)
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: ?65,$J($FN($P(SUMDAT,"^",2),",",2),15)
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: !
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: !,$S(IBPNI="I":"CLERK # "_CLIDENT,1:IBCLNAM)
  • Line Location: WCLK+1
Function Call: WRITE
  • Prompt: ?53,"---------",?67,"-------------"
  • Line Location: WTOT+4
Function Call: WRITE
  • Prompt: !?50,$J(IBCNT,12),?65,$J($FN(IBTOT,",",2),15),!
  • Line Location: WTOT+5
Function Call: WRITE
  • Prompt: !?53,"---------",?67,"-------------"
  • Line Location: WTOT1+2
Function Call: WRITE
  • Prompt: !?25,"GRAND TOTALS",?50,$J(IBCNT1,12),?65,$J($FN(IBTOT1,",",2),15),!
  • Line Location: WTOT1+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDRD+2
Function Call: WRITE
  • Prompt: !,"AR Productivity Report",?60,"Run Date: ",IBRUN
  • Line Location: HDRD+3
Function Call: WRITE
  • Prompt: ?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDRD+4
Function Call: WRITE
  • Prompt: !,"From: ",?7,IBF,?20,"to",?23,IBT
  • Line Location: HDRD+5
Function Call: WRITE
  • Prompt: ?60,"Detail By ",?70,$S(IBPNI="N":"Clerk Name",1:"Clerk Identifier")
  • Line Location: HDRD+6
Function Call: WRITE
  • Prompt: !!,?13,"Trx.",?53,"Transaction",?75,"Transaction",?90,"Current"
  • Line Location: HDRD+8
Function Call: WRITE
  • Prompt: ?104,"Follow-Up",?115,"Transaction"
  • Line Location: HDRD+9
Function Call: WRITE
  • Prompt: !,"Bill Number",?13,"Date",?23,"Debtor",?53,"Type",?75,"Amount"
  • Line Location: HDRD+10
Function Call: WRITE
  • Prompt: ?90,"Balance",?104,"Date",?115,"Number"
  • Line Location: HDRD+11
Function Call: WRITE
  • Prompt: !,$$DASH(132,0)
  • Line Location: HDRD+12
Function Call: WRITE
  • Prompt: @IOF,$C(13)
  • Line Location: HDRS+3
Function Call: WRITE
  • Prompt: !?26,"SUMMARY AR PRODUCTIVITY REPORT"
  • Line Location: HDRS+3
Function Call: WRITE
  • Prompt: !?(80-$L(X)/2+1),X,!!?(80-$L(IBRUN)/2+1),IBRUN
  • Line Location: HDRS+5
Function Call: WRITE
  • Prompt: !?(80-$L(IBRUN)/2+1),X
  • Line Location: HDRS+6
Function Call: WRITE
  • Prompt: !!,$S(IBSPT=1:"Clerk",1:""),?25,"Transaction Category"
  • Line Location: HDRS+7
Function Call: WRITE
  • Prompt: ?50,"Total Number",?64,"Total Dollar Amt"
  • Line Location: HDRS+8
Function Call: WRITE
  • Prompt: !,$$DASH(80,0)
  • Line Location: HDRS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Info |  Source |  Entry Points |  Interaction Calls