source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD53156P.m@ 736

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

initial load of WorldVistAEHR
File size: 3.6 KB
RevLine 
[613]1SD53156P ;BP-CIOFO/KEITH - POST INSTALL SD*5.3*156 ; 23 Sep 98 10:20 AM
2 ;;5.3;Scheduling;**156**;Aug 13 1993
3 ;
4SEED ;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING
5 ; PARAMETER file (#404.91) with workload close-out dates for FY1999
6 ;
7 ;Declare variables
8 N XPDIDTOT,LINE,DATES,WLMONTH,DBCLOSE,WLCLOSE,TMP
9 ;Print header
10 D BMES^XPDUTL(">>> Storing revised close-out dates for Fiscal Year 1998")
11 S TMP=$$INSERT^SCDXUTL1("Workload","",7)
12 S TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
13 S TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
14 D BMES^XPDUTL(TMP)
15 S TMP=$$INSERT^SCDXUTL1("Occured In","",6)
16 S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
17 S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
18 D MES^XPDUTL(TMP)
19 S TMP=$$INSERT^SCDXUTL1("------------","",5)
20 S TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
21 S TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
22 D MES^XPDUTL(TMP)
23 ;Loop through list of dates
24 S XPDIDTOT=6
25 F LINE=2:1:7 S TMP=$T(FY98+LINE),DATES=$P(TMP,";",3) Q:(DATES="") D
26 .;Break out info
27 .S WLMONTH=$P(DATES,"^",1)
28 .S DBCLOSE=$P(DATES,"^",2)
29 .S WLCLOSE=$P(DATES,"^",3)
30 .;Print close-out info
31 .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
32 .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
33 .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
34 .D MES^XPDUTL(TMP)
35 .;Store close-out info
36 .S TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
37 .;Write error message if datebase or workload dates not updated
38 .I TMP<0 D MES^XPDUTL(" >>>>Could not update closeout dates for above month.")
39 .;If KIDS install, show progress through status bar
40 .D:($G(XPDNM)'="") UPDATE^XPDID(LINE-1)
41 D BMES^XPDUTL("")
42 ;Print header
43 D BMES^XPDUTL(">>> Storing close-out dates for Fiscal Year 1999")
44 S TMP=$$INSERT^SCDXUTL1("Workload","",7)
45 S TMP=$$INSERT^SCDXUTL1("Database",TMP,27)
46 S TMP=$$INSERT^SCDXUTL1("Workload",TMP,47)
47 D BMES^XPDUTL(TMP)
48 S TMP=$$INSERT^SCDXUTL1("Occured In","",6)
49 S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,27)
50 S TMP=$$INSERT^SCDXUTL1("Close-Out",TMP,47)
51 D MES^XPDUTL(TMP)
52 S TMP=$$INSERT^SCDXUTL1("------------","",5)
53 S TMP=$$INSERT^SCDXUTL1("------------",TMP,25)
54 S TMP=$$INSERT^SCDXUTL1("------------",TMP,45)
55 D MES^XPDUTL(TMP)
56 ;Loop through list of dates
57 S XPDIDTOT=12
58 F LINE=2:1:13 S TMP=$T(FY99+LINE),DATES=$P(TMP,";",3) Q:(DATES="") D
59 .;Break out info
60 .S WLMONTH=$P(DATES,"^",1)
61 .S DBCLOSE=$P(DATES,"^",2)
62 .S WLCLOSE=$P(DATES,"^",3)
63 .;Print close-out info
64 .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLMONTH,"1D"),"",7)
65 .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(DBCLOSE,"1D"),TMP,25)
66 .S TMP=$$INSERT^SCDXUTL1($$FMTE^XLFDT(WLCLOSE,"1D"),TMP,45)
67 .D MES^XPDUTL(TMP)
68 .;Store close-out info
69 .S TMP=$$AECLOSE^SCDXFU04(WLMONTH,DBCLOSE,WLCLOSE)
70 .;Write error message if datebase or workload dates not updated
71 .I TMP<0 D MES^XPDUTL(" >>>>Could not update closeout dates for above month.")
72 .;If KIDS install, show progress through status bar
73 .D:($G(XPDNM)'="") UPDATE^XPDID(LINE-1)
74 D BMES^XPDUTL("")
75 Q
76 ;
77FY98 ;Revised Close-out dates for fiscal year 1998
78 ; Month ^ Database Close-Out ^ Workload Close-Ou
79 ;;2971000^2981016^2971130
80 ;;2971100^2981016^2971231
81 ;;2971200^2981016^2980131
82 ;;2980100^2981016^2980206
83 ;;2980200^2981016^2980306
84 ;;2980300^2981016^2980410
85 ;
86FY99 ;Revised Close-out dates for fiscal year 1999
87 ; Month ^ Database Close-Out ^ Workload Close-Out
88 ;;2981000^2990430^2981106
89 ;;2981100^2990430^2981211
90 ;;2981200^2990430^2990108
91 ;;2990100^2990430^2990212
92 ;;2990200^2990430^2990312
93 ;;2990300^2990430^2990409
94 ;;2990400^2991015^2990507
95 ;;2990500^2991015^2990611
96 ;;2990600^2991015^2990709
97 ;;2990700^2991015^2990806
98 ;;2990800^2991015^2990910
99 ;;2990900^2991015^2991008
100 ;
Note: See TracBrowser for help on using the repository browser.