ECX359PT ;ALB/JAM/ADL - PATCH ECX*3.0*59 Post-Init Rtn ; 10/03/03
;;3.0;DSS EXTRACTS;**59**;October 3, 2003
;
;Post-init routine to add new entries to:
; NATIONAL CLINIC file (#728.441)
EN ;
;- Add new entry to file 728.441
; ECXREC is in format: code^short description
N ECXFDA,ECXERR,ECXCODE,ECXREC,CNT0,CNT1
D BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
D MES^XPDUTL(" ")
S (CNT0,CNT1,CNT2,CNT3)=0 K ^UTILITY("NATLCODE",$J)
;
D LOADDATA ;B/C of the large number of new codes, they are stored in numerous routines. Load all codes into
; a utility global before adding to database
D PROCESS
D END
Q ;End of loading process
LOADDATA ;Load all new codes into utility global
;
S CNT=1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX359D1),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX359D2),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX359D3),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX359D4),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX359D5),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
Q ;LOADDATA
;
PROCESS ; Get NAT'L CLINIC records from UTL global
S SEQ=""
F S SEQ=$O(^UTILITY("NATLCODE",$J,SEQ)) Q:SEQ="" D
. S ECXREC=^UTILITY("NATLCODE",$J,SEQ)
. S ECXCODE=$P(ECXREC,"^")
.; Quit w/error message if entry already exists
. S CURREC=$$FIND1^DIC(728.441,"","X",ECXCODE)
. I CURREC D Q ;Code already exists, see if it should be updated
. . I $P(ECXREC,U,3) D Q ;Flag signifies that the code desc should be overlaid
. . . S ECXFDA(728.441,CURREC_",",1)=$P(ECXREC,"^",2)
. . . D FILE^DIE("EK","ECXFDA","ECXERR") S CNT3=CNT3+1
. . . D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" UPDATED, entry already exists.")
. . S CNT1=CNT1+1
.; Setup field values of new entry
. S ECXFDA(728.441,"+1,",.01)=ECXCODE
. S ECXFDA(728.441,"+1,",1)=$P(ECXREC,"^",2)
.; Add new entry
. D UPDATE^DIE("E","ECXFDA","","ECXERR")
. I '$D(ECXERR) D Q
. . D BMES^XPDUTL(">>>..."_ECXCODE_" "_$P(ECXREC,U,2)_" added to file.")
. . S CNT0=CNT0+1
. D BMES^XPDUTL(">>>...Unable to add "_ECXCODE_" "_$P(ECXREC,U,2)_" to file.")
. S CNT2=CNT2+1
. K ECXERR ;clean out error array b4 processing next code
;
Q ;FILEONE
END D MES^XPDUTL(" ")
D MES^XPDUTL(" Done... Update to NATIONAL CLINIC File (#728.441).")
D MES^XPDUTL(" "_$J(CNT0,3)_" new entries added.")
D MES^XPDUTL(" "_$J(CNT1,3)_" were not added, already existed.")
D MES^XPDUTL(" "_$J(CNT2,3)_" were not added, unable to add.")
D MES^XPDUTL(" "_$J(CNT3,3)_" already existed and were updated.")
D MES^XPDUTL(" ")
K ^UTILITY("NATLCODE",$J)
K CNT,CNT0,CNT1,CNT2,CNT3,CURREC,ECX,ECXCODE,ECXERR,ECXFDA,ECXREC,ECXX,SEQ
Q
;
NATCLIN ;NAT'L CLINIC entry to add:
;;402A^PROV A V01 402 TOGUS ME
;;402B^PROV B V01 402 TOGUS ME
;;402C^PROV C V01 402 TOGUS ME
;;402D^PROV D V01 402 TOGUS ME
;;402E^PROV E V01 402 TOGUS ME
;;402F^PROV F V01 402 TOGUS ME
;;402G^PROV G V01 402 TOGUS ME
;;402H^PROV H V01 402 TOGUS ME
;;402I^PROV I V01 402 TOGUS ME
;;402J^PROV J V01 402 TOGUS ME
;;402K^PROV K V01 402 TOGUS ME
;;405A^PROV A V01 405 WHITE RIVER JUNCTION VT
;;405B^PROV B V01 405 WHITE RIVER JUNCTION VT
;;405C^PROV C V01 405 WHITE RIVER JUNCTION VT
;;405D^PROV D V01 405 WHITE RIVER JUNCTION VT
;;405E^PROV E V01 405 WHITE RIVER JUNCTION VT
;;405F^PROV F V01 405 WHITE RIVER JUNCTION VT
;;405G^PROV G V01 405 WHITE RIVER JUNCTION VT
;;405H^PROV H V01 405 WHITE RIVER JUNCTION VT
;;405I^PROV I V01 405 WHITE RIVER JUNCTION VT
;;405J^PROV J V01 405 WHITE RIVER JUNCTION VT
;;405K^PROV K V01 405 WHITE RIVER JUNCTION VT
;;436A^PROV A V19 436 FORT HARRISON MT
;;436B^PROV B V19 436 FORT HARRISON MT
;;436C^PROV C V19 436 FORT HARRISON MT
;;436D^PROV D V19 436 FORT HARRISON MT
;;436E^PROV E V19 436 FORT HARRISON MT
;;436F^PROV F V19 436 FORT HARRISON MT
;;436G^PROV G V19 436 FORT HARRISON MT
;;436H^PROV H V19 436 FORT HARRISON MT
;;436I^PROV I V19 436 FORT HARRISON MT
;;436J^PROV J V19 436 FORT HARRISON MT
;;436K^PROV K V19 436 FORT HARRISON MT
;;437A^PROV A V13 437 FARGO ND
;;437B^PROV B V13 437 FARGO ND
;;437C^PROV C V13 437 FARGO ND
;;437D^PROV D V13 437 FARGO ND
;;437E^PROV E V13 437 FARGO ND
;;437F^PROV F V13 437 FARGO ND
;;437G^PROV G V13 437 FARGO ND
;;437H^PROV H V13 437 FARGO ND
;;437I^PROV I V13 437 FARGO ND
;;437J^PROV J V13 437 FARGO ND
;;437K^PROV K V13 437 FARGO ND
;;438A^PROV A V13 438 SIOUX FALLS SD
;;438B^PROV B V13 438 SIOUX FALLS SD
;;438C^PROV C V13 438 SIOUX FALLS SD
;;438D^PROV D V13 438 SIOUX FALLS SD
;;438E^PROV E V13 438 SIOUX FALLS SD
;;438F^PROV F V13 438 SIOUX FALLS SD
;;438G^PROV G V13 438 SIOUX FALLS SD
;;438H^PROV H V13 438 SIOUX FALLS SD
;;438I^PROV I V13 438 SIOUX FALLS SD
;;438J^PROV J V13 438 SIOUX FALLS SD
;;438K^PROV K V13 438 SIOUX FALLS SD
;;442A^PROV A V19 442 CHEYENNE WY
;;442B^PROV B V19 442 CHEYENNE WY
;;442C^PROV C V19 442 CHEYENNE WY
;;442D^PROV D V19 442 CHEYENNE WY
;;442E^PROV E V19 442 CHEYENNE WY
;;442F^PROV F V19 442 CHEYENNE WY
;;442G^PROV G V19 442 CHEYENNE WY
;;442H^PROV H V19 442 CHEYENNE WY
;;442I^PROV I V19 442 CHEYENNE WY
;;442J^PROV J V19 442 CHEYENNE WY
;;442K^PROV K V19 442 CHEYENNE WY
;;459A^PROV A V21 459 HONOLULU HI
;;459B^PROV B V21 459 HONOLULU HI
;;459C^PROV C V21 459 HONOLULU HI
;;459D^PROV D V21 459 HONOLULU HI
;;459E^PROV E V21 459 HONOLULU HI
;;459F^PROV F V21 459 HONOLULU HI
;;459G^PROV G V21 459 HONOLULU HI
;;459H^PROV H V21 459 HONOLULU HI
;;459I^PROV I V21 459 HONOLULU HI
;;459J^PROV J V21 459 HONOLULU HI
;;459K^PROV K V21 459 HONOLULU HI
;;460A^PROV A V04 460 WILMINGTON DE
;;460B^PROV B V04 460 WILMINGTON DE
;;460C^PROV C V04 460 WILMINGTON DE
;;460D^PROV D V04 460 WILMINGTON DE
;;460E^PROV E V04 460 WILMINGTON DE
;;460F^PROV F V04 460 WILMINGTON DE
;;460G^PROV G V04 460 WILMINGTON DE
;;460H^PROV H V04 460 WILMINGTON DE
;;460I^PROV I V04 460 WILMINGTON DE
;;460J^PROV J V04 460 WILMINGTON DE
;;460K^PROV K V04 460 WILMINGTON DE
;;463A^PROV A V20 463 ANCHORAGE AK
;;463B^PROV B V20 463 ANCHORAGE AK
;;463C^PROV C V20 463 ANCHORAGE AK
;;463D^PROV D V20 463 ANCHORAGE AK
;;463E^PROV E V20 463 ANCHORAGE AK
;;463F^PROV F V20 463 ANCHORAGE AK
;;463G^PROV G V20 463 ANCHORAGE AK
;;463H^PROV H V20 463 ANCHORAGE AK
;;463I^PROV I V20 463 ANCHORAGE AK
;;463J^PROV J V20 463 ANCHORAGE AK
;;463K^PROV K V20 463 ANCHORAGE AK
;;502A^PROV A V16 502 ALEXANDRIA LA
;;502B^PROV B V16 502 ALEXANDRIA LA
;;502C^PROV C V16 502 ALEXANDRIA LA
;;502D^PROV D V16 502 ALEXANDRIA LA
;;502E^PROV E V16 502 ALEXANDRIA LA
;;502F^PROV F V16 502 ALEXANDRIA LA
;;502G^PROV G V16 502 ALEXANDRIA LA
;;502H^PROV H V16 502 ALEXANDRIA LA
;;502I^PROV I V16 502 ALEXANDRIA LA
;;502J^PROV J V16 502 ALEXANDRIA LA
;;502K^PROV K V16 502 ALEXANDRIA LA
;;503A^PROV A V04 503 ALTOONA PA
;;503B^PROV B V04 503 ALTOONA PA
;;503C^PROV C V04 503 ALTOONA PA
;;503D^PROV D V04 503 ALTOONA PA
;;503E^PROV E V04 503 ALTOONA PA
;;503F^PROV F V04 503 ALTOONA PA
;;503G^PROV G V04 503 ALTOONA PA
;;503H^PROV H V04 503 ALTOONA PA
;;503I^PROV I V04 503 ALTOONA PA
;;503J^PROV J V04 503 ALTOONA PA
;;503K^PROV K V04 503 ALTOONA PA
;;504A^PROV A V18 504 AMARILLO TX
;;504B^PROV B V18 504 AMARILLO TX
;;504C^PROV C V18 504 AMARILLO TX
;;504D^PROV D V18 504 AMARILLO TX
;;504E^PROV E V18 504 AMARILLO TX
;;504F^PROV F V18 504 AMARILLO TX
;;504G^PROV G V18 504 AMARILLO TX
;;504H^PROV H V18 504 AMARILLO TX
;;504I^PROV I V18 504 AMARILLO TX
;;504J^PROV J V18 504 AMARILLO TX
;;504K^PROV K V18 504 AMARILLO TX
;;506A^PROV A V11 506 ANN ARBOR MI
;;506B^PROV B V11 506 ANN ARBOR MI
;;506C^PROV C V11 506 ANN ARBOR MI
;;506D^PROV D V11 506 ANN ARBOR MI
;;506E^PROV E V11 506 ANN ARBOR MI
;;506F^PROV F V11 506 ANN ARBOR MI
;;506G^PROV G V11 506 ANN ARBOR MI
;;506H^PROV H V11 506 ANN ARBOR MI
;;506I^PROV I V11 506 ANN ARBOR MI
;;506J^PROV J V11 506 ANN ARBOR MI
;;506K^PROV K V11 506 ANN ARBOR MI
;;508A^PROV A V07 508 ATLANTA GA
;;508B^PROV B V07 508 ATLANTA GA
;;508C^PROV C V07 508 ATLANTA GA
;;508D^PROV D V07 508 ATLANTA GA
;;508E^PROV E V07 508 ATLANTA GA
;;508F^PROV F V07 508 ATLANTA GA
;;508G^PROV G V07 508 ATLANTA GA
;;508H^PROV H V07 508 ATLANTA GA
;;508I^PROV I V07 508 ATLANTA GA
;;508J^PROV J V07 508 ATLANTA GA
;;508K^PROV K V07 508 ATLANTA GA
;;509A^PROV A V07 509 AUGUSTA GA
;;509B^PROV B V07 509 AUGUSTA GA
;;509C^PROV C V07 509 AUGUSTA GA
;;509D^PROV D V07 509 AUGUSTA GA
;;509E^PROV E V07 509 AUGUSTA GA
;;509F^PROV F V07 509 AUGUSTA GA
;;509G^PROV G V07 509 AUGUSTA GA
;;509H^PROV H V07 509 AUGUSTA GA
;;509I^PROV I V07 509 AUGUSTA GA
;;509J^PROV J V07 509 AUGUSTA GA
;;509K^PROV K V07 509 AUGUSTA GA
;;512A^PROV A V05 512 MARYLAND HCS
;;512B^PROV B V05 512 MARYLAND HCS
;;512C^PROV C V05 512 MARYLAND HCS
;;512D^PROV D V05 512 MARYLAND HCS
;;512E^PROV E V05 512 MARYLAND HCS
;;512F^PROV F V05 512 MARYLAND HCS
;;512G^PROV G V05 512 MARYLAND HCS
;;512H^PROV H V05 512 MARYLAND HCS
;;512I^PROV I V05 512 MARYLAND HCS
;;512J^PROV J V05 512 MARYLAND HCS
;;512K^PROV K V05 512 MARYLAND HCS
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX359PT 9781 printed Apr 09, 2024@20:58:42 Page 2
ECX359PT ;ALB/JAM/ADL - PATCH ECX*3.0*59 Post-Init Rtn ; 10/03/03
+1 ;;3.0;DSS EXTRACTS;**59**;October 3, 2003
+2 ;
+3 ;Post-init routine to add new entries to:
+4 ; NATIONAL CLINIC file (#728.441)
EN ;
+1 ;- Add new entry to file 728.441
+2 ; ECXREC is in format: code^short description
+3 NEW ECXFDA,ECXERR,ECXCODE,ECXREC,CNT0,CNT1
+4 DO BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
+5 DO MES^XPDUTL(" ")
+6 SET (CNT0,CNT1,CNT2,CNT3)=0
KILL ^UTILITY("NATLCODE",$JOB)
+7 ;
+8 ;B/C of the large number of new codes, they are stored in numerous routines. Load all codes into
DO LOADDATA
+9 ; a utility global before adding to database
+10 DO PROCESS
+11 DO END
+12 ;End of loading process
QUIT
LOADDATA ;Load all new codes into utility global
+1 ;
+2 SET CNT=1
+3 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+4 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+5 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX359D1),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+6 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+7 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX359D2),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+8 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+9 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX359D3),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+10 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+11 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX359D4),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+12 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+13 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX359D5),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+14 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+15 ;LOADDATA
QUIT
+16 ;
PROCESS ; Get NAT'L CLINIC records from UTL global
+1 SET SEQ=""
+2 FOR
SET SEQ=$ORDER(^UTILITY("NATLCODE",$JOB,SEQ))
if SEQ=""
QUIT
Begin DoDot:1
+3 SET ECXREC=^UTILITY("NATLCODE",$JOB,SEQ)
+4 SET ECXCODE=$PIECE(ECXREC,"^")
+5 ; Quit w/error message if entry already exists
+6 SET CURREC=$$FIND1^DIC(728.441,"","X",ECXCODE)
+7 ;Code already exists, see if it should be updated
IF CURREC
Begin DoDot:2
+8 ;Flag signifies that the code desc should be overlaid
IF $PIECE(ECXREC,U,3)
Begin DoDot:3
+9 SET ECXFDA(728.441,CURREC_",",1)=$PIECE(ECXREC,"^",2)
+10 DO FILE^DIE("EK","ECXFDA","ECXERR")
SET CNT3=CNT3+1
+11 DO BMES^XPDUTL(">>>...."_ECXCODE_" "_$PIECE(ECXREC,U,2)_" UPDATED, entry already exists.")
End DoDot:3
QUIT
+12 SET CNT1=CNT1+1
End DoDot:2
QUIT
+13 ; Setup field values of new entry
+14 SET ECXFDA(728.441,"+1,",.01)=ECXCODE
+15 SET ECXFDA(728.441,"+1,",1)=$PIECE(ECXREC,"^",2)
+16 ; Add new entry
+17 DO UPDATE^DIE("E","ECXFDA","","ECXERR")
+18 IF '$DATA(ECXERR)
Begin DoDot:2
+19 DO BMES^XPDUTL(">>>..."_ECXCODE_" "_$PIECE(ECXREC,U,2)_" added to file.")
+20 SET CNT0=CNT0+1
End DoDot:2
QUIT
+21 DO BMES^XPDUTL(">>>...Unable to add "_ECXCODE_" "_$PIECE(ECXREC,U,2)_" to file.")
+22 SET CNT2=CNT2+1
+23 ;clean out error array b4 processing next code
KILL ECXERR
End DoDot:1
+24 ;
+25 ;FILEONE
QUIT
END DO MES^XPDUTL(" ")
+1 DO MES^XPDUTL(" Done... Update to NATIONAL CLINIC File (#728.441).")
+2 DO MES^XPDUTL(" "_$JUSTIFY(CNT0,3)_" new entries added.")
+3 DO MES^XPDUTL(" "_$JUSTIFY(CNT1,3)_" were not added, already existed.")
+4 DO MES^XPDUTL(" "_$JUSTIFY(CNT2,3)_" were not added, unable to add.")
+5 DO MES^XPDUTL(" "_$JUSTIFY(CNT3,3)_" already existed and were updated.")
+6 DO MES^XPDUTL(" ")
+7 KILL ^UTILITY("NATLCODE",$JOB)
+8 KILL CNT,CNT0,CNT1,CNT2,CNT3,CURREC,ECX,ECXCODE,ECXERR,ECXFDA,ECXREC,ECXX,SEQ
+9 QUIT
+10 ;
NATCLIN ;NAT'L CLINIC entry to add:
+1 ;;402A^PROV A V01 402 TOGUS ME
+2 ;;402B^PROV B V01 402 TOGUS ME
+3 ;;402C^PROV C V01 402 TOGUS ME
+4 ;;402D^PROV D V01 402 TOGUS ME
+5 ;;402E^PROV E V01 402 TOGUS ME
+6 ;;402F^PROV F V01 402 TOGUS ME
+7 ;;402G^PROV G V01 402 TOGUS ME
+8 ;;402H^PROV H V01 402 TOGUS ME
+9 ;;402I^PROV I V01 402 TOGUS ME
+10 ;;402J^PROV J V01 402 TOGUS ME
+11 ;;402K^PROV K V01 402 TOGUS ME
+12 ;;405A^PROV A V01 405 WHITE RIVER JUNCTION VT
+13 ;;405B^PROV B V01 405 WHITE RIVER JUNCTION VT
+14 ;;405C^PROV C V01 405 WHITE RIVER JUNCTION VT
+15 ;;405D^PROV D V01 405 WHITE RIVER JUNCTION VT
+16 ;;405E^PROV E V01 405 WHITE RIVER JUNCTION VT
+17 ;;405F^PROV F V01 405 WHITE RIVER JUNCTION VT
+18 ;;405G^PROV G V01 405 WHITE RIVER JUNCTION VT
+19 ;;405H^PROV H V01 405 WHITE RIVER JUNCTION VT
+20 ;;405I^PROV I V01 405 WHITE RIVER JUNCTION VT
+21 ;;405J^PROV J V01 405 WHITE RIVER JUNCTION VT
+22 ;;405K^PROV K V01 405 WHITE RIVER JUNCTION VT
+23 ;;436A^PROV A V19 436 FORT HARRISON MT
+24 ;;436B^PROV B V19 436 FORT HARRISON MT
+25 ;;436C^PROV C V19 436 FORT HARRISON MT
+26 ;;436D^PROV D V19 436 FORT HARRISON MT
+27 ;;436E^PROV E V19 436 FORT HARRISON MT
+28 ;;436F^PROV F V19 436 FORT HARRISON MT
+29 ;;436G^PROV G V19 436 FORT HARRISON MT
+30 ;;436H^PROV H V19 436 FORT HARRISON MT
+31 ;;436I^PROV I V19 436 FORT HARRISON MT
+32 ;;436J^PROV J V19 436 FORT HARRISON MT
+33 ;;436K^PROV K V19 436 FORT HARRISON MT
+34 ;;437A^PROV A V13 437 FARGO ND
+35 ;;437B^PROV B V13 437 FARGO ND
+36 ;;437C^PROV C V13 437 FARGO ND
+37 ;;437D^PROV D V13 437 FARGO ND
+38 ;;437E^PROV E V13 437 FARGO ND
+39 ;;437F^PROV F V13 437 FARGO ND
+40 ;;437G^PROV G V13 437 FARGO ND
+41 ;;437H^PROV H V13 437 FARGO ND
+42 ;;437I^PROV I V13 437 FARGO ND
+43 ;;437J^PROV J V13 437 FARGO ND
+44 ;;437K^PROV K V13 437 FARGO ND
+45 ;;438A^PROV A V13 438 SIOUX FALLS SD
+46 ;;438B^PROV B V13 438 SIOUX FALLS SD
+47 ;;438C^PROV C V13 438 SIOUX FALLS SD
+48 ;;438D^PROV D V13 438 SIOUX FALLS SD
+49 ;;438E^PROV E V13 438 SIOUX FALLS SD
+50 ;;438F^PROV F V13 438 SIOUX FALLS SD
+51 ;;438G^PROV G V13 438 SIOUX FALLS SD
+52 ;;438H^PROV H V13 438 SIOUX FALLS SD
+53 ;;438I^PROV I V13 438 SIOUX FALLS SD
+54 ;;438J^PROV J V13 438 SIOUX FALLS SD
+55 ;;438K^PROV K V13 438 SIOUX FALLS SD
+56 ;;442A^PROV A V19 442 CHEYENNE WY
+57 ;;442B^PROV B V19 442 CHEYENNE WY
+58 ;;442C^PROV C V19 442 CHEYENNE WY
+59 ;;442D^PROV D V19 442 CHEYENNE WY
+60 ;;442E^PROV E V19 442 CHEYENNE WY
+61 ;;442F^PROV F V19 442 CHEYENNE WY
+62 ;;442G^PROV G V19 442 CHEYENNE WY
+63 ;;442H^PROV H V19 442 CHEYENNE WY
+64 ;;442I^PROV I V19 442 CHEYENNE WY
+65 ;;442J^PROV J V19 442 CHEYENNE WY
+66 ;;442K^PROV K V19 442 CHEYENNE WY
+67 ;;459A^PROV A V21 459 HONOLULU HI
+68 ;;459B^PROV B V21 459 HONOLULU HI
+69 ;;459C^PROV C V21 459 HONOLULU HI
+70 ;;459D^PROV D V21 459 HONOLULU HI
+71 ;;459E^PROV E V21 459 HONOLULU HI
+72 ;;459F^PROV F V21 459 HONOLULU HI
+73 ;;459G^PROV G V21 459 HONOLULU HI
+74 ;;459H^PROV H V21 459 HONOLULU HI
+75 ;;459I^PROV I V21 459 HONOLULU HI
+76 ;;459J^PROV J V21 459 HONOLULU HI
+77 ;;459K^PROV K V21 459 HONOLULU HI
+78 ;;460A^PROV A V04 460 WILMINGTON DE
+79 ;;460B^PROV B V04 460 WILMINGTON DE
+80 ;;460C^PROV C V04 460 WILMINGTON DE
+81 ;;460D^PROV D V04 460 WILMINGTON DE
+82 ;;460E^PROV E V04 460 WILMINGTON DE
+83 ;;460F^PROV F V04 460 WILMINGTON DE
+84 ;;460G^PROV G V04 460 WILMINGTON DE
+85 ;;460H^PROV H V04 460 WILMINGTON DE
+86 ;;460I^PROV I V04 460 WILMINGTON DE
+87 ;;460J^PROV J V04 460 WILMINGTON DE
+88 ;;460K^PROV K V04 460 WILMINGTON DE
+89 ;;463A^PROV A V20 463 ANCHORAGE AK
+90 ;;463B^PROV B V20 463 ANCHORAGE AK
+91 ;;463C^PROV C V20 463 ANCHORAGE AK
+92 ;;463D^PROV D V20 463 ANCHORAGE AK
+93 ;;463E^PROV E V20 463 ANCHORAGE AK
+94 ;;463F^PROV F V20 463 ANCHORAGE AK
+95 ;;463G^PROV G V20 463 ANCHORAGE AK
+96 ;;463H^PROV H V20 463 ANCHORAGE AK
+97 ;;463I^PROV I V20 463 ANCHORAGE AK
+98 ;;463J^PROV J V20 463 ANCHORAGE AK
+99 ;;463K^PROV K V20 463 ANCHORAGE AK
+100 ;;502A^PROV A V16 502 ALEXANDRIA LA
+101 ;;502B^PROV B V16 502 ALEXANDRIA LA
+102 ;;502C^PROV C V16 502 ALEXANDRIA LA
+103 ;;502D^PROV D V16 502 ALEXANDRIA LA
+104 ;;502E^PROV E V16 502 ALEXANDRIA LA
+105 ;;502F^PROV F V16 502 ALEXANDRIA LA
+106 ;;502G^PROV G V16 502 ALEXANDRIA LA
+107 ;;502H^PROV H V16 502 ALEXANDRIA LA
+108 ;;502I^PROV I V16 502 ALEXANDRIA LA
+109 ;;502J^PROV J V16 502 ALEXANDRIA LA
+110 ;;502K^PROV K V16 502 ALEXANDRIA LA
+111 ;;503A^PROV A V04 503 ALTOONA PA
+112 ;;503B^PROV B V04 503 ALTOONA PA
+113 ;;503C^PROV C V04 503 ALTOONA PA
+114 ;;503D^PROV D V04 503 ALTOONA PA
+115 ;;503E^PROV E V04 503 ALTOONA PA
+116 ;;503F^PROV F V04 503 ALTOONA PA
+117 ;;503G^PROV G V04 503 ALTOONA PA
+118 ;;503H^PROV H V04 503 ALTOONA PA
+119 ;;503I^PROV I V04 503 ALTOONA PA
+120 ;;503J^PROV J V04 503 ALTOONA PA
+121 ;;503K^PROV K V04 503 ALTOONA PA
+122 ;;504A^PROV A V18 504 AMARILLO TX
+123 ;;504B^PROV B V18 504 AMARILLO TX
+124 ;;504C^PROV C V18 504 AMARILLO TX
+125 ;;504D^PROV D V18 504 AMARILLO TX
+126 ;;504E^PROV E V18 504 AMARILLO TX
+127 ;;504F^PROV F V18 504 AMARILLO TX
+128 ;;504G^PROV G V18 504 AMARILLO TX
+129 ;;504H^PROV H V18 504 AMARILLO TX
+130 ;;504I^PROV I V18 504 AMARILLO TX
+131 ;;504J^PROV J V18 504 AMARILLO TX
+132 ;;504K^PROV K V18 504 AMARILLO TX
+133 ;;506A^PROV A V11 506 ANN ARBOR MI
+134 ;;506B^PROV B V11 506 ANN ARBOR MI
+135 ;;506C^PROV C V11 506 ANN ARBOR MI
+136 ;;506D^PROV D V11 506 ANN ARBOR MI
+137 ;;506E^PROV E V11 506 ANN ARBOR MI
+138 ;;506F^PROV F V11 506 ANN ARBOR MI
+139 ;;506G^PROV G V11 506 ANN ARBOR MI
+140 ;;506H^PROV H V11 506 ANN ARBOR MI
+141 ;;506I^PROV I V11 506 ANN ARBOR MI
+142 ;;506J^PROV J V11 506 ANN ARBOR MI
+143 ;;506K^PROV K V11 506 ANN ARBOR MI
+144 ;;508A^PROV A V07 508 ATLANTA GA
+145 ;;508B^PROV B V07 508 ATLANTA GA
+146 ;;508C^PROV C V07 508 ATLANTA GA
+147 ;;508D^PROV D V07 508 ATLANTA GA
+148 ;;508E^PROV E V07 508 ATLANTA GA
+149 ;;508F^PROV F V07 508 ATLANTA GA
+150 ;;508G^PROV G V07 508 ATLANTA GA
+151 ;;508H^PROV H V07 508 ATLANTA GA
+152 ;;508I^PROV I V07 508 ATLANTA GA
+153 ;;508J^PROV J V07 508 ATLANTA GA
+154 ;;508K^PROV K V07 508 ATLANTA GA
+155 ;;509A^PROV A V07 509 AUGUSTA GA
+156 ;;509B^PROV B V07 509 AUGUSTA GA
+157 ;;509C^PROV C V07 509 AUGUSTA GA
+158 ;;509D^PROV D V07 509 AUGUSTA GA
+159 ;;509E^PROV E V07 509 AUGUSTA GA
+160 ;;509F^PROV F V07 509 AUGUSTA GA
+161 ;;509G^PROV G V07 509 AUGUSTA GA
+162 ;;509H^PROV H V07 509 AUGUSTA GA
+163 ;;509I^PROV I V07 509 AUGUSTA GA
+164 ;;509J^PROV J V07 509 AUGUSTA GA
+165 ;;509K^PROV K V07 509 AUGUSTA GA
+166 ;;512A^PROV A V05 512 MARYLAND HCS
+167 ;;512B^PROV B V05 512 MARYLAND HCS
+168 ;;512C^PROV C V05 512 MARYLAND HCS
+169 ;;512D^PROV D V05 512 MARYLAND HCS
+170 ;;512E^PROV E V05 512 MARYLAND HCS
+171 ;;512F^PROV F V05 512 MARYLAND HCS
+172 ;;512G^PROV G V05 512 MARYLAND HCS
+173 ;;512H^PROV H V05 512 MARYLAND HCS
+174 ;;512I^PROV I V05 512 MARYLAND HCS
+175 ;;512J^PROV J V05 512 MARYLAND HCS
+176 ;;512K^PROV K V05 512 MARYLAND HCS
+177 ;;QUIT
