SDOQMPST.m

SDOQMPST ;ALB/SCK - Performance Measure Post-Init ; 7/25/96

 ;;5.3;SCHEDULING;**47,1015**;AUG 13,1993;Build 21

 ;

START ;

 I 'XPDQUES("POST001") S XPDABORT=1 Q

 ;

 D BMES^XPDUTL("Beginning Post-Install")

 ;

 I '$$NEWCP^XPDUTL("POST_1","OPT1^SDOQMPST",0) D

 . D BMES^XPDUTL("Error creating checkpoint OPT1")

 ;

 I '$$NEWCP^XPDUTL("POST_2","OPT2^SDOQMPST",0) D

 . D BMES^XPDUTL("Error creating checkpoint OPT2")

 ;

 I '$$NEWCP^XPDUTL("POST_3","MAIL1^SDOQMPST",0) D

 . D BMES^XPDUTL("Error creating checkpoint MAIL1")

 ;

 I '$$NEWCP^XPDUTL("POST_4","NET^SDOQMPST",0) D

 . D BMES^XPDUTL("Error creating checkpoint for Domain Name")

QUIT Q

 ;

OPT1 ;

 N SDIEN,SDSIEN,SCERR,MSG,SDFLAG,DIFROM

 ;

 S SDIEN="",SDIEN=$O(^DIC(19,"B","SDOQM PM NIGHTLY JOB",SDIEN))

 I SDIEN']"" D  Q

 . S MSG(1)="Error: the SDOQM PM NIGHTLY JOB option was not loaded during the"

 . S MSG(2)="KIDs install.  This option will need to be created."

 . D MES^XPDUTL(.MSG) K MSG

 ;

 S (SDFLAG,SDSIEN)="",SDSIEN=$O(^DIC(19.2,"B",SDIEN,SDSIEN))

 S:SDSIEN']"" SDFLAG="L"

 ;

 I SDSIEN]"",+$P($G(^DIC(19.2,SDSIEN,0)),U,2)>0 S Y=$P(^(0),U,2) D  Q

 . D DD^%DT

 . D BMES^XPDUTL("The SDOQM PM NIGHTLY JOB is already scheduled for "_Y)

 ;

 D RESCH^XUTMOPT("SDOQM PM NIGHTLY JOB","","","1D",SDFLAG)

 S SDSIEN="",SDSIEN=$O(^DIC(19.2,"B",SDIEN,SDSIEN))

 I SDSIEN']"" D  Q

 . K MSG

 . S MSG(1)="The SDOQM PM NIGHTLY JOB scheduling option was not created."

 . S MSG(2)="You will need to create this entry in the OPTION SCHEDULING ile"

 . S MSG(3)="manually."

 . D MES^XPDUTL(.MSG)

 ;

 Q

 ;

OPT2 ;

 N SDIEN

 S SDIEN="",SDIEN=$O(^DIC(19,"B","SDOQM CLINIC NEXT AVAIL REPORT",SDIEN))

 I SDIEN']"" D

 . D BMES^XPDUTL("Error: the SDOQM CLINIC NEXT AVAIL REPORT option was not loaded")

 Q

 ;

MAIL1 ;

 N SDMIEN,DES,MSG,SDMAIL

 ;

 D BMES^XPDUTL("Creating local mail group for PM nightly job...")

 ;

 S SDMAIL="SD PM NOTIFICATION"

 S SDMIEN="",SDMIEN=$O(^XMB(3.8,"B",SDMAIL,SDMIEN))

 I SDMIEN']"" D  Q

 . S DES(0)="Mail group for local receipt of Performance Measure access extracts."

 . S X=$$MG^XMBGRP(SDMAIL,0,$S(+$G(DUZ)>0:DUZ,1:.5),0,"",.DES,1)

 . I 'X D  Q

 .. D BMES^XPDUTL("There was an error setting up the Mail group.")

 . S MSG(0)="The SD PM NOTIFICATION mail group has been created."

 . S MSG(1)="After this install is completed, you will need to add"

 . S MSG(2)="the appropriate members who need to receive the PM"

 . S MSG(3)="confirmation messages from the server."

 . D MES^XPDUTL(.MSG)

 ;

 I SDMIEN]"" D

 . D BMES^XPDUTL("Mail group already exists, please make sure appropriate members are added.")

 ;

 Q

NET ;

 N MSG

 ;

 I '$D(^XMB("NETNAME")) D  Q

 . S MSG(0)="The Domain Name for this server is not defined.  You will not"

 . S MSG(1)="be able to receive the PM confirmation messages from the data collection server."

 . S MSG(2)="Please contact your IRM staff for assistance."

 . D MES^XPDUTL(.MSG)

 ;

 D BMES^XPDUTL("Domain Name OK")

 Q

SDOQMPST  ;ALB/SCK - Performance Measure Post-Init ; 7/25/96

 +1       ;;5.3;SCHEDULING;**47,1015**;AUG 13,1993;Build 21

 +2       ;

