XMUDCHK ;(WASH ISC)/CAP-Validate DOMAIN file ;04/24/2002 08:27
;;8.0;MailMan;;Jun 28, 2002
; Entry points used by MailMan options (not covered by DBIA):
; VALID8 XMQDOMAINS
VALID8 ;
N XMI,XMNO,XMDOM
W !!!,"Validating domain file",!
S XMNO=0
F XMI=1:1 S X=$T(TABLE+XMI) Q:X="" D
. S XMDOM=$P(X,";",3)
. W !,XMDOM
. Q:$$FIND1^DIC(4.2,"","QO",XMDOM,"B^C")
. I $L(XMDOM,".")<3 D
. . Q:$$FIND1^DIC(4.2,"","QO",XMDOM_".MED.VA.GOV","B^C")
. . Q:$$FIND1^DIC(4.2,"","QO",XMDOM_".VA.GOV","B^C")
. W $S($L(XMDOM,".")<3:".MED.VA.GOV",1:"")," is not in your domain file." S XMNO=XMNO+1
Q
TABLE ;;Name
;;ALBUQUERQUE
;;ALEXANDRIA
;;ALTOONA
;;AMARILLO
;;ANCHORAGE
;;ANN-ARBOR
;;ASHEVILLE
;;ATLANTA
;;AUGUSTA
;;BALTIMORE
;;BATTLE-CREEK
;;BAY-PINES
;;BECKLEY
;;BEDFORD
;;BIG-SPRING
;;BILOXI
;;BIRMINGHAM
;;BLACK-HILLS
;;BOISE
;;BOSTON
;;BRONX
;;BUTLER
;;CENTRAL-ALABAMA
;;CENTRAL-PLAINS
;;CENTRAL-TEXAS
;;CHARLESTON
;;CHEYENNE
;;CHICAGO-WEST
;;CHILLICOTHE
;;CINCINNATI
;;CLARKSBURG
;;CLEVELAND
;;CMOP-BED
;;CMOP-CHAR
;;CMOP-DAL
;;CMOP-HINES
;;CMOP-LEAV
;;CMOP-MURF
;;CMOP-LA
;;COATESVILLE
;;COLUMBIA-SC
;;COLUMBUS
;;DALLAS
;;DANVILLE
;;DAYTON
;;DENVER
;;DETROIT
;;DUBLIN
;;DURHAM
;;EAST-ORANGE
;;EL-PASO
;;ERIE
;;FARGO
;;FAYETTVL-AR
;;FAYETTVL-NC
;;FHIE
;;FO-ALBANY
;;FO-BAYPINES
;;FO-BIRM
;;FO-DALLAS
;;FO-HINES
;;FO-OAKLAND
;;FO-SLC
;;FO-WASH
;;FOC-AUSTIN.VA.GOV
;;FORT-LYON
;;FORUM.VA.GOV
;;FRESNO
;;GK.VA.GOV
;;GRAND-JUNCT
;;HAC
;;HAMPTON
;;HINES
;;HONOLULU
;;HOUSTON
;;HQ
;;HUNTINGTON
;;INDIANAPOLIS
;;IPDB-CHICAGO
;;IRON-MTN
;;IVM
;;JACKSON
;;KANSAS-CITY
;;LAS-VEGAS
;;LEBANON
;;LEXINGTON
;;LITTLE-ROCK
;;LOMA-LINDA
;;LONG-BEACH
;;LOUISVILLE
;;MADISON
;;MAIL.CIO
;;MAIL.VA.GOV
;;MANCHESTER
;;MANILA
;;MARTINEZ
;;MARTINSBURG
;;MED.VA.GOV
;;MEMPHIS
;;MHSHG.PITTS-HGHLND
;;MIAMI
;;MILWAUKEE
;;MINNEAPOLIS
;;MONTANA
;;MONTROSE
;;MPI-AUSTIN
;;MTN-HOME
;;MUSKOGEE
;;N-CHICAGO
;;NEW-ORLEANS
;;NORTH-FLORIDA
;;NORTHAMPTON
;;NORTHERN-INDIANA
;;NORTHPORT
;;NY-HARBOR
;;OKLAHOMA
;;PACE-WASH
;;PALO-ALTO
;;PHILADELPHIA
;;PHOENIX
;;PITTSBURGH
;;PORTLAND
;;PRESCOTT
;;PROVIDENCE
;;PUGET-SOUND
;;RENO
;;RICHMOND
;;ROSEBURG
;;SAGINAW
;;SALEM
;;SALISBURY
;;SALT-LAKE
;;SAN-ANTONIO
;;SAN-DIEGO
;;SAN-JUAN
;;SANFRANCISCO
;;SHERIDAN
;;SHREVEPORT
;;SIOUX-FALLS
;;SPOKANE
;;ST-CLOUD
;;ST-LOUIS
;;SUPP-CHICAGO
;;TAMPA
;;TENNESSEEVALLEY
;;TOGUS
;;TOMAH
;;TUCSON
;;TUSCALOOSA
;;V02
;;VBA.VA.GOV
;;WALLA-WALLA
;;WASHINGTON
;;WEST-HAVEN
;;WEST-LA
;;WEST-PALM
;;WHITE-CITY
;;WHITE-RIVER
;;WILKES-BARRE
;;WILMINGTON
XMUDCHK ;(WASH ISC)/CAP-Validate DOMAIN file ;04/24/2002 08:27
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ; Entry points used by MailMan options (not covered by DBIA):
+3 ; VALID8 XMQDOMAINS
VALID8 ;
+1 NEW XMI,XMNO,XMDOM
+2 WRITE !!!,"Validating domain file",!
+3 SET XMNO=0
+4 FOR XMI=1:1
SET X=$TEXT(TABLE+XMI)
IF X=""
QUIT
Begin DoDot:1
+5 SET XMDOM=$PIECE(X,";",3)
+6 WRITE !,XMDOM
+7 IF $$FIND1^DIC(4.2,"","QO",XMDOM,"B^C")
QUIT
+8 IF $LENGTH(XMDOM,".")<3
Begin DoDot:2
+9 IF $$FIND1^DIC(4.2,"","QO",XMDOM_".MED.VA.GOV","B^C")
QUIT
+10 IF $$FIND1^DIC(4.2,"","QO",XMDOM_".VA.GOV","B^C")
QUIT
End DoDot:2
+11 WRITE $SELECT($LENGTH(XMDOM,".")<3:".MED.VA.GOV",1:"")," is not in your domain file."
SET XMNO=XMNO+1
End DoDot:1
+12 QUIT
TABLE ;;Name
+1 ;;ALBUQUERQUE
+2 ;;ALEXANDRIA
+3 ;;ALTOONA
+4 ;;AMARILLO
+5 ;;ANCHORAGE
+6 ;;ANN-ARBOR
+7 ;;ASHEVILLE
+8 ;;ATLANTA
+9 ;;AUGUSTA
+10 ;;BALTIMORE
+11 ;;BATTLE-CREEK
+12 ;;BAY-PINES
+13 ;;BECKLEY
+14 ;;BEDFORD
+15 ;;BIG-SPRING
+16 ;;BILOXI
+17 ;;BIRMINGHAM
+18 ;;BLACK-HILLS
+19 ;;BOISE
+20 ;;BOSTON
+21 ;;BRONX
+22 ;;BUTLER
+23 ;;CENTRAL-ALABAMA
+24 ;;CENTRAL-PLAINS
+25 ;;CENTRAL-TEXAS
+26 ;;CHARLESTON
+27 ;;CHEYENNE
+28 ;;CHICAGO-WEST
+29 ;;CHILLICOTHE
+30 ;;CINCINNATI
+31 ;;CLARKSBURG
+32 ;;CLEVELAND
+33 ;;CMOP-BED
+34 ;;CMOP-CHAR
+35 ;;CMOP-DAL
+36 ;;CMOP-HINES
+37 ;;CMOP-LEAV
+38 ;;CMOP-MURF
+39 ;;CMOP-LA
+40 ;;COATESVILLE
+41 ;;COLUMBIA-SC
+42 ;;COLUMBUS
+43 ;;DALLAS
+44 ;;DANVILLE
+45 ;;DAYTON
+46 ;;DENVER
+47 ;;DETROIT
+48 ;;DUBLIN
+49 ;;DURHAM
+50 ;;EAST-ORANGE
+51 ;;EL-PASO
+52 ;;ERIE
+53 ;;FARGO
+54 ;;FAYETTVL-AR
+55 ;;FAYETTVL-NC
+56 ;;FHIE
+57 ;;FO-ALBANY
+58 ;;FO-BAYPINES
+59 ;;FO-BIRM
+60 ;;FO-DALLAS
+61 ;;FO-HINES
+62 ;;FO-OAKLAND
+63 ;;FO-SLC
+64 ;;FO-WASH
+65 ;;FOC-AUSTIN.VA.GOV
+66 ;;FORT-LYON
+67 ;;FORUM.VA.GOV
+68 ;;FRESNO
+69 ;;GK.VA.GOV
+70 ;;GRAND-JUNCT
+71 ;;HAC
+72 ;;HAMPTON
+73 ;;HINES
+74 ;;HONOLULU
+75 ;;HOUSTON
+76 ;;HQ
+77 ;;HUNTINGTON
+78 ;;INDIANAPOLIS
+79 ;;IPDB-CHICAGO
+80 ;;IRON-MTN
+81 ;;IVM
+82 ;;JACKSON
+83 ;;KANSAS-CITY
+84 ;;LAS-VEGAS
+85 ;;LEBANON
+86 ;;LEXINGTON
+87 ;;LITTLE-ROCK
+88 ;;LOMA-LINDA
+89 ;;LONG-BEACH
+90 ;;LOUISVILLE
+91 ;;MADISON
+92 ;;MAIL.CIO
+93 ;;MAIL.VA.GOV
+94 ;;MANCHESTER
+95 ;;MANILA
+96 ;;MARTINEZ
+97 ;;MARTINSBURG
+98 ;;MED.VA.GOV
+99 ;;MEMPHIS
+100 ;;MHSHG.PITTS-HGHLND
+101 ;;MIAMI
+102 ;;MILWAUKEE
+103 ;;MINNEAPOLIS
+104 ;;MONTANA
+105 ;;MONTROSE
+106 ;;MPI-AUSTIN
+107 ;;MTN-HOME
+108 ;;MUSKOGEE
+109 ;;N-CHICAGO
+110 ;;NEW-ORLEANS
+111 ;;NORTH-FLORIDA
+112 ;;NORTHAMPTON
+113 ;;NORTHERN-INDIANA
+114 ;;NORTHPORT
+115 ;;NY-HARBOR
+116 ;;OKLAHOMA
+117 ;;PACE-WASH
+118 ;;PALO-ALTO
+119 ;;PHILADELPHIA
+120 ;;PHOENIX
+121 ;;PITTSBURGH
+122 ;;PORTLAND
+123 ;;PRESCOTT
+124 ;;PROVIDENCE
+125 ;;PUGET-SOUND
+126 ;;RENO
+127 ;;RICHMOND
+128 ;;ROSEBURG
+129 ;;SAGINAW
+130 ;;SALEM
+131 ;;SALISBURY
+132 ;;SALT-LAKE
+133 ;;SAN-ANTONIO
+134 ;;SAN-DIEGO
+135 ;;SAN-JUAN
+136 ;;SANFRANCISCO
+137 ;;SHERIDAN
+138 ;;SHREVEPORT
+139 ;;SIOUX-FALLS
+140 ;;SPOKANE
+141 ;;ST-CLOUD
+142 ;;ST-LOUIS
+143 ;;SUPP-CHICAGO
+144 ;;TAMPA
+145 ;;TENNESSEEVALLEY
+146 ;;TOGUS
+147 ;;TOMAH
+148 ;;TUCSON
+149 ;;TUSCALOOSA
+150 ;;V02
+151 ;;VBA.VA.GOV
+152 ;;WALLA-WALLA
+153 ;;WASHINGTON
+154 ;;WEST-HAVEN
+155 ;;WEST-LA
+156 ;;WEST-PALM
+157 ;;WHITE-CITY
+158 ;;WHITE-RIVER
+159 ;;WILKES-BARRE
+160 ;;WILMINGTON
