| [613] | 1 | DG53382P ;ALB-CIOFO/MRY - Add PTF Quarterly Census date;11/16/00 ; 5/14/01 1:30pm
|
|---|
| 2 | ;;5.3;Scheduling/Registration;**382**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | CENSUS ;--- add new census date
|
|---|
| 6 | ; These dates should be updated each quarter, per MAS VACO.
|
|---|
| 7 | ;
|
|---|
| 8 | ; **NOTE - the input transform for the .01 field of file 45.86
|
|---|
| 9 | ; needs to be updated quarterly to the last date of the quarter
|
|---|
| 10 | ; for this routine to run successfully.
|
|---|
| 11 | ;
|
|---|
| 12 | ; Patch will include routine to update dates, and Data Dictionary
|
|---|
| 13 | ; for .01 field
|
|---|
| 14 | ;
|
|---|
| 15 | EN ;
|
|---|
| 16 | N CENDATE,CLOSDATE,OKTOXM,ACTIVE,CPSTART,ERR
|
|---|
| 17 | N DA,DD,DIC,DIE,DLAYGO,DO,DR,X,Y
|
|---|
| 18 | ;
|
|---|
| 19 | S ERR=0
|
|---|
| 20 | ;
|
|---|
| 21 | ;-- ALL DATES ARE FOR FY2001, Q3 CENSUS
|
|---|
| 22 | ;
|
|---|
| 23 | ;-- Census Date 06-30-2001
|
|---|
| 24 | S CENDATE=3010630
|
|---|
| 25 | ;-- Close-out Date 07-13-2001
|
|---|
| 26 | S CLOSDATE=3010713
|
|---|
| 27 | ;
|
|---|
| 28 | ;-- ok to x-mit PTF date 3-31-1997
|
|---|
| 29 | ; **no need to change, per Austin
|
|---|
| 30 | S OKTOXM=2970331
|
|---|
| 31 | ;-- currently active
|
|---|
| 32 | S ACTIVE=1
|
|---|
| 33 | ;-- Census Period Start Date 04-01-2001
|
|---|
| 34 | S CPSTART=3010401
|
|---|
| 35 | ;
|
|---|
| 36 | D BMES^XPDUTL(">>> Updating PTF Census Date File (#45.86) for 3rd Quarter, FY 2001.")
|
|---|
| 37 | S X=$O(^DG(45.86,"AC",0)) I X S X=$O(^DG(45.86,"AC",X,0)),DIE="^DG(45.86,",DA=X,DR=".04////0" D ^DIE K DIE,DR,DA
|
|---|
| 38 | S DIC="^DG(45.86,",X=CENDATE,DIC(0)="L",DLAYGO=45.86 K DD,DO D ^DIC K DIC
|
|---|
| 39 | I Y'>0 S ERR=1 D ERR Q ;checks to see if record is created
|
|---|
| 40 | S DIE="^DG(45.86,",DA=+Y,DR=".02////"_CLOSDATE_";.03////"_OKTOXM_";.04////"_ACTIVE_";.05////"_CPSTART
|
|---|
| 41 | D ^DIE K DIE,DR,DA
|
|---|
| 42 | ;
|
|---|
| 43 | D MES^XPDUTL("Done.")
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | ; This will update the PTF CENSUS DATE File (#45.86). The EN tag may be re-run
|
|---|
| 47 | ERR ;
|
|---|
| 48 | D BMES^XPDUTL("Problem with PTF CENSUS DATE File (#45.86) Update. Please")
|
|---|
| 49 | D MES^XPDUTL("contact the National VISTA Support Team for assistance.")
|
|---|
| 50 | Q
|
|---|
