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

Package: IFCAP

Routine: PRCPRISS


Information

PRCPRISS ;WISC/RFJ-inventory sales (secondary) ;24 May 93

Source Information

Source file <PRCPRISS.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**1,41**;Oct 20, 2000
SECOND
DQ
Q
H
TOWHOM(INVPT) ; identify a recipient
TOWHOM1
TOWHOMQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** NO RECIPIENTS SELECTED !"
  • Line Location: SECOND+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SECOND+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SECOND+12
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: SECOND+15
Function Call: WRITE
  • Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>"
  • Line Location: DQ+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+29
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>20
  • Line Location: DQ+33
Function Call: WRITE
  • Prompt: ?27,"TOTALS BY RECIPIENT: ",$J(TOTALQ,10),$J(TOTALV,22,2)
  • Line Location: DQ+33
Function Call: WRITE
  • Prompt: !!,"TOTAL SALES TO RECIPIENTS:"
  • Line Location: DQ+38
Function Call: WRITE
  • Prompt: !?10,DISTRPT,?40,$J(%,20,2)
  • Line Location: DQ+40
Function Call: WRITE
  • Prompt: !?10,"TOTAL",?40,$J(TOTALV,20,2)
  • Line Location: DQ+44
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"INVENTORY SALES FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"INVENTORY SALES DATE RANGE: ",DATESDT," TO ",DATEEDT
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?1,"*** ONLY SUMMARY OF SALES PRINTED ***",!,%
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,"DESCRIPTION",?37,"DATE ISSUED",$J("QUANTITY",10),$J("SELL COST",10),$J("TOTAL VALUE",12),!,%
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,"THERE ARE NO RECIPIENTS OF THAT NAME IN THIS INVENTORY POINT"
  • Line Location: TOWHOM1+8
Info |  Source |  Entry Points |  Interaction Calls