ACGPRE.m

ACGPRE ;IHS/OIRM/DSD/DM - PRE INSTALL ROUTINE [ 03/27/2000  2:49 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;MAR 23, 2000

 ; 

 ;

 ;CHECK FOR EXISTENCE OF PACKAGE IN PACKAGE FILE

 ;

 N DIC,X,Y

 S DIC="^DIC(9.4,"

 S DIC(0)=""

 S X="CONTRACT INFORMATION SYSTEM"

 D ^DIC

 I +Y'>0 D ADDPKG

 Q

 ;

 ;

ADDPKG ;ADD PACKAGE TO PACKAGE FILE

 ;

 N DA,DD,DIC,DIE,DO,DR,X,Y,DLAYGO

 S DIC="^DIC(9.4,"

 S DIC(0)="L"

 S DLAYGO=9.4

 S X="CONTRACT INFORMATION SYSTEM"

 K DD,DO

 D FILE^DICN

 Q:+Y'>0

 S DA=+Y

 S DIE=DIC

 S DR="1////"_"ACG"_"2////"_"CONTRACTS AND GRANTS MANAGEMENT SYSTEM"

 D ^DIE

 Q

ACGPRE    ;IHS/OIRM/DSD/DM - PRE INSTALL ROUTINE [ 03/27/2000  2:49 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;MAR 23, 2000

 +2       ; 

 +3       ;

 +4       ;CHECK FOR EXISTENCE OF PACKAGE IN PACKAGE FILE

 +5       ;

 +6        NEW DIC,X,Y

 +7        SET DIC="^DIC(9.4,"

 +8        SET DIC(0)=""

 +9        SET X="CONTRACT INFORMATION SYSTEM"

 +10       DO ^DIC

 +11       IF +Y'>0

               DO ADDPKG

 +12       QUIT 

 +13      ;

 +14      ;

ADDPKG    ;ADD PACKAGE TO PACKAGE FILE

 +1       ;

 +2        NEW DA,DD,DIC,DIE,DO,DR,X,Y,DLAYGO

 +3        SET DIC="^DIC(9.4,"

 +4        SET DIC(0)="L"

 +5        SET DLAYGO=9.4

 +6        SET X="CONTRACT INFORMATION SYSTEM"

 +7        KILL DD,DO

 +8        DO FILE^DICN

 +9        IF +Y'>0

               QUIT 

 +10       SET DA=+Y

 +11       SET DIE=DIC

 +12       SET DR="1////"_"ACG"_"2////"_"CONTRACTS AND GRANTS MANAGEMENT SYSTEM"

 +13       DO ^DIE

 +14       QUIT