Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SROQ0

SROQ0.m

Go to the documentation of this file.
  1. 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
  1. ;** NOTICE: This routine is part of an implementation of a nationally
  1. ;** controlled procedure. Local modifications to this routine
  1. ;** are prohibited.
  1. ;
  1. QTR D CHECK I '$D(X) D HELP
  1. K SRX,SRY
  1. Q
  1. CHECK I $L(X)'=6!(X'["-") K X Q
  1. I $P(X,"-",2)?1N,"1243"'[$P(X,"-",2) K X Q
  1. I X'?4N1"-"1N K X Q
  1. S SRX=$P(X,"-") I SRX<1996!(SRX>2030) K X Q
  1. S SRY=$P(X,"-",2) I "1234"'[SRY K X Q
  1. S X=SRX_SRY
  1. Q
  1. 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"
  1. 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
  1. Q