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 Nov 22, 2024@17:09:47 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
