- DG53288P ;BP-CIOFO/MM - Add PTF Quarterly Census date;5/9/00
- ;;5.3;Scheduling/Registration;**288**;Aug 13, 1993
- ;
- ;
- CENSUS ;--- add new census date
- ; These dates should be updated each quarter, per MAS VACO.
- ;
- ; **NOTE - the input transform for the .01 field of file 45.86
- ; needs to be updated quarterly to the last date of the quarter
- ; for this routine to run successfully.
- ;
- ; Patch will include routine to update dates, and Data Dictionary
- ; for .01 field
- ;
- EN ;
- N CENDATE,CLOSDATE,OKTOXM,ACTIVE,CPSTART,ERR
- N DA,DD,DIC,DIE,DLAYGO,DO,DR,X,Y
- ;
- S ERR=0
- ;
- ;-- ALL DATES ARE FOR FY2000, Q3 CENSUS
- ;
- ;-- Census Date 6-30-2000
- S CENDATE=3000630
- ;-- Close-out Date 07-14-2000
- S CLOSDATE=3000714
- ;
- ;-- ok to x-mit PTF date 3-31-1997
- ; **no need to change, per Austin
- S OKTOXM=2970331
- ;-- currently active
- S ACTIVE=1
- ;-- Census Period Start Date 4-1-2000
- S CPSTART=3000401
- ;
- D BMES^XPDUTL(">>> Updating PTF Census Date File (#45.86) for 3rd Quarter, FY 2000.")
- 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
- S DIC="^DG(45.86,",X=CENDATE,DIC(0)="L",DLAYGO=45.86 K DD,DO D ^DIC K DIC
- I Y'>0 S ERR=1 D ERR Q ;checks to see if record is created
- S DIE="^DG(45.86,",DA=+Y,DR=".02////"_CLOSDATE_";.03////"_OKTOXM_";.04////"_ACTIVE_";.05////"_CPSTART
- D ^DIE K DIE,DR,DA
- ;
- D MES^XPDUTL("Done.")
- Q
- ;
- ; This will update the PTF CENSUS DATE File (#45.86). The EN tag may be re-run
- ERR ;
- D BMES^XPDUTL("Problem with PTF CENSUS DATE File (#45.86) Update. Please")
- D MES^XPDUTL("contact the National VISTA Support Team for assistance.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53288P 1709 printed Feb 19, 2025@00:03:02 Page 2
- DG53288P ;BP-CIOFO/MM - Add PTF Quarterly Census date;5/9/00
- +1 ;;5.3;Scheduling/Registration;**288**;Aug 13, 1993
- +2 ;
- +3 ;
- CENSUS ;--- add new census date
- +1 ; These dates should be updated each quarter, per MAS VACO.
- +2 ;
- +3 ; **NOTE - the input transform for the .01 field of file 45.86
- +4 ; needs to be updated quarterly to the last date of the quarter
- +5 ; for this routine to run successfully.
- +6 ;
- +7 ; Patch will include routine to update dates, and Data Dictionary
- +8 ; for .01 field
- +9 ;
- EN ;
- +1 NEW CENDATE,CLOSDATE,OKTOXM,ACTIVE,CPSTART,ERR
- +2 NEW DA,DD,DIC,DIE,DLAYGO,DO,DR,X,Y
- +3 ;
- +4 SET ERR=0
- +5 ;
- +6 ;-- ALL DATES ARE FOR FY2000, Q3 CENSUS
- +7 ;
- +8 ;-- Census Date 6-30-2000
- +9 SET CENDATE=3000630
- +10 ;-- Close-out Date 07-14-2000
- +11 SET CLOSDATE=3000714
- +12 ;
- +13 ;-- ok to x-mit PTF date 3-31-1997
- +14 ; **no need to change, per Austin
- +15 SET OKTOXM=2970331
- +16 ;-- currently active
- +17 SET ACTIVE=1
- +18 ;-- Census Period Start Date 4-1-2000
- +19 SET CPSTART=3000401
- +20 ;
- +21 DO BMES^XPDUTL(">>> Updating PTF Census Date File (#45.86) for 3rd Quarter, FY 2000.")
- +22 SET X=$ORDER(^DG(45.86,"AC",0))
- IF X
- SET X=$ORDER(^DG(45.86,"AC",X,0))
- SET DIE="^DG(45.86,"
- SET DA=X
- SET DR=".04////0"
- DO ^DIE
- KILL DIE,DR,DA
- +23 SET DIC="^DG(45.86,"
- SET X=CENDATE
- SET DIC(0)="L"
- SET DLAYGO=45.86
- KILL DD,DO
- DO ^DIC
- KILL DIC
- +24 ;checks to see if record is created
- IF Y'>0
- SET ERR=1
- DO ERR
- QUIT
- +25 SET DIE="^DG(45.86,"
- SET DA=+Y
- SET DR=".02////"_CLOSDATE_";.03////"_OKTOXM_";.04////"_ACTIVE_";.05////"_CPSTART
- +26 DO ^DIE
- KILL DIE,DR,DA
- +27 ;
- +28 DO MES^XPDUTL("Done.")
- +29 QUIT
- +30 ;
- +31 ; This will update the PTF CENSUS DATE File (#45.86). The EN tag may be re-run
- ERR ;
- +1 DO BMES^XPDUTL("Problem with PTF CENSUS DATE File (#45.86) Update. Please")
- +2 DO MES^XPDUTL("contact the National VISTA Support Team for assistance.")
- +3 QUIT