Routine: BSDX11

BSDX11 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

ENV0100 ;EP Version 1.0 Environment check

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

 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q

 I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q

 I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(2) Q

 S X=$$GET1^DIQ(200,DUZ,.01)

 W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)

 W !!,$$CJ^XLFSTR("Checking Environment...",IOM)

 ;is the PIMS requirement present?

 I '$$INSTALLD("PIMS*5.3*1003") D

 .D BMES^XPDUTL("Version 1.0 of the BSDX Package")

 . D BMES^XPDUTL("Cannot Be Installed Unless")

 . D BMES^XPDUTL("Patch 1003 of version 5.3 of the PIMS Package has been installed.")

 . D SORRY(2)

. Q

 ;is the BMX requirement present?

 I '$$INSTALLD("BMX 1.0") D

 .D BMES^XPDUTL("Version 1.0 of the BSDX Package")

 . D BMES^XPDUTL("Cannot Be Installed Unless")

 . D BMES^XPDUTL("version 1.0 of the BMX Package has been installed.")

 . D SORRY(2)

. Q

 ;End Environment check

V0100 ;EP Version 1.0 PostInit

 ;Add Protocol items to BSDAM APPOINTMENT EVENTS protocol

 N BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG

 S BSDXDA=$O(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))

 Q:'+BSDXDA

 S BSDXDAT="BSDX ADD APPOINTMENT;10.2^BSDX CANCEL APPOINTMENT;10.4^BSDX CHECKIN APPOINTMENT;10.6^BSDX NOSHOW APPOINTMENT;10.8"

 F J=1:1:$L(BSDXDAT,U) D

 . K BSDXIEN,BSDXMSG,BSDXFDA

 . S BSDXNOD=$P(BSDXDAT,U,J)

 . S BSDXDA1=$P(BSDXNOD,";")

 . S BSDXSEQ=$P(BSDXNOD,";",2)

 . S BSDXDA1=$O(^ORD(101,"B",BSDXDA1,0))

 . Q:'+BSDXDA1

 . Q:$D(^ORD(101,BSDXDA,10,"B",BSDXDA1))

 . S BSDXFDA(101.01,"+1,"_BSDXDA_",",".01")=BSDXDA1

 . S BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ

 . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")

. Q

SORRY(X) ;

 KILL DIFQ

 S XPDQUIT=X

 W *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",IOM)

INSTALLD(BMXPKG) ;

 ;Determine if BMXPKG is present.

 N BSDXFIN,BSDXSTAT

 ;S BSDXFIN=$O(^XPD(9.7,"B","PIMS*5.3*1003",""))

 S BSDXFIN=$O(^XPD(9.7,"B",BMXPKG,""))

 I $G(BSDXFIN)="" Q 0

 S BSDXSTAT=$P($G(^XPD(9.7,BSDXFIN,0)),U,9)

 ;'0' Loaded from Distribution

 ;'1' Queued for Install

 ;'2' Start of Install

 ;'3' Install Completed

 ;'4' FOR De-Installed;

 I BSDXSTAT'=3 Q 0

Q 1

BSDX11    ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

 +1       ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010

 +2       ;

ENV0100   ;EP Version 1.0 Environment check

 +1        IF '$GET(IOM)

               DO HOME^%ZIS

 +2        IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR 0."

               DO SORRY(2)

               QUIT

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

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

               DO SORRY(2)

               QUIT

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

               IF '$DATA(ZTQUEUED)

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

               DO SORRY(2)

               QUIT

 +5        SET X=$$GET1^DIQ(200,DUZ,.01)

 +6        WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)

 +7        WRITE !!,$$CJ^XLFSTR("Checking Environment...",IOM)

 +8       ;

 +9       ;is the PIMS requirement present?

 +10       IF '$$INSTALLD("PIMS*5.3*1003")

               Begin DoDot:1

 +11               DO BMES^XPDUTL("Version 1.0 of the BSDX Package")

 +12               DO BMES^XPDUTL("Cannot Be Installed Unless")

 +13               DO BMES^XPDUTL("Patch 1003 of version 5.3 of the PIMS Package has been installed.")

 +14               DO SORRY(2)

 +15               QUIT

               End DoDot:1

 +16      ;is the BMX requirement present?

 +17       IF '$$INSTALLD("BMX 1.0")

               Begin DoDot:1

 +18               DO BMES^XPDUTL("Version 1.0 of the BSDX Package")

 +19               DO BMES^XPDUTL("Cannot Be Installed Unless")

 +20               DO BMES^XPDUTL("version 1.0 of the BMX Package has been installed.")

 +21               DO SORRY(2)

 +22               QUIT

               End DoDot:1

 +23       QUIT

 +24      ;End Environment check

 +25      ;

V0100     ;EP Version 1.0 PostInit

 +1       ;Add Protocol items to BSDAM APPOINTMENT EVENTS protocol

 +2       ;

 +3        NEW BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG

 +4        SET BSDXDA=$ORDER(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))

 +5        IF '+BSDXDA

               QUIT

 +6        SET BSDXDAT="BSDX ADD APPOINTMENT;10.2^BSDX CANCEL APPOINTMENT;10.4^BSDX CHECKIN APPOINTMENT;10.6^BSDX NOSHOW APPOINTMENT;10.8"

 +7        FOR J=1:1:$LENGTH(BSDXDAT,U)

               Begin DoDot:1

 +8                KILL BSDXIEN,BSDXMSG,BSDXFDA

 +9                SET BSDXNOD=$PIECE(BSDXDAT,U,J)

 +10               SET BSDXDA1=$PIECE(BSDXNOD,";")

 +11               SET BSDXSEQ=$PIECE(BSDXNOD,";",2)

 +12               SET BSDXDA1=$ORDER(^ORD(101,"B",BSDXDA1,0))

 +13               IF '+BSDXDA1

                       QUIT

 +14               IF $DATA(^ORD(101,BSDXDA,10,"B",BSDXDA1))

                       QUIT

 +15               SET BSDXFDA(101.01,"+1,"_BSDXDA_",",".01")=BSDXDA1

 +16               SET BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ

 +17               DO UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")

 +18               QUIT

               End DoDot:1

 +19       QUIT

 +20      ;

SORRY(X)  ;

 +1        KILL DIFQ

 +2        SET XPDQUIT=X

 +3        WRITE *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",IOM)

 +4        QUIT

 +5       ;

INSTALLD(BMXPKG) ;

 +1       ;Determine if BMXPKG is present.

 +2        NEW BSDXFIN,BSDXSTAT

 +3       ;S BSDXFIN=$O(^XPD(9.7,"B","PIMS*5.3*1003",""))

 +4        SET BSDXFIN=$ORDER(^XPD(9.7,"B",BMXPKG,""))

 +5        IF $GET(BSDXFIN)=""

               QUIT 0

 +6        SET BSDXSTAT=$PIECE($GET(^XPD(9.7,BSDXFIN,0)),U,9)

 +7       ;'0' Loaded from Distribution

 +8       ;'1' Queued for Install

 +9       ;'2' Start of Install

 +10      ;'3' Install Completed

 +11      ;'4' FOR De-Installed;

 +12      ;

 +13       IF BSDXSTAT'=3

               QUIT 0

 +14       QUIT 1

BSDX11.m