| 1 | OR3POST ;SLC/MLI - Post-install for CPRS install ; 8/2/97
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | ; This post-install is to be run after each of the individual
|
|---|
| 5 | ; builds is installed with CPRS version 1.0. It will queue a
|
|---|
| 6 | ; task to convert the orders for all patients once the system
|
|---|
| 7 | ; is back on line.
|
|---|
| 8 | ;
|
|---|
| 9 | ; It will also include the compilation of the order check
|
|---|
| 10 | ; expert code
|
|---|
| 11 | ;
|
|---|
| 12 | EN ; post-install code to call order check expert compiler
|
|---|
| 13 | ; kill off old/changed cross references on file #100
|
|---|
| 14 | ; initialize fields in ORDER PARAMETERS file
|
|---|
| 15 | ; queue conversion
|
|---|
| 16 | ; fire completion message
|
|---|
| 17 | ;
|
|---|
| 18 | N X,IDX
|
|---|
| 19 | D ^OCXOPOST
|
|---|
| 20 | S X=$G(^ORD(100.99,1,"CONV"))
|
|---|
| 21 | I '$P(X,"^",1),'$P(X,"^",2) D ; if conversion hasn't started
|
|---|
| 22 | . F IDX="AC","AD","AE","AF","AL","AN","AR","AS","AT" K ^OR(100,IDX)
|
|---|
| 23 | . D SET^OR3CONV(1,0) ; initialize completion parameter to no
|
|---|
| 24 | . D QUEUE^OR3CONV ; queue off conversion
|
|---|
| 25 | D TIME
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | TIME ; send bulletin of installation time
|
|---|
| 29 | N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
|
|---|
| 30 | S COUNT=0
|
|---|
| 31 | S START=+$G(^XPD(9.7,+$$IEN(),1))
|
|---|
| 32 | S XMSUB="Version "_$P($T(PATCH),";;",2)_" Installed"
|
|---|
| 33 | S XMDUZ="CPRS PACKAGE"
|
|---|
| 34 | F I="G.CPRS INSTALLATION@ISC-SLC.VA.GOV",DUZ S XMY(I)=""
|
|---|
| 35 | S XMTEXT="TEXT("
|
|---|
| 36 | ;
|
|---|
| 37 | S X=$P($T(PATCH),";;",2)
|
|---|
| 38 | D LINE("Version "_X_" has been installed.")
|
|---|
| 39 | D LINE(" Install started: "_$$FMTE^XLFDT($$FMTE^XLFDT(START)))
|
|---|
| 40 | D LINE(" Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
|
|---|
| 41 | ;
|
|---|
| 42 | D ^XMD
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | ;
|
|---|
| 46 | LINE(DATA) ; set text into array
|
|---|
| 47 | S COUNT=COUNT+1
|
|---|
| 48 | S TEXT(COUNT)=DATA
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | ;
|
|---|
| 52 | IEN() ; return IEN of build listed at line FIRST
|
|---|
| 53 | Q $O(^XPD(9.7,"B",$P($T(FIRST),";;",2),0))
|
|---|
| 54 | ;
|
|---|
| 55 | ;
|
|---|
| 56 | FIRST ;;ORDER ENTRY/RESULTS REPORTING 3.0
|
|---|
| 57 | PATCH ;;1.0
|
|---|
