RCCPC0 ;WASH-ISC@ALTOONA,PA/LDB-Setup statement days for CCPC ;11/7/96 9:07 AM V ;;4.5;Accounts Receivable;**34,70**;Mar 20, 1995 ;;Per VHA Directive 10-93-142, this routine should not be modified. ;POST-INIT FOR PRCA*4.5*34 EN ;Set dates in file 342 for site's statement day N SDAY,SITE,T S SDAY=0 S SITE=$$SITE^RCMSITE I $T(@SITE) S T=$T(@SITE),SDAY=+$P(T,";;",2) Q:'SDAY S $P(^RC(342,1,0),"^",11)=SDAY D EN^RCCPC1 Q ; ;billing cycle 1 sites 518 ;;1^BEDFORD,MA 523 ;;1^BOSTON,MA 525 ;;1^BROCKTON,MA 608 ;;1^MANCHESTER,MA 627 ;;1^NEWINGTON,CT^689C 631 ;;1^NORTHAMPTON,MA 650 ;;1^PROVIDENCE,RI 402 ;;1^TOGUS,ME 689 ;;1^WEST HAVEN,CT 405 ;;1^WHITE RIVER JUNCTION,VT 500 ;;1^ALBANY,NY 513 ;;1^BATAVIA,NY^528A 514 ;;1^BATH,NY 528 ;;1^BUFFALO,NY 532 ;;1^CANANDAIGUA,NY 670 ;;1^SYRACUSE,NY ; ;billing cycle 2 sites 526 ;;3^BRONX,NY 527 ;;3^BROOKLYN,NY 533 ;;3^CASTLE POINT,NY 561 ;;3^EAST ORANGE,NJ 604 ;;3^LYONS,NJ 620 ;;3^MONTROSE,NY 630 ;;3^NEW YORK,NY 632 ;;3^NORTHPORT,NY ; ;billing cycle 3 sites 503 ;;5^ALTOONA,PA 529 ;;5^BUTLER,PA 540 ;;5^CLARKSBURG,PA 542 ;;5^COATESVILLE,PA 562 ;;5^ERIE,PA 595 ;;5^LEBANON,PA 642 ;;5^PHILADELPHIA,PA 645 ;;5^PITTSBURGH,PA (HD)^ 646 ;;5^PITTSBURGH,PA (UD)^ 460 ;;5^WILMINGTON,DE 693 ;;5^WILKES BARRE,PA 512 ;;5^BALTIMORE,MD 566 ;;5^FORT HOWARD,MD^512A 613 ;;5^MARTINSBURG,WV 641 ;;5^PERRY POINT,MD^512D 688 ;;5^WASHINGTON,DC ; ;billing cycle 4 sites 637 ;;7^ASHEVILLE,NC 517 ;;7^BECKLEY,WV 558 ;;7^DURHAM,NC 565 ;;7^FAYETTEVILLE,NC 590 ;;7^HAMPTON,VA 652 ;;7^RICHMOND,VA 658 ;;7^SALEM,VA 659 ;;7^SALISBURY,VA ; ;billing cycle 5 sites 508 ;;8^ATLANTA,GA 509 ;;8^AUGUSTA,GA 521 ;;8^BIRMINGHAM,AL 534 ;;8^CHARLESTON,NC 544 ;;8^COLUMBIA,SC 557 ;;8^DUBLIN,GA 619 ;;8^MONTGOMERY,AL 679 ;;8^TUSCALOOSA,AL 680 ;;8^TUSKEGEE,AL ; ;billing cycle 6 sites 516 ;;10^BAY PINES,FL 573 ;;10^GAINESVILLE,FL 594 ;;10^LAKE CITY,FL 546 ;;10^MIAMI,FL 672 ;;10^SAN JUAN,PR 673 ;;10^TAMPA,FL 548 ;;10^WEST PALM BEACH,FL ; ;billing cycle 7 sites 581 ;;11^HUNTINGTON,WV 596 ;;11^LEXINGTON,KY 603 ;;11^LOUISVILLE,KY 614 ;;11^MEMPHIS,TN 621 ;;11^MOUNTAIN HOME,TN 622 ;;11^MURFREESBORO,TN 626 ;;11^NASHVILLE,TN 538 ;;11^CHILLICOTHE,OH 539 ;;11^CINCINNATI,OH 541 ;;11^CLEVELAND,OH 757 ;;11^COLUMBUS,OH 552 ;;11^DAYTON,OH ; ;billing cycle 8 sites 553 ;;13^ALLEN PARK,MI 506 ;;13^ANN ARBOR,MI 515 ;;13^BATTLE CREEK,MI 550 ;;13^DANVILLE,IL 569 ;;13^FORT WAYNE,IN 583 ;;13^INDIANOPOLIS,IN 610 ;;13^MARION,IN 655 ;;13^SAGINAW,MI ; ;billing cycle 9 sites 535 ;;15^CHICAGO,IL (LS) 537 ;;15^CHICAGO,IL (WS) 578 ;;15^HINES,IL 585 ;;15^IRON MOUNTAIN,MI 607 ;;15^MADISON,WI 695 ;;15^MILWAUKEE,WI 556 ;;15^NORTH CHICAGO (DOWNEY) 676 ;;15^TOMAH,WI ; ;billing cycle 10 sites 437 ;;16^FARGO,ND 568 ;;16^FORT MEADE,SD 579 ;;16^HOT SPRINGS,SD 618 ;;16^MINNEAPOLIS,MN 438 ;;16^SIOUX FALLS,SD 656 ;;16^ST. CLOUD,MN 555 ;;16^DES MOINES,IA 574 ;;16^GRAND ISLAND,NE 584 ;;16^IOWA CITY,IA 592 ;;16^KNOXVILLE,IA 597 ;;16^LINCOLN,NE 636 ;;16^OMAHA,NE ; ;billing cycle 11 sites 543 ;;18^COLUMBIA,MO 589 ;;18^KANSAS CITY,MO 686 ;;18^LEAVENWORTH,KS 609 ;;18^MARION,IL 647 ;;18^POPLAR BLUFF,MO 677 ;;18^TOPEKA,KS 452 ;;18^WICHITA,KS ; ;billing cycle 12 sites 502 ;;20^ALEXANDRIA,LA 520 ;;20^BILOXI,MS 564 ;;20^FAYETTEVILLE,AR 580 ;;20^HOUSTON,TX 586 ;;20^JACKSON,MS 598 ;;20^LITTLE ROCK,AR 623 ;;20^MUSKOGEE,OK 629 ;;20^ORLEANS,LA 635 ;;20^OKLAHOMA CITY,OK 667 ;;20^SHREVEPORT,LA ; ;billing cycle 13 sites 522 ;;22^BONHAM,TX 549 ;;22^DALLAS,TX 591 ;;22^KERRVILLE,TX 611 ;;22^MARLIN,TX 671 ;;22^SAN ANTONIO,TX 674 ;;22^TEMPLE,TX 685 ;;22^WACO,TX 501 ;;22^ALBUQUERQUE,NM 519 ;;22^BIG SPRING,TX 756 ;;22^EL PASO,TX 644 ;;22^PHOENIX,AZ 649 ;;22^PRESCOTT,AZ 678 ;;22^TUSCON,AZ ; ;billing cycle 14 sites 442 ;;24^CHEYENNE,WY 554 ;;24^DENVER,CO 436 ;;24^FORT HARRISON,MT 567 ;;24^FORT LYON,CO 575 ;;24^GRAND JUNCTION,CO 617 ;;24^MILES CITY,MT 660 ;;24^SALT LAKE CITY,UT 666 ;;24^SHERIDAN,WY 505 ;;24^AMERICAN LAKE/TACOMA,WA^663B 463 ;;24^ANCHORAGE,AK 531 ;;24^BOISE,ID 648 ;;24^PORTLAND,OR 653 ;;24^ROSEBURG,OR 663 ;;24^SEATTLE,WA 668 ;;24^SPOKANE,WA 687 ;;24^WALLA WALLA,WA 692 ;;24^WHITE CITY,OR ; ;billing cycle 15 sites 570 ;;26^FRESNO,CA 459 ;;26^HONOLULU,HI 612 ;;26^MARTINEZ,CA 640 ;;26^PALO ALTO,CA 654 ;;26^RENO,NV 662 ;;26^SAN FRANCISCO,CA ; ;billing cycle 16 sites 593 ;;28^LAS VEGAS,NV 605 ;;28^LOMA LINDA,CA 600 ;;28^LONG BEACH,CA 691 ;;28^WEST LOS ANGELES,CA 664 ;;28^SAN DIEGO,CA 665 ;;28^SEPULVEDA,CA 752 ;;28^LOS ANGELES,CA