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

TIULP3.m

Go to the documentation of this file.
  1. TIULP3 ;BAY PINES/ELR - Functions determining privilege continued ; 3/7/12 10:52am
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**232,256**;Jun 20, 1997;Build 11
  1. ;;ISA^USRLM: ICA 2324
  1. ISSURG(TIUDA) ;
  1. NEW TIUY
  1. I +$$ISADDNDM^TIULC1(TIUDA) S TIUDA=+$P($G(^TIU(8925,TIUDA,0)),U,6)
  1. D ISSURG^TIUSROI(.TIUY,+$G(^TIU(8925,+TIUDA,0)))
  1. G SURGEX:TIUY'>0
  1. ;SEE IF IT IS AN NIR OR AR
  1. N TIUS0,TIUSNAME
  1. S TIUY=0
  1. G SURGEX:'$L(TIUDA)
  1. G SURGEX:'$D(^TIU(8925,+TIUDA,0))
  1. S TIUS0=+$G(^TIU(8925,+TIUDA,0))
  1. G SURGEX:'$L(TIUS0)
  1. S TIUSNAME=$$PNAME^TIULC1(+TIUS0)
  1. G SURGEX:'$L(TIUSNAME)
  1. I TIUSNAME="NURSE INTRAOPERATIVE REPORT" S TIUY=1 G SURGEX
  1. I TIUSNAME="ANESTHESIA REPORT" S TIUY=1 G SURGEX
  1. SURGEX Q TIUY
  1. ACTION(TIUACTW) ;CHECK ACTION
  1. NEW TIUY S TIUY=0
  1. I (($G(TIUACTW)["EDIT RECORD")!($G(TIUACTW)["ADDEND")) S TIUY=1 G ACTEX
  1. ACTEX Q TIUY
  1. AUTHUSR(PERSON) ;Check to see if user is Privacy Act Officer or Chief Mis/Hims
  1. N TIUY S TIUY=0
  1. I ($$ISA^USRLM(PERSON,"PRIVACY ACT OFFICER"))!($$ISA^USRLM(PERSON,"CHIEF, MIS"))!($$ISA^USRLM(PERSON,"CHIEF, HIMS")) S TIUY=1 G USREX
  1. USREX Q TIUY
  1. SURMSG(TIUACTW) ;SET SURGERY ERROR MSG
  1. NEW TIUY,TIUDOC S TIUDOC=""
  1. I TIUACTW["EDIT" S TIUDOC="EDIT"
  1. I TIUACTW["ADDEND" S TIUDOC="CREATE AN ADDENDUM FOR"
  1. I TIUACTW["AMENDMENT" S TIUDOC="AMEND"
  1. S TIUY="You must use the Surgery Package to "_TIUDOC_" this Document"
  1. Q TIUY
  1. IDMSG(TIUMSG) ;SET DELETE ID MSG
  1. S TIUMSG="You may NOT delete this parent ID note. It has child ID notes attached. "
  1. S TIUMSG=TIUMSG_"If you need to delete this note you must first detach the child from the parent note."
  1. I $G(XQY0)["OR CPRS GUI CHART" D ;DBIA 3356
  1. . S TIUMSG=TIUMSG_" Select Action/Detach from Interdisciplinary Note to accomplish this."
  1. E S TIUMSG=TIUMSG_" Select the child note from the LM screen, then select Interdisciplinary Note."
  1. Q