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

Package: IFCAP

Routine: PRCPWPL0


Information

PRCPWPL0 ;WISC/RFJ-whse post issue book (options) ;13 Jan 94

Source Information

Source file <PRCPWPL0.m>

Entry Points

Name Comments DBIA/ICR reference
EEITEMS ; called from protocol file to enter/edit invpt items
SHOWNSN ; show nsn on list
REMAIN ; set qty to post to remaining (outstanding) qty
ONHAND ; set qty to post to onhand qty
ENTER ; enter quantity to post
LINEITEM()
DICW ; write identifier for item

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !,"CANNOT FIND LINE ITEM."
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !,"ITEM (#",ITEMDA,") NOT STORED IN THE INVENTORY POINT."
  • Line Location: ENTER+7
Function Call: WRITE
  • Prompt: !,"ITEM IS CANCELLED",$S(STATUS["S":" AND SUBSTITUTED WITH LINE #(S): "_$P(STATUS,",",2,99),1:"")
  • Line Location: ENTER+8
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+10
Function Call: WRITE
  • Prompt: !?5,"AVERAGE COST : ",$J(+$P(INVDATA,"^",22),0,2)
  • Line Location: ENTER+11
Function Call: WRITE
  • Prompt: !?5,"LAST COST : ",$J(+$P(INVDATA,"^",15),0,2)
  • Line Location: ENTER+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+13
Function Call: WRITE
  • Prompt: !?5,"QTY ON-HAND : ",ONHAND
  • Line Location: ENTER+14
Function Call: WRITE
  • Prompt: !?5,"QTY ORDERED : ",+$P(DATA,"^",2)
  • Line Location: ENTER+15
Function Call: WRITE
  • Prompt: !?5,"QTY POSTED : ",+$P(DATA,"^",12)
  • Line Location: ENTER+16
Function Call: WRITE
  • Prompt: !?5,"QTY OUTSTANDING: ",QTYOUT
  • Line Location: ENTER+17
Function Call: WRITE
  • Prompt: !?5,"QTY TO POST : ",+$G(^TMP($J,"PRCPWPLMPOST",LINEDA))
  • Line Location: ENTER+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+21
Function Call: WRITE
  • Prompt: ?7," ",$P(B,"^",5)," (#",+$P(%,"^",5),")",?35," QTY.ORD: ",+$P(%,"^",2),?50," QTY.DIS: ",+$P(%,"^",PRCPNODE),?65
  • Line Location: DICW+4
Function Call: WRITE
  • Prompt: " QTY.OUT: ",A
  • Line Location: DICW+5
Function Call: WRITE
  • Prompt: A
  • Line Location: DICW+6
Function Call: WRITE
  • Prompt: !?7," ",$P(B,"^",2)
  • Line Location: DICW+7
Info |  Source |  Entry Points |  Interaction Calls