AQALKILL.m

AQALKILL ; IHS/ORDC/LJF - QI RPMS LINKS UTILITY RTN ;

 ;;1;QI LINKAGES-RPMS;;AUG 15, 1994

 ;

 ;PUBLISHED ENTRY POINT

 ;to be used by calling RPMS packages to kill AQAL variables when they

 ;no longer need them

 ;

NM ; >> kill namespaced variables

 D ^AQALVKL0

 ;S X="AQAL"

 ;F  S X=$O(@X) Q:X'?1"AQAL".E  D

 ;.K Y F I=1:1:4 I $P($T(SYS+I),";;",2)=X S Y=""

 ;.Q:$D(Y)

 ;.K @X

 ;K AQAL

 ;

 Q

 ;

SYS ;;SYSTEM-WIDE VARIABLES

AQALKILL  ; IHS/ORDC/LJF - QI RPMS LINKS UTILITY RTN ;

 +1       ;;1;QI LINKAGES-RPMS;;AUG 15, 1994

 +2       ;

 +3       ;PUBLISHED ENTRY POINT

 +4       ;to be used by calling RPMS packages to kill AQAL variables when they

 +5       ;no longer need them

 +6       ;

NM        ; >> kill namespaced variables

 +1        DO ^AQALVKL0

 +2       ;S X="AQAL"

 +3       ;F  S X=$O(@X) Q:X'?1"AQAL".E  D

 +4       ;.K Y F I=1:1:4 I $P($T(SYS+I),";;",2)=X S Y=""

 +5       ;.Q:$D(Y)

 +6       ;.K @X

 +7       ;K AQAL

 +8       ;

 +9        QUIT 

 +10      ;

SYS       ;;SYSTEM-WIDE VARIABLES