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

Package: IFCAP

Routine: PRCPWPP0


Information

PRCPWPP0 ;WISC/RFJ,DWA-primary receive issue book (options) ;20 Jan 94

Source Information

Source file <PRCPWPP0.m>

Entry Points

Name Comments DBIA/ICR reference
EEITEMS ; called from protocol file to enter/edit invpt items
REMAIN ; set qty to receive to remaining (outstanding) qty
ENTER ; enter quantity to post
LINEITEM()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !,"CANNOT FIND LINE ITEM."
  • Line Location: ENTER+6
Function Call: WRITE
  • Prompt: !,"ITEM (#",ITEMDA,") NOT STORED IN THE INVENTORY POINT."
  • Line Location: ENTER+8
Function Call: WRITE
  • Prompt: !,"ITEM IS CANCELLED",$S(STATUS["S":" AND SUBSTITUTED WITH LINE #(S): "_$P(STATUS,",",2,99),1:"")
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: !!,ITEMDA,?5,$E($$DESCR^PRCPUX1(PRCPINPT,ITEMDA),1,30)," ",$$NSN^PRCPUX1(ITEMDA)," U/I: ",$$UNIT^PRCPUX1(PRCPINPT,ITEMDA,"/")
  • Line Location: ENTER+11
Function Call: WRITE
  • Prompt: !?5,"AVERAGE COST : ",$J(+$P(INVDATA,"^",22),0,2)
  • Line Location: ENTER+12
Function Call: WRITE
  • Prompt: !?5,"LAST COST : ",$J(+$P(INVDATA,"^",15),0,2)
  • Line Location: ENTER+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+14
Function Call: WRITE
  • Prompt: !?5,"QTY ON-HAND : ",ONHAND
  • Line Location: ENTER+15
Function Call: WRITE
  • Prompt: !?5,"QTY ORDERED : ",+$P(DATA,"^",2)
  • Line Location: ENTER+16
Function Call: WRITE
  • Prompt: !?5,"QTY POSTED : ",+$P(DATA,"^",12)
  • Line Location: ENTER+17
Function Call: WRITE
  • Prompt: !?5,"QTY RECEIVED : ",+$P(DATA,"^",13)
  • Line Location: ENTER+18
Function Call: WRITE
  • Prompt: !?5,"QTY OUTSTANDING: ",QTYOUT
  • Line Location: ENTER+19
Function Call: WRITE
  • Prompt: !?5,"QTY TO RECEIVE : ",+$G(^TMP($J,"PRCPWPPLPOST",LINEDA))
  • Line Location: ENTER+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENTER+27
Function Call: WRITE
  • Prompt: !,?15,"*****************WARNING*********************"
  • Line Location: ENTER+28
Function Call: WRITE
  • Prompt: !,?15,"** Quantity RECEIVED greater than ORDERED. **"
  • Line Location: ENTER+29
Function Call: WRITE
  • Prompt: !,?15,"** Is that what you want to do? **"
  • Line Location: ENTER+30
Function Call: WRITE
  • Prompt: !,?15,"*********************************************",!!
  • Line Location: ENTER+31
Info |  Source |  Entry Points |  Interaction Calls