source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OR3POST.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1OR3POST ;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 ;
12EN ; 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 ;
28TIME ; 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 ;
46LINE(DATA) ; set text into array
47 S COUNT=COUNT+1
48 S TEXT(COUNT)=DATA
49 Q
50 ;
51 ;
52IEN() ; return IEN of build listed at line FIRST
53 Q $O(^XPD(9.7,"B",$P($T(FIRST),";;",2),0))
54 ;
55 ;
56FIRST ;;ORDER ENTRY/RESULTS REPORTING 3.0
57PATCH ;;1.0
Note: See TracBrowser for help on using the repository browser.