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

Package: IFCAP

Routine: PRCPWPL1


Information

PRCPWPL1 ;WISC/RFJ-whse post issue book (substitute) ;13 Jan 94

Source Information

Source file <PRCPWPL1.m>

Entry Points

Name Comments DBIA/ICR reference
SUBST ; substitute item
SUBITEM() ; select substitute item
NEWLINE(DR) ; set new line item in issue book

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBST+6
Function Call: WRITE
  • Prompt: !,"CANNOT FIND LINE ITEM."
  • Line Location: SUBST+7
Function Call: WRITE
  • Prompt: !,"ITEM IS CANCELLED",$S(STATUS["S":" AND SUBSTITUTED WITH LINE #(S): "_$P(STATUS,",",2,99),1:"")
  • Line Location: SUBST+9
Function Call: WRITE
  • Prompt: !,"ITEM IS NOT STORED IN THE INVENTORY POINT."
  • Line Location: SUBST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBST+11
Function Call: WRITE
  • Prompt: !,"SUBSTITUTE ITEM IS NOT STORED IN THE WAREHOUSE INVENTORY POINT."
  • Line Location: SUBST+13
Function Call: WRITE
  • Prompt: !,"WAREHOUSE IS NOT ESTABLISHED AS A VENDOR FOR THIS ITEM."
  • Line Location: SUBST+15
Function Call: WRITE
  • Prompt: !!,SUBITEM,?5,$E($$DESCR^PRCPUX1(PRCPINPT,SUBITEM),1,30)," ",$$NSN^PRCPUX1(SUBITEM)
  • Line Location: SUBST+18
Function Call: WRITE
  • Prompt: !?5,"UNIT/ISSUE : ",$$UNIT^PRCPUX1(PRCPINPT,SUBITEM,"/")
  • Line Location: SUBST+19
Function Call: WRITE
  • Prompt: !?5,"UNIT/PURCHASE : ",$$UNITVAL^PRCPUX1($P(VENDDATA,"^",8),$P(VENDDATA,"^",7),"/")
  • Line Location: SUBST+20
Function Call: WRITE
  • Prompt: !?5,"AVERAGE COST : ",$J(+$P(INVDATA,"^",22),0,2)
  • Line Location: SUBST+21
Function Call: WRITE
  • Prompt: !?5,"LAST COST : ",$J(+$P(INVDATA,"^",15),0,2)
  • Line Location: SUBST+22
Function Call: WRITE
  • Prompt: !?5,"CHARGE UNITCOST: ",UNITCOST
  • Line Location: SUBST+23
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBST+24
Function Call: WRITE
  • Prompt: !?5,"QTY ON-HAND : ",+$P(INVDATA,"^",7)
  • Line Location: SUBST+25
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBST+28
Function Call: WRITE
  • Prompt: !!,"cancelling original ordered item..."
  • Line Location: SUBST+31
Function Call: WRITE
  • Prompt: !!,"adding a NEW line item (#",NEWLINE,") as a substitute item..."
  • Line Location: SUBST+33
Function Call: WRITE
  • Prompt: !?5,"... incrementing due-outs@warehouse by ",QTYORD
  • Line Location: SUBST+41
Function Call: WRITE
  • Prompt: !?5,"... incrementing due-ins @primary by ",QTYORD*CONV
  • Line Location: SUBST+44
Function Call: WRITE
  • Prompt: " (convfact: ",CONV,")"
  • Condition for execution: CONV>1
  • Line Location: SUBST+44
Info |  Source |  Entry Points |  Interaction Calls