source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY277.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ORY277 ;SLCOIFO - Post-init for patch OR*3*277 ;08/01/2007
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**277**;Dec 17, 1997;Build 13
3 ;
4PRE ; initiate pre-init processes
5 ;
6 Q
7 ;
8POST ; initiate post-init processes
9 ;
10 D VITREG ;register Vitals RPC
11 I +$$PATCH^XPDUTL("MAG*3.0*7") D MAGREG1
12 I +$$PATCH^XPDUTL("MAG*3.0*37") D MAGREG2
13 D MAIL
14 Q
15 ;
16MAIL ; send bulletin of installation time
17 N DA,DIE,DR,VERSNUM,NAME,OPTIEN
18 S DA=$O(^DIC(19,"B","OR CPRS GUI CHART","")) Q:DA'>0
19 ;Change to versnum to store the new version number
20 S VERSNUM="CPRSChart version 1.0.26.76"
21 S DIE="^DIC(19,",DR="1////^S X=VERSNUM" D ^DIE
22 ;
23 N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
24 S COUNT=0,XMDUZ="CPRS PACKAGE",XMTEXT="TEXT("
25 S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
26 F I="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV",DUZ S XMY(I)=""
27 ;
28 S X=$P($T(VERSION),";;",2)
29 D LINE("Version "_X_" has been installed.")
30 D LINE(" ")
31 D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
32 ;
33 D ^XMD
34 Q
35 ;
36VITREG ; Register Vitals RPC
37 D ADDRPCS^GMV3PST ;call tag from vitals patch post init to register
38 Q
39 ;
40MAGREG1 ; Register Imaging RPC if MAG*3.0*7 installed (DBIA 4526)
41 D INSERT("OR CPRS GUI CHART","MAG4 REMOTE IMPORT")
42 Q
43 ;
44MAGREG2 ; Register Imaging RPCS if MAG*3.0*37 installed (DBIA 4528/4530)
45 D INSERT("OR CPRS GUI CHART","MAG IMPORT CHECK STATUS")
46 D INSERT("OR CPRS GUI CHART","MAG IMPORT CLEAR STATUS")
47 Q
48 ;
49LINE(DATA) ; set text into array
50 S COUNT=COUNT+1
51 S TEXT(COUNT)=DATA
52 Q
53 ;
54INSERT(OPTION,RPC) ; Call FM Updater with each RPC
55 ; Input -- OPTION Option file (#19) Name field (#.01)
56 ; RPC RPC sub-file (#19.05) RPC field (#.01)
57 ; Output -- None
58 N FDA,FDAIEN,ERR,DIERR
59 S FDA(19,"?1,",.01)=OPTION
60 S FDA(19.05,"?+2,?1,",.01)=RPC
61 D UPDATE^DIE("E","FDA","FDAIEN","ERR")
62 Q
63 ;
64VERSION ;;26.76
Note: See TracBrowser for help on using the repository browser.