BMCKILL.m

BMCKILL ; IHS/PHXAO/TMJ - KILL ALL BMC VARIABLES ;      [ 09/27/2006  2:01 PM ]

 ;;4.0;REFERRED CARE INFO SYSTEM;**1,8**;JAN 09, 2006;Build 101

 ;

START ;

 K BMCRIENT,BMCVFLE,BMCVI,BMCVL,BMCVST,BMCVSTP

 K BMCAUTH,BMCCTYP,BMCTMP,BMCTMP1,BMCSUF,BMCRSTAT,BMCRIO,BMCSCOD,BMCSTRM

 K BMCCLOSE,BMCDXT,BMCPXT

 K BMCMODE,BMCSTAT,BMCLQ

 K BMCCHSCT,BMCRDATE,BMCRNUMB,BMCRTYPE,BMCPRIO,BMCPROV,BMCOUTR,BMCHIT,BMCRPROV,BMCOLDV,BMCNEWV

 K BMCDTYPE,BMCDF,BMCVDFN,BMCVRIE,BMCSTRM,BMCSNO,BMCSCOD

 K BMCCMT,BMCDFN,BMCDX,BMCLOOK,BMCPARM,BMCPX,BMCQ,BMCREC,BMCRIEN,BMCRN,BMCRY,BMCTYPE,BMCX,BMCY,BMCC,BMCRDX,BMCATEMP,BMCETEMP,BMCTERM,BMCV,BMCG,BMCAR

 K BMCRR,BMCOVRPS,BMCHIGH,BMCSEL,BMCDISP,BMCCLOSE,BMCCUT,BMCNONE,BMCAIEN,BMCBULLC,BMCXREF

 K APCDOVRR,BMCDXASK,BMCDXCT,BMCPXCT,BMCPXASK,BMCASK,BMCDT,BMCRPX,BMCRRC

 K AUPS,AUPSEL,AUPX,AUPL,AUPLP1,AUPQF,AUPCNT,AUPDFN,AUPDIC,AUPDICS,AUPDICW

 K AUPNCN,AUPQF

 D KILL^AUPNPAT

 D ^XBFMK

 Q

BMCKILL   ; IHS/PHXAO/TMJ - KILL ALL BMC VARIABLES ;      [ 09/27/2006  2:01 PM ]

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;**1,8**;JAN 09, 2006;Build 101

 +2       ;

START     ;

 +1        KILL BMCRIENT,BMCVFLE,BMCVI,BMCVL,BMCVST,BMCVSTP

 +2        KILL BMCAUTH,BMCCTYP,BMCTMP,BMCTMP1,BMCSUF,BMCRSTAT,BMCRIO,BMCSCOD,BMCSTRM

 +3        KILL BMCCLOSE,BMCDXT,BMCPXT

 +4        KILL BMCMODE,BMCSTAT,BMCLQ

 +5        KILL BMCCHSCT,BMCRDATE,BMCRNUMB,BMCRTYPE,BMCPRIO,BMCPROV,BMCOUTR,BMCHIT,BMCRPROV,BMCOLDV,BMCNEWV

 +6        KILL BMCDTYPE,BMCDF,BMCVDFN,BMCVRIE,BMCSTRM,BMCSNO,BMCSCOD

 +7        KILL BMCCMT,BMCDFN,BMCDX,BMCLOOK,BMCPARM,BMCPX,BMCQ,BMCREC,BMCRIEN,BMCRN,BMCRY,BMCTYPE,BMCX,BMCY,BMCC,BMCRDX,BMCATEMP,BMCETEMP,BMCTERM,BMCV,BMCG,BMCAR

 +8        KILL BMCRR,BMCOVRPS,BMCHIGH,BMCSEL,BMCDISP,BMCCLOSE,BMCCUT,BMCNONE,BMCAIEN,BMCBULLC,BMCXREF

 +9        KILL APCDOVRR,BMCDXASK,BMCDXCT,BMCPXCT,BMCPXASK,BMCASK,BMCDT,BMCRPX,BMCRRC

 +10       KILL AUPS,AUPSEL,AUPX,AUPL,AUPLP1,AUPQF,AUPCNT,AUPDFN,AUPDIC,AUPDICS,AUPDICW

 +11       KILL AUPNCN,AUPQF

 +12       DO KILL^AUPNPAT

 +13       DO ^XBFMK

 +14       QUIT