SPN7P ;ALB/JLG - POST INSTALL FOR Spinal Cord Dysfunction Decommissioning ;Nov 08, 2018@16:13
;;3.0;Spinal Cord Dysfunction;**7**;Nov 08, 2018;Build 18
;
; DBIA# SUPPORTED
; ----- --------------------------------------
; 10013 ^DIK
; 10014 EN^DIU2
;
; SCD (SPINAL CORD) REGISTRY (file 154)
; SCD NLOI CATEGORY (file 154.01)
; ETIOLOGY (file 154.03)
; OUTCOMES (file 154.1)
; FUNCTIONAL STATUS LEVEL (file 154.11)
; SCD DISPOSITION CODES (file 154.12)
; SCD KURTZKE-EDSS (file 154.2)
; OUTCOME SCORE TYPES (file 154.3)
; PHYSICAL FACILITY (file 154.7)
; AD HOC MACRO (file 154.8)
; SCD SITE PARAMETERS (file 154.91)
; SCD FILTER (file 154.92)
; SPN ADMISSIONS (file 154.991)
;
D EN ;
D ROUT ;
Q
EN ; start post install
W !," Starting post-install of SPN*3.0*7",!
N SPNFLST,SPNI,DIU
;
S SPNFLST="154,154.01,154.03,154.1,154.11,154.12,154.2,154.3,154.7,154.8,154.91,154.92,154.991"
F SPNI=1:1:13 D
.S DIU=$P(SPNFLST,",",SPNI),DIU(0)="DE" D EN^DIU2
.W !,"Removing global..... ^SPNL("_DIU_")" K DIU
;
Q
ROUT ; remove routines from ^DIC(9.8
N SPNRTN,SPNI,DA,DIK
S SPNRTN="SPN"
F S SPNRTN=$O(^DIC(9.8,"B",SPNRTN)) Q:$E(SPNRTN,1,3)'="SPN" D
.S SPNI=0 S SPNI=$O(^DIC(9.8,"B",SPNRTN,SPNI)) Q:'SPNI
.K DA,DIK S DA=SPNI,DIK="^DIC(9.8," D ^DIK
.W !,"Removing routine..... "_SPNRTN
W !
K DA,DIK
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSPN7P 1514 printed Dec 13, 2024@02:37:49 Page 2
SPN7P ;ALB/JLG - POST INSTALL FOR Spinal Cord Dysfunction Decommissioning ;Nov 08, 2018@16:13
+1 ;;3.0;Spinal Cord Dysfunction;**7**;Nov 08, 2018;Build 18
+2 ;
+3 ; DBIA# SUPPORTED
+4 ; ----- --------------------------------------
+5 ; 10013 ^DIK
+6 ; 10014 EN^DIU2
+7 ;
+8 ; SCD (SPINAL CORD) REGISTRY (file 154)
+9 ; SCD NLOI CATEGORY (file 154.01)
+10 ; ETIOLOGY (file 154.03)
+11 ; OUTCOMES (file 154.1)
+12 ; FUNCTIONAL STATUS LEVEL (file 154.11)
+13 ; SCD DISPOSITION CODES (file 154.12)
+14 ; SCD KURTZKE-EDSS (file 154.2)
+15 ; OUTCOME SCORE TYPES (file 154.3)
+16 ; PHYSICAL FACILITY (file 154.7)
+17 ; AD HOC MACRO (file 154.8)
+18 ; SCD SITE PARAMETERS (file 154.91)
+19 ; SCD FILTER (file 154.92)
+20 ; SPN ADMISSIONS (file 154.991)
+21 ;
+22 ;
DO EN
+23 ;
DO ROUT
+24 QUIT
EN ; start post install
+1 WRITE !," Starting post-install of SPN*3.0*7",!
+2 NEW SPNFLST,SPNI,DIU
+3 ;
+4 SET SPNFLST="154,154.01,154.03,154.1,154.11,154.12,154.2,154.3,154.7,154.8,154.91,154.92,154.991"
+5 FOR SPNI=1:1:13
Begin DoDot:1
+6 SET DIU=$PIECE(SPNFLST,",",SPNI)
SET DIU(0)="DE"
DO EN^DIU2
+7 WRITE !,"Removing global..... ^SPNL("_DIU_")"
KILL DIU
End DoDot:1
+8 ;
+9 QUIT
ROUT ; remove routines from ^DIC(9.8
+1 NEW SPNRTN,SPNI,DA,DIK
+2 SET SPNRTN="SPN"
+3 FOR
SET SPNRTN=$ORDER(^DIC(9.8,"B",SPNRTN))
if $EXTRACT(SPNRTN,1,3)'="SPN"
QUIT
Begin DoDot:1
+4 SET SPNI=0
SET SPNI=$ORDER(^DIC(9.8,"B",SPNRTN,SPNI))
if 'SPNI
QUIT
+5 KILL DA,DIK
SET DA=SPNI
SET DIK="^DIC(9.8,"
DO ^DIK
+6 WRITE !,"Removing routine..... "_SPNRTN
End DoDot:1
+7 WRITE !
+8 KILL DA,DIK
+9 QUIT
+10 ;
