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."
Q
;
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)
Q
;
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.
Q
;
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.
Q
;
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)=""
Q
;
;OKAY NO ERRORS ENCOUNTERED
WRITDESC ;
F %=3:1 S X=$P($T(WRITDESC+%),";",3) Q:X="###" S ^TMP($J,"ACHSPOSM",%)=X
Q
;;
;;++++ 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
Q
;;
;;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
Q
;;
;;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
Q
;;
;;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 ;;###
