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

AZHLSC54.m

Go to the documentation of this file. 
  1. AZHLSC54 ; IHS/HQW/JN - SAC CHAPTER 2:  M LANGUAGE PROGRAMMING STANDARDS & CONVENTIONS ;  [ 03/05/97  10:18 AM ] [1/13/00 2:21pm]
  1.  ;;5.0;AZHLSC;;JAN 17,1997
  1. EN ;EP     FIND CONDITIONAL AND ^% GLOBALS IN STRING
  1.  D EN^AZHLSC46 Q:AZHLSC4I=1
  1.  I Z(Z)["K ^%"!(Z(Z)["S ^%") D AZHLSET Q
  1.  S AZHLSCF=$F(Z(Z),"^%") Q:AZHLSCF=0  
  1.  I $E(Z(Z),AZHLSCF-3,AZHLSCF-1)=",^%" D AZHLSTR Q 
  1.  I $E(Z(Z),AZHLSCF-3,AZHLSCF-1)=" ^%" D AZHLSCCO Q      
  1.  Q
  1. AZHLSTR ;   SEARCH FOR  K OR S FOR IMBEDED % GL 
  1.  F I=AZHLSCF:-1 Q:I<1  I $E(Z(Z),I)[" " D AZHLSEAR Q
  1.  Q
  1. AZHLSCCO ;    SEARCH FOR CONDITIONAL K OR S 
  1.  F I=AZHLSCF:-1 Q:I<1  I $E(Z(Z),I)=":" D AZHLSUB Q:AZHLNM>12  D AZHLSEAR Q
  1.  Q
  1. AZHLSEAR ;
  1.  I $E(Z(Z),I-2,I-1)=" K" D AZHLSET Q
  1.  I $E(Z(Z),I-2,I-1)=" S" D AZHLSET Q
  1.  Q
  1. AZHLSET ;
  1.  K AZHLSCF,I,AZHLNM S ^TMP($J,"2.3.2.4",AZHL0,AZHLB)=^TMP($J,"Z")
  1.  Q
  1. AZHLSUB ;   
  1.  S AZHLNM=AZHLSCF-I Q