Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD53129P

SD53129P.m

Go to the documentation of this file. 
  1. SD53129P ;ALB/JRP/ABR - PATCH 129 POST-INIT;24-JUL-97
  1.  ;;5.3;Scheduling;**129**;Aug 13, 1993
  1.  ;
  1. POST ;Main entry point of post-init
  1.  ;
  1.  ;  Revise Database Closeout dates for FY1997 to 10/17/97 to allow
  1.  ;  missed surgery encounters to go in.
  1.  ;
  1.  ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
  1.  ; PARAMETER file (#404.91) with close-out dates for fiscal year 1998
  1.  ;
  1.  ;Declare variables
  1.  N LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP,ERR
  1.  D FY97REV ; revise FY97
  1.  D FY98UPD ; add FY98
  1.  Q
  1.  ;
  1. FY97REV ; revise FY97
  1.  D HDR(">>> Storing REVISED close-out dates for Fiscal Year 1997")
  1.  ;Loop through list of dates
  1.  F LINE=2:1:13 S TMP=$T(FY97+LINE),DATES=$P(TMP,";",3) Q:(DATES="")  D UPDATE Q:$G(ERR)
  1.  D BMES^XPDUTL("")
  1.  Q
  1.  ;
  1. FY98UPD ; add FY98
  1.  D HDR(">>> Storing close-out dates for Fiscal Year 1998")
  1.  ;Loop through list of dates
  1.  F LINE=2:1:13 S TMP=$T(FY98+LINE),DATES=$P(TMP,";",3) Q:(DATES="")  D UPDATE Q:$G(ERR)
  1.  D BMES^XPDUTL("")
  1.  Q
  1.  ;
  1. UPDATE ; file update - closeout dates.
  1.  S WLMONTH=$P(DATES,"^",1)
  1.  S DBCLOSE=$P(DATES,"^",2)
  1.  S WLCLOSE=$P(DATES,"^",3)
  1.  ;Print close-out info
  1.  S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
  1.  S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
  1.  S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
  1.  D MES^XPDUTL(TMP)
  1.  ;Store close-out info
  1.  S TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
  1.  I TMP<0 S ERR=1 D BMES^XPDUTL("*** ERROR IN UPDATING FILE.  CALL CUSTOMER SUPPORT")
  1.  Q
  1.  ;
  1. HDR(HDR) ;  header for closeout dates
  1.  D BMES^XPDUTL(HDR)
  1.  S TMP=$$INSERT^SCDXUTL1("Workload","",7)
  1.  S TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
  1.  S TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
  1.  D BMES^XPDUTL(TMP)
  1.  S TMP=$$INSERT^SCDXUTL1("Occurred In","",5)
  1.  S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
  1.  S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
  1.  D MES^XPDUTL(TMP)
  1.  S TMP=$$INSERT^SCDXUTL1("------------","",5)
  1.  S TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
  1.  S TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
  1.  D MES^XPDUTL(TMP)
  1.  Q
  1. FY97 ;Close-out dates for fiscal year 1997
  1.  ;  Month ^ Database Close-Out ^ Workload Close-Out
  1.  ;;2961000^2971017^2970331
  1.  ;;2961100^2971017^2970331
  1.  ;;2961200^2971017^2970331
  1.  ;;2970100^2971017^2970331
  1.  ;;2970200^2971017^2970331
  1.  ;;2970300^2971017^2970430
  1.  ;;2970400^2971017^2970531
  1.  ;;2970500^2971017^2970630
  1.  ;;2970600^2971017^2970731
  1.  ;;2970700^2971017^2970831
  1.  ;;2970800^2971017^2970930
  1.  ;;2970900^2971017^2971017
  1.  ;
  1. FY98 ;Close-out dates for fiscal year 1998
  1.  ;  Month ^ Database Close-Out ^ Workload Close-Out
  1.  ;;2971000^2980430^2971130
  1.  ;;2971100^2980430^2971231
  1.  ;;2971200^2980430^2980131
  1.  ;;2980100^2980430^2980228
  1.  ;;2980200^2980430^2980331
  1.  ;;2980300^2980430^2980430
  1.  ;;2980400^2981016^2980531
  1.  ;;2980500^2981016^2980630
  1.  ;;2980600^2981016^2980731
  1.  ;;2980700^2981016^2980831
  1.  ;;2980800^2981016^2980930
  1.  ;;2980900^2981016^2981016
  1.  ;