source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY231.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.8 KB
Line 
1ORY231 ;SLCOIFO - Post-init for patch OR*3*231 ; [4/19/05 7:21am]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**231**;Dec 17, 1997
3 ;
4PRE ; initiate pre-init processes
5 ;
6 Q
7 ;
8POST ; initiate post-init processes
9 ;
10 I +$$PATCH^XPDUTL("TIU*1.0*112") D SURGREG
11 I +$$PATCH^XPDUTL("OR*3.0*222") D GNRPCS
12 I +$$PATCH^XPDUTL("MAG*3.0*7") D MAGRPC1
13 I +$$PATCH^XPDUTL("MAG*3.0*37") D MAGRPC2
14 D MAIL
15 Q
16 ;
17MAIL ; send bulletin of installation time
18 N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
19 S COUNT=0,XMDUZ="CPRS PACKAGE",XMTEXT="TEXT("
20 S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
21 F I="G.CPRS GUI INSTALL@ISC-SLC.VA.GOV",DUZ S XMY(I)=""
22 ;
23 S X=$P($T(VERSION),";;",2)
24 D LINE("Version "_X_" has been installed.")
25 D LINE(" ")
26 D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
27 ;
28 D ^XMD
29 Q
30 ;
31LINE(DATA) ; set text into array
32 S COUNT=COUNT+1
33 S TEXT(COUNT)=DATA
34 Q
35 ;
36SURGREG ; Register TIU SURGERY RPCs if TIU*1.0*112 present
37 N MENU,RPC
38 S MENU="OR CPRS GUI CHART"
39 F RPC="TIU IS THIS A SURGERY?","TIU IDENTIFY SURGERY CLASS","TIU LONG LIST SURGERY TITLES","TIU GET DOCUMENTS FOR REQUEST" D INSERT(MENU,RPC)
40 Q
41 ;
42INSERT(OPTION,RPC) ; Call FM Updater with each RPC
43 ; Input -- OPTION Option file (#19) Name field (#.01)
44 ; RPC RPC sub-file (#19.05) RPC field (#.01)
45 ; Output -- None
46 N FDA,FDAIEN,ERR,DIERR
47 S FDA(19,"?1,",.01)=OPTION
48 S FDA(19.05,"?+2,?1,",.01)=RPC
49 D UPDATE^DIE("E","FDA","FDAIEN","ERR")
50 Q
51 ;
52GNRPCS ;
53 N MENU,I
54 S MENU="OR CPRS GUI CHART"
55 F I="ORWGN GNLOC","ORWGN AUTHUSR" D INSERT(MENU,I)
56 Q
57 ;
58MAGRPC1 ; Register Imaging RPC if MAG*3.0*7 present (DBIA 4526)
59 D INSERT("OR CPRS GUI CHART","MAG4 REMOTE IMPORT")
60 Q
61 ;
62MAGRPC2 ; Register Imaging RPCS if MAG*3.0*37 installed (DBIA 4528/4530)
63 D INSERT("OR CPRS GUI CHART","MAG IMPORT CHECK STATUS")
64 D INSERT("OR CPRS GUI CHART","MAG IMPORT CLEAR STATUS")
65 Q
66 ;
67VERSION ;;25.40
Note: See TracBrowser for help on using the repository browser.