Routine: ACHSPOSM

ACHSPOSM ; IHS/ITSC/PMF - 2.1T2 INSTALLATION MAIL MESSAGE ANNOUNCEMENT ; [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 I $D(ZTQUEUED) G START

 I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q

 D HOME^%ZIS,DT^DICRW,INTRO

 S (DIR(0),DIR("B"))="Y"

 S DIR("A")="Do you want to queue the announcement to TaskMan"

 S DIR("??")="^D Q2^ACHSPOSM"

 D ^DIR

 G Q2:$D(DIRUT),START:'Y

QUE ;

 S %DT="AERSX",%DT("A")="Requested Start Time: ",%DT("B")="T@2015",%DT(0)="NOW"

 D ^%DT

 I Y<1 W !,"QUEUE INFORMATION MISSING - NOT QUEUED",!!,"Okay...",! D Q2 Q

 S X=+Y

 D H^%DTC

 S ZTDTH=%H_","_%T,ZTRTN="START^ACHSPOSM(0)",ZTIO="",ZTDESC=$P($P($T(+1),";",2)," ",4,99)

 D ^%ZTLOAD,HOME^%ZIS

 I $D(ZTSK) W !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!

 E  W !!,*7,"QUEUE UNSUCCESSFUL.  RESTART UTILITY."

START(ERROR) ;EP - From Taskman

 N XMSUB,XMDUZ,XMTEXT,XMY

 K ^TMP($J)

 D:'ERROR WRITDESC     ;OKAY - NO ERROR

 D:ERROR=1 WRITEOOP    ;ERROR IN INSTALL

 D:ERROR=2 WRITEDD     ;POSSIBLE ERROR IN DD(s)

 D:ERROR=4 BACKUP      ;ERROR IN BACKUPS

 D GETRECIP

 S (XMSUB,XMDUZ)=$P($P($T(+1),";",2)," ",4,99),XMTEXT="^TMP($J,""ACHSPOSM"",",XMY(1)="",XMY(DUZ)=""

 D ^XMD

 K ^TMP($J)

INTRO ;

 W ! F %=2:1:5 W ?5,$P($T(INTRO+%),";;",2),!

 ;;This patch announcement generates a mail message to everyone on your

 ;;local machine that holds a CHS security key.  The mail messages

 ;;inform the users that the patch has been installed, and describes

 ;;any changes in displays or functionality.

Q2 ;EP - From DIR

 W ! F %=2:1:8 W ?5,$P($T(Q2+%),";;",2),!

 ;;Answer "Y" if you want to queue this patch announcement to TaskMan.

 ;;Answer "N" if you want to run the announcement immediately.

;;

 ;;If you run interactively, a mail message with the description of

 ;;this patch will be delivered to those users holding any CHS security

 ;;key, now. If you que the announcement to TaskMan, the mail message(s)

 ;;will be delivered when TaskMan runs the task.

GETRECIP ;

 N X,Y

 S X="ACHS"

 F  S X=$O(^XUSEC(X)) Q:'($E(X,1,4)="ACHS")  D

 .S Y=0

 .F  S Y=$O(^XUSEC(X,Y)) Q:'Y  S XMY(Y)=""

 ;OKAY NO ERRORS ENCOUNTERED

WRITDESC ;

 F %=3:1 S X=$P($T(WRITDESC+%),";",3) Q:X="###"  S ^TMP($J,"ACHSPOSM",%)=X

;;

 ;;++++  CHS Contract Health System, v 3.1 announcement     ++++++

 ;;+     This mail message has been delivered to all local         +

 ;;+          users that have access to any CHS menu.              +

 ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

;;

 ;;Version 3.1 of CHS CONTRACT HEALTH MGT SYSTEMS has been installed

 ;;on this machine.  You are participating in an Alpha test of this

 ;;module of the CHS software.

;;

 ;;Please direct your questions or comments about RPMS software to:

;;

 ;;            Your Help Desk

;;

;;

;;

;;

 ;;If you experience problems with the CHS Contract Health System

 ;;software installed for this Alpha test, please contact your site

 ;;manager, OR, the developers, Tim Frazier or Paul Friedland,

 ;;via the above number.

;;

 ;;------------------------------------------------------------------

 ;;It is recommended that you exercise the "UHF   Print Help Frames"

 ;;option on the primary Denial/Deferred Services menu, which will

 ;;print out all the on-line help-frames in a manual format.  This

 ;;help frame manual is intended to help users while a user manual

 ;;is being written. If you notice any errors please contact the

 ;;developers.

;;

 ;;+++++++++++++++++++++++ end of announcement ++++++++++++++++++++++

 ;;###

 ;WRITE "OOPS" SOME ERROR HAS OCCURRED DURING INSTALLATION

 ;THIS IS A GENERIC MESSAGE

WRITEOOP ;

 F %=3:1 S X=$P($T(WRITEOOP+%),";",3) Q:X="###"  S ^TMP($J,"ACHSPOSM",%)=X

;;

 ;;It appears that version 3.1 of the CHS Contract Health System has

 ;;already been installed in this UCI! Or it may have been started

 ;;and did not complete properly. Or the proper routine sequence was

 ;;disrupted. Further investigation by ITSC developers will have to be

 ;;done to determine why the installation has failed.

;;

 ;;Please call the Help Desk immediately!!

;;

;;

 ;;###

 ;AN ERROR OCCURRED DURING THE AUTOMATED BACKUP PROCEDURES

BACKUP ;

 F %=3:1 S X=$P($T(BACKUP+%),";",3) Q:X="###"  S ^TMP($J,"ACHSPOSM",%)=X

;;

 ;;The automated backup procedure does not appear to have finished

 ;;properly! Further investigation by ITSC developers is neccessary

 ;;before continuing.

;;

 ;;Please call the Help Desk immediately!!

;;

;;

 ;;###

 ;THIS IS A WARNING TO LET US KNOW A DD MAY HAVE NOT IMPORTED

 ;CORRECTLY

WRITEDD ;

 F %=3:1 S X=$P($T(WRITEDD+%),";",3) Q:X="###"  S ^TMP($J,"ACHSPOSM",%)=X

;;

 ;;It appears that the installation of the data dictionaries of the

 ;;CHS files may not have been completed properly or are incomplete!

;;

 ;;Further investigation by developers will have to be made to

 ;;determine why this occurred.

;;

 ;;This is only a warning!

;;

 ;;Please call the Help Desk immediately!!

;;

;;

 ;;+++++++++++++++++++++++ end of announcement ++++++++++++++++++++++

 ;;###

ACHSPOSM  ; IHS/ITSC/PMF - 2.1T2 INSTALLATION MAIL MESSAGE ANNOUNCEMENT ; [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

 +3        IF $DATA(ZTQUEUED)

               GOTO START

 +4        IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR ZERO.",!

               QUIT

 +5        DO HOME^%ZIS

           DO DT^DICRW

           DO INTRO

 +6        SET (DIR(0),DIR("B"))="Y"

 +7        SET DIR("A")="Do you want to queue the announcement to TaskMan"

 +8        SET DIR("??")="^D Q2^ACHSPOSM"

 +9        DO ^DIR

 +10       IF $DATA(DIRUT)

               GOTO Q2

           IF 'Y

               GOTO START

QUE       ;

 +1        SET %DT="AERSX"

           SET %DT("A")="Requested Start Time: "

           SET %DT("B")="T@2015"

           SET %DT(0)="NOW"

 +2        DO ^%DT

 +3        IF Y<1

               WRITE !,"QUEUE INFORMATION MISSING - NOT QUEUED",!!,"Okay...",!

               DO Q2

               QUIT

 +4        SET X=+Y

 +5        DO H^%DTC

 +6        SET ZTDTH=%H_","_%T

           SET ZTRTN="START^ACHSPOSM(0)"

           SET ZTIO=""

           SET ZTDESC=$PIECE($PIECE($TEXT(+1),";",2)," ",4,99)

 +7        DO ^%ZTLOAD

           DO HOME^%ZIS

 +8        IF $DATA(ZTSK)

               WRITE !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!

 +9       IF '$TEST

               WRITE !!,*7,"QUEUE UNSUCCESSFUL.  RESTART UTILITY."

 +10       QUIT

 +11      ;

START(ERROR) ;EP - From Taskman

 +1       ;

 +2        NEW XMSUB,XMDUZ,XMTEXT,XMY

 +3        KILL ^TMP($JOB)

 +4       ;

 +5       ;OKAY - NO ERROR

           IF 'ERROR

               DO WRITDESC

 +6       ;ERROR IN INSTALL

           IF ERROR=1

               DO WRITEOOP

 +7       ;POSSIBLE ERROR IN DD(s)

           IF ERROR=2

               DO WRITEDD

 +8       ;ERROR IN BACKUPS

           IF ERROR=4

               DO BACKUP

 +9       ;

 +10       DO GETRECIP

 +11       SET (XMSUB,XMDUZ)=$PIECE($PIECE($TEXT(+1),";",2)," ",4,99)

           SET XMTEXT="^TMP($J,""ACHSPOSM"","

           SET XMY(1)=""

           SET XMY(DUZ)=""

 +12       DO ^XMD

 +13       KILL ^TMP($JOB)

 +14       QUIT

 +15      ;

INTRO     ;

 +1        WRITE !

           FOR %=2:1:5

               WRITE ?5,$PIECE($TEXT(INTRO+%),";;",2),!

 +2       ;;This patch announcement generates a mail message to everyone on your

 +3       ;;local machine that holds a CHS security key.  The mail messages

 +4       ;;inform the users that the patch has been installed, and describes

 +5       ;;any changes in displays or functionality.

 +6        QUIT

 +7       ;

Q2        ;EP - From DIR

 +1        WRITE !

           FOR %=2:1:8

               WRITE ?5,$PIECE($TEXT(Q2+%),";;",2),!

 +2       ;;Answer "Y" if you want to queue this patch announcement to TaskMan.

 +3       ;;Answer "N" if you want to run the announcement immediately.

 +4       ;;

 +5       ;;If you run interactively, a mail message with the description of

 +6       ;;this patch will be delivered to those users holding any CHS security

 +7       ;;key, now. If you que the announcement to TaskMan, the mail message(s)

 +8       ;;will be delivered when TaskMan runs the task.

 +9        QUIT

 +10      ;

GETRECIP  ;

 +1        NEW X,Y

 +2        SET X="ACHS"

 +3        FOR

               SET X=$ORDER(^XUSEC(X))

               IF '($EXTRACT(X,1,4)="ACHS")

                   QUIT

               Begin DoDot:1

 +4                SET Y=0

 +5                FOR

                       SET Y=$ORDER(^XUSEC(X,Y))

                       IF 'Y

                           QUIT

                       SET XMY(Y)=""

               End DoDot:1

 +6        QUIT

 +7       ;

 +8       ;OKAY NO ERRORS ENCOUNTERED

WRITDESC  ;

 +1        FOR %=3:1

               SET X=$PIECE($TEXT(WRITDESC+%),";",3)

               IF X="###"

                   QUIT

               SET ^TMP($JOB,"ACHSPOSM",%)=X

 +2        QUIT

 +3       ;;

 +4       ;;++++  CHS Contract Health System, v 3.1 announcement     ++++++

 +5       ;;+     This mail message has been delivered to all local         +

 +6       ;;+          users that have access to any CHS menu.              +

 +7       ;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 +8       ;;

 +9       ;;Version 3.1 of CHS CONTRACT HEALTH MGT SYSTEMS has been installed

 +10      ;;on this machine.  You are participating in an Alpha test of this

 +11      ;;module of the CHS software.

 +12      ;;

 +13      ;;Please direct your questions or comments about RPMS software to:

 +14      ;;

 +15      ;;            Your Help Desk

 +16      ;;

 +17      ;;

 +18      ;;

 +19      ;;

 +20      ;;If you experience problems with the CHS Contract Health System

 +21      ;;software installed for this Alpha test, please contact your site

 +22      ;;manager, OR, the developers, Tim Frazier or Paul Friedland,

 +23      ;;via the above number.

 +24      ;;

 +25      ;;------------------------------------------------------------------

 +26      ;;It is recommended that you exercise the "UHF   Print Help Frames"

 +27      ;;option on the primary Denial/Deferred Services menu, which will

 +28      ;;print out all the on-line help-frames in a manual format.  This

 +29      ;;help frame manual is intended to help users while a user manual

 +30      ;;is being written. If you notice any errors please contact the

 +31      ;;developers.

 +32      ;;

 +33      ;;+++++++++++++++++++++++ end of announcement ++++++++++++++++++++++

 +34      ;;###

 +35      ;

 +36      ;WRITE "OOPS" SOME ERROR HAS OCCURRED DURING INSTALLATION

 +37      ;THIS IS A GENERIC MESSAGE

WRITEOOP  ;

 +1        FOR %=3:1

               SET X=$PIECE($TEXT(WRITEOOP+%),";",3)

               IF X="###"

                   QUIT

               SET ^TMP($JOB,"ACHSPOSM",%)=X

 +2        QUIT

 +3       ;;

 +4       ;;It appears that version 3.1 of the CHS Contract Health System has

 +5       ;;already been installed in this UCI! Or it may have been started

 +6       ;;and did not complete properly. Or the proper routine sequence was

 +7       ;;disrupted. Further investigation by ITSC developers will have to be

 +8       ;;done to determine why the installation has failed.

 +9       ;;

 +10      ;;Please call the Help Desk immediately!!

 +11      ;;

 +12      ;;

 +13      ;;###

 +14      ;

 +15      ;AN ERROR OCCURRED DURING THE AUTOMATED BACKUP PROCEDURES

BACKUP    ;

 +1        FOR %=3:1

               SET X=$PIECE($TEXT(BACKUP+%),";",3)

               IF X="###"

                   QUIT

               SET ^TMP($JOB,"ACHSPOSM",%)=X

 +2        QUIT

 +3       ;;

 +4       ;;The automated backup procedure does not appear to have finished

 +5       ;;properly! Further investigation by ITSC developers is neccessary

 +6       ;;before continuing.

 +7       ;;

 +8       ;;Please call the Help Desk immediately!!

 +9       ;;

 +10      ;;

 +11      ;;###

 +12      ;

 +13      ;THIS IS A WARNING TO LET US KNOW A DD MAY HAVE NOT IMPORTED

 +14      ;CORRECTLY

WRITEDD   ;

 +1       ;

 +2        FOR %=3:1

               SET X=$PIECE($TEXT(WRITEDD+%),";",3)

               IF X="###"

                   QUIT

               SET ^TMP($JOB,"ACHSPOSM",%)=X

 +3        QUIT

 +4       ;;

 +5       ;;It appears that the installation of the data dictionaries of the

 +6       ;;CHS files may not have been completed properly or are incomplete!

 +7       ;;

 +8       ;;Further investigation by developers will have to be made to

 +9       ;;determine why this occurred.

 +10      ;;

 +11      ;;This is only a warning!

 +12      ;;

 +13      ;;Please call the Help Desk immediately!!

 +14      ;;

 +15      ;;

 +16      ;;+++++++++++++++++++++++ end of announcement ++++++++++++++++++++++

 +17      ;;###

ACHSPOSM.m