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

Package: IFCAP

Routine: PRCPRVS0


Information

PRCPRVS0 ;WISC/RFJ-voucher summary (continued) ;15 Jun 92

Source Information

Source file <PRCPRVS0.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print report
Q
SETVAR(V1) ;set total variable v1
SHOWTOTL(V1) ;print totals for variable v1
SHOWVALU(V1) ;show value
H ;heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,REFNO,?8,$E(DATE,6,7),?13,$P(D,"^"),?27,$P(D,"^",2),?37,CC,?49,$J($FN($P(D,"^",5),"T+"),9),$$SHOWVALU($P(D,"^",6)),$$SHOWVALU($P(D,"^",7))
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !!?4,"TOTAL ACCT CODE ISSUES:",?49,$$SHOWTOTL("TACCISS")
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !?4,"TOTAL ACCT CODE ISSUE ADJ:",?49,$$SHOWTOTL("TACCISSA")
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !?4,"TOTAL ACCT CODE RECEIPTS:",?49,$$SHOWTOTL("TACCREC")
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !?4,"TOTAL ACCT CODE RECEIPT ADJ:",?49,$$SHOWTOTL("TACCRECA")
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !?4,"TOTAL ACCT CODE OTHER ADJ:",?49,$$SHOWTOTL("TACCOTH")
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !!?4,"OPEN BALANCE FOR ACCT CODE '",ACCT,"':",?49,$J($FN($P($G(OPEN(ACCT)),"^"),"T+"),9),$$SHOWVALU($P($G(OPEN(ACCT)),"^",2))
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !?4,"TOTALS FOR ACCT CODE '",ACCT,"':",?49,$$SHOWTOTL("TACCT")
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !?4,"CLOSING BALANCE FOR ACCT CODE '",ACCT,"':",?49,$J($FN($P(%,"^"),"T+"),9),$$SHOWVALU($P(%,"^",2))
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !!,"** TOTAL SUPPLY ISSUES:",?49,$$SHOWTOTL("TSUPISS")
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !,"** TOTAL SUPPLY ISSUE ADJ:",?49,$$SHOWTOTL("TSUPISSA")
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !,"** TOTAL SUPPLY RECEIPTS:",?49,$$SHOWTOTL("TSUPREC")
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !,"** TOTAL SUPPLY RECEIPT ADJ:",?49,$$SHOWTOTL("TSUPRECA")
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !,"** TOTAL OTHER ADJ:",?49,$$SHOWTOTL("TSUPOTH")
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !!,"** TOTALS FOR SUPPLY:",?49,$$SHOWTOTL("TACCT")
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !!,"** OPENING BALANCE FOR SUPPLY:",?49,$J($FN($P(OPENBAL,"^"),"T+"),9),$$SHOWVALU($P(OPENBAL,"^",2))
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: !,"** CLOSING BALANCE FOR SUPPLY:",?49,$J($FN($P(ACCTBAL,"^"),"T+"),9),$$SHOWVALU($P(ACCTBAL,"^",2))
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $C(13),"VOUCHER SUMMARY REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?5,"TRANSACTIONS FOR THE MONTH-YEAR: ",MONTH
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?4,"ACCOUNT CODE: ",ACCT,?30,"STA-INVENTORY POINT: ",PRC("SITE"),"-",PRCP("IN")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"REF #",?8,"DT",?13,"STA-FCP-2237",?27,"TRANSID",?37," CC/SA",?54,"QTY",?63,"INV $",?73,"SELL $"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+6
Info |  Source |  Entry Points |  Interaction Calls