Routine: PRCSUT

Information

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	ICR #1522 Status: Active Usage: Private
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	ICR #140 Status: Retired Usage: Private
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	ICR #5330 Status: Retired Usage: Controlled Subscription
FY	;SELECT FISCAL YEAR	ICR #1198 Status: Active Usage: Private
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	ICR #1198 Status: Active Usage: Private ICR #6652 Status: Active Usage: Private
BBFY1
CC	;SELECT COST CENTER
SUB	;SELECT BOC
LOCK	;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER	ICR #1522 Status: Active Usage: Private
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	Prompt: !,"Select FISCAL YEAR: ",FYT,"// " Line Location: FY+3
Function Call: WRITE	Prompt: $C(7),!,"Enter a two digit fiscal year (e.g., 87).",! Line Location: FY+7
Function Call: WRITE	Prompt: !,"Select QUARTER: ",QTT,"// " Line Location: QT+3
Function Call: WRITE	Prompt: $C(7),!,"Enter a single digit number from 1 to 4.",! Line Location: QT+7
Function Call: WRITE	Prompt: !,?5,I,") ",$P(^TMP($J,"PRCSUT",I),"^",2) Line Location: IP+9
Function Call: WRITE	Prompt: " ",$P(^TMP($J,"PRCSUT",Y),"^",2),! Line Location: IP+16