GMTSP126 ;HPSC/MWA Health Summary Spinal Cord Dysfunction Decommission Routine ; 11/13/18 3:42pm
;;2.7;Health Summary;**126**;Oct 20, 1995;Build 3
;
EN ; entry point
N DA,DIK,SCDIEN,I
S SCDIEN=$O(^GMT(142.1,"B","SPINAL CORD DYSFUNCTION",""))
I SCDIEN D
. ;find types with scd comp
.S I="" F S I=$O(^GMT(142,"AE",SCDIEN,I)) Q:'I D
..S DIK="^GMT(142,"_I_",1,",DA(1)=I,DA=$O(^GMT(142,"AE",SCDIEN,I,""))
..D ^DIK ; delete component off type "stucture" multiple
.S DIK="^GMT(142.1,",DA=SCDIEN
.D ^DIK ;delete component itself
S SCDIEN=$O(^GMT(142,"B","SPINAL CORD DYSFUNCTION",""))
I SCDIEN D
.S DIK="^GMT(142,",DA=SCDIEN
.D ^DIK ;delete component itself
K DA,DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP126 699 printed Dec 13, 2024@01:58:43 Page 2
GMTSP126 ;HPSC/MWA Health Summary Spinal Cord Dysfunction Decommission Routine ; 11/13/18 3:42pm
+1 ;;2.7;Health Summary;**126**;Oct 20, 1995;Build 3
+2 ;
EN ; entry point
+1 NEW DA,DIK,SCDIEN,I
+2 SET SCDIEN=$ORDER(^GMT(142.1,"B","SPINAL CORD DYSFUNCTION",""))
+3 IF SCDIEN
Begin DoDot:1
+4 ;find types with scd comp
+5 SET I=""
FOR
SET I=$ORDER(^GMT(142,"AE",SCDIEN,I))
if 'I
QUIT
Begin DoDot:2
+6 SET DIK="^GMT(142,"_I_",1,"
SET DA(1)=I
SET DA=$ORDER(^GMT(142,"AE",SCDIEN,I,""))
+7 ; delete component off type "stucture" multiple
DO ^DIK
End DoDot:2
+8 SET DIK="^GMT(142.1,"
SET DA=SCDIEN
+9 ;delete component itself
DO ^DIK
End DoDot:1
+10 SET SCDIEN=$ORDER(^GMT(142,"B","SPINAL CORD DYSFUNCTION",""))
+11 IF SCDIEN
Begin DoDot:1
+12 SET DIK="^GMT(142,"
SET DA=SCDIEN
+13 ;delete component itself
DO ^DIK
End DoDot:1
+14 KILL DA,DIK
+15 QUIT
