AGP5KPKG.m

AGP5KPKG ; IHS/ASDS/EFG - REMOVE PARTIAL INIT FROM PACKAGE FILE ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

S ;

 X ^%ZOSF("UCI") I Y="DEV,DSD" W !,"AGP5 not removed from Developers UCI",! H 3 Q

 S X="AGP5",DIC="^DIC(9.4,",DIC(0)="EMQZ" D ^DIC I Y'>0 W !,"PACKAGE NOT FOUND ",!,*7 G EXIT

 W !,"Removing ",Y(0,0)," from the package file.",!

 S DA=+Y,DIK="^DIC(9.4," D ^DIK

 W !,"Package deleted !,"

EXIT Q

AGP5KPKG  ; IHS/ASDS/EFG - REMOVE PARTIAL INIT FROM PACKAGE FILE ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

S         ;

 +1        XECUTE ^%ZOSF("UCI")

           IF Y="DEV,DSD"

               WRITE !,"AGP5 not removed from Developers UCI",!

               HANG 3

               QUIT 

 +2        SET X="AGP5"

           SET DIC="^DIC(9.4,"

           SET DIC(0)="EMQZ"

           DO ^DIC

           IF Y'>0

               WRITE !,"PACKAGE NOT FOUND ",!,*7

               GOTO EXIT

 +3        WRITE !,"Removing ",Y(0,0)," from the package file.",!

 +4        SET DA=+Y

           SET DIK="^DIC(9.4,"

           DO ^DIK

 +5        WRITE !,"Package deleted !,"

EXIT       QUIT