Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCCPC0

RCCPC0.m

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