- 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 ---[H[J[2J[HPRC51198 858 printed Apr 23, 2025@18:14:10 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
