PRCPUX2 ;WISC/RFJ/VAC/DST-extrinsic functions ; 2/21/07 10:52am
Source file <PRCPUX2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ISMSFLAG(SITE) | ; isms switch on|off for site
; switch=0 or 1 for log code sheet format ; switch=2 for isms code sheet formats |
|
INPERCNT(V1,V2,V3,V4) | ; initialize percent graph
; v1=total number of entries ; v2=display character ; v3=reverse video on (optional) ; v4=reverse video off (optional) ; returns number v2 to display per entry |
|
SHPERCNT(V1,V2,V3,V4,V5,V6) | ; display percent complete
; v1=current entry number executed ; v2=display this many v3 for each entry ; v3=character to display ; v4=reverse video on (optional) ; v5=reverse video off (optional) ; return last one displayed |
|
QPERCNT(V1,V2,V3,V4) | ; finish percent display
; v1=last v2 displayed ; v2=character to display ; v3=reverse video on (optional) ; v4=reverse video off (optional) |
|
DISPLAY(DX1,DX2,X) | ; display message
; dx1 = begin column ; dx2 = end column ; x = message |
|
ODITEM(INVPT,ITEMDA) | ;Return a flag for On-Demand Item
; If an item is in the warehouse, return a "W", if the item is an ; on-demand item, return a "Y", otherwise return a null. |
|
ODIPROM(Y) | ; Display prompt to user for On-Demand Items selection
|
|
SRTPRMP(Y) | ; Display prompt for On-Demand Items SORT selection
|
|
SINGIT(PRCPIP) | ; Prompt for selecting a single item or all items
; *98 Used by PRCPRODA ; ITEMSEL=NULL for all items selected or non-NULL for a single item |
|
SING1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRC(411 - [#411] | ISMSFLAG+3 |
^PRCP(445 - [#445] | ODITEM+3, ODITEM+4, ODITEM+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | ISMSFLAG+3~*, ISMSFLAG+4, INPERCNT+9*, INPERCNT+10, SHPERCNT+7~, SHPERCNT+8*, QPERCNT+5~, QPERCNT+6*, DISPLAY+4~, DISPLAY+18* , SING1*, SING1+4, SING1+7*, SING1+8 |
DIR | ODIPROM+13!, ODIPROM+17!, SRTPRMP+10!, SRTPRMP+14! |
DIR("A" | ODIPROM+15*, SRTPRMP+12* |
DIR(0 | ODIPROM+14*, SRTPRMP+11* |
>> DIRUT | ODIPROM+18, SRTPRMP+15 |
DX1 | DISPLAY~, DISPLAY+5*, DISPLAY+6*, DISPLAY+7, DISPLAY+20, DISPLAY+21 |
DX2 | DISPLAY~, DISPLAY+5*, DISPLAY+6*, DISPLAY+20 |
END | DISPLAY+4~, DISPLAY+18*, DISPLAY+19*, DISPLAY+20 |
INVPT | ODITEM~, ODITEM+3, ODITEM+4, ODITEM+5 |
ITEMDA | ODITEM~, ODITEM+4, ODITEM+5 |
ITEMSEL | SINGIT+3~, SING1*, SING1+3*, SING1+4, SING1+8*, SING1+9*, SING1+10 |
LENGTH | DISPLAY+4~, DISPLAY+5*, DISPLAY+6, DISPLAY+18, DISPLAY+19 |
LINE | DISPLAY+4~, DISPLAY+8*, DISPLAY+9, DISPLAY+13 |
NEXT | DISPLAY+4~, DISPLAY+13*, DISPLAY+14 |
>> PRCP("XY" | SHPERCNT+8, QPERCNT+6 |
PRCPFLAG | DISPLAY+4~, DISPLAY+12, DISPLAY+15* |
PRCPIP | SINGIT~, SING1+3 |
PRCPLINE | DISPLAY+4~, DISPLAY+6*, DISPLAY+7, DISPLAY+21 |
SITE | ISMSFLAG~, ISMSFLAG+3 |
TEXT | DISPLAY+4~, DISPLAY+8*, DISPLAY+9, DISPLAY+14*, DISPLAY+18, DISPLAY+20* |
V1 | INPERCNT~, INPERCNT+9, SHPERCNT~, SHPERCNT+8, QPERCNT~, QPERCNT+6 |
V2 | INPERCNT~, INPERCNT+8, SHPERCNT~, SHPERCNT+8, QPERCNT~, QPERCNT+6 |
V3 | INPERCNT~, INPERCNT+8, SHPERCNT~, SHPERCNT+8, QPERCNT~, QPERCNT+6 |
V4 | INPERCNT~, INPERCNT+8, SHPERCNT~, SHPERCNT+8, QPERCNT~, QPERCNT+6 |
V5 | SHPERCNT~, SHPERCNT+8 |
V6 | SHPERCNT~ |
X | SHPERCNT+8*, SHPERCNT+9, DISPLAY~, ODIPROM+8~, ODIPROM+11, SRTPRMP+6~, SRTPRMP+9 |
X( | DISPLAY+9, DISPLAY+13, DISPLAY+14! |
X(1 | ODIPROM+10*, SRTPRMP+8* |
XP | SINGIT+3~, SING1+5* |
Y | ODIPROM~, ODIPROM+19, SRTPRMP~, SRTPRMP+16 |