| 1 | RCCPC0 ;WASH-ISC@ALTOONA,PA/LDB-Setup statement days for CCPC ;11/7/96 9:07 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**34,70**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;POST-INIT FOR PRCA*4.5*34
|
|---|
| 5 | EN ;Set dates in file 342 for site's statement day
|
|---|
| 6 | N SDAY,SITE,T
|
|---|
| 7 | S SDAY=0
|
|---|
| 8 | S SITE=$$SITE^RCMSITE
|
|---|
| 9 | I $T(@SITE) S T=$T(@SITE),SDAY=+$P(T,";;",2)
|
|---|
| 10 | Q:'SDAY
|
|---|
| 11 | S $P(^RC(342,1,0),"^",11)=SDAY
|
|---|
| 12 | D EN^RCCPC1
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | ;billing cycle 1 sites
|
|---|
| 16 | 518 ;;1^BEDFORD,MA
|
|---|
| 17 | 523 ;;1^BOSTON,MA
|
|---|
| 18 | 525 ;;1^BROCKTON,MA
|
|---|
| 19 | 608 ;;1^MANCHESTER,MA
|
|---|
| 20 | 627 ;;1^NEWINGTON,CT^689C
|
|---|
| 21 | 631 ;;1^NORTHAMPTON,MA
|
|---|
| 22 | 650 ;;1^PROVIDENCE,RI
|
|---|
| 23 | 402 ;;1^TOGUS,ME
|
|---|
| 24 | 689 ;;1^WEST HAVEN,CT
|
|---|
| 25 | 405 ;;1^WHITE RIVER JUNCTION,VT
|
|---|
| 26 | 500 ;;1^ALBANY,NY
|
|---|
| 27 | 513 ;;1^BATAVIA,NY^528A
|
|---|
| 28 | 514 ;;1^BATH,NY
|
|---|
| 29 | 528 ;;1^BUFFALO,NY
|
|---|
| 30 | 532 ;;1^CANANDAIGUA,NY
|
|---|
| 31 | 670 ;;1^SYRACUSE,NY
|
|---|
| 32 | ;
|
|---|
| 33 | ;billing cycle 2 sites
|
|---|
| 34 | 526 ;;3^BRONX,NY
|
|---|
| 35 | 527 ;;3^BROOKLYN,NY
|
|---|
| 36 | 533 ;;3^CASTLE POINT,NY
|
|---|
| 37 | 561 ;;3^EAST ORANGE,NJ
|
|---|
| 38 | 604 ;;3^LYONS,NJ
|
|---|
| 39 | 620 ;;3^MONTROSE,NY
|
|---|
| 40 | 630 ;;3^NEW YORK,NY
|
|---|
| 41 | 632 ;;3^NORTHPORT,NY
|
|---|
| 42 | ;
|
|---|
| 43 | ;billing cycle 3 sites
|
|---|
| 44 | 503 ;;5^ALTOONA,PA
|
|---|
| 45 | 529 ;;5^BUTLER,PA
|
|---|
| 46 | 540 ;;5^CLARKSBURG,PA
|
|---|
| 47 | 542 ;;5^COATESVILLE,PA
|
|---|
| 48 | 562 ;;5^ERIE,PA
|
|---|
| 49 | 595 ;;5^LEBANON,PA
|
|---|
| 50 | 642 ;;5^PHILADELPHIA,PA
|
|---|
| 51 | 645 ;;5^PITTSBURGH,PA (HD)^
|
|---|
| 52 | 646 ;;5^PITTSBURGH,PA (UD)^
|
|---|
| 53 | 460 ;;5^WILMINGTON,DE
|
|---|
| 54 | 693 ;;5^WILKES BARRE,PA
|
|---|
| 55 | 512 ;;5^BALTIMORE,MD
|
|---|
| 56 | 566 ;;5^FORT HOWARD,MD^512A
|
|---|
| 57 | 613 ;;5^MARTINSBURG,WV
|
|---|
| 58 | 641 ;;5^PERRY POINT,MD^512D
|
|---|
| 59 | 688 ;;5^WASHINGTON,DC
|
|---|
| 60 | ;
|
|---|
| 61 | ;billing cycle 4 sites
|
|---|
| 62 | 637 ;;7^ASHEVILLE,NC
|
|---|
| 63 | 517 ;;7^BECKLEY,WV
|
|---|
| 64 | 558 ;;7^DURHAM,NC
|
|---|
| 65 | 565 ;;7^FAYETTEVILLE,NC
|
|---|
| 66 | 590 ;;7^HAMPTON,VA
|
|---|
| 67 | 652 ;;7^RICHMOND,VA
|
|---|
| 68 | 658 ;;7^SALEM,VA
|
|---|
| 69 | 659 ;;7^SALISBURY,VA
|
|---|
| 70 | ;
|
|---|
| 71 | ;billing cycle 5 sites
|
|---|
| 72 | 508 ;;8^ATLANTA,GA
|
|---|
| 73 | 509 ;;8^AUGUSTA,GA
|
|---|
| 74 | 521 ;;8^BIRMINGHAM,AL
|
|---|
| 75 | 534 ;;8^CHARLESTON,NC
|
|---|
| 76 | 544 ;;8^COLUMBIA,SC
|
|---|
| 77 | 557 ;;8^DUBLIN,GA
|
|---|
| 78 | 619 ;;8^MONTGOMERY,AL
|
|---|
| 79 | 679 ;;8^TUSCALOOSA,AL
|
|---|
| 80 | 680 ;;8^TUSKEGEE,AL
|
|---|
| 81 | ;
|
|---|
| 82 | ;billing cycle 6 sites
|
|---|
| 83 | 516 ;;10^BAY PINES,FL
|
|---|
| 84 | 573 ;;10^GAINESVILLE,FL
|
|---|
| 85 | 594 ;;10^LAKE CITY,FL
|
|---|
| 86 | 546 ;;10^MIAMI,FL
|
|---|
| 87 | 672 ;;10^SAN JUAN,PR
|
|---|
| 88 | 673 ;;10^TAMPA,FL
|
|---|
| 89 | 548 ;;10^WEST PALM BEACH,FL
|
|---|
| 90 | ;
|
|---|
| 91 | ;billing cycle 7 sites
|
|---|
| 92 | 581 ;;11^HUNTINGTON,WV
|
|---|
| 93 | 596 ;;11^LEXINGTON,KY
|
|---|
| 94 | 603 ;;11^LOUISVILLE,KY
|
|---|
| 95 | 614 ;;11^MEMPHIS,TN
|
|---|
| 96 | 621 ;;11^MOUNTAIN HOME,TN
|
|---|
| 97 | 622 ;;11^MURFREESBORO,TN
|
|---|
| 98 | 626 ;;11^NASHVILLE,TN
|
|---|
| 99 | 538 ;;11^CHILLICOTHE,OH
|
|---|
| 100 | 539 ;;11^CINCINNATI,OH
|
|---|
| 101 | 541 ;;11^CLEVELAND,OH
|
|---|
| 102 | 757 ;;11^COLUMBUS,OH
|
|---|
| 103 | 552 ;;11^DAYTON,OH
|
|---|
| 104 | ;
|
|---|
| 105 | ;billing cycle 8 sites
|
|---|
| 106 | 553 ;;13^ALLEN PARK,MI
|
|---|
| 107 | 506 ;;13^ANN ARBOR,MI
|
|---|
| 108 | 515 ;;13^BATTLE CREEK,MI
|
|---|
| 109 | 550 ;;13^DANVILLE,IL
|
|---|
| 110 | 569 ;;13^FORT WAYNE,IN
|
|---|
| 111 | 583 ;;13^INDIANOPOLIS,IN
|
|---|
| 112 | 610 ;;13^MARION,IN
|
|---|
| 113 | 655 ;;13^SAGINAW,MI
|
|---|
| 114 | ;
|
|---|
| 115 | ;billing cycle 9 sites
|
|---|
| 116 | 535 ;;15^CHICAGO,IL (LS)
|
|---|
| 117 | 537 ;;15^CHICAGO,IL (WS)
|
|---|
| 118 | 578 ;;15^HINES,IL
|
|---|
| 119 | 585 ;;15^IRON MOUNTAIN,MI
|
|---|
| 120 | 607 ;;15^MADISON,WI
|
|---|
| 121 | 695 ;;15^MILWAUKEE,WI
|
|---|
| 122 | 556 ;;15^NORTH CHICAGO (DOWNEY)
|
|---|
| 123 | 676 ;;15^TOMAH,WI
|
|---|
| 124 | ;
|
|---|
| 125 | ;billing cycle 10 sites
|
|---|
| 126 | 437 ;;16^FARGO,ND
|
|---|
| 127 | 568 ;;16^FORT MEADE,SD
|
|---|
| 128 | 579 ;;16^HOT SPRINGS,SD
|
|---|
| 129 | 618 ;;16^MINNEAPOLIS,MN
|
|---|
| 130 | 438 ;;16^SIOUX FALLS,SD
|
|---|
| 131 | 656 ;;16^ST. CLOUD,MN
|
|---|
| 132 | 555 ;;16^DES MOINES,IA
|
|---|
| 133 | 574 ;;16^GRAND ISLAND,NE
|
|---|
| 134 | 584 ;;16^IOWA CITY,IA
|
|---|
| 135 | 592 ;;16^KNOXVILLE,IA
|
|---|
| 136 | 597 ;;16^LINCOLN,NE
|
|---|
| 137 | 636 ;;16^OMAHA,NE
|
|---|
| 138 | ;
|
|---|
| 139 | ;billing cycle 11 sites
|
|---|
| 140 | 543 ;;18^COLUMBIA,MO
|
|---|
| 141 | 589 ;;18^KANSAS CITY,MO
|
|---|
| 142 | 686 ;;18^LEAVENWORTH,KS
|
|---|
| 143 | 609 ;;18^MARION,IL
|
|---|
| 144 | 647 ;;18^POPLAR BLUFF,MO
|
|---|
| 145 | 677 ;;18^TOPEKA,KS
|
|---|
| 146 | 452 ;;18^WICHITA,KS
|
|---|
| 147 | ;
|
|---|
| 148 | ;billing cycle 12 sites
|
|---|
| 149 | 502 ;;20^ALEXANDRIA,LA
|
|---|
| 150 | 520 ;;20^BILOXI,MS
|
|---|
| 151 | 564 ;;20^FAYETTEVILLE,AR
|
|---|
| 152 | 580 ;;20^HOUSTON,TX
|
|---|
| 153 | 586 ;;20^JACKSON,MS
|
|---|
| 154 | 598 ;;20^LITTLE ROCK,AR
|
|---|
| 155 | 623 ;;20^MUSKOGEE,OK
|
|---|
| 156 | 629 ;;20^ORLEANS,LA
|
|---|
| 157 | 635 ;;20^OKLAHOMA CITY,OK
|
|---|
| 158 | 667 ;;20^SHREVEPORT,LA
|
|---|
| 159 | ;
|
|---|
| 160 | ;billing cycle 13 sites
|
|---|
| 161 | 522 ;;22^BONHAM,TX
|
|---|
| 162 | 549 ;;22^DALLAS,TX
|
|---|
| 163 | 591 ;;22^KERRVILLE,TX
|
|---|
| 164 | 611 ;;22^MARLIN,TX
|
|---|
| 165 | 671 ;;22^SAN ANTONIO,TX
|
|---|
| 166 | 674 ;;22^TEMPLE,TX
|
|---|
| 167 | 685 ;;22^WACO,TX
|
|---|
| 168 | 501 ;;22^ALBUQUERQUE,NM
|
|---|
| 169 | 519 ;;22^BIG SPRING,TX
|
|---|
| 170 | 756 ;;22^EL PASO,TX
|
|---|
| 171 | 644 ;;22^PHOENIX,AZ
|
|---|
| 172 | 649 ;;22^PRESCOTT,AZ
|
|---|
| 173 | 678 ;;22^TUSCON,AZ
|
|---|
| 174 | ;
|
|---|
| 175 | ;billing cycle 14 sites
|
|---|
| 176 | 442 ;;24^CHEYENNE,WY
|
|---|
| 177 | 554 ;;24^DENVER,CO
|
|---|
| 178 | 436 ;;24^FORT HARRISON,MT
|
|---|
| 179 | 567 ;;24^FORT LYON,CO
|
|---|
| 180 | 575 ;;24^GRAND JUNCTION,CO
|
|---|
| 181 | 617 ;;24^MILES CITY,MT
|
|---|
| 182 | 660 ;;24^SALT LAKE CITY,UT
|
|---|
| 183 | 666 ;;24^SHERIDAN,WY
|
|---|
| 184 | 505 ;;24^AMERICAN LAKE/TACOMA,WA^663B
|
|---|
| 185 | 463 ;;24^ANCHORAGE,AK
|
|---|
| 186 | 531 ;;24^BOISE,ID
|
|---|
| 187 | 648 ;;24^PORTLAND,OR
|
|---|
| 188 | 653 ;;24^ROSEBURG,OR
|
|---|
| 189 | 663 ;;24^SEATTLE,WA
|
|---|
| 190 | 668 ;;24^SPOKANE,WA
|
|---|
| 191 | 687 ;;24^WALLA WALLA,WA
|
|---|
| 192 | 692 ;;24^WHITE CITY,OR
|
|---|
| 193 | ;
|
|---|
| 194 | ;billing cycle 15 sites
|
|---|
| 195 | 570 ;;26^FRESNO,CA
|
|---|
| 196 | 459 ;;26^HONOLULU,HI
|
|---|
| 197 | 612 ;;26^MARTINEZ,CA
|
|---|
| 198 | 640 ;;26^PALO ALTO,CA
|
|---|
| 199 | 654 ;;26^RENO,NV
|
|---|
| 200 | 662 ;;26^SAN FRANCISCO,CA
|
|---|
| 201 | ;
|
|---|
| 202 | ;billing cycle 16 sites
|
|---|
| 203 | 593 ;;28^LAS VEGAS,NV
|
|---|
| 204 | 605 ;;28^LOMA LINDA,CA
|
|---|
| 205 | 600 ;;28^LONG BEACH,CA
|
|---|
| 206 | 691 ;;28^WEST LOS ANGELES,CA
|
|---|
| 207 | 664 ;;28^SAN DIEGO,CA
|
|---|
| 208 | 665 ;;28^SEPULVEDA,CA
|
|---|
| 209 | 752 ;;28^LOS ANGELES,CA
|
|---|
