| Code |
N ORSITE,ORSVC,ORUSER,OREQSTR,OREQSVC,ORDGRP,XMB,XMDUZ,XMY
D USERINFO^XUSRB2(.ORUSER) S ORSITE=$G(ORUSER(3)),ORSVC=$G(ORUSER(5))
S OREQSTR=$S(DUZ'=ORNP:ORUSER(2)_" for "_$$NAME^XUSER(ORNP),1:ORUSER(2))
S OREQSVC=$P($$SERVICE^GMPLX1(ORNP,1),U,2)
S ORSVC=$S(ORSVC=OREQSVC:ORSVC,1:ORSVC_"/"_OREQSVC)
S:ORSITE']"" ORSITE=$$SITE^VASITE
I '$L(ORTERM) S ORY="0^Empty String - a valid term must be sent." Q
I '+$G(DUZ)!'$D(^VA(200,+$G(DUZ))) S ORY="0^A valid user must be identified." Q
S XMB="OR PROBLEM NTRT BULLETIN"
S XMDUZ="OR PROBLEM NTRT BULLETIN"
S ORDGRP=$$GET^XPAR("DIV.`"_DUZ(2),"OR PROBLEM NTRT BY DIVISION",1,"E")
S:ORDGRP]"" XMY("G."_ORDGRP)=""
S XMB(1)=ORTERM
S XMB(2)=$$FMTE^XLFDT($E(($$NOW^XLFDT),1,12),2)
S XMB(3)=OREQSTR
S XMB(4)=ORSVC
S XMB(5)=$P(ORSITE,U,2)_"("_$P(ORSITE,U,3)_")"
S XMB(6)=$G(ORPT,"")
S XMB(7)=$G(ORCOMM,"None")
D ^XMB,KILL^XM S ORY=1
|