| 1 | SDOQMPST ;ALB/SCK - Performance Measure Post-Init ; 7/25/96
|
|---|
| 2 | ;;5.3;SCHEDULING;**47**;AUG 13,1993
|
|---|
| 3 | ;
|
|---|
| 4 | START ;
|
|---|
| 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")
|
|---|
| 20 | QUIT Q
|
|---|
| 21 | ;
|
|---|
| 22 | OPT1 ;
|
|---|
| 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 | ;
|
|---|
| 49 | OPT2 ;
|
|---|
| 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 | ;
|
|---|
| 56 | MAIL1 ;
|
|---|
| 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
|
|---|
| 78 | NET ;
|
|---|
| 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
|
|---|
