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 ---[H[J[2J[HPRC51108 1036 printed Dec 13, 2024@01:59:35 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
