PRCSUT ;WISC/SAW/DGL - CONTROL POINT ACTIVITY UTILITY PROGRAM ;9/14/00 15:49
Source file <PRCSUT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;**93,204**;Oct 20, 2000;Build 14
|
|
ENF(PRCIPFLG) | ;Entry point for Inv. Pt. selection
|
|
EN | ;STA,FY,QTR,CP W/SCREEN FOR INACTIVE CP
|
|
EN1F(PRCIPFLG) | ; Entry point for Inv. Pt. selection
|
|
EN1 | ;STA,FY,QTR,CP
|
|
EN11 | ||
EN2 | ;STA,FY,QTR
|
|
EN3F(PRCIPFLG) | ; Entry point for Inv. Pt. selection
|
|
EN3 | ;STA,CP
|
|
EN4 | ;STA,FY,QTR,CC
|
|
EN5 | ;STA,FY,QTR,BOC
|
|
EN6F(PRCIPFLG) | ; Entry point for Inv. Pt. selection
|
|
EN6 | ;STA,CP,FY
|
|
STA | ;SELECT STATION NUMBER
|
|
FY | ;SELECT FISCAL YEAR
|
|
QT | ;SELECT QUARTER
|
|
CPF(PRCIPFLG) | ; Entry point for inv. pt. selection
|
|
CP | ;SELECT CONTROL POINT
|
|
BBFY(A,B,C,PRCA) | ;extrinsic function of beginning budget fiscal year
|
|
BBFY1 | ||
CC | ;SELECT COST CENTER
|
|
SUB | ;SELECT BOC
|
|
LOCK | ;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
|
|
EX | ||
EXIT | ||
NSCRNF(PRCIPFLG) | ; Entry point for Inv. Pt. selection
|
|
NSCRN | ;STA,FY,QTR,CP
|
|
IP | ; Get Inventory point
|
|
IPQ |
Name | Line Occurrences |
---|---|
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 |
---|---|
^PRC(411 - [#411] | Classic Fileman Calls |
^PRC(420 - [#420] | Classic Fileman Calls |
^PRCD(420.1 - [#420.1] | Classic Fileman Calls |
^PRCD(420.2 - [#420.2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRC(411 - [#411] | STA+16, STA+17 |
^PRC(420 - [#420] | STA+4, CP+4, CP+5, CP+6, CP+12, BBFY+3, IP+5 |
^PRCD(420.3 - [#420.3] | BBFY+4 |
^PRCP(445 - [#445] | IP+5 |
^TMP($J | IP+3!, IP+5*, IP+7, IP+9, IP+16, IPQ! |
Name | Line Occurrences |
---|---|
$$BBFY | EN+9, EN1+8, NSCRN+8 |
BBFY1 | BBFY1+3 |
CC | EN4+4 |
CPF | EN+7, EN1+6, EN3+4, EN6+4, NSCRN+6 |
EN11 | EN+10 |
EX | EN+2, EN+3, EN+4, EN+8, EN+9, EN1+2, EN1+3, EN1+4, EN1+7, EN1+8 , EN2+1, EN2+2, EN2+3, EN3+2, EN3+5, EN4+1, EN4+2, EN4+3, EN5+1, EN5+2 , EN5+3, EN6+2, EN6+5, EN6+6, NSCRN+2, NSCRN+3, NSCRN+4, NSCRN+7, NSCRN+8 |
EXIT | EN11+2, EN2+4, EN3+6, EN4+5, EN5+5, EN6+7 |
FY | EN+3, EN1+3, EN2+2, EN4+2, EN5+2, EN6+6, FY+7, NSCRN+3 |
IP | CP+7, CP+14 |
IPQ | IP+6, IP+7 |
QT | EN+4, EN1+4, EN2+3, EN4+3, EN5+3, QT+7, NSCRN+4 |
STA | EN+2, EN1+2, EN2+1, EN3+2, EN4+1, EN5+1, EN6+2, NSCRN+2 |
SUB | EN5+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | BBFY~, BBFY+3, BBFY+6, BBFY+8 |
B | BBFY~, BBFY+5*, BBFY+6, BBFY+7, BBFY+9, BBFY+10, BBFY1+2, BBFY1+3 |
C | BBFY~, BBFY+3, BBFY+6, BBFY+8 |
CTR | IP+2~, IP+4*, IP+5*, IP+6, IP+7, IP+8, IP+11, IP+13 |
D | STA+10*, CP+13*, BBFY+1~, BBFY+6*, BBFY+7, BBFY1+2 |
>> DA | LOCK+2 |
DIC | STA+7*, STA+14!, STA+19*, STA+22!, CP+9*, CP+15!, CC+1*, SUB+1*, LOCK+2 |
DIC("A" | STA+7*, STA+19*, CP+10*, EXIT! |
DIC("B" | STA+9*, STA+18*, CP+12* |
DIC("S" | EN+5*, STA+8*, STA+20*, CP+11* |
DIC(0 | STA+7*, STA+19*, CP+10*, CC+1*, SUB+1* |
>> DILOCKTM | LOCK+2 |
DIR | IP+10!, IP+15! |
DIR("?" | IP+13*, IP+14* |
DIR("A" | IP+12* |
DIR(0 | IP+10*, IP+11* |
>> DIRUT | IP+8 |
DT | FY+1, FY+2, QT+1, QT+2 |
DTIME | FY+3, QT+3 |
DUZ | STA+4, CP+4, CP+5 |
E | BBFY+1~, BBFY+3*, BBFY+4, BBFY1*, BBFY1+2 |
F | BBFY+1~, BBFY+4*, BBFY+8*, BBFY+9, BBFY+10, BBFY1+2, BBFY1+3 |
FCPDA | CP+1~, CP+4*, CP+5, CP+6 |
FYT | FY+2*, FY+3, FY+5, EXIT! |
I | IP+2~, IP+4*, IP+5*, IP+8*, IP+9, IP+10 |
IOSL | IP+10 |
N | STA+1*, STA+4*, STA+14!, STA+22! |
N(1 | STA+4*, STA+12 |
>> PRC("BBFY" | BBFY+2!, BBFY+4*, BBFY+7*, BBFY+9*, BBFY+10*, BBFY1+4*, BBFY1+5, EX+1! |
>> PRC("CP" | EN+9, EN1+8, EN11, EN11+1, CP+6*, CP+7, CP+12, CP+13*, CP+14*, EX+2! , NSCRN+8, IP+1, IP+5 |
>> PRC("FY" | EN+3, EN+9, EN1+3, EN1+8, EN11, EN2+2, EN4+2, EN5+2, EN6+6, FY+2* , FY+3*, FY+4*, FY+5*, FY+6, FY+7, EX+1!, NSCRN+3, NSCRN+8 |
>> PRC("QTR" | EN+4, EN1+4, EN11, EN2+3, EN4+3, EN5+3, QT+2, QT+3*, QT+4*, QT+5* , QT+6, QT+7, EX+1!, NSCRN+4 |
>> PRC("SITE" | EN+9, EN1+8, EN11, STA+9, STA+11*, STA+12*, STA+13*, STA+14, STA+16, STA+17 , CP+4, CP+5, CP+6, CP+9, CP+12, NSCRN+8, IP+1, IP+5 |
>> PRC("SST" | STA+13*, STA+16*, STA+18, STA+21* |
PRCA | BBFY~, BBFY+8, BBFY+9, BBFY+10 |
PRCBBMY | BBFY1+4*, EX+1! |
PRCIPFLG | ENF~, EN+1~*, EN+6, EN+7, EN1F~, EN1+1~*, EN1+5, EN1+6, EN3F~, EN3+1~* , EN3+3, EN3+4, EN6F~, EN6+1~*, EN6+3, EN6+4, CPF~, CP+3~*, CP+7, CP+14 , NSCRNF~, NSCRN+1~*, NSCRN+5, NSCRN+6 |
PRCLOCK | LOCK+1~, LOCK+2* |
>> PRCRMPR | IP+7 |
>> PRCS("CC" | CC+3* |
>> PRCS("SUB" | SUB+3* |
>> PRCSC | EN+6, EN+7, EN1+5, EN1+6, EN3+3, EN3+4, EN6+3, EN6+4, NSCRN+5*, NSCRN+6 |
PRCSIP | CP+2!, IP+4*, IP+7*, IP+16* |
PRCSK | STA+2, STA+8, EXIT! |
>> PRCSL | LOCK+3* |
>> PRCSST | STA+17 |
QTT | QT+2*, QT+3, QT+5, EXIT! |
SI | EN+2, EN+8, EN1+2, EN1+7, EN2+1, EN3+2, EN3+5, EN4+1, EN5+1, EN6+2 , EN6+5, STA+2*, STA+4*, STA+5, STA+6, STA+12, QT+2*, EX+1!, EXIT!, NSCRN+2 , NSCRN+7 |
U | FY+4, QT+4, QT+6, CP+6 |
X | EN11+1*, BBFY+1~, BBFY1+2 |
Y | EN+2, EN+8, EN1+2, EN1+7, EN2+1, EN3+2, EN3+5, EN4+1, EN5+1, EN6+2 , EN6+5, STA+1*, STA+11, STA+14, STA+21, CP+13, CP+14, BBFY+1~, BBFY1+2, BBFY1+3* , BBFY1+4, CC+2, SUB+2, EX*, NSCRN+2, NSCRN+7, IP+16 |
Y(0 | CP+14, CC+3, SUB+3 |
Y(1 | BBFY1+1* |
>> Z | EN11*, EN11+1 |