| [613] | 1 | XU8P246 ;ALB/BRM - XU*8*246 ENVIRONMENT CHK AND PREINSTALL ; 11/22/02 8:28am
|
|---|
| 2 | ;;8.0;KERNEL;**246**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine is executed from the top for the environment check
|
|---|
| 5 | ; portion of the install. The PRE tag is not executed as part of the
|
|---|
| 6 | ; ENVCHK process.
|
|---|
| 7 | ;
|
|---|
| 8 | ENVCHK ; Environment check to ensure the^DD(5.12,0,"UP") node does
|
|---|
| 9 | ; not exist prior to installation. This node was found to have
|
|---|
| 10 | ; been defined in one of our test accounts. The following check
|
|---|
| 11 | ; is covered by DBIA#3518.
|
|---|
| 12 | ;
|
|---|
| 13 | ; ensure that the ^XIP global has been initialized
|
|---|
| 14 | I '$D(^XIP) D Q
|
|---|
| 15 | .D BMES^XPDUTL(" *******************************************************")
|
|---|
| 16 | .D MES^XPDUTL(" WARNING: ^XIP global not initialized!")
|
|---|
| 17 | .D BMES^XPDUTL(" Please see the Pre-installation Instructions in the")
|
|---|
| 18 | .D MES^XPDUTL(" patch description for initialization instructions.")
|
|---|
| 19 | .D BMES^XPDUTL(" >>>> Installation aborted <<<<")
|
|---|
| 20 | .D BMES^XPDUTL(" *******************************************************")
|
|---|
| 21 | .S XPDQUIT=2 ;terminate installation.
|
|---|
| 22 | ;
|
|---|
| 23 | ; check for UP node in the DD file
|
|---|
| 24 | Q:'$D(^DD(5.12,0,"UP"))
|
|---|
| 25 | D BMES^XPDUTL(" *******************************************************")
|
|---|
| 26 | D MES^XPDUTL(" Invalid Data Dictionary entry for file #5.12!")
|
|---|
| 27 | D BMES^XPDUTL(" Please contact NVS for assistance.")
|
|---|
| 28 | D BMES^XPDUTL(" >>>> Installation aborted <<<<")
|
|---|
| 29 | D BMES^XPDUTL(" *******************************************************")
|
|---|
| 30 | S XPDQUIT=2 ;terminate installation.
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | PRE ; The PRE tag is meant to be run as a pre-install to
|
|---|
| 34 | ; patch XU*8*246. It will add several missing county
|
|---|
| 35 | ; codes to the county sub-file within the state (#5) file.
|
|---|
| 36 | ; The following counties will be added:
|
|---|
| 37 | ;
|
|---|
| 38 | ; STATE IEN COUNTY NAME COUNTY CODE
|
|---|
| 39 | ; MO 29 St Louis City 510
|
|---|
| 40 | ; NM 35 San Miguel 047
|
|---|
| 41 | ; VA 51 Manassas City 683
|
|---|
| 42 | ; VA 51 Manassas Park 685
|
|---|
| 43 | ; VA 51 Poquoson City 735
|
|---|
| 44 | ; AK 2 Skagway Yakutat Ango 231
|
|---|
| 45 | ; AZ 4 La Paz 012
|
|---|
| 46 | ;
|
|---|
| 47 | N FDA,TAG,CNTYDAT,CNTYNAM,CNTYCOD,ST,MSG,ERRMSG,DIERR
|
|---|
| 48 | D BMES^XPDUTL("*** Adding missing counties to the State file ***")
|
|---|
| 49 | F TAG="AK","AZ","MO","NM","VA1","VA2","VA3" D
|
|---|
| 50 | .S ST=$E(TAG,1,2)
|
|---|
| 51 | .S CNTYDAT=$P($T(@TAG),";;",2)
|
|---|
| 52 | .S CNTYNAM=$P(CNTYDAT,"^"),CNTYCOD=$P(CNTYDAT,"^",2)
|
|---|
| 53 | .S MSG="**ERROR: Missing or Corrupt State: "_ST_". This process could not add "_CNTYNAM
|
|---|
| 54 | .I '$D(^DIC(5,"C",ST)) D BMES^XPDUTL(MSG) Q
|
|---|
| 55 | .S IEN5=$O(^DIC(5,"C",ST,""))
|
|---|
| 56 | .I '+IEN5!'$D(^DIC(5,IEN5,1)) D BMES^XPDUTL(MSG) Q
|
|---|
| 57 | .I $D(^DIC(5,IEN5,1,"C",CNTYCOD)) D BMES^XPDUTL(CNTYNAM_", "_ST_" already exists - no action taken.") Q
|
|---|
| 58 | .S FDA(5.01,"+1,"_IEN5_",",.01)=CNTYNAM
|
|---|
| 59 | .S FDA(5.01,"+1,"_IEN5_",",2)=CNTYCOD
|
|---|
| 60 | .D UPDATE^DIE("","FDA","","ERRMSG")
|
|---|
| 61 | .I $D(ERRMSG) D BMES^XPDUTL("**ERROR: "_CNTYNAM_", "_ST_" was not added.") K ERRMSG,DIERR,CNTYDAT,CNTYNAM,IEN5 Q
|
|---|
| 62 | .D BMES^XPDUTL(CNTYNAM_", "_ST_" was added successfully.")
|
|---|
| 63 | .K CNTYDAT,CNTYNAM,IEN5
|
|---|
| 64 | Q
|
|---|
| 65 | ; pre-install data fields - DO NOT REMOVE!
|
|---|
| 66 | AK ;;SKAGWAY YAKUTAT ANGO^231
|
|---|
| 67 | AZ ;;LA PAZ^012
|
|---|
| 68 | MO ;;ST LOUIS CITY^510
|
|---|
| 69 | NM ;;SAN MIGUEL^047
|
|---|
| 70 | VA1 ;;MANASSAS CITY^683
|
|---|
| 71 | VA2 ;;MANASSAS PARK^685
|
|---|
| 72 | VA3 ;;POQUOSON CITY^735
|
|---|
