PRCPLO1 ;WOIFO/RLL/DAP-utilities: setup inventory variables ; 1/24/06 9:56am
Source file <PRCPLO1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;**83**;Oct 20, 2000
|
|
PRCPUSEL | ; Old routine label (to resolve goto below for xindex)
|
|
DOIT | ; ADDED label here
|
|
GETIPT | ; $O through PRCP(^445,"B", get Station ID, Inactive?, IPID#
; |
|
DOIT1 | ; ADDED label here
|
|
DOSITE | ; Set up PRC array from PRCFSITE
|
|
DOSITEP | ; Set up PRCP array from DISPLAY^PRCPLO1
|
|
V1 | ; internal program jump
|
|
DISPLAY | ; display top of page header
|
|
NOMENU | ; user did not select a valid inventory point, do not allow access
; to the menu (called from option file) |
|
PARAM(INVPT) | ||
TERM | ; get terminal attributes
|
|
SSMSG | ; check supply station secondaries, give message of qty mismatch
|
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 |
|
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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PRCP(445 - [#445] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("XY" | TERM+5 |
^PRC(411 - [#411] | GETIPT+21, DOSITE+3, DOSITEP+19 |
^PRCP(445 - [#445] | GETIPT+4, GETIPT+5, GETIPT+13, DOSITEP+9, DOSITEP+16, DOSITEP+17, DOSITEP+23, DISPLAY+12, DISPLAY+32, PARAM+3 , SSMSG+4, SSMSG+5, SSMSG+6, SSMSG+7 |
^PRCP(447.1 - [#447.1] | DISPLAY+33 |
Name | Field # of Occurrence |
---|---|
^(0 | DOSITEP+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DOIT1+1~, DOIT1+4*, DOSITEP+1*, DOSITEP+9*, DOSITEP+14*, DOSITEP+17, DISPLAY+2*, DISPLAY+3, DISPLAY+5*, DISPLAY+8 , DISPLAY+36 |
C | DOIT1+1~ |
>> CLRSFLAG | GETIPT+37, GETIPT+38 |
D | DOIT+1~, DOSITEP+29* |
DATA | PARAM+2~, PARAM+3*, PARAM+10 |
DATA1 | GETIPT+2~, GETIPT+13*, GETIPT+14, GETIPT+15, GETIPT+16, GETIPT+18 |
DATA2 | GETIPT+2~, GETIPT+21*, GETIPT+22 |
DIC | DOSITEP+25*, DOSITEP+31! |
DIC("A" | DOSITEP+28* |
DIC("S" | DOSITEP+26*, DOSITEP+27* |
DIC(0 | DOSITEP+25* |
DISYS | DOIT1+1~ |
DT | DISPLAY+17, DISPLAY+22, DISPLAY+24, DISPLAY+26, DISPLAY+28, DISPLAY+30 |
DUZ | DOIT1+2, DOSITE+4, DOSITEP+16 |
GIPCNT | SSMSG+1~, SSMSG+6*, SSMSG+8, SSMSG+9 |
I | DOIT1+1~, DOIT1+4*, DOSITEP+1*, DOSITEP+15*, DOSITEP+16*, DOSITEP+17, DISPLAY+2* |
INVPT | PARAM~, PARAM+3, PARAM+10, SSMSG+1~, SSMSG+2*, SSMSG+4, SSMSG+5, SSMSG+6, SSMSG+7 |
IOF | DISPLAY+9, TERM+2 |
IOP | TERM+2*! |
IORVOFF | DOIT+1~, TERM+4 |
IORVON | DOIT+1~, TERM+4 |
IOST(0 | TERM+2 |
ITEM | SSMSG+1~, SSMSG+3*, SSMSG+4*, SSMSG+5, SSMSG+6, SSMSG+7 |
J | DOIT1+1~, DOSITEP+15*, DOSITEP+16, DOSITEP+17*, DOSITEP+18 |
PRC | DOIT1+2!, DOSITEP+12!, DOSITEP+19!, DOSITEP+32! |
PRC( | DOIT1+4 |
PRC("FY" | GETIPT+26*, DOSITE+2* |
PRC("MDIV" | GETIPT+24*, DOSITE+1* |
PRC("PARAM" | GETIPT+22*, DOSITE+3* |
PRC("PER" | GETIPT+25*, DOSITE+4*, DISPLAY+16 |
PRC("QTR" | GETIPT+27*, DOSITE+5* |
PRC("SITE" | GETIPT+23*, DOSITE+6*, DOSITEP+9, DOSITEP+11, DOSITEP+18*, DISPLAY+13 |
PRCF | DOIT1+1~ |
PRCHAUTH | DOIT+1~, DOSITEP+22 |
PRCP | DOIT1+2!, DOSITEP+12!, DOSITEP+19!, DOSITEP+32!, PARAM+1! |
PRCP( | DOSITEP+1, DISPLAY+2 |
PRCP("DPTYPE" | GETIPT+14*, DOSITEP+7, DOSITEP+14, DOSITEP+27, DOSITEP+28, DISPLAY+14, DISPLAY+17, DISPLAY+26, DISPLAY+32, PARAM+10* |
PRCP("HIS" | GETIPT+16*, PARAM+10* |
PRCP("I" | GETIPT+17*, DOSITEP+11*, DOSITEP+12, DOSITEP+22, DOSITEP+23, DISPLAY+1, DISPLAY+12, DISPLAY+32, DISPLAY+33, PARAM+10* , SSMSG+2 |
PRCP("IN" | DISPLAY+15, PARAM+10* |
PRCP("INV" | GETIPT+18*, PARAM+10* |
PRCP("PAR" | GETIPT+15*, DISPLAY+12*, DISPLAY+17, DISPLAY+20, DISPLAY+22, DISPLAY+24, DISPLAY+26, DISPLAY+28, DISPLAY+30, DISPLAY+33 |
PRCP("RV0" | DISPLAY+11, DISPLAY+36, TERM+4* |
PRCP("RV1" | DISPLAY+9, DISPLAY+36, TERM+4* |
PRCP("XY" | DISPLAY+10, DISPLAY+36, TERM+5* |
PRCPEX | PARAM+2~ |
PRCPFLAG | DOIT1+1~, DOSITEP+7, DOSITEP+8!, DOSITEP+9*, DOSITEP+10!, DOSITEP+12*, DOSITEP+18, DOSITEP+19*, SSMSG+1~, SSMSG+4 , SSMSG+11* |
PRCPPRIV | DOSITEP+29*, DOSITEP+31! |
SSCNT | SSMSG+1~, SSMSG+7*, SSMSG+8, SSMSG+9 |
U | DOSITEP+23 |
V1 | GETIPT+2~, GETIPT+3*, GETIPT+4*, GETIPT+5, GETIPT+6, GETIPT+8, GETIPT+9 |
V2 | GETIPT+2~, GETIPT+3*, GETIPT+5*, GETIPT+13, GETIPT+17, DOSITE+3, DOSITE+6, DOSITEP+4 |
V3 | GETIPT+2~, GETIPT+8*, GETIPT+21, GETIPT+23 |
V4 | GETIPT+2~, GETIPT+9* |
V5 | GETIPT+2~ |
X | DOIT1+1~, DISPLAY+6*, DISPLAY+7, DISPLAY+8*, DISPLAY+9, DISPLAY+11, DISPLAY+13*, DISPLAY+14*, DISPLAY+15*, DISPLAY+16 , NOMENU+2~, NOMENU+3, TERM+1~, TERM+3* |
X(1 | NOMENU+3* |
Y | DOIT1+1~, DOSITEP+17*, DOSITEP+23*, DOSITEP+32, V1+1, DISPLAY+7*, DISPLAY+8, DISPLAY+17*, DISPLAY+19 |
Y(0 | DOSITEP+17*, DOSITEP+18, DOSITEP+19, DOSITEP+21 |
Name | Field # of Occurrence |
---|---|
$T(PRCPUSEL+1 | DISPLAY+6 |