LR08KILL.m

LR08KILL ;;DALISC/KAT - KILLING .091 DD'S OF ORIGINAL NUMERIC IDENTIFIER

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LAB SERVICE;;May 2, 1996

 ;

 S U="^"

 S DIK="^DD(68,",DA=.091

 D ^DIK

 K DIK,DA

 Q

LR08KILL  ;;DALISC/KAT - KILLING .091 DD'S OF ORIGINAL NUMERIC IDENTIFIER

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;;May 2, 1996

 +4       ;

 +5        SET U="^"

 +6        SET DIK="^DD(68,"

           SET DA=.091

 +7        DO ^DIK

 +8        KILL DIK,DA

 +9        QUIT