source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53729C.m@ 1326

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

initial load of FOIAVistA 6/30/08 version

File size: 959 bytes
Line 
1DG53729C ;ALB/MRY -Post-init routine for DG*5.3*729 Census ;7/19/2007
2 ;;5.3;Registration;**729**;Aug 13, 1993;Build 59
3 ;
4EN ;This patch will update the closeout date for the 9/30/2007 census
5 ;if an entry exists in the PTF Census Date (#45.86) file for that
6 ;census.
7 ;
8 ;Look up 9/30/2007 census record in PTF Census Date (#45.86) file
9 D BMES^XPDUTL("***** Updating PTF Census *****")
10 N DIC,X,Y
11 S DIC="^DG(45.86,"
12 S DIC(0)="MZ"
13 S X=3070930
14 D ^DIC
15 I +Y'>0 D Q
16 .D BMES^XPDUTL(" 9/30/2007 census record does not exist in PTF Census Date (#45.86) file. No update needed.")
17 ;Check closeout date and update to 10/14/2007 if necessary.
18 I $P(Y(0),U,2)=3071014 D Q
19 .D BMES^XPDUTL(" Closeout date for 9/30/2007 currently set for")
20 .D MES^XPDUTL(" 10/14/2007. No updating necessary.")
21 N DIE,DA,DR
22 S DIE="^DG(45.86,"
23 S DA=+Y
24 S DR=".02////3071014"
25 D ^DIE
26 D BMES^XPDUTL(" Closeout date for the 9/30/2007 census changed to 10/14/2007.")
27 Q
Note: See TracBrowser for help on using the repository browser.