START     ;

 +1        IF 'XPDQUES("POST001")

               SET XPDABORT=1

               QUIT 

 +2       ;

 +3        DO BMES^XPDUTL("Beginning Post-Install")

 +4       ;

 +5        IF '$$NEWCP^XPDUTL("POST_1","OPT1^SDOQMPST",0)

               Begin DoDot:1

 +6                DO BMES^XPDUTL("Error creating checkpoint OPT1")

               End DoDot:1

 +7       ;

 +8        IF '$$NEWCP^XPDUTL("POST_2","OPT2^SDOQMPST",0)

               Begin DoDot:1

 +9                DO BMES^XPDUTL("Error creating checkpoint OPT2")

               End DoDot:1

 +10      ;

 +11       IF '$$NEWCP^XPDUTL("POST_3","MAIL1^SDOQMPST",0)

               Begin DoDot:1

 +12               DO BMES^XPDUTL("Error creating checkpoint MAIL1")

               End DoDot:1

 +13      ;

 +14       IF '$$NEWCP^XPDUTL("POST_4","NET^SDOQMPST",0)

               Begin DoDot:1

 +15               DO BMES^XPDUTL("Error creating checkpoint for Domain Name")

               End DoDot:1

QUIT       QUIT 

 +1       ;

OPT1      ;

 +1        NEW SDIEN,SDSIEN,SCERR,MSG,SDFLAG,DIFROM

 +2       ;

 +3        SET SDIEN=""

           SET SDIEN=$ORDER(^DIC(19,"B","SDOQM PM NIGHTLY JOB",SDIEN))

 +4        IF SDIEN']""

               Begin DoDot:1

 +5                SET MSG(1)="Error: the SDOQM PM NIGHTLY JOB option was not loaded during the"

 +6                SET MSG(2)="KIDs install.  This option will need to be created."

 +7                DO MES^XPDUTL(.MSG)

                   KILL MSG

               End DoDot:1

               QUIT 

 +8       ;

 +9        SET (SDFLAG,SDSIEN)=""

           SET SDSIEN=$ORDER(^DIC(19.2,"B",SDIEN,SDSIEN))

 +10       IF SDSIEN']""

               SET SDFLAG="L"

 +11      ;

 +12       IF SDSIEN]""

               IF +$PIECE($GET(^DIC(19.2,SDSIEN,0)),U,2)>0

                   SET Y=$PIECE(^(0),U,2)

                   Begin DoDot:1

 +13                   DO DD^%DT

 +14                   DO BMES^XPDUTL("The SDOQM PM NIGHTLY JOB is already scheduled for "_Y)

                   End DoDot:1

                   QUIT 

 +15      ;

 +16       DO RESCH^XUTMOPT("SDOQM PM NIGHTLY JOB","","","1D",SDFLAG)

 +17       SET SDSIEN=""

           SET SDSIEN=$ORDER(^DIC(19.2,"B",SDIEN,SDSIEN))

 +18       IF SDSIEN']""

               Begin DoDot:1

 +19               KILL MSG

 +20               SET MSG(1)="The SDOQM PM NIGHTLY JOB scheduling option was not created."

 +21               SET MSG(2)="You will need to create this entry in the OPTION SCHEDULING ile"

 +22               SET MSG(3)="manually."

 +23               DO MES^XPDUTL(.MSG)

               End DoDot:1

               QUIT 

 +24      ;

 +25       QUIT 

 +26      ;

OPT2      ;

 +1        NEW SDIEN

 +2        SET SDIEN=""

           SET SDIEN=$ORDER(^DIC(19,"B","SDOQM CLINIC NEXT AVAIL REPORT",SDIEN))

 +3        IF SDIEN']""

               Begin DoDot:1

 +4                DO BMES^XPDUTL("Error: the SDOQM CLINIC NEXT AVAIL REPORT option was not loaded")

               End DoDot:1

 +5        QUIT 

 +6       ;

MAIL1     ;

 +1        NEW SDMIEN,DES,MSG,SDMAIL

 +2       ;

 +3        DO BMES^XPDUTL("Creating local mail group for PM nightly job...")

 +4       ;

 +5        SET SDMAIL="SD PM NOTIFICATION"

 +6        SET SDMIEN=""

           SET SDMIEN=$ORDER(^XMB(3.8,"B",SDMAIL,SDMIEN))

 +7        IF SDMIEN']""

               Begin DoDot:1

 +8                SET DES(0)="Mail group for local receipt of Performance Measure access extracts."

 +9                SET X=$$MG^XMBGRP(SDMAIL,0,$SELECT(+$GET(DUZ)>0:DUZ,1:.5),0,"",.DES,1)

 +10               IF 'X

                       Begin DoDot:2

 +11                       DO BMES^XPDUTL("There was an error setting up the Mail group.")

                       End DoDot:2

                       QUIT 

 +12               SET MSG(0)="The SD PM NOTIFICATION mail group has been created."

 +13               SET MSG(1)="After this install is completed, you will need to add"

 +14               SET MSG(2)="the appropriate members who need to receive the PM"

 +15               SET MSG(3)="confirmation messages from the server."

 +16               DO MES^XPDUTL(.MSG)

               End DoDot:1

               QUIT 

 +17      ;

 +18       IF SDMIEN]""

               Begin DoDot:1

 +19               DO BMES^XPDUTL("Mail group already exists, please make sure appropriate members are added.")

               End DoDot:1

 +20      ;

 +21       QUIT 

NET       ;

 +1        NEW MSG

 +2       ;

 +3        IF '$DATA(^XMB("NETNAME"))

               Begin DoDot:1

 +4                SET MSG(0)="The Domain Name for this server is not defined.  You will not"

 +5                SET MSG(1)="be able to receive the PM confirmation messages from the data collection server."

 +6                SET MSG(2)="Please contact your IRM staff for assistance."

 +7                DO MES^XPDUTL(.MSG)

               End DoDot:1

               QUIT 

 +8       ;

 +9        DO BMES^XPDUTL("Domain Name OK")

 +10       QUIT