[628] | 1 | OR3CONV1 ;SLC/MLI-Conversion utilities and cleanup ;8/2/97 [5/25/99 9:33am]
|
---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**14,40**;Dec 17, 1997
|
---|
| 3 | ;
|
---|
| 4 | ; Continuation calls from OR3CONV - used by OE/RR version 3 conversion
|
---|
| 5 | ;
|
---|
| 6 | ; Utilities for site to call:
|
---|
| 7 | ; RESTART - if process stopped for any reason, this can be used
|
---|
| 8 | ; to restart the background portion of the conversion.
|
---|
| 9 | ;
|
---|
| 10 | ; STATUS - display the status of the conversion via TaskMan and
|
---|
| 11 | ; via OE/RR.
|
---|
| 12 | ;
|
---|
| 13 | STOP ; entry point to stop conversion cleanly
|
---|
| 14 | N X
|
---|
| 15 | S X=$G(^ORD(100.99,1,"CONV"))
|
---|
| 16 | I +X W !,"The conversion has already run to completion." Q
|
---|
| 17 | I '$P(X,"^",6) W !,"The background job conversion has not yet started." Q
|
---|
| 18 | D STATUS
|
---|
| 19 | I $$RUSURE("stop") D SET^OR3CONV(11,1)
|
---|
| 20 | Q
|
---|
| 21 | ;
|
---|
| 22 | RESTART ; entry point to restart conversion
|
---|
| 23 | N X
|
---|
| 24 | S X=$$CHECK()
|
---|
| 25 | I X]"" D Q
|
---|
| 26 | . W !,"You can not use the RESTART call at this time."
|
---|
| 27 | . W !,X
|
---|
| 28 | . W !!,"Call STATUS^OR3CONV1 to get current status of conversion."
|
---|
| 29 | D STATUS
|
---|
| 30 | I $$RUSURE("restart") D
|
---|
| 31 | . S ZTSAVE("ORESTART")=$P(^ORD(100.99,1,"CONV"),"^",9)
|
---|
| 32 | . D QUEUE^OR3CONV
|
---|
| 33 | Q
|
---|
| 34 | ;
|
---|
| 35 | CHECK() ; check status to see if restart should be allowed
|
---|
| 36 | N X
|
---|
| 37 | S X=$G(^ORD(100.99,1,"CONV"))
|
---|
| 38 | I +X Q "The conversion has already run to completion."
|
---|
| 39 | I '$P(X,"^",6) Q "The background job conversion has not yet started."
|
---|
| 40 | S X=+$P(X,"^",10) I X S X=$$ZTSKCHK(X) I '$P(X,"^",2) Q $P(X,"^",1)
|
---|
| 41 | Q ""
|
---|
| 42 | ;
|
---|
| 43 | RUSURE(TEXT) ; return 1 if yes, 0 otherwise
|
---|
| 44 | N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
|
---|
| 45 | S DIR(0)="YA",DIR("B")="No"
|
---|
| 46 | S DIR("A")="Are you sure you want to "_TEXT_" the conversion? "
|
---|
| 47 | D ^DIR
|
---|
| 48 | Q +Y
|
---|
| 49 | ;
|
---|
| 50 | STATUS ; get status of conversion
|
---|
| 51 | N STAGE,X
|
---|
| 52 | S X=$G(^ORD(100.99,1,"CONV"))
|
---|
| 53 | I +X W !,"The conversion has already completed!" Q
|
---|
| 54 | I $P(X,"^",1)="" W !,"The conversion has not yet started." Q
|
---|
| 55 | I $P(X,"^",11) W !,"The background job was requested to stop." Q
|
---|
| 56 | I '$P(X,"^",6),'$P(X,"^",10) D Q
|
---|
| 57 | . W !,"The background conversion of patient orders has not"
|
---|
| 58 | . W !,"started yet. This process is queued to run by the post-"
|
---|
| 59 | . W !,"installation process of CPRS. It has not yet been queued."
|
---|
| 60 | I $P(X,"^",10) D Q
|
---|
| 61 | . W !,"The background conversion of patient orders is running."
|
---|
| 62 | . W !,"The task number assigned to the conversion was ",$P(X,"^",10),"."
|
---|
| 63 | . W !,"The following is the status of the process according to TaskMan:"
|
---|
| 64 | . W !?5,$P($$ZTSKCHK($P(X,"^",10)),"^",1)
|
---|
| 65 | . W !
|
---|
| 66 | . S STAGE=$$STAGE($P(X,"^",8))
|
---|
| 67 | . I +STAGE=0 D Q
|
---|
| 68 | . . W !,"The background job is currently populating the list of"
|
---|
| 69 | . . W !,"patients that will need to be processed by the conversion."
|
---|
| 70 | . . W !,"Last DFN populated: ",$O(^ORD(100.99,1,"PTCONV","A"),-1)
|
---|
| 71 | . W !,"The background conversion is currently on stage ",+STAGE,"."
|
---|
| 72 | . W !,"This stage converts ",$S(STAGE<7:"patients who ",1:""),$P(STAGE,"^",2),"."
|
---|
| 73 | . I $P(X,"^",9) D
|
---|
| 74 | . . W !,"It last completed processing "
|
---|
| 75 | . . W $P(STAGE,"^",3)," ",$P(X,"^",9),"."
|
---|
| 76 | . W !!,"So far, orders for ",+$P(X,"^",12)," patients have converted."
|
---|
| 77 | . W !,"There are currently ",+$P(^ORD(100.99,1,"PTCONV",0),"^",4)," patients left to process."
|
---|
| 78 | . I +STAGE'=1 Q ; show more info for inpatients
|
---|
| 79 | . W !!,"Patients on ward ",$P(X,"^",4)," are currently being processed."
|
---|
| 80 | . W !,"The last patient to be converted was DFN #",$P(X,"^",5),"."
|
---|
| 81 | Q
|
---|
| 82 | ;
|
---|
| 83 | ZTSKCHK(ZTSK) ; check status of task via TaskMan utilities
|
---|
| 84 | ; return message^flag where flag is 1 to allow requeue...0 otherwise
|
---|
| 85 | D STAT^%ZTLOAD
|
---|
| 86 | Q $P($T(ZTSKMSG+ZTSK(1)),";;",2)
|
---|
| 87 | ;
|
---|
| 88 | ZTSKMSG ;;Unable to find task on current volume set^1
|
---|
| 89 | ;;Task is scheduled and waiting to run^0
|
---|
| 90 | ;;The task is running^0
|
---|
| 91 | ;;The task completed^1
|
---|
| 92 | ;;The task was created without being scheduled^0
|
---|
| 93 | ;;The process stopped for some reason^1
|
---|
| 94 | ;;Unable to obtain status from TaskMan^1
|
---|
| 95 | ;
|
---|
| 96 | STAGE(STAGE) ; return text of what stage does
|
---|
| 97 | Q $P($T(STAGETXT+STAGE),";;",2)
|
---|
| 98 | ;
|
---|
| 99 | ; stages - number^text^up to text
|
---|
| 100 | STAGETXT ;;0^populating list of patients to convert
|
---|
| 101 | ;;1^are current inpatients^ward
|
---|
| 102 | ;;2^have future scheduled admissions on file^scheduled admission date
|
---|
| 103 | ;;3^have waiting list file entries^DFN
|
---|
| 104 | ;;4^have discharges within last 4 weeks^discharge date
|
---|
| 105 | ;;5^have appointments in last 4 or next 4 weeks^hospital location
|
---|
| 106 | ;;6^have not already been converted^DFN
|
---|
| 107 | ;;7^orders not associated with PATIENT file entries^variable pointer
|
---|
| 108 | ;
|
---|
| 109 | CLEANUP ; conversion is completed
|
---|
| 110 | N X
|
---|
| 111 | I '$$FINALCHK() D ERROR Q
|
---|
| 112 | D KILL^OR3C101,REQUEUE^ORMTIME(1)
|
---|
| 113 | D BADNAMES^PSJIPST3
|
---|
| 114 | D MAIL
|
---|
| 115 | Q
|
---|
| 116 | ;
|
---|
| 117 | FINALCHK() ; check to see if every patient converted
|
---|
| 118 | N DFN,ERROR
|
---|
| 119 | S ERROR=1
|
---|
| 120 | F DFN=0:0 S DFN=$O(^ORD(100.99,1,"PTCONV",DFN)) Q:'DFN D Q:ERROR
|
---|
| 121 | . S ERROR=$$CONVERT^OR3CONV(DFN,1) ; try again to convert
|
---|
| 122 | . I '$$PTDONE^OR3CONV(DFN) S ERROR=0
|
---|
| 123 | Q ERROR
|
---|
| 124 | ;
|
---|
| 125 | MAIL ; send e-mail that the conversion completed
|
---|
| 126 | N COUNT,X
|
---|
| 127 | S COUNT=0,X=$G(^ORD(100.99,1,"CONV"))
|
---|
| 128 | D LINE("The orders conversion has completed")
|
---|
| 129 | D LINE(" ")
|
---|
| 130 | D LINE("The conversion was first started: "_$$FMTE^XLFDT($P(X,"^",6)))
|
---|
| 131 | D LINE("It ran to completion: "_$$FMTE^XLFDT($P(X,"^",7)))
|
---|
| 132 | D SEND("OE/RR version 3.0 conversion complete")
|
---|
| 133 | Q
|
---|
| 134 | ;
|
---|
| 135 | ERROR ; create mail message if unconverted patients found
|
---|
| 136 | N COUNT
|
---|
| 137 | S COUNT=0
|
---|
| 138 | D LINE("A problem was encountered in the OE/RR conversion. After")
|
---|
| 139 | D LINE("going through all patients, it was still unable to convert")
|
---|
| 140 | D LINE("orders for some patients. Please contact the national")
|
---|
| 141 | D LINE("customer support help desk for further assistance.")
|
---|
| 142 | D SEND("OE/RR version 3.0 conversion encountered problem")
|
---|
| 143 | Q
|
---|
| 144 | ;
|
---|
| 145 | LINE(TEXT) ; store data in array for mail message
|
---|
| 146 | S COUNT=COUNT+1
|
---|
| 147 | S ORTEXT(COUNT)=TEXT
|
---|
| 148 | Q
|
---|
| 149 | ;
|
---|
| 150 | SEND(SUBJECT) ; define rest of XM variables and fire message off
|
---|
| 151 | N DIFROM,XMDUZ,XMSUB,XMTEXT,XMY
|
---|
| 152 | S XMSUB=SUBJECT,XMTEXT="ORTEXT("
|
---|
| 153 | S XMDUZ="OE/RR CONVERSION"
|
---|
| 154 | F I="G.CPRS INSTALLATION@ISC-SLC.VA.GOV",DUZ S XMY(I)=""
|
---|
| 155 | D ^XMD
|
---|
| 156 | Q
|
---|
| 157 | ;
|
---|
| 158 | PTCONV ; populate OR3 PATIENTS TO CONVERT multiple...hard set for speed
|
---|
| 159 | N COUNT,DFN,LAST
|
---|
| 160 | S COUNT=0,LAST=""
|
---|
| 161 | F DFN=0:0 S DFN=$O(^DPT(DFN)) Q:'DFN!(DFN'=+DFN) I $D(^(DFN,0)) D
|
---|
| 162 | . S LAST=DFN,COUNT=COUNT+1
|
---|
| 163 | . I $D(^ORD(100.99,1,"PTCONV",DFN,0)) Q
|
---|
| 164 | . S ^ORD(100.99,1,"PTCONV",DFN,0)=DFN,^ORD(100.99,1,"PTCONV","B",DFN,DFN)=""
|
---|
| 165 | S ^ORD(100.99,1,"PTCONV",0)="^100.9903PA^"_LAST_"^"_COUNT
|
---|
| 166 | Q
|
---|