Routine: PRCFSITE

Information

PRCFSITE ;WISC/CTB/CLH/DL-RETURNS PRC* VARIABLES ; 1/29/98 1315

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;139;Oct 20, 2000;Build 16
DIVFY	;CHECK FOR STATION AND FY	ICR #1520 Status: Active Usage: Private ICR #2135 Status: Active Usage: Private
SI
FY
QTR
SE1
ISMS
OUT
FYQ	;RETURNS FY AND QTR GIVEN IN FILEMANAGER DATE IN 'X'
Q
HELP1
A
DUZ
INIT	;PRIMARY INIT POINT FOR PRC OPTIONS
EX	;EXIT LINE FOR MENUMANAGER
NA
PRIMARY	;INPUT TRANSFORM FOR FILE 411 FIELD 21 "PRIMARY STATION"

Name	Line Occurrences
Function Call: WRITE	Prompt: "SITE PARAMETERS HAVE NOT YET BEEN ESTABLISHED, NO FURTHER PROCESSING CAN OCCUR",$C(7) Line Location: DIVFY+4
Function Call: WRITE	Prompt: !,"NO ENTRIES FOUND IN SITE PARAMETER FILE",$C(7) Line Location: DIVFY+5
Function Call: WRITE	Prompt: ! Line Location: SI+0
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:60) Line Location: FY+0
Function Call: WRITE	Prompt: !,"Select FISCAL YEAR ('^' to EXIT): ",PRC("FY"),"// " Line Location: FY+0
Function Call: WRITE	Prompt: $C(7) Line Location: FY+0
Function Call: WRITE	Prompt: !,"Select FISCAL QUARTER: "_$S($D(PRC("QTR")):PRC("QTR")_"// ",1:"") Line Location: QTR+0
Function Call: WRITE	Prompt: !,$C(7),"Enter a number between 1 and 4 ONLY." Line Location: QTR+1
Function Call: WRITE	Prompt: !,"ENTER LAST TWO DIGITS OF FISCAL YEAR, OR <CR> TO ACCEPT PROMPT" Line Location: HELP1+0
Function Call: WRITE	Prompt: !,$C(7),"YOU ARE NOT IN THE 'NEW PERSON' FILE. CONTACT YOUR SITE MANAGER",! Line Location: DUZ+1