PRCPUDPT ;WISC/RFJ-distribution point selection ;10 Sep 93
Source file <PRCPUDPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TO(INVPT) | ; select the distr pt which invpt distributes stock TO
; return da; 0 no item selected; ^ for ^ entered or timeout |
|
| FROM(DISTRPT) | ; select the inventory pt which distrpt receives stock FROM
; return da; 0 no item selected; ^ for ^ entered or timeout |
|
| FROMCHEK(DISTRPT,SELECT) | ; check to see if distrpt is stocked by none
; or one inventory points ; pass select=1 to ask for selection if stocked by more than one ; return da if stocked by one, 0 otherwise ; set variable prcpfone=1 if only stocked by one inventory pt ; set variable prcpfnon=1 if not stocked by any inventory pts |
|
| SPD(DISTRPT,SELECT) | ; lookup and return only spd inventory point
; distrpt=secondary invpt stocked by spd ; select =ask for selection if set to 1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PRCP(445 - [#445] | Classic Fileman Calls |
