PRC51198.m

PRC51198 ;OI&T/LKG - ENV CHECK & POST-INIT PRC*5.1*198 ;4/24/17  18:06

 ;;5.1;IFCAP;**198**;OCT 20, 2000;Build 6

 ;Per VA Directive 6402, this routine should not be modified.

 ;Integration agreements

 ; ICR #2052:  FIELD^DID()

 ; ICR #2055:  $$VFIELD^DILFD()

 ; ICR #10141: BMES^XPDUTL(), MES^XPDUTL()

 ;

ENV ;Environmental Check

 I $$VFIELD^DILFD(441,25) D  Q

 . N PRCARR,PRCERR

 . D FIELD^DID(441,25,"","TYPE;LABEL","PRCARR","PRCERR")

 . I PRCARR("LABEL")'="MANUFACTURER"!(PRCARR("TYPE")'="POINTER") D

 . . S XPDQUIT=2

 . . D BMES^XPDUTL("Your IFCAP instance already has in the Item Master (#441) file")

 . . D MES^XPDUTL("  a field #25 which is in conflict with the field #25 being")

 . . D MES^XPDUTL("  introduced by patch PRC*5.1*198.")

 . . D BMES^XPDUTL("Please submit a Product Support ticket for resolution.")

 Q

 ;

 ;PRC51198

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRC51198   858     printed  Apr 09, 2024@21:20:16                                                                                                                                                                                                     Page 2

PRC51198  ;OI&T/LKG - ENV CHECK & POST-INIT PRC*5.1*198 ;4/24/17  18:06

 +1       ;;5.1;IFCAP;**198**;OCT 20, 2000;Build 6

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;Integration agreements

 +4       ; ICR #2052:  FIELD^DID()

 +5       ; ICR #2055:  $$VFIELD^DILFD()

 +6       ; ICR #10141: BMES^XPDUTL(), MES^XPDUTL()

 +7       ;

ENV       ;Environmental Check

 +1        IF $$VFIELD^DILFD(441,25)

               Begin DoDot:1

 +2                NEW PRCARR,PRCERR

 +3                DO FIELD^DID(441,25,"","TYPE;LABEL","PRCARR","PRCERR")

 +4                IF PRCARR("LABEL")'="MANUFACTURER"!(PRCARR("TYPE")'="POINTER")

                       Begin DoDot:2

 +5                        SET XPDQUIT=2

 +6                        DO BMES^XPDUTL("Your IFCAP instance already has in the Item Master (#441) file")

 +7                        DO MES^XPDUTL("  a field #25 which is in conflict with the field #25 being")

 +8                        DO MES^XPDUTL("  introduced by patch PRC*5.1*198.")

 +9                        DO BMES^XPDUTL("Please submit a Product Support ticket for resolution.")

                       End DoDot:2

               End DoDot:1

               QUIT 

 +10       QUIT 

 +11      ;

 +12      ;PRC51198