VistA-WorldVistAEHR/r/MAILMAN-XM/XMUDCHK.m

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