source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCCPC0.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.4 KB
Line 
1RCCPC0 ;WASH-ISC@ALTOONA,PA/LDB-Setup statement days for CCPC ;11/7/96 9:07 AM
2V ;;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
5EN ;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
16518 ;;1^BEDFORD,MA
17523 ;;1^BOSTON,MA
18525 ;;1^BROCKTON,MA
19608 ;;1^MANCHESTER,MA
20627 ;;1^NEWINGTON,CT^689C
21631 ;;1^NORTHAMPTON,MA
22650 ;;1^PROVIDENCE,RI
23402 ;;1^TOGUS,ME
24689 ;;1^WEST HAVEN,CT
25405 ;;1^WHITE RIVER JUNCTION,VT
26500 ;;1^ALBANY,NY
27513 ;;1^BATAVIA,NY^528A
28514 ;;1^BATH,NY
29528 ;;1^BUFFALO,NY
30532 ;;1^CANANDAIGUA,NY
31670 ;;1^SYRACUSE,NY
32 ;
33 ;billing cycle 2 sites
34526 ;;3^BRONX,NY
35527 ;;3^BROOKLYN,NY
36533 ;;3^CASTLE POINT,NY
37561 ;;3^EAST ORANGE,NJ
38604 ;;3^LYONS,NJ
39620 ;;3^MONTROSE,NY
40630 ;;3^NEW YORK,NY
41632 ;;3^NORTHPORT,NY
42 ;
43 ;billing cycle 3 sites
44503 ;;5^ALTOONA,PA
45529 ;;5^BUTLER,PA
46540 ;;5^CLARKSBURG,PA
47542 ;;5^COATESVILLE,PA
48562 ;;5^ERIE,PA
49595 ;;5^LEBANON,PA
50642 ;;5^PHILADELPHIA,PA
51645 ;;5^PITTSBURGH,PA (HD)^
52646 ;;5^PITTSBURGH,PA (UD)^
53460 ;;5^WILMINGTON,DE
54693 ;;5^WILKES BARRE,PA
55512 ;;5^BALTIMORE,MD
56566 ;;5^FORT HOWARD,MD^512A
57613 ;;5^MARTINSBURG,WV
58641 ;;5^PERRY POINT,MD^512D
59688 ;;5^WASHINGTON,DC
60 ;
61 ;billing cycle 4 sites
62637 ;;7^ASHEVILLE,NC
63517 ;;7^BECKLEY,WV
64558 ;;7^DURHAM,NC
65565 ;;7^FAYETTEVILLE,NC
66590 ;;7^HAMPTON,VA
67652 ;;7^RICHMOND,VA
68658 ;;7^SALEM,VA
69659 ;;7^SALISBURY,VA
70 ;
71 ;billing cycle 5 sites
72508 ;;8^ATLANTA,GA
73509 ;;8^AUGUSTA,GA
74521 ;;8^BIRMINGHAM,AL
75534 ;;8^CHARLESTON,NC
76544 ;;8^COLUMBIA,SC
77557 ;;8^DUBLIN,GA
78619 ;;8^MONTGOMERY,AL
79679 ;;8^TUSCALOOSA,AL
80680 ;;8^TUSKEGEE,AL
81 ;
82 ;billing cycle 6 sites
83516 ;;10^BAY PINES,FL
84573 ;;10^GAINESVILLE,FL
85594 ;;10^LAKE CITY,FL
86546 ;;10^MIAMI,FL
87672 ;;10^SAN JUAN,PR
88673 ;;10^TAMPA,FL
89548 ;;10^WEST PALM BEACH,FL
90 ;
91 ;billing cycle 7 sites
92581 ;;11^HUNTINGTON,WV
93596 ;;11^LEXINGTON,KY
94603 ;;11^LOUISVILLE,KY
95614 ;;11^MEMPHIS,TN
96621 ;;11^MOUNTAIN HOME,TN
97622 ;;11^MURFREESBORO,TN
98626 ;;11^NASHVILLE,TN
99538 ;;11^CHILLICOTHE,OH
100539 ;;11^CINCINNATI,OH
101541 ;;11^CLEVELAND,OH
102757 ;;11^COLUMBUS,OH
103552 ;;11^DAYTON,OH
104 ;
105 ;billing cycle 8 sites
106553 ;;13^ALLEN PARK,MI
107506 ;;13^ANN ARBOR,MI
108515 ;;13^BATTLE CREEK,MI
109550 ;;13^DANVILLE,IL
110569 ;;13^FORT WAYNE,IN
111583 ;;13^INDIANOPOLIS,IN
112610 ;;13^MARION,IN
113655 ;;13^SAGINAW,MI
114 ;
115 ;billing cycle 9 sites
116535 ;;15^CHICAGO,IL (LS)
117537 ;;15^CHICAGO,IL (WS)
118578 ;;15^HINES,IL
119585 ;;15^IRON MOUNTAIN,MI
120607 ;;15^MADISON,WI
121695 ;;15^MILWAUKEE,WI
122556 ;;15^NORTH CHICAGO (DOWNEY)
123676 ;;15^TOMAH,WI
124 ;
125 ;billing cycle 10 sites
126437 ;;16^FARGO,ND
127568 ;;16^FORT MEADE,SD
128579 ;;16^HOT SPRINGS,SD
129618 ;;16^MINNEAPOLIS,MN
130438 ;;16^SIOUX FALLS,SD
131656 ;;16^ST. CLOUD,MN
132555 ;;16^DES MOINES,IA
133574 ;;16^GRAND ISLAND,NE
134584 ;;16^IOWA CITY,IA
135592 ;;16^KNOXVILLE,IA
136597 ;;16^LINCOLN,NE
137636 ;;16^OMAHA,NE
138 ;
139 ;billing cycle 11 sites
140543 ;;18^COLUMBIA,MO
141589 ;;18^KANSAS CITY,MO
142686 ;;18^LEAVENWORTH,KS
143609 ;;18^MARION,IL
144647 ;;18^POPLAR BLUFF,MO
145677 ;;18^TOPEKA,KS
146452 ;;18^WICHITA,KS
147 ;
148 ;billing cycle 12 sites
149502 ;;20^ALEXANDRIA,LA
150520 ;;20^BILOXI,MS
151564 ;;20^FAYETTEVILLE,AR
152580 ;;20^HOUSTON,TX
153586 ;;20^JACKSON,MS
154598 ;;20^LITTLE ROCK,AR
155623 ;;20^MUSKOGEE,OK
156629 ;;20^ORLEANS,LA
157635 ;;20^OKLAHOMA CITY,OK
158667 ;;20^SHREVEPORT,LA
159 ;
160 ;billing cycle 13 sites
161522 ;;22^BONHAM,TX
162549 ;;22^DALLAS,TX
163591 ;;22^KERRVILLE,TX
164611 ;;22^MARLIN,TX
165671 ;;22^SAN ANTONIO,TX
166674 ;;22^TEMPLE,TX
167685 ;;22^WACO,TX
168501 ;;22^ALBUQUERQUE,NM
169519 ;;22^BIG SPRING,TX
170756 ;;22^EL PASO,TX
171644 ;;22^PHOENIX,AZ
172649 ;;22^PRESCOTT,AZ
173678 ;;22^TUSCON,AZ
174 ;
175 ;billing cycle 14 sites
176442 ;;24^CHEYENNE,WY
177554 ;;24^DENVER,CO
178436 ;;24^FORT HARRISON,MT
179567 ;;24^FORT LYON,CO
180575 ;;24^GRAND JUNCTION,CO
181617 ;;24^MILES CITY,MT
182660 ;;24^SALT LAKE CITY,UT
183666 ;;24^SHERIDAN,WY
184505 ;;24^AMERICAN LAKE/TACOMA,WA^663B
185463 ;;24^ANCHORAGE,AK
186531 ;;24^BOISE,ID
187648 ;;24^PORTLAND,OR
188653 ;;24^ROSEBURG,OR
189663 ;;24^SEATTLE,WA
190668 ;;24^SPOKANE,WA
191687 ;;24^WALLA WALLA,WA
192692 ;;24^WHITE CITY,OR
193 ;
194 ;billing cycle 15 sites
195570 ;;26^FRESNO,CA
196459 ;;26^HONOLULU,HI
197612 ;;26^MARTINEZ,CA
198640 ;;26^PALO ALTO,CA
199654 ;;26^RENO,NV
200662 ;;26^SAN FRANCISCO,CA
201 ;
202 ;billing cycle 16 sites
203593 ;;28^LAS VEGAS,NV
204605 ;;28^LOMA LINDA,CA
205600 ;;28^LONG BEACH,CA
206691 ;;28^WEST LOS ANGELES,CA
207664 ;;28^SAN DIEGO,CA
208665 ;;28^SEPULVEDA,CA
209752 ;;28^LOS ANGELES,CA
Note: See TracBrowser for help on using the repository browser.