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 |