| 1 | XIPENV ;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.
|
|---|
| 6 | ENVCHK ; 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
|
|---|
| 11 | STCHK ; 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 | ;
|
|---|
| 40 | PTCHK ; 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
|
|---|
| 74 | 1 ;;ALABAMA^AL^01
|
|---|
| 75 | 2 ;;ALASKA^AK^02
|
|---|
| 76 | 4 ;;ARIZONA^AZ^04
|
|---|
| 77 | 5 ;;ARKANSAS^AR^05
|
|---|
| 78 | 6 ;;CALIFORNIA^CA^06
|
|---|
| 79 | 8 ;;COLORADO^CO^08
|
|---|
| 80 | 9 ;;CONNECTICUT^CT^09
|
|---|
| 81 | 10 ;;DELAWARE^DE^10
|
|---|
| 82 | 11 ;;DISTRICT OF COLUMBIA^DC^11
|
|---|
| 83 | 12 ;;FLORIDA^FL^12
|
|---|
| 84 | 13 ;;GEORGIA^GA^13
|
|---|
| 85 | 15 ;;HAWAII^HI^15
|
|---|
| 86 | 16 ;;IDAHO^ID^16
|
|---|
| 87 | 17 ;;ILLINOIS^IL^17
|
|---|
| 88 | 18 ;;INDIANA^IN^18
|
|---|
| 89 | 19 ;;IOWA^IA^19
|
|---|
| 90 | 20 ;;KANSAS^KS^20
|
|---|
| 91 | 21 ;;KENTUCKY^KY^21
|
|---|
| 92 | 22 ;;LOUISIANA^LA^22
|
|---|
| 93 | 23 ;;MAINE^ME^23
|
|---|
| 94 | 24 ;;MARYLAND^MD^24
|
|---|
| 95 | 25 ;;MASSACHUSETTS^MA^25
|
|---|
| 96 | 26 ;;MICHIGAN^MI^26
|
|---|
| 97 | 27 ;;MINNESOTA^MN^27
|
|---|
| 98 | 28 ;;MISSISSIPPI^MS^28
|
|---|
| 99 | 29 ;;MISSOURI^MO^29
|
|---|
| 100 | 30 ;;MONTANA^MT^30
|
|---|
| 101 | 31 ;;NEBRASKA^NE^31
|
|---|
| 102 | 32 ;;NEVADA^NV^32
|
|---|
| 103 | 33 ;;NEW HAMPSHIRE^NH^33
|
|---|
| 104 | 34 ;;NEW JERSEY^NJ^34
|
|---|
| 105 | 35 ;;NEW MEXICO^NM^35
|
|---|
| 106 | 36 ;;NEW YORK^NY^36
|
|---|
| 107 | 37 ;;NORTH CAROLINA^NC^37
|
|---|
| 108 | 38 ;;NORTH DAKOTA^ND^38
|
|---|
| 109 | 39 ;;OHIO^OH^39
|
|---|
| 110 | 40 ;;OKLAHOMA^OK^40
|
|---|
| 111 | 41 ;;OREGON^OR^41
|
|---|
| 112 | 42 ;;PENNSYLVANIA^PA^42
|
|---|
| 113 | 44 ;;RHODE ISLAND^RI^44
|
|---|
| 114 | 45 ;;SOUTH CAROLINA^SC^45
|
|---|
| 115 | 46 ;;SOUTH DAKOTA^SD^46
|
|---|
| 116 | 47 ;;TENNESSEE^TN^47
|
|---|
| 117 | 48 ;;TEXAS^TX^48
|
|---|
| 118 | 49 ;;UTAH^UT^49
|
|---|
| 119 | 50 ;;VERMONT^VT^50
|
|---|
| 120 | 51 ;;VIRGINIA^VA^51
|
|---|
| 121 | 53 ;;WASHINGTON^WA^53
|
|---|
| 122 | 54 ;;WEST VIRGINIA^WV^54
|
|---|
| 123 | 55 ;;WISCONSIN^WI^55
|
|---|
| 124 | 56 ;;WYOMING^WY^56
|
|---|
| 125 | 60 ;;AMERICAN SAMOA^AS^60
|
|---|
| 126 | 64 ;;FEDERATED STATES OF MICRONESIA^FM^64
|
|---|
| 127 | 66 ;;GUAM^GU^66
|
|---|
| 128 | 68 ;;MARSHALL ISLANDS^MH^68
|
|---|
| 129 | 69 ;;NORTHERN MARIANA ISLANDS^MP^69
|
|---|
| 130 | 70 ;;PALAU^PW^70
|
|---|
| 131 | 72 ;;PUERTO RICO^PR^72
|
|---|
| 132 | 78 ;;VIRGIN ISLANDS^VI^78
|
|---|
| 133 | 85 ;;ARMED FORCES AMER (EXC CANADA)^AA^85
|
|---|
| 134 | 87 ;;ARMED FORCES AF,EU,ME,CA^AE^87
|
|---|
| 135 | 88 ;;ARMED FORCES PACIFIC^AP^88
|
|---|
| 136 | 99999 ;;LAST LINE
|
|---|
