BDPKILL ; IHS/CMI/TMJ - KILL ALL BDP VARIABLES ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;
START ;
K BDPLINKI
K BDPCOUNT,BDPCPRV,BDPCRPRV,BDPLIEN,BDPLNUM,BDPLPROV,BDPPTNAM,BDPRPRVP,BDPTYPNM,BDPDFN,BDPIEN,BDPTYPEM,BDPCMCK,BDPCOMN,BDPCOMP,BDPRIEN,BDPPIEN
K BDPLPROV,BDPPAT,BDPPROV,BDPQ,BDPREC,BDPRGTP,BDPRPROV,BDPTRN,BDPTRNA,BDPTYPE,BDPCPRVP,BDPRIEN,BDPRR
D KILL^AUPNPAT
D ^XBFMK
Q
BDPKILL ; IHS/CMI/TMJ - KILL ALL BDP VARIABLES ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;
START ;
+1 KILL BDPLINKI
+2 KILL BDPCOUNT,BDPCPRV,BDPCRPRV,BDPLIEN,BDPLNUM,BDPLPROV,BDPPTNAM,BDPRPRVP,BDPTYPNM,BDPDFN,BDPIEN,BDPTYPEM,BDPCMCK,BDPCOMN,BDPCOMP,BDPRIEN,BDPPIEN
+3 KILL BDPLPROV,BDPPAT,BDPPROV,BDPQ,BDPREC,BDPRGTP,BDPRPROV,BDPTRN,BDPTRNA,BDPTYPE,BDPCPRVP,BDPRIEN,BDPRR
+4 DO KILL^AUPNPAT
+5 DO ^XBFMK
+6 QUIT