AMHEKL.m

AMHEKL ; IHS/CMI/LAB - KILL ALL VARS AND CLEANUP ;

 ;;4.0;IHS BEHAVIORAL HEALTH;**2**;JUN 18, 2010;Build 23

 ;

 ;

EN ;EP

 K AMHR,AMHREC,AMHV,AMHPAT,AMHDATE,AMHJ,AMHX,AMHEXIT,AMHQFLG,AMHDATE,AMHPROG,AMHPROV,AMHPROGN,AMHQUIT,AMHPG,AMHREC,AMHVRECS,AMHV,AMHP,AMHACTN,AMHVFLE,AMHVL,AMHR,AMHVNM,AMHVDG,AMHVDFN,AMHLEDP,AMHLEDPC,AMHLPCCT,AMHDASH,AMHLECLN

 K ^TMP("AMHVRECS",$J)

 K AMHLETP,AMHLETYP,AMHPLC,AMHVIGL,AMHAFFL,AMHAPWI,AMHGR,AMHINTR,AMHLINO,AMHLNO,AMHMIFN,AMHNDF,AMHNN,AMHNRQ,AMHPDFN,AMHPIEN,AMHPRIM,AMHPV,AMHR132S,AMHRPOSP,AMHRTAB,AMHRTOT,AMHSORTP,AMHSRT2,AMHNAME,AMHNARR,AMHDATET,AMHPPROV

 K AMHVIGR,AMHOKAY,AMHSHIGH,AMHNONE,AMHACTP,AMHCONT,AMHDTIME,AMHOTH,AMHRCNT,AMHDASH,AMHLEIN,AMHLOOK,AMHVSIT,AMHR0,AMHBEEP,AMHLOC,AMHLPCC,AMHPL,AMHPROMP,AMHVISIT,AMHAUTH,AMHSELE,AMHMHPL,AMHPERR,AMHPR,AMHTITLE,AMHTPT,AMHVTOT

 K AMHUREC,AMHPROBN,AMHPTYPE,AMHADPTV

 K APCDOVRR

 K DFN,DOB,DOD,SEX

 ;clean up after health summary, if used

 K APCHSBRK,APCHSCKP,APCHSCVD,APCHSDLM,APCHSICL,APCHSNDM,APCHSNPG,APCHSPAT,APCHSQIT,APCHSTXT,APCHSTYP

 K DA,D0,DO,D,DIC,DIE,DIU,DIV,DIY,DIW,DR,DIK,DIQ,D2,C,DITC,PROB,DLAYGO,DIADD,DDSACT,DDSFILE,DIMSGA

 K X,Y,A,ZTSK,I,J,DDH,DI,DIH,DQ,E

 D KILL^AUPNPAT

 Q

EN2 ;EP called to kill vars

 K AMHR,AMHREC,AMHV,AMHPAT,AMHDATE,AMHJ,AMHX,AMHEXIT,AMHQFLG,AMHDATE,AMHPROG,AMHPROV,AMHPROGN,AMHQUIT,AMHPG,AMHREC,AMHVRECS,AMHV,AMHP,AMHACTN,AMHVFLE,AMHVL,AMHR,AMHVNM,AMHVDG,AMHVDFN,AMHLEDP,AMHLEDPC,AMHLPCCT,AMHDASH,AMHLECLN

 K AMHLETP,AMHLETYP,AMHPLC,AMHVIGL,AMHAFFL,AMHAPWI,AMHGR,AMHINTR,AMHLINO,AMHLNO,AMHMIFN,AMHNDF,AMHNN,AMHNRQ,AMHPDFN,AMHPIEN,AMHPRIM,AMHPV,AMHR132S,AMHRPOSP,AMHRTAB,AMHRTOT,AMHSORTP,AMHSRT2,AMHNAME,AMHNARR,AMHDATET,AMHPPROV

 K AMHVIGR,AMHOKAY,AMHSHIGH,AMHNONE,AMHACTP,AMHCONT,AMHDTIME,AMHOTH,AMHRCNT,AMHDASH,AMHLEIN,AMHLOOK,AMHVSIT,AMHR0,AMHBEEP,AMHLOC,AMHLPCC,AMHPL,AMHPROMP,AMHVISIT,AMHAUTH,AMHSELE,AMHMHPL,AMHPERR,AMHPR,AMHTITLE,AMHTPT,AMHVTOT

 K AMHUREC,AMHPROBN,AMHPTYPE,AMHADPTV,AMHPOVP,AMHTTPT

 Q

