source: FOIAVistA/trunk/r/ASISTS-OOPS/OOPSMBUL.m@ 1801

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

initial load of FOIAVistA 6/30/08 version
File size: 4.6 KB
Line 
1OOPSMBUL ;HIRMFO/REL-Bulletin ;3/30/98
2 ;;2.0;ASISTS;**2,4**;Jun 03, 2002
3 Q
4MFAC ;
5 N NIEN,NGRP,TEST
6 S NIEN=$$GET1^DIQ(2260,IEN,13,"I")
7 S NGRP=GRP_" - "_$$GET1^DIQ(4,NIEN,99,"E")
8 S TEST=$$FIND1^DIC(3.8,"","AMX",NGRP)
9 I TEST S GRP=NGRP
10 D GRP
11 Q
12CASE(IEN) ;
13 N CN,SUP,SUP2,Y,GRP
14 S XMB="OOPS CASE",X0=$G(^OOPS(2260,IEN,0)) K XMY
15 S CN=$P(X0,U,1),SUP=$P(X0,U,8),XMY(SUP)=""
16 S SUP2=$P(X0,U,9) I SUP2>0 S XMY(SUP2)=""
17 S XMB(3)=CN
18 ; V2 - 05/09/02 LLH - add whether inj or illness
19 S XMB(6)=$$GET1^DIQ(2260,IEN,52)
20 ; Patch 8 - added display of supervisors name to bulletin
21 S XMB(4)=$$GET1^DIQ(200,SUP,.01,"E")
22 I SUP2>0 S XMB(5)=$$GET1^DIQ(200,SUP2,.01,"E")
23 S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
24 S Y=$P(X0,U,3)
25 S GRP="OOPS INJURY"
26 D MFAC
27 S GRP="OOPS UNION"
28 D MFAC
29 I $P(X0,U,4)>10 S GRP="OOPS EH" D MFAC
30 ; next 2 lines restrict access to delivered message - 060303 LLH
31 S XMBODY="",XMINSTR("FLAGS")="IX"
32 D TASKBULL^XMXAPI(DUZ,"OOPS CASE",.XMB,XMBODY,.XMY,.XMINSTR)
33 Q
34SAFETY(IEN) ; Safety Officer Bulletin
35 N GRP
36 S XMB="OOPS SAFETY",X0=$G(^OOPS(2260,IEN,0)) K XMY
37 S XMB(1)=$P(X0,U,2)
38 S XMB(3)=$P(X0,U,1)
39 S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
40 S GRP="OOPS SAFETY"
41 D MFAC
42 D ^XMB K XMB,XMY,XMM,XMDT
43 Q
44CLSCASE(IEN) ; Bulletin to Safety & WC whenever a case is closed
45 ; 01/02/04 Patch 4, llh
46 ; Input
47 ; IEN - Internal record number
48 ;
49 N GRP
50 K XMB,XMY,X0
51 S XMB="OOPS CASE CLOSE NOTIFICATION"
52 S X0=$P($G(^OOPS(2260,IEN,0),"CASE UNDEFINED"),U)
53 S XMB(1)=X0 ; case number
54 S XMB(2)=$$GET1^DIQ(200,DUZ,.01,"E") ; name of user closing case
55 S XMB(3)=$$FMTE^XLFDT($$DT^XLFDT()) ; today's date
56 S GRP="OOPS WCP" D MFAC
57 D ^XMB
58 S GRP="OOPS SAFETY" D MFAC
59 D ^XMB K XMB,XMY,XMM,XMDT,X0
60 Q
61WCPBOR(IEN) ; Employee does not understand bill of rights, sent msg to wcp
62 ; Input
63 ; IEN - Internal record number
64 ;
65 N GRP,X0
66 S X0=$G(^OOPS(2260,IEN,0)) K XMY
67 S XMB(1)=$P(X0,U,2)
68 S XMB="OOPS WCPBOR"
69 S GRP="OOPS WCP"
70 D MFAC
71 D ^XMB K XMB,XMY,XMM,XMDT
72 Q
73CONSENT(IEN,UNIREP) ; Employee consented to union notification,
74 ; send msg to union
75 ; Input
76 ; IEN - Internal record number
77 ; UNIREP - IEN from file 200 of the Union Rep - used to send bulletin
78 ;
79 N GRP,X0,XA
80 S X0=$G(^OOPS(2260,IEN,0))
81 S XA=$G(^OOPS(2260,IEN,"2162A")) K XMY
82 S XMY(UNIREP)=""
83 S XMB(1)=$P(X0,U),Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
84 S XMB(3)=$$GET1^DIQ(2260,IEN,52)
85 S XMB(4)=$$GET1^DIQ(2260,IEN,2)
86 S XMB(5)=$$GET1^DIQ(2260,IEN,7)
87 S XMB(6)=$$GET1^DIQ(2260,IEN,13,"I")
88 S XMB(7)=$E($$GET1^DIQ(2260,IEN,18),1,28)
89 S XMB(8)=$$GET1^DIQ(2260,IEN,14)
90 S XMB(9)=$P(XA,U,12)_"/"_$P(XA,U,13)
91 S XMB(10)=$E($$GET1^DIQ(2260,IEN,53),1,23)
92 S XMB(11)=$E($$GET1^DIQ(2260,IEN,53.1),1,28)
93 S XMB(12)=$E($$GET1^DIQ(2260,IEN,3),1,23)
94 S XMDUZ=.5
95 S XMB="OOPS CONSENT"
96 D ^XMB K XMB,XMY,XMM,XMDT,XMDUZ
97 Q
98WCP(IEN,ACT) ; Bulletin to Super when WC edits or WX signs CA1/CA2
99 ; Input
100 ; IEN - Internal record number
101 ; ACT -
102 ; "E" = Edited by the WC personnel
103 ; "S" = Signed by the WC personnel
104 ;
105 N SUP,SUP2,Y
106 S XMB=$S(ACT="E":"OOPS WC EDITED",ACT="S":"OOPS WC SIGNED",1:"")
107 I $G(XMB)="" Q
108 S X0=$G(^OOPS(2260,IEN,0)) K XMY
109 S SUP=$P(X0,U,8),XMY(SUP)=""
110 S SUP2=$P(X0,U,9) I $G(SUP2) S XMY(SUP2)=""
111 S XMB(1)=$P(X0,U,2)
112 S XMB(2)=$P(X0,U,1)
113 S Y=$P(X0,U,5) D DD^%DT S XMB(3)=Y
114 S XMDUZ=.5
115 D ^XMB K XMB,XMY,XMM,XMDT,X0,XMDUZ
116 Q
117SUPS(IEN) ; Bulletin to WC when Supervisor signs CA1/CA2
118 ; Patch 8
119 N SUP,SUP2,FORM,GRP,Y
120 S XMB="OOPS WORKERS COMP",X0=$G(^OOPS(2260,IEN,0)) K XMY
121 S SUP=$P(X0,U,8),XMY(SUP)=""
122 S SUP2=$P(X0,U,9) I $G(SUP2) S XMY(SUP2)=""
123 S XMB(1)=$P(X0,U,2)
124 S XMB(2)=$P(X0,U,1)
125 S Y=$P(X0,U,5) D DD^%DT S XMB(3)=Y
126 S FORM=$P(X0,U,7)
127 S FORM=$S(FORM=1:"CA1ES",FORM=2:"CA2ES",1:"")
128 I FORM="" Q
129 S Y=$P(^OOPS(2260,IEN,FORM),U,6) D DD^%DT S XMB(4)=Y
130 S GRP="OOPS WCP"
131 D MFAC
132 D ^XMB K XMB,XMY,XMM,XMDT,X0
133 Q
134UNION(IEN) ; Union Bulletin
135 N GRP,Y
136 S XMB="OOPS SUPERVISOR",X0=$G(^OOPS(2260,IEN,0)) K XMY
137 S XMB(3)=$P(X0,U,1)
138 S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
139 S GRP="OOPS UNION"
140 D MFAC
141 D ^XMB K XMB,XMY,XMM,XMDT
142 Q
143EMP(IEN) ; Employee notification to supervisor
144 N GRP,SUP,SUP2
145 S XMB="OOPS EMPLOYEE",X0=$G(^OOPS(2260,IEN,0)) K XMY
146 S XMB(3)=$P(X0,U,1)
147 S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
148 S SUP=$P(X0,U,8),XMY(SUP)=""
149 S SUP2=$P(X0,U,9) I SUP2>0 S XMY(SUP2)=""
150 S GRP="OOPS INJURY"
151 D MFAC
152 D ^XMB K XMY,XMM,XMDT
153 S GRP="OOPS UNION"
154 D MFAC
155 S XMDUZ=.5
156 D ^XMB K XMB,XMY,XMM,XMDT,XMDUZ
157 Q
158BOR(IEN) ; Employee Bill of Rights
159 N EMP
160 S XMB="OOPS BILL OF RIGHTS" K XMY
161 S EMP=$O(^VA(200,"SSN",SSN,0)),XMY(EMP)=""
162 D ^XMB K XMB,XMY,XMM,XMDT
163 Q
164GRP ; Get Mail group Members for GRP
165 I GRP="" Q
166 S XMY("I:G."_GRP)=""
167 Q
Note: See TracBrowser for help on using the repository browser.