AZXPKGUD.m

AZXPKGUD ;IHS/PHXAO/AEF - UPDATE PACKAGE FILE

 ;1.0;ANNE'S SPECIAL ROUTINES;;JUNE 24, 2004

 ;

 ;TO POPULATE THE RPC BROKER VERSION 1.1 ENTRY WITH THE PATCHES

 ;AT WHITERIVER

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 Q

 F PAT=1:1:16,18,20,22,25:1:27,29 D

 . S X=PAT

 . S DA(1)=8

 . S DA(2)=248

 . S DIC="^DIC(9.4,"_DA(2)_",22,"_DA(1)_","_"""PAH"""_","

 . S DIC(0)="L"

 . S DLAYGO=9.4

 . K DD,DO

 . D FILE^DICN

 Q

AZXPKGUD  ;IHS/PHXAO/AEF - UPDATE PACKAGE FILE

 +1       ;1.0;ANNE'S SPECIAL ROUTINES;;JUNE 24, 2004

 +2       ;

 +3       ;TO POPULATE THE RPC BROKER VERSION 1.1 ENTRY WITH THE PATCHES

 +4       ;AT WHITERIVER

 +5       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        QUIT 

 +3        FOR PAT=1:1:16,18,20,22,25:1:27,29

               Begin DoDot:1

 +4                SET X=PAT

 +5                SET DA(1)=8

 +6                SET DA(2)=248

 +7                SET DIC="^DIC(9.4,"_DA(2)_",22,"_DA(1)_","_"""PAH"""_","

 +8                SET DIC(0)="L"

 +9                SET DLAYGO=9.4

 +10               KILL DD,DO

 +11               DO FILE^DICN

               End DoDot:1

 +12       QUIT