SROQ0 ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;08/25/2011
;;3.0;Surgery;**62,70,77,50,95,123,129,153,174,176**;24 Jun 93;Build 8
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
QTR D CHECK I '$D(X) D HELP
K SRX,SRY
Q
CHECK I $L(X)'=6!(X'["-") K X Q
I $P(X,"-",2)?1N,"1243"'[$P(X,"-",2) K X Q
I X'?4N1"-"1N K X Q
S SRX=$P(X,"-") I SRX<1996!(SRX>2030) K X Q
S SRY=$P(X,"-",2) I "1234"'[SRY K X Q
S X=SRX_SRY
Q
HELP K SRHELP S SRHELP(1)="",SRHELP(2)="Answer must be in format: FISCAL YEAR-QUARTER",SRHELP(3)="",SRHELP(4)="NOTE: A hyphen (-) must separate FISCAL YEAR and QUARTER. The FISCAL"
S SRHELP(5)=" YEAR must be in the range 1996 to 2030. QUARTER must be a",SRHELP(6)=" number (1, 2, 3 or 4).",SRHELP(7)="" D EN^DDIOL(.SRHELP) K SRHELP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROQ0 908 printed Dec 13, 2024@02:45:23 Page 2
SROQ0 ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;08/25/2011
+1 ;;3.0;Surgery;**62,70,77,50,95,123,129,153,174,176**;24 Jun 93;Build 8
+2 ;** NOTICE: This routine is part of an implementation of a nationally
+3 ;** controlled procedure. Local modifications to this routine
+4 ;** are prohibited.
+5 ;
QTR DO CHECK
IF '$DATA(X)
DO HELP
+1 KILL SRX,SRY
+2 QUIT
CHECK IF $LENGTH(X)'=6!(X'["-")
KILL X
QUIT
+1 IF $PIECE(X,"-",2)?1N
IF "1243"'[$PIECE(X,"-",2)
KILL X
QUIT
+2 IF X'?4N1"-"1N
KILL X
QUIT
+3 SET SRX=$PIECE(X,"-")
IF SRX<1996!(SRX>2030)
KILL X
QUIT
+4 SET SRY=$PIECE(X,"-",2)
IF "1234"'[SRY
KILL X
QUIT
+5 SET X=SRX_SRY
+6 QUIT
HELP KILL SRHELP
SET SRHELP(1)=""
SET SRHELP(2)="Answer must be in format: FISCAL YEAR-QUARTER"
SET SRHELP(3)=""
SET SRHELP(4)="NOTE: A hyphen (-) must separate FISCAL YEAR and QUARTER. The FISCAL"
+1 SET SRHELP(5)=" YEAR must be in the range 1996 to 2030. QUARTER must be a"
SET SRHELP(6)=" number (1, 2, 3 or 4)."
SET SRHELP(7)=""
DO EN^DDIOL(.SRHELP)
KILL SRHELP
+2 QUIT
