Last change
on this file since 841 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
959 bytes
|
Rev | Line | |
---|
[613] | 1 | DG53729C ;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 | ;
|
---|
| 4 | EN ;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.