RCYPO236.m

RCYPO236 ;MAF/ALB - POST INIT FOR POPULATING THE EMERGENCY FIELDS FOR BEGINNING AND ENDING DATES ;9/20/05

V ;;4.5;Accounts Receivable;**236**;Mar 20, 1995

 D BMES^XPDUTL(">>>>>>>Updating the beginning and ending dates for the")

 D BMES^XPDUTL("       Katrina Emergency Response patch<<<<<<<")

 S $P(^RC(342,1,30),"^",1)=3050901

 S $P(^RC(342,1,30),"^",2)=3060228

 D BMES^XPDUTL(">>Done")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCYPO236   399     printed  Mar 13, 2025@20:54:40                                                                                                                                                                                                     Page 2

RCYPO236  ;MAF/ALB - POST INIT FOR POPULATING THE EMERGENCY FIELDS FOR BEGINNING AND ENDING DATES ;9/20/05

V         ;;4.5;Accounts Receivable;**236**;Mar 20, 1995

 +1        DO BMES^XPDUTL(">>>>>>>Updating the beginning and ending dates for the")

 +2        DO BMES^XPDUTL("       Katrina Emergency Response patch<<<<<<<")

 +3        SET $PIECE(^RC(342,1,30),"^",1)=3050901

 +4        SET $PIECE(^RC(342,1,30),"^",2)=3060228

 +5        DO BMES^XPDUTL(">>Done")

 +6        QUIT