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

Package: IFCAP

Routine: PRCPAWU0


Information

PRCPAWU0 ;WISC/RFJ-adjustment utilities ;11 Mar 94

Source Information

Source file <PRCPAWU0.m>

Entry Points

Name Comments DBIA/ICR reference
ITEM() ; select item from tmp($j,"prcpawap","item",*itemnumber*) global
VOUCHER() ; enter reference voucher number
QTY(LOW,HIGH) ; adjust quantity from low to high
; return qty, qty=^ for ^ entered
VALUE(LOW,HIGH,PROMPT,DEFAULT) ; adjust value from low to high
; ask in prompt with default value
REASON(DEFAULT,NODISV) ; enter reason text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Select ITEM: "
  • Line Location: ITEM+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: !,"Select the ITEM NUMBER from the list below:",!
  • Line Location: ITEM+7
Function Call: WRITE
  • Prompt: " ITEM NUMBER: ",X,?23,$E($$DESCR^PRCPUX1(PRCP("I"),+X),1,30),?58,"NSN: ",$$NSN^PRCPUX1(+X)
  • Line Location: ITEM+9
Function Call: WRITE
  • Prompt: $C(13),%
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+11
Info |  Source |  Entry Points |  Interaction Calls