ADE6P223.m

ADE6P223 ;IHS/OIT/ENM - ADE6.0 PATCH 22 [ 12/01/2010  14:30 PM ]

 ;;6.0;ADE;**22**;SEP 17, 2008

 ;

CHGADA ;EP

 ;No Opsite changes (set 'NO OPSITE' = n)

 N DIE,DR,DA,CODE

 F CODE="IH00","IH01","IH02","IH03","IH04","IH05","IH06","IH07","IH08","IH09","IH10","IH11","IH12","IH13","IH14","IH15","IH16","IH17","IH18","IH19","IH20","IH21","IH22" D

 .S DA=0

 .S DA=$O(^AUTTADA("B",CODE,DA))

 .S DIE="^AUTTADA(",DR=".09////"_"n" D ^DIE K DA,DIE,DR

 Q

ADE6P223  ;IHS/OIT/ENM - ADE6.0 PATCH 22 [ 12/01/2010  14:30 PM ]

 +1       ;;6.0;ADE;**22**;SEP 17, 2008

 +2       ;

CHGADA    ;EP

 +1       ;No Opsite changes (set 'NO OPSITE' = n)

 +2        NEW DIE,DR,DA,CODE

 +3        FOR CODE="IH00","IH01","IH02","IH03","IH04","IH05","IH06","IH07","IH08","IH09","IH10","IH11","IH12","IH13","IH14","IH15","IH16","IH17","IH18","IH19","IH20","IH21","IH22"

               Begin DoDot:1

 +4                SET DA=0

 +5                SET DA=$ORDER(^AUTTADA("B",CODE,DA))

 +6                SET DIE="^AUTTADA("

                   SET DR=".09////"_"n"

                   DO ^DIE

                   KILL DA,DIE,DR

               End DoDot:1

 +7        QUIT