BPMKIDS1.m

BPMKIDS1 ;IHS/OIT/ENM - BPM PATCH 1 PRE INSTALL & ENVIRON CHECK

 ;;1.0;IHS PATIENT MERGE;**1**;JUL 12, 2011

 ;

CKENV ; environment check code

 N X

 S X="BPMXDRV" X ^%ZOSF("TEST")

 I '$T W !,"Patient Merge v1.0 MUST be installed!" S XPDQUIT=1

 ;

 ;IHS/DIT/ENM - Check if EDR loaded

 ;S X="BADEMRG" X ^%ZOSF("TEST")

 ;I '$T W !,"Electronic Dental Record MUST be installed!" S XPDQUIT=1

 D ENV ;DUZ VARIABLE CHECK

 Q

ENV ;Environment check

 ;I '$G(IOM) D HOME^%ZIS

 ;

 I '$G(DUZ) W !,"YOUR DUZ VARIABLE IS UNDEFINED!! Please login with your Access & Verify." S XPDQUIT=1 Q

 ;

 I '$L($G(DUZ(0))) W !,"Your DUZ(0) VARIABLE IS UNDEFINED OR NULL." S XPDQUIT=1 Q

 ;

 I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"YOUR DUZ(0) VARIABLE DOES NOT CONTAIN AN '@'." S XPDQUIT=1

 Q

BPMKIDS1  ;IHS/OIT/ENM - BPM PATCH 1 PRE INSTALL & ENVIRON CHECK

 +1       ;;1.0;IHS PATIENT MERGE;**1**;JUL 12, 2011

 +2       ;

CKENV     ; environment check code

 +1        NEW X

 +2        SET X="BPMXDRV"

           XECUTE ^%ZOSF("TEST")

 +3        IF '$TEST

               WRITE !,"Patient Merge v1.0 MUST be installed!"

               SET XPDQUIT=1

 +4       ;

 +5       ;IHS/DIT/ENM - Check if EDR loaded

 +6       ;S X="BADEMRG" X ^%ZOSF("TEST")

 +7       ;I '$T W !,"Electronic Dental Record MUST be installed!" S XPDQUIT=1

 +8       ;DUZ VARIABLE CHECK

           DO ENV

 +9        QUIT 

ENV       ;Environment check

 +1       ;I '$G(IOM) D HOME^%ZIS

 +2       ;

 +3        IF '$GET(DUZ)

               WRITE !,"YOUR DUZ VARIABLE IS UNDEFINED!! Please login with your Access & Verify."

               SET XPDQUIT=1

               QUIT 

 +4       ;

 +5        IF '$LENGTH($GET(DUZ(0)))

               WRITE !,"Your DUZ(0) VARIABLE IS UNDEFINED OR NULL."

               SET XPDQUIT=1

               QUIT 

 +6       ;

 +7        IF '(DUZ(0)["@")

               IF '$DATA(ZTQUEUED)

                   WRITE !,"YOUR DUZ(0) VARIABLE DOES NOT CONTAIN AN '@'."

               SET XPDQUIT=1

 +8        QUIT