source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XIPENV.m@ 623

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

initial load of WorldVistAEHR

File size: 4.5 KB
Line 
1XIPENV ;ALB/BRM,OIFO/SO - STANDARD ENVIRONMENT CHK FOR XIP PACKAGE;12:02 PM 8 Jul 2003
2 ;;8.0;KERNEL;**292**;Jul 10, 1995
3 ;
4 ; This routine is executed from the top for the environment check
5 ; portion of the install.
6ENVCHK ; Environment check to ensure the STATE file has all of the
7 ; necessary entries to properly point the 5.12 and 5.13 files to
8 ; the appropriate entry.
9 ;
10 N TAG,DATA,SFIPS,ST,STATE,FIXST,OLDST,IEN5,DISPTXT
11STCHK ; Check STATE(#5) for problems
12 F TAG=1:1 Q:TAG=99999 I $T(@TAG)]"" D
13 .S DATA=$P($T(@TAG),";;",2),ST=$P(DATA,"^",2)
14 .S STATE=$P(DATA,"^"),SFIPS=$P(DATA,"^",3)
15 .S IEN5=$O(^DIC(5,"C",ST,""))
16 .S:'IEN5 IEN5=$O(^DIC(5,"B",STATE,""))
17 .S:'IEN5 IEN5=$O(^DIC(5,"C",SFIPS,""))
18 .Q:$P($G(^DIC(5,+IEN5,0)),"^",1,3)=DATA
19 .S OLDSTATE=$P($G(^DIC(5,+IEN5,0)),"^",2) S:OLDSTATE="" OLDSTATE=0_"^"_ST
20 .S FIXST(ST)=DATA,OLDST(OLDSTATE)=$P($G(^DIC(5,+IEN5,0)),"^",1,3)
21 I '$D(FIXST) D MES^XPDUTL(" Your STATE(#5) file is fine.") Q
22 S XPDQUIT=2
23 D BMES^XPDUTL(" ******************************************************************")
24 D MES^XPDUTL(" The following State file (#5) entries are missing or need editing.")
25 D MES^XPDUTL(" If you uncomfortable using the instructions in the patch to make the")
26 D MES^XPDUTL(" corrections, please log a NOIS for assistance in resolving this issue.")
27 D BMES^XPDUTL(" ******************************************************************")
28 D BMES^XPDUTL(" Your site shows the following:")
29 D MES^XPDUTL(" ABBREVIATION VA STATE CODE STATE NAME")
30 D MES^XPDUTL(" ------------ ------------- ----------")
31 S ST="" F S ST=$O(OLDST(ST)) Q:ST="" D
32 .S DISPTXT=" "_$J($P(OLDST(ST),"^",2),7)_" "_$J($P(OLDST(ST),"^",3),7)_" "_$P(OLDST(ST),"^")
33 .D MES^XPDUTL(DISPTXT)
34 D BMES^XPDUTL(" The below entries should be added and/or corrected as follows:")
35 D MES^XPDUTL(" ABBREVIATION VA STATE CODE STATE NAME")
36 D MES^XPDUTL(" ------------ ------------- ----------")
37 S ST="" F S ST=$O(FIXST(ST)) Q:ST="" D
38 .D MES^XPDUTL(" "_$J($P(FIXST(ST),"^",2),7)_" "_$J($P(FIXST(ST),"^",3),7)_" "_$P(FIXST(ST),"^"))
39 ;
40PTCHK ; Check 5.12 & 5.13 for unknown "PT" nodes
41 ; IA# 4136
42 I $D(^DD(5.12,0,"PT")) D
43 . N FILE
44 . S FILE=0
45 . F S FILE=$O(^DD(5.12,0,"PT",FILE)) Q:'FILE D
46 .. N FIELD
47 .. S FIELD=0
48 .. F S FIELD=$O(^DD(5.12,0,"PT",FILE,FIELD)) Q:'FIELD D
49 ... N X
50 ... S X=" File #: "_FILE_" Field #: "_FIELD_" is Pointing To File # 5.12. Please remove this dependency!"
51 ... D MES^XPDUTL(X) S XPDQUIT=1
52 ;
53 ; IA# 4137
54 N FILE
55 S FILE=0
56 F S FILE=$O(^DD(5.13,0,"PT",FILE)) Q:'FILE I FILE'=5.12 D
57 . N FIELD
58 . S FIELD=0
59 . F S FIELD=$O(^DD(5.13,0,"PT",FILE,FIELD)) Q:'FIELD D
60 .. N X
61 .. S X=" File #: "_FILE_" Field #: "_FIELD_" is Pointing To File # 5.13. Please remove this dependency!"
62 .. D MES^XPDUTL(X) S XPDQUIT=2
63 I '$D(XPDQUIT) D
64 . N X
65 . S X="Your STATE(#5) file is fine. No unknown ""PT"" where found. Continuing the installation."
66 . D MES^XPDUTL(X)
67 ;
68 ; End of Envirment Check
69 Q
70 ;
71 ; **** Below Data is used to validate state file - do not modify ****
72 ; The '^' pieces are as follows:
73 ; $P(#1)=NAME, $P(#2)=ABBV, and $P(#3)=VA STATE CODE
741 ;;ALABAMA^AL^01
752 ;;ALASKA^AK^02
764 ;;ARIZONA^AZ^04
775 ;;ARKANSAS^AR^05
786 ;;CALIFORNIA^CA^06
798 ;;COLORADO^CO^08
809 ;;CONNECTICUT^CT^09
8110 ;;DELAWARE^DE^10
8211 ;;DISTRICT OF COLUMBIA^DC^11
8312 ;;FLORIDA^FL^12
8413 ;;GEORGIA^GA^13
8515 ;;HAWAII^HI^15
8616 ;;IDAHO^ID^16
8717 ;;ILLINOIS^IL^17
8818 ;;INDIANA^IN^18
8919 ;;IOWA^IA^19
9020 ;;KANSAS^KS^20
9121 ;;KENTUCKY^KY^21
9222 ;;LOUISIANA^LA^22
9323 ;;MAINE^ME^23
9424 ;;MARYLAND^MD^24
9525 ;;MASSACHUSETTS^MA^25
9626 ;;MICHIGAN^MI^26
9727 ;;MINNESOTA^MN^27
9828 ;;MISSISSIPPI^MS^28
9929 ;;MISSOURI^MO^29
10030 ;;MONTANA^MT^30
10131 ;;NEBRASKA^NE^31
10232 ;;NEVADA^NV^32
10333 ;;NEW HAMPSHIRE^NH^33
10434 ;;NEW JERSEY^NJ^34
10535 ;;NEW MEXICO^NM^35
10636 ;;NEW YORK^NY^36
10737 ;;NORTH CAROLINA^NC^37
10838 ;;NORTH DAKOTA^ND^38
10939 ;;OHIO^OH^39
11040 ;;OKLAHOMA^OK^40
11141 ;;OREGON^OR^41
11242 ;;PENNSYLVANIA^PA^42
11344 ;;RHODE ISLAND^RI^44
11445 ;;SOUTH CAROLINA^SC^45
11546 ;;SOUTH DAKOTA^SD^46
11647 ;;TENNESSEE^TN^47
11748 ;;TEXAS^TX^48
11849 ;;UTAH^UT^49
11950 ;;VERMONT^VT^50
12051 ;;VIRGINIA^VA^51
12153 ;;WASHINGTON^WA^53
12254 ;;WEST VIRGINIA^WV^54
12355 ;;WISCONSIN^WI^55
12456 ;;WYOMING^WY^56
12560 ;;AMERICAN SAMOA^AS^60
12664 ;;FEDERATED STATES OF MICRONESIA^FM^64
12766 ;;GUAM^GU^66
12868 ;;MARSHALL ISLANDS^MH^68
12969 ;;NORTHERN MARIANA ISLANDS^MP^69
13070 ;;PALAU^PW^70
13172 ;;PUERTO RICO^PR^72
13278 ;;VIRGIN ISLANDS^VI^78
13385 ;;ARMED FORCES AMER (EXC CANADA)^AA^85
13487 ;;ARMED FORCES AF,EU,ME,CA^AE^87
13588 ;;ARMED FORCES PACIFIC^AP^88
13699999 ;;LAST LINE
Note: See TracBrowser for help on using the repository browser.