source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCH69EN.m@ 724

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

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1PRCH69EN ;WISC/DJM-PATCH 69 ENVIRONMENT CHECK ; [9/28/98 11:46am]
2V ;;5.0;IFCAP;**69**;4/21/95
3 ;
4START ; This is the Environment Check routine for patch 69. This routine
5 ; will check file 440 for any NAME field that contains only leading
6 ; stars or leading spaces before any other character or contains
7 ; nothing (the field has no data).
8 ;
9 ; First, stop if this is not the KIDS Install Package(s) option.
10 ;
11 Q:XPDENV'=1
12 N A,FLAG,MSG,X,X1,X1C
13 S FLAG=0
14 S X=0
15 F S X=$O(^PRC(440,X)) Q:X'>0 D
16 . S A=$P($G(^PRC(440,X,0)),"^",1)
17 . ; Remove all stars (*) and leading spaces (' ').
18 . F D Q:'(X1C=32!(X1C=42))
19 . . S X1=$E(A,1)
20 . . S X1C=$A(X1)
21 . . I X1C=32!(X1C=42) S A=$E(A,2,99)
22 . . Q
23 . I A="" D
24 . . W !,X
25 . . S FLAG=FLAG+1
26 . . Q
27 . Q
28 Q:FLAG=0
29 ;
30 ; Now that we have some bad records lets tell the patch installer
31 ; what to do with them.
32 ;
33 F I=1:1 S LINE=$P($T(MSG+I),";;",2) Q:LINE="~~" S LINE="W !,"_LINE X LINE
34 ;
35 ; Now lets exit and prevent the patch installer from proceeding.
36 ;
37 S XPDQUIT=2
38 Q
39 ;
40MSG ;;
41 ;;" "
42 ;;"The preceding "_$S(FLAG=1:"number is an ",1:"numbers are ")_"Internal Entry Number"_$S(FLAG=1:" ",1:"s ")_"in the VENDOR file (#440)."
43 ;;"The NAME, .01, field has only '*'s or ' 's or is missing from "_$S(FLAG=1:"the record ",1:"all records ")
44 ;;"listed above. Please correct or remove "_$S(FLAG=1:"the entry ",1:"those entries ")_"before restarting the"
45 ;;"install of patch PRC*5*69 again."
46 ;;" "
47 ;;"This environment check will look at the Vendor file (#440)."
48 ;;"The following conditions will be checked at the beginning of"
49 ;;"this patch:"
50 ;;" "
51 ;;"1. Each Vendor NAME (the .01 field) must contain valid characters"
52 ;;" (beyond leading asterisks (*) and/or spaces)."
53 ;;"2. If the Vendor record being checked in step 1 fails the check,"
54 ;;" the internal record number will be displayed."
55 ;;"3. After all Vendor records are checked, if bad records are"
56 ;;" detected this text will be displayed."
57 ;;" "
58 ;;"The following steps may be taken to correct the bad Vendor records:"
59 ;;" "
60 ;;"1. Some records may be incomplete. You will need to view"
61 ;;" them using the utility ^%G while in programmer mode."
62 ;;" These records do not appear under the FileMan Inquire option"
63 ;;"2. Use the FileMan Search option to see if the vendor record you are"
64 ;;" checking is used in file #410, #441 or #442. If the vendor record"
65 ;;" is in any of these files you must repair the record in the"
66 ;;" Vendor file (#440) by editing the NAME field (.01)."
67 ;;"3. If the vendor record is not found in step 2 above then you should"
68 ;;" remove it from the Vendor file. Since the record is not"
69 ;;" complete you need to remove it in the programmer mode."
70 ;;" Use the following line of M code to remove the record:"
71 ;;" "
72 ;;" K ^PRC(440,IEN)"
73 ;;" "
74 ;;" Substitute the Internal Entry Number of the record from the"
75 ;;" list that you are working with for the IEN in the line of code."
76 ;;" Press RETURN <CR> after entering the line of code."
77 ;;"4. Use steps 1-3 to correct or remove each Vendor record listed."
78 ;;"5. Once all the records listed are corrected you need to"
79 ;;" continue with the patch installation:"
80 ;;" "
81 ;;" A. Enter KIDS (Kernel Installation & Distribution System)"
82 ;;" B. Select Installation..."
83 ;;" C. Choose the Install Package(s) choice"
84 ;;" "
85 ;;" Now the patch will start again. The Environment Check will"
86 ;;" run again. This will verify that all the Vendor records found"
87 ;;" in the previous run have been either corrected or removed."
88 ;;" "
89 ;;" If all Vendor file records pass the environment check, the patch"
90 ;;" will continue on with the install."
91 ;;~~
Note: See TracBrowser for help on using the repository browser.