XU8P307.m

XU8P307 ;OIFO/SO,ALB/BRM-STATE FILE CLEANUP AND ADDITIONS ;5:33 AM  18 Jun 2003

 ;;8.0;KERNEL;**307**;Jul 10, 1995

ENVCHK ; Environment check to ensure the STATE file has all of the

 ; necessary entries to properly point the 5.12 and 5.13 files to

 ; the appropriate entry.

 ;

 N TAG,DATA,SFIPS,ST,STATE,FIXST,OLDST,IEN5,DISPTXT

 F TAG=1:1 Q:TAG=99999  I $T(@TAG)]"" D

 .S DATA=$P($T(@TAG),";;",2),ST=$P(DATA,"^",2)

 .S STATE=$P(DATA,"^"),SFIPS=$P(DATA,"^",3)

 .S IEN5=$O(^DIC(5,"C",ST,""))

 .S:'IEN5 IEN5=$O(^DIC(5,"B",STATE,""))

 .S:'IEN5 IEN5=$O(^DIC(5,"C",SFIPS,""))

 .Q:$P($G(^DIC(5,+IEN5,0)),"^",1,3)=DATA

 .S OLDSTATE=$P($G(^DIC(5,+IEN5,0)),"^",2) S:OLDSTATE="" OLDSTATE=0_"^"_ST

 .S FIXST(ST)=DATA,OLDST(OLDSTATE)=$P($G(^DIC(5,+IEN5,0)),"^",1,3)

 I '$D(FIXST) D MES^XPDUTL("  Your STATE(#5) file is fine.") Q

 D BMES^XPDUTL("  ******************************************************************")

 D MES^XPDUTL("    The following State file (#5) entries are missing or need editing.")

 D MES^XPDUTL("    If you uncomfortable using the instructions in the patch to make the")

 D MES^XPDUTL("    corrections, please log a NOIS for assistance in resolving this issue.")

 D BMES^XPDUTL("  ******************************************************************")

 D BMES^XPDUTL("  Your site shows the following:")

 D MES^XPDUTL("      ABBREVIATION    VA STATE CODE    STATE NAME")

 D MES^XPDUTL("      ------------    -------------    ----------")

 S ST="" F  S ST=$O(OLDST(ST)) Q:ST=""  D

 .S DISPTXT="      "_$J($P(OLDST(ST),"^",2),7)_"         "_$J($P(OLDST(ST),"^",3),7)_"          "_$P(OLDST(ST),"^")

 .D MES^XPDUTL(DISPTXT)

 D BMES^XPDUTL("  The below entries should be added and/or corrected as follows:")

 D MES^XPDUTL("      ABBREVIATION    VA STATE CODE    STATE NAME")

 D MES^XPDUTL("      ------------    -------------    ----------")

 S ST="" F  S ST=$O(FIXST(ST)) Q:ST=""  D

 .D MES^XPDUTL("      "_$J($P(FIXST(ST),"^",2),7)_"         "_$J($P(FIXST(ST),"^",3),7)_"          "_$P(FIXST(ST),"^"))

 ;

 Q

 ;

 ; **** Below Data is used to validate state file - do not modify ****

 ; The '^' pieces are as follows:

 ; $P(#1)=NAME, $P(#2)=ABBV, and $P(#3)=VA STATE CODE

1 ;;ALABAMA^AL^01

2 ;;ALASKA^AK^02

4 ;;ARIZONA^AZ^04

5 ;;ARKANSAS^AR^05

6 ;;CALIFORNIA^CA^06

8 ;;COLORADO^CO^08

9 ;;CONNECTICUT^CT^09

10 ;;DELAWARE^DE^10

11 ;;DISTRICT OF COLUMBIA^DC^11

12 ;;FLORIDA^FL^12

13 ;;GEORGIA^GA^13

15 ;;HAWAII^HI^15

16 ;;IDAHO^ID^16

17 ;;ILLINOIS^IL^17

18 ;;INDIANA^IN^18

19 ;;IOWA^IA^19

20 ;;KANSAS^KS^20

21 ;;KENTUCKY^KY^21

22 ;;LOUISIANA^LA^22

23 ;;MAINE^ME^23

24 ;;MARYLAND^MD^24

25 ;;MASSACHUSETTS^MA^25

26 ;;MICHIGAN^MI^26

27 ;;MINNESOTA^MN^27

28 ;;MISSISSIPPI^MS^28

29 ;;MISSOURI^MO^29

30 ;;MONTANA^MT^30

31 ;;NEBRASKA^NE^31

32 ;;NEVADA^NV^32

33 ;;NEW HAMPSHIRE^NH^33

34 ;;NEW JERSEY^NJ^34

35 ;;NEW MEXICO^NM^35

36 ;;NEW YORK^NY^36

37 ;;NORTH CAROLINA^NC^37

38 ;;NORTH DAKOTA^ND^38

39 ;;OHIO^OH^39

40 ;;OKLAHOMA^OK^40

41 ;;OREGON^OR^41

42 ;;PENNSYLVANIA^PA^42

44 ;;RHODE ISLAND^RI^44

45 ;;SOUTH CAROLINA^SC^45

46 ;;SOUTH DAKOTA^SD^46

47 ;;TENNESSEE^TN^47

48 ;;TEXAS^TX^48

49 ;;UTAH^UT^49

50 ;;VERMONT^VT^50

51 ;;VIRGINIA^VA^51

53 ;;WASHINGTON^WA^53

54 ;;WEST VIRGINIA^WV^54

55 ;;WISCONSIN^WI^55

56 ;;WYOMING^WY^56

60 ;;AMERICAN SAMOA^AS^60

64 ;;FEDERATED STATES OF MICRONESIA^FM^64

66 ;;GUAM^GU^66

68 ;;MARSHALL ISLANDS^MH^68

69 ;;NORTHERN MARIANA ISLANDS^MP^69

70 ;;PALAU^PW^70

72 ;;PUERTO RICO^PR^72

78 ;;VIRGIN ISLANDS^VI^78

85 ;;ARMED FORCES AMER (EXC CANADA)^AA^85

87 ;;ARMED FORCES AF,EU,ME,CA^AE^87

88 ;;ARMED FORCES PACIFIC^AP^88

99999 ;;LAST LINE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P307   3666     printed  Mar 13, 2025@21:12:02                                                                                                                                                                                                     Page 2

XU8P307   ;OIFO/SO,ALB/BRM-STATE FILE CLEANUP AND ADDITIONS ;5:33 AM  18 Jun 2003

 +1       ;;8.0;KERNEL;**307**;Jul 10, 1995

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

 +2       ; the appropriate entry.

 +3       ;

 +4        NEW TAG,DATA,SFIPS,ST,STATE,FIXST,OLDST,IEN5,DISPTXT

 +5        FOR TAG=1:1

               if TAG=99999

                   QUIT 

               IF $TEXT(@TAG)]""

                   Begin DoDot:1

 +6                    SET DATA=$PIECE($TEXT(@TAG),";;",2)

                       SET ST=$PIECE(DATA,"^",2)

 +7                    SET STATE=$PIECE(DATA,"^")

                       SET SFIPS=$PIECE(DATA,"^",3)

 +8                    SET IEN5=$ORDER(^DIC(5,"C",ST,""))

 +9                    if 'IEN5

                           SET IEN5=$ORDER(^DIC(5,"B",STATE,""))

 +10                   if 'IEN5

                           SET IEN5=$ORDER(^DIC(5,"C",SFIPS,""))

 +11                   if $PIECE($GET(^DIC(5,+IEN5,0)),"^",1,3)=DATA

                           QUIT 

 +12                   SET OLDSTATE=$PIECE($GET(^DIC(5,+IEN5,0)),"^",2)

                       if OLDSTATE=""

                           SET OLDSTATE=0_"^"_ST

 +13                   SET FIXST(ST)=DATA

                       SET OLDST(OLDSTATE)=$PIECE($GET(^DIC(5,+IEN5,0)),"^",1,3)

                   End DoDot:1

 +14       IF '$DATA(FIXST)

               DO MES^XPDUTL("  Your STATE(#5) file is fine.")

               QUIT 

 +15       DO BMES^XPDUTL("  ******************************************************************")

 +16       DO MES^XPDUTL("    The following State file (#5) entries are missing or need editing.")

 +17       DO MES^XPDUTL("    If you uncomfortable using the instructions in the patch to make the")

 +18       DO MES^XPDUTL("    corrections, please log a NOIS for assistance in resolving this issue.")

 +19       DO BMES^XPDUTL("  ******************************************************************")

 +20       DO BMES^XPDUTL("  Your site shows the following:")

 +21       DO MES^XPDUTL("      ABBREVIATION    VA STATE CODE    STATE NAME")

 +22       DO MES^XPDUTL("      ------------    -------------    ----------")

 +23       SET ST=""

           FOR 

               SET ST=$ORDER(OLDST(ST))

               if ST=""

                   QUIT 

               Begin DoDot:1

 +24               SET DISPTXT="      "_$JUSTIFY($PIECE(OLDST(ST),"^",2),7)_"         "_$JUSTIFY($PIECE(OLDST(ST),"^",3),7)_"          "_$PIECE(OLDST(ST),"^")

 +25               DO MES^XPDUTL(DISPTXT)

               End DoDot:1

 +26       DO BMES^XPDUTL("  The below entries should be added and/or corrected as follows:")

 +27       DO MES^XPDUTL("      ABBREVIATION    VA STATE CODE    STATE NAME")

 +28       DO MES^XPDUTL("      ------------    -------------    ----------")

 +29       SET ST=""

           FOR 

               SET ST=$ORDER(FIXST(ST))

               if ST=""

                   QUIT 

               Begin DoDot:1

 +30               DO MES^XPDUTL("      "_$JUSTIFY($PIECE(FIXST(ST),"^",2),7)_"         "_$JUSTIFY($PIECE(FIXST(ST),"^",3),7)_"          "_$PIECE(FIXST(ST),"^"))

               End DoDot:1

 +31      ;

 +32       QUIT 

 +33      ;

 +34      ; **** Below Data is used to validate state file - do not modify ****

 +35      ; The '^' pieces are as follows:

 +36      ; $P(#1)=NAME, $P(#2)=ABBV, and $P(#3)=VA STATE CODE

1         ;;ALABAMA^AL^01

2         ;;ALASKA^AK^02

4         ;;ARIZONA^AZ^04

5         ;;ARKANSAS^AR^05

6         ;;CALIFORNIA^CA^06

8         ;;COLORADO^CO^08

9         ;;CONNECTICUT^CT^09

10        ;;DELAWARE^DE^10

11        ;;DISTRICT OF COLUMBIA^DC^11

12        ;;FLORIDA^FL^12

13        ;;GEORGIA^GA^13

15        ;;HAWAII^HI^15

16        ;;IDAHO^ID^16

17        ;;ILLINOIS^IL^17

18        ;;INDIANA^IN^18

19        ;;IOWA^IA^19

20        ;;KANSAS^KS^20

21        ;;KENTUCKY^KY^21

22        ;;LOUISIANA^LA^22

23        ;;MAINE^ME^23

24        ;;MARYLAND^MD^24

25        ;;MASSACHUSETTS^MA^25

26        ;;MICHIGAN^MI^26

27        ;;MINNESOTA^MN^27

28        ;;MISSISSIPPI^MS^28

29        ;;MISSOURI^MO^29

30        ;;MONTANA^MT^30

31        ;;NEBRASKA^NE^31

32        ;;NEVADA^NV^32

33        ;;NEW HAMPSHIRE^NH^33

34        ;;NEW JERSEY^NJ^34

35        ;;NEW MEXICO^NM^35

36        ;;NEW YORK^NY^36

37        ;;NORTH CAROLINA^NC^37

38        ;;NORTH DAKOTA^ND^38

39        ;;OHIO^OH^39

40        ;;OKLAHOMA^OK^40

41        ;;OREGON^OR^41

42        ;;PENNSYLVANIA^PA^42

44        ;;RHODE ISLAND^RI^44

45        ;;SOUTH CAROLINA^SC^45

46        ;;SOUTH DAKOTA^SD^46

47        ;;TENNESSEE^TN^47

48        ;;TEXAS^TX^48

49        ;;UTAH^UT^49

50        ;;VERMONT^VT^50

51        ;;VIRGINIA^VA^51

53        ;;WASHINGTON^WA^53

54        ;;WEST VIRGINIA^WV^54

55        ;;WISCONSIN^WI^55

56        ;;WYOMING^WY^56

60        ;;AMERICAN SAMOA^AS^60

64        ;;FEDERATED STATES OF MICRONESIA^FM^64

66        ;;GUAM^GU^66

68        ;;MARSHALL ISLANDS^MH^68

69        ;;NORTHERN MARIANA ISLANDS^MP^69

70        ;;PALAU^PW^70

72        ;;PUERTO RICO^PR^72

78        ;;VIRGIN ISLANDS^VI^78

85        ;;ARMED FORCES AMER (EXC CANADA)^AA^85

87        ;;ARMED FORCES AF,EU,ME,CA^AE^87

88        ;;ARMED FORCES PACIFIC^AP^88

99999     ;;LAST LINE