source: Scheduling/trunk/m/BSDX11.m@ 666

Last change on this file since 666 was 614, checked in by Sam Habiel, 15 years ago

Initial committ of scheduling package

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