Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XIPENV

XIPENV.m

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