source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCYPO236.m@ 949

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

initial load of WorldVistAEHR

File size: 391 bytes
RevLine 
[613]1RCYPO236 ;MAF/ALB - POST INIT FOR POPULATING THE EMERGENCY FIELDS FOR BEGINNING AND ENDING DATES ;9/20/05
2V ;;4.5;Accounts Receivable;**236**;Mar 20, 1995
3 D BMES^XPDUTL(">>>>>>>Updating the beginning and ending dates for the")
4 D BMES^XPDUTL(" Katrina Emergency Response patch<<<<<<<")
5 S $P(^RC(342,1,30),"^",1)=3050901
6 S $P(^RC(342,1,30),"^",2)=3060228
7 D BMES^XPDUTL(">>Done")
8 Q
Note: See TracBrowser for help on using the repository browser.