AMHEKL    ; IHS/CMI/LAB - KILL ALL VARS AND CLEANUP ;

 +1       ;;4.0;IHS BEHAVIORAL HEALTH;**2**;JUN 18, 2010;Build 23

 +2       ;

 +3       ;

EN        ;EP

 +1        KILL AMHR,AMHREC,AMHV,AMHPAT,AMHDATE,AMHJ,AMHX,AMHEXIT,AMHQFLG,AMHDATE,AMHPROG,AMHPROV,AMHPROGN,AMHQUIT,AMHPG,AMHREC,AMHVRECS,AMHV,AMHP,AMHACTN,AMHVFLE,AMHVL,AMHR,AMHVNM,AMHVDG,AMHVDFN,AMHLEDP,AMHLEDPC,AMHLPCCT,AMHDASH,AMHLECLN

 +2        KILL ^TMP("AMHVRECS",$JOB)

 +3        KILL AMHLETP,AMHLETYP,AMHPLC,AMHVIGL,AMHAFFL,AMHAPWI,AMHGR,AMHINTR,AMHLINO,AMHLNO,AMHMIFN,AMHNDF,AMHNN,AMHNRQ,AMHPDFN,AMHPIEN,AMHPRIM,AMHPV,AMHR132S,AMHRPOSP,AMHRTAB,AMHRTOT,AMHSORTP,AMHSRT2,AMHNAME,AMHNARR,AMHDATET,AMHPPROV

 +4        KILL AMHVIGR,AMHOKAY,AMHSHIGH,AMHNONE,AMHACTP,AMHCONT,AMHDTIME,AMHOTH,AMHRCNT,AMHDASH,AMHLEIN,AMHLOOK,AMHVSIT,AMHR0,AMHBEEP,AMHLOC,AMHLPCC,AMHPL,AMHPROMP,AMHVISIT,AMHAUTH,AMHSELE,AMHMHPL,AMHPERR,AMHPR,AMHTITLE,AMHTPT,AMHVTOT

 +5        KILL AMHUREC,AMHPROBN,AMHPTYPE,AMHADPTV

 +6        KILL APCDOVRR

 +7        KILL DFN,DOB,DOD,SEX

 +8       ;clean up after health summary, if used

 +9        KILL APCHSBRK,APCHSCKP,APCHSCVD,APCHSDLM,APCHSICL,APCHSNDM,APCHSNPG,APCHSPAT,APCHSQIT,APCHSTXT,APCHSTYP

 +10       KILL DA,D0,DO,D,DIC,DIE,DIU,DIV,DIY,DIW,DR,DIK,DIQ,D2,C,DITC,PROB,DLAYGO,DIADD,DDSACT,DDSFILE,DIMSGA

 +11       KILL X,Y,A,ZTSK,I,J,DDH,DI,DIH,DQ,E

 +12       DO KILL^AUPNPAT

 +13       QUIT 

EN2       ;EP called to kill vars

 +1        KILL AMHR,AMHREC,AMHV,AMHPAT,AMHDATE,AMHJ,AMHX,AMHEXIT,AMHQFLG,AMHDATE,AMHPROG,AMHPROV,AMHPROGN,AMHQUIT,AMHPG,AMHREC,AMHVRECS,AMHV,AMHP,AMHACTN,AMHVFLE,AMHVL,AMHR,AMHVNM,AMHVDG,AMHVDFN,AMHLEDP,AMHLEDPC,AMHLPCCT,AMHDASH,AMHLECLN

 +2        KILL AMHLETP,AMHLETYP,AMHPLC,AMHVIGL,AMHAFFL,AMHAPWI,AMHGR,AMHINTR,AMHLINO,AMHLNO,AMHMIFN,AMHNDF,AMHNN,AMHNRQ,AMHPDFN,AMHPIEN,AMHPRIM,AMHPV,AMHR132S,AMHRPOSP,AMHRTAB,AMHRTOT,AMHSORTP,AMHSRT2,AMHNAME,AMHNARR,AMHDATET,AMHPPROV

 +3        KILL AMHVIGR,AMHOKAY,AMHSHIGH,AMHNONE,AMHACTP,AMHCONT,AMHDTIME,AMHOTH,AMHRCNT,AMHDASH,AMHLEIN,AMHLOOK,AMHVSIT,AMHR0,AMHBEEP,AMHLOC,AMHLPCC,AMHPL,AMHPROMP,AMHVISIT,AMHAUTH,AMHSELE,AMHMHPL,AMHPERR,AMHPR,AMHTITLE,AMHTPT,AMHVTOT

 +4        KILL AMHUREC,AMHPROBN,AMHPTYPE,AMHADPTV,AMHPOVP,AMHTTPT

 +5        QUIT