ORRC13P.m

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 ---ORRC13P   564     printed  Apr 09, 2024@20:46:23                                                                                                                                                                                                      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      ;