AMQQKILL.m

AMQQKILL ; IHS/CMI/THL - KILLS OFF BIG GROUPS OF LOCAL VARIABLES...HOUSEKEEPING;

 ;;2.0;IHS PCC SUITE;**5**;MAY 14, 2009

 ;-----

EXIT1 ; ENTRY POINT FROM AMQQ

 K AMQQQUIT,AMQQILIN,AMQQQ,AMQQMULT,AMQQCCLS,AMQQCNAM,%,%Y,H,I,J,K,L,A,Y,Z,T,V,AMQQONE,AMQQNULL,AMQQCOMP,AMQQNVAR,X,AMQQLABB,AMQQTOT,AMQQONE,AMQQSCPT,AMQQSVFL,AMQQAGIN,AMQQRMFL

 K AMQQTDFN,AMQQLBF,AMQQLCT,AMQQLGR,AMQQLHT,AMQLLL,AMQQLLP,AMQQLRH,AMQQLPTR,AMQQLBC,AMQQYYYY

 K AMQQUSQL,AMQQUSQN,AMQQURGN,AMQQRAND,AMQQCHRT,%X,AMQV,N,AMQQMULX,AMQQKONG,AMQQKGNO,AMQQUSQN,AMQQSQAA,AMQQLSQF,AMQQUQQN,AMQQESN,AMQQRMB,AMQQUSR,AMQQFSQN,AMQQLENO,AMQQFSQX,AMQQEX

 K D,D0,DA,DD,DI,DIADD,DIC,DICR,DIG,DIH,DIK,DISYS,DIU,DIV,DIW,DO,DQ,DIE,DR,DX,%T,%H,%,S,DUOUT,DTOUT,DPP,AMQQMULL,AMQQMULD

 I '$D(AMQQADAM) K AMQV,AMQP,AMQT

 K ^TMP("AMQQ",$J)

EXIT2 ; ENTRY POINT FROM AMQQCMPP

 F I=1:1 S %=$P("AMQQ DRUG CLASS^AMQQ OR^AMQQ FRAND^AMQQ FTEMP^AMQQ RAND^AMQQ^AMQQ TAX^AMQQ TEMP^AMQQ SER1^AMQQ SAVE^AMQQ RANGE^AMQQ DELETE",U,I) Q:%=""  K ^UTILITY(%,$J)

 F %=1000:0 S %=$O(^AMQQ(1,%)) Q:'%  S X=$P(%,".",2),X=$E(X,$L(X)-2,$L(X)) I +X=$J K ^(%)

EXIT3 ; ENTRY POINT FROM AMQQMUL*

 K AMQQ,AMQQGR,AMQQID,AMQQST,AMQQFIN,AMQQLAST,AMQQVAL,AMQQMLT,AMQQT,AMQQIDX,AMQQIDN,AMQQIDT,AMQQX,I,AMQQITR,AMQQAFNO,AMQQVDAT,AMQQVNO,AMQQLCNT,AMQQVAL1,AMQQVAL2,AMQQMULZ,AMQQSQVN,%,%H,%T,%Y,H,I,Y,Z,A,B,C,T

 K AMQQTAX,AMQQNNA,AMQQAG,AMQQCPG1,AMQQVAL3,AMQQVAL4,AMQQBOOL,AMQQB,AMQQMSS,AMQQMPC,AMQQSTRT,AMQQSQVN,AMQQSPEC,%,AMQQAAFL,AMQQLSS,AMQQLSS1

 Q

 ;

EXIT ; ENTRY POINT FROM AMQQ

 K AMQQUATN,AMQQUNBC,AMQQNV,AMQQRV,AMQQXV,AMQQSAUT,AMQQOPT,AMQQVER,AMQQIOP,POP,DISYS,AMQQNOET,AMQQXX,AMQQYY,AMQQEN31,AMQQLKUP,AMQQ200

 Q

 ;

SQKILL ; - EP - KILL SUBQUERY VARS

 K AMQQSQAA,AMQQSQAN,AMQQSQBF,AMQQSQBS,AMQQSQCF,AMQQSQCT,AMQQSQCV,AMQQSQDF,AMQQSQDV,AMQQSQF1,AMQQSQF2,AMQQSQFL,AMQQSQFL,AMQQSQFN,AMQQSQFR,AMQQSQGF

 K AMQQSQJ1,AMQQSQJ2,AMQQSQLS,AMQQSQN,AMQQSQN1,AMQQSQN2,AMQQSQNC,AMQQSQNF,AMQQSQNM,AMQQSQNN,AMQQSQAT,AMQQSQP,AMQQSQP1,AMQQSQP2,AMQQSQPH,AMQQSQPL,AMQQSQPQ,AMQQSQPS,AMQQSQPY,AMQQSQQQ,AMQQSQQT

 K AMQQSQRD,AMQQSQSC,AMQQSQSJ,AMQQSQSN,AMQQSQSQ,AMQQSQST,AMQQSQSZ,AMQQSQTF,AMQQSQTP,AMQQSQVV,AMQQSQZL,AMQQSQP,AMQQSQZF ; &&& AMQQSQZF ADDED

 Q

 ;

NUKE ;

 Q

 ;

NEW ; NEW TEMPLATE

 Q

 ;

AMQQKILL  ; IHS/CMI/THL - KILLS OFF BIG GROUPS OF LOCAL VARIABLES...HOUSEKEEPING;

 +1       ;;2.0;IHS PCC SUITE;**5**;MAY 14, 2009

 +2       ;-----

