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

TIUUTL.m

Go to the documentation of this file.
  1. TIUUTL ;ISP/RFR - UTILITIES ;Dec 07, 2021@12:31
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**290,341,289**;Jun 20, 1997;Build 200
  1. Q
  1. NOTIFY(TIUACT,ODFN,NDFN,TIU,TIUDA,TIUHOLD,OVISIT) ;NOTIFY SUBSCRIBING PACKAGES OF DOCUMENT ACTION
  1. S TIUACT=$G(TIUACT),ODFN=+$G(ODFN),NDFN=+$G(NDFN),TIUDA=+$G(TIUDA),TIUHOLD=+$G(TIUHOLD),OVISIT=+$G(OVISIT)
  1. I $D(^TMP("TIUDOCACT",$J)) G:TIUACT="SEND" NSEND G:TIUACT="CLEAR" NCLEAR
  1. I (TIUACT="")!(ODFN<1) Q
  1. I '$D(^DPT(ODFN)) Q
  1. I NDFN>0,'$D(^DPT(NDFN)) Q
  1. I TIUACT="REASSIGN",NDFN<1 Q
  1. I '$D(TIU) D GETTIU^TIULD(.TIU,TIUDA) Q:'$D(TIU)
  1. N TIUDIEN,TIUPNAME
  1. S TIUPNAME=$P($G(TIU("DOCTYP")),U,2)
  1. I TIUPNAME="",$D(^TIU(8925,TIUDA,0)) D
  1. .S TIUDIEN=+$P($G(^TIU(8925,TIUDA,0)),U)
  1. .I TIUDIEN>0 D
  1. ..S TIUPNAME=$P($G(^TIU(8925.1,TIUDIEN,0)),U,3)
  1. ..S:TIUPNAME="" TIUPNAME=$P($G(^TIU(8925.1,TIUDIEN,0)),U)
  1. I TIUACT'="REASSIGN" K ^TMP("TIUDOCACT",$J)
  1. S ^TMP("TIUDOCACT",$J,"ACTION")=TIUACT
  1. I TIUACT'="REASSIGN" D
  1. .S ^TMP("TIUDOCACT",$J,"PATIENT")=$G(ODFN)
  1. .S ^TMP("TIUDOCACT",$J,"VISIT")=$S($P($G(TIU("VISIT")),U)>0:$P(TIU("VISIT"),U),1:$P($G(^TIU(8925,TIUDA,0)),U,3))
  1. .S ^TMP("TIUDOCACT",$J,"DOCUMENT")=TIUDA_U_$G(TIUPNAME)
  1. I TIUACT="REASSIGN" D
  1. .N TIUOPAT,TIUOVSTR,TIUNVIEN,TIUODOC
  1. .S TIUOPAT=$G(^TMP("TIUDOCACT",$J,"PATIENT"))
  1. .K ^TMP("TIUDOCACT",$J,"PATIENT")
  1. .S ^TMP("TIUDOCACT",$J,"PATIENT","OLD")=$S(TIUOPAT'="":TIUOPAT,1:ODFN)
  1. .S ^TMP("TIUDOCACT",$J,"PATIENT","NEW")=$G(NDFN)
  1. .S TIUOVSTR=$G(^TMP("TIUDOCACT",$J,"VISIT"))
  1. .K ^TMP("TIUDOCACT",$J,"VISIT")
  1. .S ^TMP("TIUDOCACT",$J,"VISIT","OLD")=$S(TIUOVSTR'="":TIUOVSTR,1:OVISIT)
  1. .S TIUNVIEN=$P($G(^TIU(8925,TIUDA,0)),U,3)
  1. .S ^TMP("TIUDOCACT",$J,"VISIT","NEW")=$S($P($G(TIU("VISIT")),U)>0:$P(TIU("VISIT"),U),1:TIUNVIEN)
  1. .S TIUODOC=$G(^TMP("TIUDOCACT",$J,"DOCUMENT"))
  1. .K ^TMP("TIUDOCACT",$J,"DOCUMENT")
  1. .S ^TMP("TIUDOCACT",$J,"DOCUMENT","OLD")=TIUODOC
  1. .S ^TMP("TIUDOCACT",$J,"DOCUMENT","NEW")=TIUDA_U_$G(TIUPNAME)
  1. Q:TIUHOLD
  1. N TIUDFN,TIUVSIT,TIUAPMDA
  1. S TIUDFN=$S($G(^TMP("TIUDOCACT",$J,"PATIENT"))'="":^TMP("TIUDOCACT",$J,"PATIENT"),$G(^TMP("TIUDOCACT",$J,"PATIENT","OLD"))'="":^TMP("TIUDOCACT",$J,"PATIENT","OLD"),1:"")
  1. S TIUVSIT=$S($G(^TMP("TIUDOCACT",$J,"VISIT"))'="":^TMP("TIUDOCACT",$J,"VISIT"),$G(^TMP("TIUDOCACT",$J,"VISIT","OLD"))'="":^TMP("TIUDOCACT",$J,"VISIT","OLD"),1:"")
  1. S TIUAPMDA=$S($G(^TMP("TIUDOCACT",$J,"DOCUMENT"))'="":^TMP("TIUDOCACT",$J,"DOCUMENT"),$G(^TMP("TIUDOCACT",$J,"DOCUMENT","OLD"))'="":^TMP("TIUDOCACT",$J,"DOCUMENT","OLD"),1:"")
  1. D ANPKGMSG(TIUDFN,TIUVSIT,TIUAPMDA,TIUACT)
  1. NSEND ;SEND THE NOTIFICATION
  1. N DIC,X
  1. S DIC=101,X="TIU DOCUMENT ACTION EVENT"
  1. D EN^XQOR
  1. NCLEAR ;CLEAR DATA
  1. K ^TMP("TIUDOCACT",$J)
  1. Q
  1. ANPKGMSG(TIUDFN,TIUVSIT,TIUDOC,TIUACT) ;RETRIEVE ANCILLARY PACKAGES' MESSAGE(S)
  1. N DIC,X
  1. K ^TMP("TIUDOCDIS",$J)
  1. S ^TMP("TIUDOCDIS",$J,"PATIENT")=TIUDFN
  1. S ^TMP("TIUDOCDIS",$J,"VISIT")=TIUVSIT
  1. S ^TMP("TIUDOCDIS",$J,"DOCUMENT")=TIUDOC
  1. S ^TMP("TIUDOCDIS",$J,"ACTION")=TIUACT
  1. S DIC=101,X="TIU DOCUMENT ACTION DISPLAY"
  1. D EN^XQOR
  1. I '$$BROKER^XWBLIB D
  1. .N TIULCNT,TIUCNTNU,TIUAPKG,TIULINE
  1. .S TIULCNT=0,TIUAPKG="" F S TIUAPKG=$O(^TMP("TIUDOCDIS",$J,"MESSAGES",TIUAPKG)) Q:TIUAPKG="" D
  1. ..Q:'$G(^TMP("TIUDOCDIS",$J,"MESSAGES",TIUAPKG))
  1. ..I TIULCNT=0!((TIULCNT+$G(^TMP("TIUDOCDIS",$J,"MESSAGES",TIUAPKG))+1)>22) W ! S TIUCNTNU=$$READ^TIUU("EA","Press RETURN to continue..."),TIULCNT=0
  1. ..W !,TIUAPKG_":" S TIULCNT=TIULCNT+1
  1. ..S TIULINE=0 F S TIULINE=$O(^TMP("TIUDOCDIS",$J,"MESSAGES",TIUAPKG,TIULINE)) Q:'+TIULINE D
  1. ...W !,$G(^TMP("TIUDOCDIS",$J,"MESSAGES",TIUAPKG,TIULINE)) S TIULCNT=TIULCNT+1
  1. ...I TIULCNT=22 W ! S TIUCNTNU=$$READ^TIUU("EA","Press RETURN to continue..."),TIULCNT=0
  1. ..W ! S TIULCNT=TIULCNT+1
  1. .K ^TMP("TIUDOCDIS",$J)
  1. Q