BMCSKILL.m

BMCSKILL ; IHS/PHXAO/TMJ - KILL ALL BMC VARIABLES ;  

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

 ;BMC*4.0*9 IHS.OIT.FCJ ADDED BMCDX10

 ; Kill all BMC variables including system wide variables

 ;

START ;

 K BMCALTG,BMCALTL,BMCCHS,BMCDXPR,BMCLCAT

 K BMCPCC,BMCCHS,BMCDXPR,BMCLCAT,BMCOLOC,BMCDMGR,BMCCHSS,BMCBOS,BMCCHSA,BMCTXPHC,BMCTXCCP,BMCTXCEX,BMCTXCHC,BMCTXL3P

 K BMCFY,BMCGFY,BMCRY,BMCCURFY,BMCHOUSA,BMCIHSA,BMCOTHRA,BMCCHSE,BMCDXCPT,BMCDX10

 D ^BMCKILL

 D KILL^AUPNPAT

 D ^XBFMK

 Q

BMCSKILL  ; IHS/PHXAO/TMJ - KILL ALL BMC VARIABLES ;  

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

 +2       ;BMC*4.0*9 IHS.OIT.FCJ ADDED BMCDX10

 +3       ; Kill all BMC variables including system wide variables

 +4       ;

START     ;

 +1        KILL BMCALTG,BMCALTL,BMCCHS,BMCDXPR,BMCLCAT

 +2        KILL BMCPCC,BMCCHS,BMCDXPR,BMCLCAT,BMCOLOC,BMCDMGR,BMCCHSS,BMCBOS,BMCCHSA,BMCTXPHC,BMCTXCCP,BMCTXCEX,BMCTXCHC,BMCTXL3P

 +3        KILL BMCFY,BMCGFY,BMCRY,BMCCURFY,BMCHOUSA,BMCIHSA,BMCOTHRA,BMCCHSE,BMCDXCPT,BMCDX10

 +4        DO ^BMCKILL

 +5        DO KILL^AUPNPAT

 +6        DO ^XBFMK

 +7        QUIT