PRC51108.m

PRC51108 ;BP-OIFO/TJH ; POST INSTALL ROUTINE FOR PRC*5.1*108 ; APRIL 20, 2007

 ;;5.1;IFCAP;**108**;Oct 20, 2000;Build 10

 ;

 Q  ; access from top not allowed

 ;

EN ; Entry point

 N DA,DIC,DIE,X,Y,PRCWP,PRCERR

 S DIC="^DIC(19,",X="PRCP NON-SS ORDER BULIDER" ; look up misspelled option

 D ^DIC

 Q:Y<0  ; not found, possibly already corrected

 D BMES^XPDUTL("Correcting option name PRCP NON-SS ORDER BULIDER.")

 S DA=+Y,DIE="^DIC(19,",DR=".01////PRCP NON-SS ORDER BUILDER" D ^DIE

 S PRCWP(1)="This option will be activated only through the Task Manager and will"

 S PRCWP(2)="control the effort to automatically generate a distribution order for"

 S PRCWP(3)="all secondary inventory points not linked to a supply station."

 D WP^DIE(19,DA_",",3.5,"","PRCWP","PRCERR")

 I $D(PRCERR("DIERR")) D  Q

 . D BMES^XPDUTL("Correction of the DESCRIPTION field unsuccessful for the following reason:")

 . D MES^XPDUTL(PRCERR("DIERR",1,"TEXT",1))

 D BMES^XPDUTL("Option name has been corrected to PRCP NON-SS ORDER BUILDER")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRC51108   1036     printed  Apr 09, 2024@21:05:29                                                                                                                                                                                                    Page 2

PRC51108  ;BP-OIFO/TJH ; POST INSTALL ROUTINE FOR PRC*5.1*108 ; APRIL 20, 2007

 +1       ;;5.1;IFCAP;**108**;Oct 20, 2000;Build 10

 +2       ;

 +3       ; access from top not allowed

           QUIT 

 +4       ;

EN        ; Entry point

 +1        NEW DA,DIC,DIE,X,Y,PRCWP,PRCERR

 +2       ; look up misspelled option

           SET DIC="^DIC(19,"

           SET X="PRCP NON-SS ORDER BULIDER"

 +3        DO ^DIC

 +4       ; not found, possibly already corrected

           if Y<0

               QUIT 

 +5        DO BMES^XPDUTL("Correcting option name PRCP NON-SS ORDER BULIDER.")

 +6        SET DA=+Y

           SET DIE="^DIC(19,"

           SET DR=".01////PRCP NON-SS ORDER BUILDER"

           DO ^DIE

 +7        SET PRCWP(1)="This option will be activated only through the Task Manager and will"

 +8        SET PRCWP(2)="control the effort to automatically generate a distribution order for"

 +9        SET PRCWP(3)="all secondary inventory points not linked to a supply station."

 +10       DO WP^DIE(19,DA_",",3.5,"","PRCWP","PRCERR")

 +11       IF $DATA(PRCERR("DIERR"))

               Begin DoDot:1

 +12               DO BMES^XPDUTL("Correction of the DESCRIPTION field unsuccessful for the following reason:")

 +13               DO MES^XPDUTL(PRCERR("DIERR",1,"TEXT",1))

               End DoDot:1

               QUIT 

 +14       DO BMES^XPDUTL("Option name has been corrected to PRCP NON-SS ORDER BUILDER")

 +15       QUIT