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

OOPSMBUL.m

Go to the documentation of this file.
  1. OOPSMBUL ;HIRMFO/REL-Bulletin ;3/30/98
  1. ;;2.0;ASISTS;**2,4,15**;Jun 03, 2002;Build 9
  1. Q
  1. MFAC ;
  1. N NIEN,NGRP,TEST
  1. S NIEN=$$GET1^DIQ(2260,IEN,13,"I")
  1. S NGRP=GRP_" - "_$$GET1^DIQ(4,NIEN,99,"E")
  1. S TEST=$$FIND1^DIC(3.8,"","AMX",NGRP)
  1. I TEST S GRP=NGRP
  1. D GRP
  1. Q
  1. CASE(IEN) ;
  1. N CN,SUP,SUP2,Y,GRP
  1. S XMB="OOPS CASE",X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S CN=$P(X0,U,1),SUP=$P(X0,U,8),XMY(SUP)=""
  1. S SUP2=$P(X0,U,9) I SUP2>0 S XMY(SUP2)=""
  1. S XMB(3)=CN
  1. ; V2 - 05/09/02 LLH - add whether inj or illness
  1. S XMB(6)=$$GET1^DIQ(2260,IEN,52)
  1. ; Patch 8 - added display of supervisors name to bulletin
  1. S XMB(4)=$$GET1^DIQ(200,SUP,.01,"E")
  1. I SUP2>0 S XMB(5)=$$GET1^DIQ(200,SUP2,.01,"E")
  1. S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
  1. S Y=$P(X0,U,3)
  1. S GRP="OOPS INJURY"
  1. D MFAC
  1. S GRP="OOPS UNION"
  1. D MFAC
  1. I $P(X0,U,4)>10 S GRP="OOPS EH" D MFAC
  1. ; next 2 lines restrict access to delivered message - 060303 LLH
  1. S XMBODY="",XMINSTR("FLAGS")="IX"
  1. D TASKBULL^XMXAPI(DUZ,"OOPS CASE",.XMB,XMBODY,.XMY,.XMINSTR)
  1. Q
  1. SAFETY(IEN) ; Safety Officer Bulletin
  1. N GRP
  1. S XMB="OOPS SAFETY",X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S XMB(1)=$P(X0,U,2)
  1. S XMB(3)=$P(X0,U,1)
  1. S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
  1. S GRP="OOPS SAFETY"
  1. D MFAC
  1. D ^XMB K XMB,XMY,XMM,XMDT
  1. Q
  1. CIO(IEN) ; OOPS INCIDENT OUTCOME REQUIRED BULLETIN
  1. ;this bulletin is sent to the safety officer when the response to the
  1. ;INITIAL RETURN TO WORK STATUS (field #352) is "Days Away Work" or
  1. ;"Job Transfer/Transfer"
  1. ;Input: IEN of the ASISTS case
  1. N GRP,XMB,X0
  1. S XMB="OOPS INCIDENT OUTCOME REQUIRED",X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S XMB(1)=$P(X0,U,1)
  1. S GRP="OOPS SAFETY"
  1. D MFAC
  1. D ^XMB K XMB,XMY,XMM,XMDT
  1. Q
  1. CLSCASE(IEN) ; Bulletin to Safety & WC whenever a case is closed
  1. ; 01/02/04 Patch 4, llh
  1. ; Input
  1. ; IEN - Internal record number
  1. ;
  1. N GRP
  1. K XMB,XMY,X0
  1. S XMB="OOPS CASE CLOSE NOTIFICATION"
  1. S X0=$P($G(^OOPS(2260,IEN,0),"CASE UNDEFINED"),U)
  1. S XMB(1)=X0 ; case number
  1. S XMB(2)=$$GET1^DIQ(200,DUZ,.01,"E") ; name of user closing case
  1. S XMB(3)=$$FMTE^XLFDT($$DT^XLFDT()) ; today's date
  1. S GRP="OOPS WCP" D MFAC
  1. D ^XMB
  1. S GRP="OOPS SAFETY" D MFAC
  1. D ^XMB K XMB,XMY,XMM,XMDT,X0
  1. Q
  1. WCPBOR(IEN) ; Employee does not understand bill of rights, sent msg to wcp
  1. ; Input
  1. ; IEN - Internal record number
  1. ;
  1. N GRP,X0
  1. S X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S XMB(1)=$P(X0,U,2)
  1. S XMB="OOPS WCPBOR"
  1. S GRP="OOPS WCP"
  1. D MFAC
  1. D ^XMB K XMB,XMY,XMM,XMDT
  1. Q
  1. ; send msg to union
  1. ; Input
  1. ; IEN - Internal record number
  1. ; UNIREP - IEN from file 200 of the Union Rep - used to send bulletin
  1. ;
  1. N GRP,X0,XA
  1. S X0=$G(^OOPS(2260,IEN,0))
  1. S XA=$G(^OOPS(2260,IEN,"2162A")) K XMY
  1. S XMY(UNIREP)=""
  1. S XMB(1)=$P(X0,U),Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
  1. S XMB(3)=$$GET1^DIQ(2260,IEN,52)
  1. S XMB(4)=$$GET1^DIQ(2260,IEN,2)
  1. S XMB(5)=$$GET1^DIQ(2260,IEN,7)
  1. S XMB(6)=$$GET1^DIQ(2260,IEN,13,"I")
  1. S XMB(7)=$E($$GET1^DIQ(2260,IEN,18),1,28)
  1. S XMB(8)=$$GET1^DIQ(2260,IEN,14)
  1. S XMB(9)=$P(XA,U,12)_"/"_$P(XA,U,13)
  1. S XMB(10)=$E($$GET1^DIQ(2260,IEN,53),1,23)
  1. S XMB(11)=$E($$GET1^DIQ(2260,IEN,53.1),1,28)
  1. S XMB(12)=$E($$GET1^DIQ(2260,IEN,3),1,23)
  1. S XMDUZ=.5
  1. S XMB="OOPS CONSENT"
  1. D ^XMB K XMB,XMY,XMM,XMDT,XMDUZ
  1. Q
  1. WCP(IEN,ACT) ; Bulletin to Super when WC edits or WX signs CA1/CA2
  1. ; Input
  1. ; IEN - Internal record number
  1. ; ACT -
  1. ; "E" = Edited by the WC personnel
  1. ; "S" = Signed by the WC personnel
  1. ;
  1. N SUP,SUP2,Y
  1. S XMB=$S(ACT="E":"OOPS WC EDITED",ACT="S":"OOPS WC SIGNED",1:"")
  1. I $G(XMB)="" Q
  1. S X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S SUP=$P(X0,U,8),XMY(SUP)=""
  1. S SUP2=$P(X0,U,9) I $G(SUP2) S XMY(SUP2)=""
  1. S XMB(1)=$P(X0,U,2)
  1. S XMB(2)=$P(X0,U,1)
  1. S Y=$P(X0,U,5) D DD^%DT S XMB(3)=Y
  1. S XMDUZ=.5
  1. D ^XMB K XMB,XMY,XMM,XMDT,X0,XMDUZ
  1. Q
  1. SUPS(IEN) ; Bulletin to WC when Supervisor signs CA1/CA2
  1. ; Patch 8
  1. N SUP,SUP2,FORM,GRP,Y
  1. S XMB="OOPS WORKERS COMP",X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S SUP=$P(X0,U,8),XMY(SUP)=""
  1. S SUP2=$P(X0,U,9) I $G(SUP2) S XMY(SUP2)=""
  1. S XMB(1)=$P(X0,U,2)
  1. S XMB(2)=$P(X0,U,1)
  1. S Y=$P(X0,U,5) D DD^%DT S XMB(3)=Y
  1. S FORM=$P(X0,U,7)
  1. S FORM=$S(FORM=1:"CA1ES",FORM=2:"CA2ES",1:"")
  1. I FORM="" Q
  1. S Y=$P(^OOPS(2260,IEN,FORM),U,6) D DD^%DT S XMB(4)=Y
  1. S GRP="OOPS WCP"
  1. D MFAC
  1. D ^XMB K XMB,XMY,XMM,XMDT,X0
  1. Q
  1. UNION(IEN) ; Union Bulletin
  1. N GRP,Y
  1. S XMB="OOPS SUPERVISOR",X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S XMB(3)=$P(X0,U,1)
  1. S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
  1. S GRP="OOPS UNION"
  1. D MFAC
  1. D ^XMB K XMB,XMY,XMM,XMDT
  1. Q
  1. EMP(IEN) ; Employee notification to supervisor
  1. N GRP,SUP,SUP2
  1. S XMB="OOPS EMPLOYEE",X0=$G(^OOPS(2260,IEN,0)) K XMY
  1. S XMB(3)=$P(X0,U,1)
  1. S Y=$P(X0,U,5) D DD^%DT S XMB(2)=Y
  1. S SUP=$P(X0,U,8),XMY(SUP)=""
  1. S SUP2=$P(X0,U,9) I SUP2>0 S XMY(SUP2)=""
  1. S GRP="OOPS INJURY"
  1. D MFAC
  1. D ^XMB K XMY,XMM,XMDT
  1. S GRP="OOPS UNION"
  1. D MFAC
  1. S XMDUZ=.5
  1. D ^XMB K XMB,XMY,XMM,XMDT,XMDUZ
  1. Q
  1. BOR(IEN) ; Employee Bill of Rights
  1. N EMP
  1. S XMB="OOPS BILL OF RIGHTS" K XMY
  1. S EMP=$O(^VA(200,"SSN",SSN,0)),XMY(EMP)=""
  1. D ^XMB K XMB,XMY,XMM,XMDT
  1. Q
  1. GRP ; Get Mail group Members for GRP
  1. I GRP="" Q
  1. S XMY("I:G."_GRP)=""
  1. Q