- 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 Feb 19, 2025@00:11:53 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