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

Package: IFCAP

Routine: PRCPRPDH


Information

PRCPRPDH ;WISC/RFJ-distribution cost report (to or from primary) ;12 Feb 92

Source Information

Source file <PRCPRPDH.m>

Entry Points

Name Comments DBIA/ICR reference
START
DQ ;queue comes here
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"I will print the distribution history from ",Y," to "
  • Line Location: START+3
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,$E(INVPT,1,17)
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: NEW
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: ?19,$E(COSTCNTR,1,40),?61,$J(D,19,2)
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !?4,$E(%,1,40),?44,$J($P(DATA,"^",2),10,2),$J(X,15,2)
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !?19,"TOTAL $ AMOUNT DISTRIBUTED ",$S(TYPE="FROM":"TO",1:"FROM")," ",$E(INVPT,1,15),?65,$J(TOTAL,15,2),!
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: !?4,"MIS COSTING SECTION",?41,"% DISTRIBUTED",?61,"$ AMOUNT"
  • Line Location: DQ+22
Function Call: WRITE
  • Prompt: !?4,$E(MISDA,1,40),?44,$J($S(CUMTOT:TOTAL/CUMTOT*100,1:0),10,2),$J(TOTAL,15,2)
  • Line Location: DQ+23
Function Call: WRITE
  • Prompt: !?19,"TOTAL DOLLAR AMOUNT DISTRIBUTED ",TYPE," ",PRCP("IN"),?65,$J(CUMTOT,15,2)
  • Line Location: DQ+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"DISTRIBUTION COSTING REPORT ",TYPE," ",PRCP("IN"),?(80-$L(%)),%,!?10,"FROM DATE ",START," TO DATE ",END
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"DISTRIBUTED ",$S(TYPE="FROM":"TO",1:"FROM"),?19,"COST CENTER",?70,"TOTAL COST",!,%
  • Line Location: H+2
Info |  Source |  Entry Points |  Interaction Calls