Last change
on this file since 975 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
779 bytes
|
Line | |
---|
1 | ORY203 ;SLC/PKS -- postinit rtn for OR*3*203;7/2/2003 06:25 [9/11/03 10:56am]
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**203**;Dec 17, 1997
|
---|
3 | ;
|
---|
4 | Q
|
---|
5 | ;
|
---|
6 | PRE ; -- preinit
|
---|
7 | ;
|
---|
8 | Q
|
---|
9 | ;
|
---|
10 | POST ; -- postinit
|
---|
11 | ;
|
---|
12 | N VER
|
---|
13 | ;
|
---|
14 | S VER=$P($T(VERSION^ORY187),";",3)
|
---|
15 | D MAIL
|
---|
16 | ;
|
---|
17 | Q
|
---|
18 | ;
|
---|
19 | MAIL ; send bulletin of installation time
|
---|
20 | N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
|
---|
21 | S COUNT=0
|
---|
22 | S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
|
---|
23 | S XMDUZ="CPRS PACKAGE"
|
---|
24 | F I="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV",DUZ S XMY(I)=""
|
---|
25 | S XMTEXT="TEXT("
|
---|
26 | ;
|
---|
27 | S X=$P($T(VERSION),";;",2)
|
---|
28 | D LINE("Version "_X_" has been installed.")
|
---|
29 | D LINE(" ")
|
---|
30 | D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
|
---|
31 | ;
|
---|
32 | D ^XMD
|
---|
33 | Q
|
---|
34 | ;
|
---|
35 | LINE(DATA) ; set text into array
|
---|
36 | S COUNT=COUNT+1
|
---|
37 | S TEXT(COUNT)=DATA
|
---|
38 | Q
|
---|
39 | ;
|
---|
40 | VERSION ;;22.12
|
---|
Note:
See
TracBrowser
for help on using the repository browser.