BVPENV.m

BVPENV ; IHS/ITSC/LJF - ENVIRONMENT CHECK FOR VPR ;

 ;;1.0;VIEW PATIENT RECORD;;NOV 17, 2004

 ;

 I XPDENV=1 S XPDDIQ("XPZ1")=0,XPDDIQ("XPZ2")=0

 I '$L($T(EN^APCHS79)) D

 . NEW MSG

 . S MSG(1)="PCC Health Summary patch #8 has not been installed"

 . S MSG(2)="Cannot install View Patient Record until it is."

 . D MES^XPDUTL(.MSG)

 . S XPDQUIT=2

 Q

BVPENV    ; IHS/ITSC/LJF - ENVIRONMENT CHECK FOR VPR ;

 +1       ;;1.0;VIEW PATIENT RECORD;;NOV 17, 2004

 +2       ;

 +3        IF XPDENV=1

               SET XPDDIQ("XPZ1")=0

               SET XPDDIQ("XPZ2")=0

 +4        IF '$LENGTH($TEXT(EN^APCHS79))

               Begin DoDot:1

 +5                NEW MSG

 +6                SET MSG(1)="PCC Health Summary patch #8 has not been installed"

 +7                SET MSG(2)="Cannot install View Patient Record until it is."

 +8                DO MES^XPDUTL(.MSG)

 +9                SET XPDQUIT=2

               End DoDot:1

 +10       QUIT