source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDOQMPST.m@ 719

Last change on this file since 719 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.8 KB
Line 
1SDOQMPST ;ALB/SCK - Performance Measure Post-Init ; 7/25/96
2 ;;5.3;SCHEDULING;**47**;AUG 13,1993
3 ;
4START ;
5 I 'XPDQUES("POST001") S XPDABORT=1 Q
6 ;
7 D BMES^XPDUTL("Beginning Post-Install")
8 ;
9 I '$$NEWCP^XPDUTL("POST_1","OPT1^SDOQMPST",0) D
10 . D BMES^XPDUTL("Error creating checkpoint OPT1")
11 ;
12 I '$$NEWCP^XPDUTL("POST_2","OPT2^SDOQMPST",0) D
13 . D BMES^XPDUTL("Error creating checkpoint OPT2")
14 ;
15 I '$$NEWCP^XPDUTL("POST_3","MAIL1^SDOQMPST",0) D
16 . D BMES^XPDUTL("Error creating checkpoint MAIL1")
17 ;
18 I '$$NEWCP^XPDUTL("POST_4","NET^SDOQMPST",0) D
19 . D BMES^XPDUTL("Error creating checkpoint for Domain Name")
20QUIT Q
21 ;
22OPT1 ;
23 N SDIEN,SDSIEN,SCERR,MSG,SDFLAG,DIFROM
24 ;
25 S SDIEN="",SDIEN=$O(^DIC(19,"B","SDOQM PM NIGHTLY JOB",SDIEN))
26 I SDIEN']"" D Q
27 . S MSG(1)="Error: the SDOQM PM NIGHTLY JOB option was not loaded during the"
28 . S MSG(2)="KIDs install. This option will need to be created."
29 . D MES^XPDUTL(.MSG) K MSG
30 ;
31 S (SDFLAG,SDSIEN)="",SDSIEN=$O(^DIC(19.2,"B",SDIEN,SDSIEN))
32 S:SDSIEN']"" SDFLAG="L"
33 ;
34 I SDSIEN]"",+$P($G(^DIC(19.2,SDSIEN,0)),U,2)>0 S Y=$P(^(0),U,2) D Q
35 . D DD^%DT
36 . D BMES^XPDUTL("The SDOQM PM NIGHTLY JOB is already scheduled for "_Y)
37 ;
38 D RESCH^XUTMOPT("SDOQM PM NIGHTLY JOB","","","1D",SDFLAG)
39 S SDSIEN="",SDSIEN=$O(^DIC(19.2,"B",SDIEN,SDSIEN))
40 I SDSIEN']"" D Q
41 . K MSG
42 . S MSG(1)="The SDOQM PM NIGHTLY JOB scheduling option was not created."
43 . S MSG(2)="You will need to create this entry in the OPTION SCHEDULING ile"
44 . S MSG(3)="manually."
45 . D MES^XPDUTL(.MSG)
46 ;
47 Q
48 ;
49OPT2 ;
50 N SDIEN
51 S SDIEN="",SDIEN=$O(^DIC(19,"B","SDOQM CLINIC NEXT AVAIL REPORT",SDIEN))
52 I SDIEN']"" D
53 . D BMES^XPDUTL("Error: the SDOQM CLINIC NEXT AVAIL REPORT option was not loaded")
54 Q
55 ;
56MAIL1 ;
57 N SDMIEN,DES,MSG,SDMAIL
58 ;
59 D BMES^XPDUTL("Creating local mail group for PM nightly job...")
60 ;
61 S SDMAIL="SD PM NOTIFICATION"
62 S SDMIEN="",SDMIEN=$O(^XMB(3.8,"B",SDMAIL,SDMIEN))
63 I SDMIEN']"" D Q
64 . S DES(0)="Mail group for local receipt of Performance Measure access extracts."
65 . S X=$$MG^XMBGRP(SDMAIL,0,$S(+$G(DUZ)>0:DUZ,1:.5),0,"",.DES,1)
66 . I 'X D Q
67 .. D BMES^XPDUTL("There was an error setting up the Mail group.")
68 . S MSG(0)="The SD PM NOTIFICATION mail group has been created."
69 . S MSG(1)="After this install is completed, you will need to add"
70 . S MSG(2)="the appropriate members who need to receive the PM"
71 . S MSG(3)="confirmation messages from the server."
72 . D MES^XPDUTL(.MSG)
73 ;
74 I SDMIEN]"" D
75 . D BMES^XPDUTL("Mail group already exists, please make sure appropriate members are added.")
76 ;
77 Q
78NET ;
79 N MSG
80 ;
81 I '$D(^XMB("NETNAME")) D Q
82 . S MSG(0)="The Domain Name for this server is not defined. You will not"
83 . S MSG(1)="be able to receive the PM confirmation messages from the data collection server."
84 . S MSG(2)="Please contact your IRM staff for assistance."
85 . D MES^XPDUTL(.MSG)
86 ;
87 D BMES^XPDUTL("Domain Name OK")
88 Q
Note: See TracBrowser for help on using the repository browser.