PRC51111.m

PRC51111 ;VMP/TJH  ; Pre Install routine for PRC*5.1*111 ; 07/31/2007

 ;;5.1;IFCAP;**111**;Oct 20, 2000;Build 1

 ;

 Q  ; Do Not Enter at routine label

 ;

EN ; Entry point.

GTR ; PRCPLO GREATER THAN RANGE, reset from 90 to 270

 N PRCP3,PRCPZ

 D BMES^XPDUTL("Resetting 'Stock on Hand Report Greater Than Range' to 270...")

 S PRCP3=$$GET^XPAR("SYS","PRCPLO GREATER THAN RANGE",1,"Q") ; GETS EXISTING VALUE

 I PRCP3=270 D BMES^XPDUTL("Range already set to 270, no action taken.") G GTRX

 S PRCP3=270

 D EN^XPAR("SYS","PRCPLO GREATER THAN RANGE",1,PRCP3,.PRCPZ)

 I PRCPZ D  G GTRX ; error trap

 . D BMES^XPDUTL("Range not set.  Reason: "_$P(PRCPZ,"^",2))

 . D MES^XPDUTL("Please use CLO SYSTEM PARAMETERS option to set manually.")

 D BMES^XPDUTL("Range changed successfully to "_PRCP3_".")

GTRX ; end of Greater Than Range subroutine

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRC51111   856     printed  Apr 09, 2024@21:06:34                                                                                                                                                                                                     Page 2

PRC51111  ;VMP/TJH  ; Pre Install routine for PRC*5.1*111 ; 07/31/2007

 +1       ;;5.1;IFCAP;**111**;Oct 20, 2000;Build 1

 +2       ;

 +3       ; Do Not Enter at routine label

           QUIT 

 +4       ;

EN        ; Entry point.

GTR       ; PRCPLO GREATER THAN RANGE, reset from 90 to 270

 +1        NEW PRCP3,PRCPZ

 +2        DO BMES^XPDUTL("Resetting 'Stock on Hand Report Greater Than Range' to 270...")

 +3       ; GETS EXISTING VALUE

           SET PRCP3=$$GET^XPAR("SYS","PRCPLO GREATER THAN RANGE",1,"Q")

 +4        IF PRCP3=270

               DO BMES^XPDUTL("Range already set to 270, no action taken.")

               GOTO GTRX

 +5        SET PRCP3=270

 +6        DO EN^XPAR("SYS","PRCPLO GREATER THAN RANGE",1,PRCP3,.PRCPZ)

 +7       ; error trap

           IF PRCPZ

               Begin DoDot:1

 +8                DO BMES^XPDUTL("Range not set.  Reason: "_$PIECE(PRCPZ,"^",2))

 +9                DO MES^XPDUTL("Please use CLO SYSTEM PARAMETERS option to set manually.")

               End DoDot:1

               GOTO GTRX

 +10       DO BMES^XPDUTL("Range changed successfully to "_PRCP3_".")

GTRX      ; end of Greater Than Range subroutine

 +1       ;

 +2        QUIT