ORRC13P ;PHL/WAR - POST INSTALL FOR Care Management Decommissioning ; 4/15/19 9:43am
;;1.0;Care Management;**13**;April 11th, 2019;Build 8
;
D EN
Q
EN ; Remove routines from ^DIC(9.8
N EDPRTN,EDPI,DA,DIK,EDPFLG
S EDPRTN="ORRC",EDPFLG=0
F S EDPRTN=$O(^DIC(9.8,"B",EDPRTN)) Q:$E(EDPRTN,1,4)'="ORRC" D
.S EDPI=0 S EDPI=$O(^DIC(9.8,"B",EDPRTN,EDPI)) Q:'EDPI
.I EDPRTN="ORRCACK" S EDPFLG=1
.I EDPRTN="ORRCLNP" S EDPFLG=1
.I EDPRTN="ORRCQLPT" S EDPFLG=1
.I EDPFLG'=1 K DA,DIK S DA=EDPI,DIK="^DIC(9.8," D ^DIK
.S EDPFLG=0
K DA,DIK
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORRC13P 564 printed Nov 22, 2024@16:51:22 Page 2
ORRC13P ;PHL/WAR - POST INSTALL FOR Care Management Decommissioning ; 4/15/19 9:43am
+1 ;;1.0;Care Management;**13**;April 11th, 2019;Build 8
+2 ;
+3 DO EN
+4 QUIT
EN ; Remove routines from ^DIC(9.8
+1 NEW EDPRTN,EDPI,DA,DIK,EDPFLG
+2 SET EDPRTN="ORRC"
SET EDPFLG=0
+3 FOR
SET EDPRTN=$ORDER(^DIC(9.8,"B",EDPRTN))
if $EXTRACT(EDPRTN,1,4)'="ORRC"
QUIT
Begin DoDot:1
+4 SET EDPI=0
SET EDPI=$ORDER(^DIC(9.8,"B",EDPRTN,EDPI))
if 'EDPI
QUIT
+5 IF EDPRTN="ORRCACK"
SET EDPFLG=1
+6 IF EDPRTN="ORRCLNP"
SET EDPFLG=1
+7 IF EDPRTN="ORRCQLPT"
SET EDPFLG=1
+8 IF EDPFLG'=1
KILL DA,DIK
SET DA=EDPI
SET DIK="^DIC(9.8,"
DO ^DIK
+9 SET EDPFLG=0
End DoDot:1
+10 KILL DA,DIK
+11 QUIT
+12 ;
