source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRC5PKG.m@ 1078

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

initial load of WorldVistAEHR

File size: 3.5 KB
Line 
1PRC5PKG ;WISC/PLT-IFCAP V5 INSTALLATION/UPDATE OPTION ; 04/10/95 3:14 PM
2V ;;5.0;IFCAP;;4/21/95
3 ;QUIT ; invalid entry
4 ;
5EN ;start installation/update
6 N PRCIVER,PRCRI,PRCFIXV,PRCOPT,PRC5INST,PRCQ21
7Q1 D EN^DDIOL(" ") S PRCFIXV="IFCAP"_$P($T(+2^PRCINIT),";",3)
8 S PRCIVER=$$IVER("IFCAP",PRCFIXV),A="NO VERSION" S:PRCIVER A="V."_PRCIVER
9 S B="this RELEASE of "_$E(PRCFIXV,6,999) I $O(^PRCU(420.92,"B",PRCFIXV,0)) S B="you ran OPTION 1"
10 D YN^PRC0A(.X,.Y,"Did you have "_A_" of IFCAP INSTALLED before "_B,"O","")
11 G:X["^"!(X="") EXIT
12 I 'Y D EN^DDIOL("Please contact your ISC SUPPORT. According to the system your site has IFCAP "_$S(PRCIVER<1:"NOT",1:"VERSION "_PRCIVER)_" installed.") G EXIT
13 I 'PRCIVER,$O(^PRC(420,0)) D EN^DDIOL("Please call IRM/ISC SUPPORT to check your response because you said 'IFCAP' is not installed, but there is an entry in FUND CONTOL POINT FILE.") G EXIT
14Q2 D EN^DDIOL(" "),EN^DDIOL("If IFCAP 5.0 has already been installed prior to this release, run option")
15 D EN^DDIOL("1 only. If IFCAP 4.0 is installed on your system, run options")
16 D EN^DDIOL("1, 2, 3, and 4. If no version of IFCAP is installed on your system, run")
17 D EN^DDIOL("options 1 and 2.")
18 D EN^DDIOL(" ")
19 D EN^DDIOL("If you have to rerun an option, you also have to rerun the options")
20 D EN^DDIOL("following it, i.e., if you ran option 1, 2, 3, and 4, and you have to rerun")
21 D EN^DDIOL("option 2, you also have to rerun option 3 and 4."),EN^DDIOL(" ")
22 D SC^PRC0A(.X,.Y,"Select IFCAP V5 install/update option","OM^1:Install IFCAP Files,Options,Templates (2 parts);2:Convert FMS PCL/PAC/FND/CPF;3:Recalc Control Point Balances;4:File 442 Conversion & Generating FMS Documents","")
23 G:X["^"!(X="") EXIT
24 S PRCOPT=X
25 I PRCOPT'=1,PRCIVER'<5 D EN^DDIOL("This option is not available to your site with IFCAP VERSION "_PRCIVER_" installed.") G Q1
26 I PRCOPT>2,'PRCIVER D EN^DDIOL("This option is not available to your site with IFCAP VIRGIN installation.") G Q1
27 ;validate selected option order
28 I PRCOPT>1 D I 'PRCOPT D EN^DDIOL("You need to select '1' first") G Q1
29 . S A="" S PRCRI(9.4)=$O(^DIC(9.4,"B","IFCAP",0)) I PRCRI(9.4) S A=+$P(^DIC(9.4,PRCRI(9.4),"VERSION"),"^",1)
30 . S:A<5 PRCOPT=""
31 I PRCOPT>2 D I 'PRCOPT D EN^DDIOL("You need to select '2' first") G Q1
32 . S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) S:'PRCRI(420.92) PRCOPT=""
33 . I PRCRI(420.92) S:$P($G(^PRCU(420.92,PRCRI(420.92),0)),"^",6)="" PRCOPT=""
34 . QUIT
35 I PRCOPT>3 D I 'PRCOPT D EN^DDIOL("You need to select '3' first") G Q1
36 . S PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCFIXV,"")) S:'PRCRI(420.92) PRCOPT=""
37 . I PRCRI(420.92) S:$P($G(^PRCU(420.92,PRCRI(420.92),0)),"^",4)="" PRCOPT=""
38 . QUIT
39 I PRCOPT=4 D EN^DDIOL("Please make sure no other file 442 conversion task is scheduled or running. If there is one you can delete the other one and start this one") D G:X["^"!(X="") Q1 S PRCQ21=Y
40 . D YN^PRC0A(.X,.Y,"Submit the File 442 Conversion & Generating FMS Doc. to the TASK MANAGER","O","")
41 . QUIT
42Q3 D YN^PRC0A(.X,.Y,"Ready to run the selected option '"_PRCOPT_"'","O","NO")
43 G:X["^"!(X="")!(Y<1) EXIT
44 I PRCOPT=1 D ^PRC5INST G Q1:$G(PRC5INST),EXIT
45 I PRCOPT=2 D EN2^PRC5B G EXIT
46 I PRCOPT=3 D EN3^PRC5B G EXIT
47 I PRCOPT=4 D EN4^PRC5B
48EXIT ;
49 QUIT
50 ;
51 ;prca=package name .01 in file 9.4, prcb=fix value .01 in file 420.92
52IVER(PRCA,PRCB) ;get initial version #
53 N A
54 S A="",PRCRI(420.92)=$O(^PRCU(420.92,"B",PRCB,0)) I PRCRI(420.92) D
55 . S A=$P(^PRCU(420.92,PRCRI(420.92),0),"^",2)
56 . QUIT
57 I A="" S PRCRI(9.4)=$O(^DIC(9.4,"B",PRCA,0)) I PRCRI(9.4) D
58 . S A=$P(^DIC(9.4,PRCRI(9.4),"VERSION"),"^",1)
59 . QUIT
60 QUIT +A
Note: See TracBrowser for help on using the repository browser.