Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
IFCAP 10 $$SUBACCT^PRCPU441  SETOUT^PRCPUDUE  ADDUPD^PRCPUTRA  $$GETVEN^PRCPUVEN  ($$DESCR,$$NSN,$$UNIT,$$UNITVAL)^PRCPUX1  DISPLAY^PRCPUX2  $$YN^PRCPUYN  $$LINEITEM^PRCPWPL0  
CANCELIT^PRCPWPL2  REBUILD^PRCPWPLB  
VA FileMan 3 ^DIC  FILE^DICN  ^DIR  
List Manager 1 FULL^VALM1  

Entry Points

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

External References

Name Field # of Occurrence
^DIC SUBITEM+6
FILE^DICN NEWLINE+5
^DIR SUBST+28
$$SUBACCT^PRCPU441 SUBST+34
SETOUT^PRCPUDUE SUBST+41
ADDUPD^PRCPUTRA SUBST+45
$$GETVEN^PRCPUVEN SUBST+43
$$DESCR^PRCPUX1 SUBST+18
$$NSN^PRCPUX1 SUBST+18
$$UNIT^PRCPUX1 SUBST+19
$$UNITVAL^PRCPUX1 SUBST+20
DISPLAY^PRCPUX2 SUBST+5
$$YN^PRCPUYN SUBST+30
$$LINEITEM^PRCPWPL0 SUBST+6
CANCELIT^PRCPWPL2 SUBST+31
REBUILD^PRCPWPLB SUBST+46
FULL^VALM1 SUBST+1

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
Routine Call
  • DIC
  • Line Location:
    • SUBITEM+6
Routine Call
  • DIR
  • Line Location:
    • SUBST+28

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] SUBST+14
^PRCD(420.2 - [#420.2] SUBST+34
^PRCP(445 - [#445] SUBST+10, SUBST+12, SUBST+41, SUBST+42, SUBITEM+2, SUBITEM+3
^PRCS(410 - [#410] SUBST+7, SUBST+32, SUBST+39, SUBST+40*

Label References

Name Line Occurrences
$$SUBITEM SUBST+11
NEWLINE SUBST+36

Naked Globals

Name Field # of Occurrence
^(0 SUBITEM+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEWLINE+1~
C NEWLINE+1~
CONV SUBST+3~, SUBST+43*, SUBST+44, SUBST+45
D0 NEWLINE+1~
DA SUBITEM+1~, SUBITEM+4*, NEWLINE+1~
DA(1 SUBITEM+4*, NEWLINE+2*
DATA SUBST+3~, SUBST+7*, SUBST+8, SUBST+10
DD NEWLINE+1~
DDH NEWLINE+1~
DI NEWLINE+1~
DIC SUBITEM+1~, SUBITEM+4*, NEWLINE+1~, NEWLINE+2*
DIC("DR" NEWLINE+4*
DIC("W" SUBITEM+5*
DIC(0 SUBITEM+4*, NEWLINE+2*
DIE NEWLINE+1~
DIE("NO^" NEWLINE+3*
DIR SUBST+3~, SUBST+28!
DIR("A" SUBST+26*, SUBST+27*
DIR(0 SUBST+26*
DLAYGO NEWLINE+1~, NEWLINE+2*
DQ NEWLINE+1~
DR SUBST+3~, SUBST+35*, SUBST+36, NEWLINE~, NEWLINE+4
I NEWLINE+1~
INVDATA SUBST+3~, SUBST+12*, SUBST+13, SUBST+17, SUBST+21, SUBST+22, SUBST+25
ITEMDA SUBST+3~, SUBST+10*, SUBITEM+2, SUBITEM+3, SUBITEM+4
LINEDA SUBST+3~, SUBST+6*, SUBST+7, SUBST+39, SUBST+40
NEWLINE SUBST+3~, SUBST+32*, SUBST+33, SUBST+40, NEWLINE+2
>> PRCPDA SUBST+7, SUBST+32, SUBST+39, SUBST+40, SUBST+45, NEWLINE+2
>> PRCPINPT SUBST+10, SUBST+12, SUBST+18, SUBST+19, SUBST+41, SUBITEM+2, SUBITEM+3, SUBITEM+4
>> PRCPPRIM SUBST+42, SUBST+43, SUBST+45
>> PRCPPVNO SUBST+14, SUBST+43
PRCS NEWLINE+1~
QTYORD SUBST+3~, SUBST+28*, SUBST+35, SUBST+41, SUBST+44, SUBST+45
STATUS SUBST+3~, SUBST+8*, SUBST+9, SUBST+31, SUBST+39*, SUBST+40
SUBACCT SUBST+3~, SUBST+34*, SUBST+35
SUBITEM SUBST+3~, SUBST+11*, SUBST+12, SUBST+13*, SUBST+14, SUBST+15*, SUBST+16, SUBST+18, SUBST+19, SUBST+34
SUBST+35, SUBST+41, SUBST+42, SUBST+43, SUBST+45
UNITCOST SUBST+3~, SUBST+17*, SUBST+23, SUBST+35
>> VALMBCK SUBST+2*
VENDDATA SUBST+3~, SUBST+14*, SUBST+15, SUBST+17, SUBST+20, SUBST+35
VENDOR SUBST+3~, SUBST+43*, SUBST+45
X SUBST+3~, SUBST+4!, SUBST+5, SUBITEM+1~, NEWLINE+1~, NEWLINE+2*
X(1 SUBST+4*
>> XH SUBST+29*
>> XP SUBST+29*
Y SUBST+28, SUBITEM+1~, SUBITEM+7, NEWLINE+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All