source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53382P.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1DG53382P ;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 ;
5CENSUS ;--- 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 ;
15EN ;
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
47ERR ;
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
Note: See TracBrowser for help on using the repository browser.