source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY258.m@ 1150

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

initial load of WorldVistAEHR

File size: 970 bytes
Line 
1ORY258 ;SLCOIFO - Post-init for patch OR*3*258 ;5/30/06 11:36
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**258**;Dec 17, 1997;Build 7
3 ;
4PRE ; initiate pre-init processes
5 ;
6 Q
7 ;
8POST ; initiate post-init processes
9 ;
10 D MAIL
11 Q
12 ;
13MAIL ; send bulletin of installation time
14 N DA,DIE,DR,VERSNUM,NAME,OPTIEN
15 S DA=$O(^DIC(19,"B","OR CPRS GUI CHART","")) Q:DA'>0
16 ;Change to versnum to store the new version number
17 S VERSNUM="CPRSChart version 1.0.26.68"
18 S DIE="^DIC(19,",DR="1////^S X=VERSNUM" D ^DIE
19 ;
20 N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
21 S COUNT=0,XMDUZ="CPRS PACKAGE",XMTEXT="TEXT("
22 S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
23 F I="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV",DUZ S XMY(I)=""
24 ;
25 S X=$P($T(VERSION),";;",2)
26 D LINE("Version "_X_" has been installed.")
27 D LINE(" ")
28 D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
29 ;
30 D ^XMD
31 Q
32 ;
33LINE(DATA) ; set text into array
34 S COUNT=COUNT+1
35 S TEXT(COUNT)=DATA
36 Q
37 ;
38VERSION ;;26.68
Note: See TracBrowser for help on using the repository browser.