source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCGJ.m@ 1766

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

initial load of WorldVistAEHR

File size: 4.4 KB
Line 
1FSCRPCGJ ;SLC/STAFF-NOIS RPC Patch Report Summary ;1/13/98 15:46
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4PATCH(PATCH) ; from FSCRPCG
5 N CNT,LINE,NUM,PACKZERO,ZERO
6 S CNT=0
7 S ZERO=$G(^A1AE(11005,+$G(PATCH),0)) I '$L(ZERO) Q
8 I '$L(ZERO) Q
9 S PACKZERO=$G(^DIC(9.4,+$P(ZERO,U,2),0))
10 D SET("=============================================================================",.CNT)
11 S LINE="Run Date: "_$$FMTE^XLFDT(DT)
12 S LINE=$$SETSTR^VALM1("Designation: ",LINE,46,13)_$P(ZERO,U)
13 D SET(LINE,.CNT)
14 S LINE="Package : "_$P(PACKZERO,U,2)_" - "_$P(PACKZERO,U)
15 S LINE=$$SETSTR^VALM1(" Priority: ",LINE,46,13)_$$PRIORITY($P(ZERO,U,7))
16 D SET(LINE,.CNT)
17 S LINE="Version : "_$P(ZERO,U,3)
18 I $P(ZERO,U,6) S LINE=$$SETSTR^VALM1("SEQ #"_$P(ZERO,U,6),LINE,23,12)
19 S LINE=$$SETSTR^VALM1(" Status: ",LINE,46,13)_$$STATUS($P(ZERO,U,8))
20 D SET(LINE,.CNT)
21 D SET("=============================================================================",.CNT)
22 D SET("",.CNT)
23 D ASSOC(PATCH,.CNT)
24 D SET("",.CNT)
25 S LINE="Subject: "_$P(ZERO,U,5)
26 D SET(LINE,.CNT)
27 D SET("",.CNT)
28 I $P(ZERO,U,8)'="v" Q ; *** don't display unreleased patch
29 D SET("Category",.CNT)
30 S NUM=0 F S NUM=$O(^A1AE(11005,PATCH,"C",NUM)) Q:NUM<1 S LINE=^(NUM,0) D
31 .S LINE=$$CATEGORY(LINE,$P(ZERO,U,7))
32 .I LINE="e" D
33 ..S LINE="Enhancement ("
34 ..I $P(ZERO,U,7)="m" S LINE=LINE_"Mandatory)" Q
35 ..I $P(ZERO,U,7)="n" S LINE=LINE_"Optional)" Q
36 ..S LINE=LINE_")"
37 .D SET(" - "_LINE,.CNT)
38 D SET("",.CNT)
39 D SET("Description",.CNT)
40 D SET("===========",.CNT)
41 D SET("",.CNT)
42 S NUM=0 F S NUM=$O(^A1AE(11005,PATCH,"D",NUM)) Q:NUM<1 S LINE=" "_^(NUM,0) D
43 .D SET(LINE,.CNT)
44 D SET("",.CNT)
45 D SET("================================================================================",.CNT)
46 S LINE="User Information:"
47 D SET(LINE,.CNT)
48 S LINE="Entered By : "_$P($G(^VA(200,+$P(ZERO,U,9),0)),U)
49 S LINE=$$SETSTR^VALM1(" Date Entered : ",LINE,50,16)
50 I $P(ZERO,U,12) S LINE=LINE_$$FMTE^XLFDT($P(ZERO,U,12))
51 D SET(LINE,.CNT)
52 S LINE="Completed By: "_$P($G(^VA(200,+$P(ZERO,U,13),0)),U)
53 S LINE=$$SETSTR^VALM1("Date Completed: ",LINE,50,16)
54 I $P(ZERO,U,10) S LINE=LINE_$$FMTE^XLFDT($P(ZERO,U,10))
55 D SET(LINE,.CNT)
56 S LINE="Released By : "_$P($G(^VA(200,+$P(ZERO,U,14),0)),U)
57 S LINE=$$SETSTR^VALM1(" Date Released: ",LINE,50,16)
58 I $P(ZERO,U,11) S LINE=LINE_$$FMTE^XLFDT($P(ZERO,U,11))
59 D SET(LINE,.CNT)
60 D SET("================================================================================",.CNT)
61 Q
62 ;
63ASSOC(PATCH,CNT) ;
64 I '$D(^A1AE(11005,+$G(PATCH),"Q","B")) Q
65 N AN,AZ,APATCH,AZERO,NUM K AZ
66 S NUM=0 F S NUM=$O(^A1AE(11005,PATCH,"Q",NUM)) Q:NUM<1 S AZERO=$G(^(NUM,0)) I $L(AZERO) D
67 .S APATCH=+AZERO
68 .S AZ(APATCH)=$S($D(^A1AE(11005,APATCH,0)):"("_$P(^(0),U,8)_")"_$P(^(0),U),1:"patch not available")
69 .I AZ(APATCH)["*999*" S AZ(APATCH)=$P(AZ(APATCH),"*999*")_"*DBA*"_$P(AZ(APATCH),"*999*",2,99)
70 .I $P(AZERO,U,2)="y" S AZ("STOP",APATCH)=AZ(APATCH),AZ(APATCH)=$E(AZ(APATCH)_" ",1,15)_"<<= must be installed BEFORE '"_$P(^A1AE(11005,PATCH,0),U)_"'"
71 .E S AZ(APATCH)=$E(AZ(APATCH)_" ",1,19)_"install with patch '"_$P(^A1AE(11005,PATCH,0),U)_"'"
72 I $D(AZ)'=11 Q
73 S AN=0
74 S AZ=0 F S AZ=$O(AZ(AZ)) Q:'AZ I AZ(AZ)'["<<" D PSET(.AN,.AZ,.CNT)
75 S AZ=0 F S AZ=$O(AZ(AZ)) Q:'AZ I AZ(AZ)["<<" D PSET(.AN,.AZ,.CNT)
76 K AZ
77 Q
78 ;
79PSET(AN,AZ,CNT) ;
80 S AN=AN+1
81 I AN=1 D SET("Associated patches: "_AZ(AZ),.CNT) Q
82 E D SET(" "_AZ(AZ),.CNT)
83 Q
84 ;
85SET(LINE,CNT) ;
86 S CNT=CNT+1
87 S ^TMP("FSCRPC",$J,"OUTPUT",PATCH,CNT)=LINE
88 Q
89PRIORITY(PRI) ; $$(priortiy) -> external value
90 I PRI="p" Q "Patch for a Patch"
91 I PRI="n" Q "Not Urgent"
92 I PRI="m" Q "Mandatory"
93 I PRI="e" Q "EMERGENCY"
94 I PRI="i" Q "Informational"
95 Q ""
96 ;
97STATUS(STATUS) ; $$(status) -> external value
98 I STATUS="c" Q "Completed/NotReleased"
99 I STATUS="e" Q "Entered in Error"
100 I STATUS="u" Q "Under Development"
101 I STATUS="v" Q "Released"
102 I STATUS="r" Q "Retired"
103 Q ""
104 ;
105CATEGORY(CAT,PRI) ; $$(category, priority) -> external value
106 I CAT="d" Q "Data Dictonary"
107 I CAT="i" Q "Input Template"
108 I CAT="p" Q "Print Template"
109 I CAT="r" Q "Routine"
110 I CAT="s" Q "Sort Template"
111 I CAT="o" Q "Other"
112 I CAT="db" Q "Database"
113 I CAT="pp" Q "PATCH FOR A PATCH"
114 I CAT="inf" Q "Informational"
115 I CAT="e" Q "Enhancement ("_$S(PRI="m":"Mandatory",PRI="n":"Optional",1:"")_")"
116 I CAT="d" Q "Data Dictonary"
117 Q ""
118 ;
119TEST ;
120 N NUM,PATCH
121 S PATCH=5800
122 D PATCH(PATCH)
123 S NUM=0 F S NUM=$O(^TMP("FSCRPC",$J,"OUTPUT",PATCH,NUM)) Q:NUM<1 W !,^(NUM)
124 Q
Note: See TracBrowser for help on using the repository browser.