| [1161] | 1 | BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
|
|---|
| [1187] | 2 | ;;1.6T2;BSDX;;May 16, 2011
|
|---|
| [1161] | 3 | ; Licensed under LGPL
|
|---|
| [614] | 4 | ;
|
|---|
| 5 | ENV0100 ;EP Version 1.0 Environment check
|
|---|
| 6 | I '$G(IOM) D HOME^%ZIS
|
|---|
| 7 | I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
|
|---|
| 8 | I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
|
|---|
| 9 | I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(2) Q
|
|---|
| 10 | S X=$$GET1^DIQ(200,DUZ,.01)
|
|---|
| 11 | W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
|
|---|
| 12 | W !!,$$CJ^XLFSTR("Checking Environment...",IOM)
|
|---|
| 13 | ;
|
|---|
| 14 | ;is the PIMS requirement present?
|
|---|
| 15 | I '$$INSTALLD("PIMS*5.3*1003") D
|
|---|
| 16 | .D BMES^XPDUTL("Version 1.0 of the BSDX Package")
|
|---|
| 17 | . D BMES^XPDUTL("Cannot Be Installed Unless")
|
|---|
| 18 | . D BMES^XPDUTL("Patch 1003 of version 5.3 of the PIMS Package has been installed.")
|
|---|
| 19 | . D SORRY(2)
|
|---|
| 20 | . Q
|
|---|
| 21 | ;is the BMX requirement present?
|
|---|
| 22 | I '$$INSTALLD("BMX 1.0") D
|
|---|
| 23 | .D BMES^XPDUTL("Version 1.0 of the BSDX Package")
|
|---|
| 24 | . D BMES^XPDUTL("Cannot Be Installed Unless")
|
|---|
| 25 | . D BMES^XPDUTL("version 1.0 of the BMX Package has been installed.")
|
|---|
| 26 | . D SORRY(2)
|
|---|
| 27 | . Q
|
|---|
| 28 | Q
|
|---|
| 29 | ;End Environment check
|
|---|
| 30 | ;
|
|---|
| 31 | V0100 ;EP Version 1.0 PostInit
|
|---|
| 32 | ;Add Protocol items to BSDAM APPOINTMENT EVENTS protocol
|
|---|
| 33 | ;
|
|---|
| 34 | N BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG
|
|---|
| 35 | S BSDXDA=$O(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))
|
|---|
| 36 | Q:'+BSDXDA
|
|---|
| 37 | S BSDXDAT="BSDX ADD APPOINTMENT;10.2^BSDX CANCEL APPOINTMENT;10.4^BSDX CHECKIN APPOINTMENT;10.6^BSDX NOSHOW APPOINTMENT;10.8"
|
|---|
| 38 | F J=1:1:$L(BSDXDAT,U) D
|
|---|
| 39 | . K BSDXIEN,BSDXMSG,BSDXFDA
|
|---|
| 40 | . S BSDXNOD=$P(BSDXDAT,U,J)
|
|---|
| 41 | . S BSDXDA1=$P(BSDXNOD,";")
|
|---|
| 42 | . S BSDXSEQ=$P(BSDXNOD,";",2)
|
|---|
| 43 | . S BSDXDA1=$O(^ORD(101,"B",BSDXDA1,0))
|
|---|
| 44 | . Q:'+BSDXDA1
|
|---|
| 45 | . Q:$D(^ORD(101,BSDXDA,10,"B",BSDXDA1))
|
|---|
| 46 | . S BSDXFDA(101.01,"+1,"_BSDXDA_",",".01")=BSDXDA1
|
|---|
| 47 | . S BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ
|
|---|
| 48 | . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
|
|---|
| 49 | . Q
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | SORRY(X) ;
|
|---|
| 53 | KILL DIFQ
|
|---|
| 54 | S XPDQUIT=X
|
|---|
| 55 | W *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",IOM)
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
| 58 | INSTALLD(BMXPKG) ;
|
|---|
| 59 | ;Determine if BMXPKG is present.
|
|---|
| 60 | Q 1
|
|---|
| 61 | ;S BSDXFIN=$O(^XPD(9.7,"B","PIMS*5.3*1003",""))
|
|---|
| 62 | S BSDXFIN=$O(^XPD(9.7,"B",BMXPKG,""))
|
|---|
| 63 | I $G(BSDXFIN)="" Q 0
|
|---|
| 64 | S BSDXSTAT=$P($G(^XPD(9.7,BSDXFIN,0)),U,9)
|
|---|
| 65 | ;'0' Loaded from Distribution
|
|---|
| 66 | ;'1' Queued for Install
|
|---|
| 67 | ;'2' Start of Install
|
|---|
| 68 | ;'3' Install Completed
|
|---|
| 69 | ;'4' FOR De-Installed;
|
|---|
| 70 | ;
|
|---|
| 71 | I BSDXSTAT'=3 Q 0
|
|---|
| 72 | Q 1
|
|---|
