AZHLSC46.m

AZHLSC46 ; IHS/HQW/JN - SAC CHAPTER 2:  M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 05/07/1999  2:09 PM ]

 ;;5.0;AZHLSC;;JAN 17,1997

EN ;EP         

 S AZHLSC4I=0

 I $G(AZHLNMSP)="" G AZHLSCM

 ;     IF ROUTINE IS AN   INIT TEMPLATE INTEG DO NOT FLAG

 S AZHLSCF6=AZHLNMSP_"I"

 I AZHL0[AZHLSCF6 G AZHLSCKS

 ;IHS/JGN 7 MAY 1999 CHECK FOR TEMPLATE REMOVED

 ;S AZHLSCF6=AZHLNMSP_"T"

 ;I AZHL0[AZHLSCF6 G AZHLSCKS

 S AZHLSCF6=AZHLNMSP_"NTE"

 I AZHL0[AZHLSCF6 G AZHLSCKS

 S AZHLSCF6=AZHLNMSP_"ON"

 I AZHL0[AZHLSCF6 G AZHLSCKS

AZHLSCM ;   DO NOT SCREEN TEMPLATES

 I ^TMP($J,"Z",1,0)["; GENERATED" G AZHLSCKS

AZHLSCK1 K AZHLSCF6 Q

AZHLSCKS S AZHLSC4I=1 G AZHLSCK1

AZHLSC46  ; IHS/HQW/JN - SAC CHAPTER 2:  M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 05/07/1999  2:09 PM ]

 +1       ;;5.0;AZHLSC;;JAN 17,1997

EN        ;EP         

 +1        SET AZHLSC4I=0

 +2        IF $GET(AZHLNMSP)=""

               GOTO AZHLSCM

 +3       ;     IF ROUTINE IS AN   INIT TEMPLATE INTEG DO NOT FLAG

 +4        SET AZHLSCF6=AZHLNMSP_"I"

 +5        IF AZHL0[AZHLSCF6

               GOTO AZHLSCKS

 +6       ;IHS/JGN 7 MAY 1999 CHECK FOR TEMPLATE REMOVED

 +7       ;S AZHLSCF6=AZHLNMSP_"T"

 +8       ;I AZHL0[AZHLSCF6 G AZHLSCKS

 +9        SET AZHLSCF6=AZHLNMSP_"NTE"

 +10       IF AZHL0[AZHLSCF6

               GOTO AZHLSCKS

 +11       SET AZHLSCF6=AZHLNMSP_"ON"

 +12       IF AZHL0[AZHLSCF6

               GOTO AZHLSCKS

AZHLSCM   ;   DO NOT SCREEN TEMPLATES

 +1        IF ^TMP($JOB,"Z",1,0)["; GENERATED"

               GOTO AZHLSCKS

AZHLSCK1   KILL AZHLSCF6

           QUIT 

AZHLSCKS   SET AZHLSC4I=1

           GOTO AZHLSCK1