AGSSKPKG.m

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

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

 ;

S ;

 S X="AGSS",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

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

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

 +2       ;

S         ;

 +1        SET X="AGSS"

           SET DIC="^DIC(9.4,"

           SET DIC(0)="EMQZ"

           DO ^DIC

           IF Y'>0

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

               GOTO EXIT

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

 +3        SET DA=+Y

           SET DIK="^DIC(9.4,"

           DO ^DIK

 +4        WRITE !,"Package deleted !,"

EXIT       QUIT