EXIT1     ; ENTRY POINT FROM AMQQ

 +1        KILL AMQQQUIT,AMQQILIN,AMQQQ,AMQQMULT,AMQQCCLS,AMQQCNAM,%,%Y,H,I,J,K,L,A,Y,Z,T,V,AMQQONE,AMQQNULL,AMQQCOMP,AMQQNVAR,X,AMQQLABB,AMQQTOT,AMQQONE,AMQQSCPT,AMQQSVFL,AMQQAGIN,AMQQRMFL

 +2        KILL AMQQTDFN,AMQQLBF,AMQQLCT,AMQQLGR,AMQQLHT,AMQLLL,AMQQLLP,AMQQLRH,AMQQLPTR,AMQQLBC,AMQQYYYY

 +3        KILL AMQQUSQL,AMQQUSQN,AMQQURGN,AMQQRAND,AMQQCHRT,%X,AMQV,N,AMQQMULX,AMQQKONG,AMQQKGNO,AMQQUSQN,AMQQSQAA,AMQQLSQF,AMQQUQQN,AMQQESN,AMQQRMB,AMQQUSR,AMQQFSQN,AMQQLENO,AMQQFSQX,AMQQEX

 +4        KILL D,D0,DA,DD,DI,DIADD,DIC,DICR,DIG,DIH,DIK,DISYS,DIU,DIV,DIW,DO,DQ,DIE,DR,DX,%T,%H,%,S,DUOUT,DTOUT,DPP,AMQQMULL,AMQQMULD

 +5        IF '$DATA(AMQQADAM)

               KILL AMQV,AMQP,AMQT

 +6        KILL ^TMP("AMQQ",$JOB)

EXIT2     ; ENTRY POINT FROM AMQQCMPP

 +1        FOR I=1:1

               SET %=$PIECE("AMQQ DRUG CLASS^AMQQ OR^AMQQ FRAND^AMQQ FTEMP^AMQQ RAND^AMQQ^AMQQ TAX^AMQQ TEMP^AMQQ SER1^AMQQ SAVE^AMQQ RANGE^AMQQ DELETE",U,I)

               IF %=""

                   QUIT 

               KILL ^UTILITY(%,$JOB)

 +2        FOR %=1000:0

               SET %=$ORDER(^AMQQ(1,%))

               IF '%

                   QUIT 

               SET X=$PIECE(%,".",2)

               SET X=$EXTRACT(X,$LENGTH(X)-2,$LENGTH(X))

               IF +X=$JOB

                   KILL ^(%)

EXIT3     ; ENTRY POINT FROM AMQQMUL*

 +1        KILL AMQQ,AMQQGR,AMQQID,AMQQST,AMQQFIN,AMQQLAST,AMQQVAL,AMQQMLT,AMQQT,AMQQIDX,AMQQIDN,AMQQIDT,AMQQX,I,AMQQITR,AMQQAFNO,AMQQVDAT,AMQQVNO,AMQQLCNT,AMQQVAL1,AMQQVAL2,AMQQMULZ,AMQQSQVN,%,%H,%T,%Y,H,I,Y,Z,A,B,C,T

 +2        KILL AMQQTAX,AMQQNNA,AMQQAG,AMQQCPG1,AMQQVAL3,AMQQVAL4,AMQQBOOL,AMQQB,AMQQMSS,AMQQMPC,AMQQSTRT,AMQQSQVN,AMQQSPEC,%,AMQQAAFL,AMQQLSS,AMQQLSS1

 +3        QUIT 

 +4       ;

EXIT      ; ENTRY POINT FROM AMQQ

 +1        KILL AMQQUATN,AMQQUNBC,AMQQNV,AMQQRV,AMQQXV,AMQQSAUT,AMQQOPT,AMQQVER,AMQQIOP,POP,DISYS,AMQQNOET,AMQQXX,AMQQYY,AMQQEN31,AMQQLKUP,AMQQ200

 +2        QUIT 

 +3       ;

SQKILL    ; - EP - KILL SUBQUERY VARS

 +1        KILL AMQQSQAA,AMQQSQAN,AMQQSQBF,AMQQSQBS,AMQQSQCF,AMQQSQCT,AMQQSQCV,AMQQSQDF,AMQQSQDV,AMQQSQF1,AMQQSQF2,AMQQSQFL,AMQQSQFL,AMQQSQFN,AMQQSQFR,AMQQSQGF

 +2        KILL AMQQSQJ1,AMQQSQJ2,AMQQSQLS,AMQQSQN,AMQQSQN1,AMQQSQN2,AMQQSQNC,AMQQSQNF,AMQQSQNM,AMQQSQNN,AMQQSQAT,AMQQSQP,AMQQSQP1,AMQQSQP2,AMQQSQPH,AMQQSQPL,AMQQSQPQ,AMQQSQPS,AMQQSQPY,AMQQSQQQ,AMQQSQQT

 +3       ; &&& AMQQSQZF ADDED

           KILL AMQQSQRD,AMQQSQSC,AMQQSQSJ,AMQQSQSN,AMQQSQSQ,AMQQSQST,AMQQSQSZ,AMQQSQTF,AMQQSQTP,AMQQSQVV,AMQQSQZL,AMQQSQP,AMQQSQZF

 +4        QUIT 

 +5       ;

NUKE      ;

 +1        QUIT 

 +2       ;

NEW       ; NEW TEMPLATE

 +1        QUIT 

 +2       ;