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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCCPC0 4664 printed Dec 13, 2024@01:43:05 Page 2
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
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;POST-INIT FOR PRCA*4.5*34
EN ;Set dates in file 342 for site's statement day
+1 NEW SDAY,SITE,T
+2 SET SDAY=0
+3 SET SITE=$$SITE^RCMSITE
+4 IF $TEXT(@SITE)
SET T=$TEXT(@SITE)
SET SDAY=+$PIECE(T,";;",2)
+5 if 'SDAY
QUIT
+6 SET $PIECE(^RC(342,1,0),"^",11)=SDAY
+7 DO EN^RCCPC1
+8 QUIT
+9 ;
+10 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
+1 ;
+2 ;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
