source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY203.m@ 1015

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

initial load of FOIAVistA 6/30/08 version

File size: 779 bytes
Line 
1ORY203 ;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 ;
6PRE ; -- preinit
7 ;
8 Q
9 ;
10POST ; -- postinit
11 ;
12 N VER
13 ;
14 S VER=$P($T(VERSION^ORY187),";",3)
15 D MAIL
16 ;
17 Q
18 ;
19MAIL ; 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 ;
35LINE(DATA) ; set text into array
36 S COUNT=COUNT+1
37 S TEXT(COUNT)=DATA
38 Q
39 ;
40VERSION ;;22.12
Note: See TracBrowser for help on using the repository browser.