TIUR4 ; SLC/JER - Integrated Document Review ;11/01/03 [1/12/05 11:48am]
;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
;This routine was created from a copy of TIUR1 and modified for use
; in option TIU REVIEW UNSIGNED ADDSIG
GATHER(CLASS,TIUPREF) ; Find/sort
N TIUSFLD
S TIUSFLD=$P(TIUPREF,U,3)
I +$G(TIUQUIK)=1 D ADDSIGN(DUZ,CLASS,TIUSFLD)
Q
DADINTYP(TIUDA) ; addendum's parent belong? 12/1/00 Removed param TYPES
N TIUI,TIUDTYP,TIUY S (TIUI,TIUY)=0
S TIUDTYP=+$G(^TIU(8925,+$P($G(^TIU(8925,+TIUDA,0)),U,6),0))
F S TIUI=$O(^TMP("TIUTYP",$J,TIUI)) Q:+TIUI'>0!+TIUY D
. I +$P(^TMP("TIUTYP",$J,TIUI),U,2)=TIUDTYP S TIUY=1
Q TIUY
RESOLVE(DA,DR) ; resolve sort field values
N TIUD0,TIUD12,TIUD13,TIUD15,TIUY
S TIUD0=$G(^TIU(8925,+DA,0)),TIUD12=$G(^TIU(8925,+DA,12))
S TIUD13=$G(^TIU(8925,+DA,13)),TIUD15=$G(^TIU(8925,+DA,15))
I DR=.01 S TIUY=$$PNAME^TIULC1(+TIUD0) G RESX
I DR=.02 S TIUY=$$PTNAME^TIULC1(+$P(TIUD0,U,2)) G RESX
I DR=.05 S TIUY=$P(TIUD0,U,5) G RESX
I DR=1202 S TIUY=$$PERSNAME^TIULC1(+$P(TIUD12,U,2)) S:TIUY="UNKNOWN" TIUY="" G RESX
I DR=1208 S TIUY=$$PERSNAME^TIULC1(+$P(TIUD12,U,8)) S:TIUY="UNKNOWN" TIUY="" G RESX
I DR=1301 S TIUY=$P(TIUD13,U) G RESX
;I DR=1507,($P(TIUD0,U,5)=7),(+$P(TIUD15,U,7)'>0) S DR=1501
I DR=1507,(($P(TIUD0,U,5)=7)!($P(TIUD0,U,5)=8)),(+$P(TIUD15,U,7)'>0) S DR=1501 ;TIU*1*100 amended notes were sorting at top w sortval=ZZZZEMPTY for sortfld=complete, even tho they had sign date and displayed it.
I DR=1501 S TIUY=$P(TIUD15,U) G RESX
I DR=1507 S TIUY=$P(TIUD15,U,7)
RESX I $G(TIUY)']"" S TIUY="ZZZZEMPTY"
Q TIUY
;
ADDSIGN(USER,CLASS,SORTBY) ; Get documents for which the user is the additional signer
N TIUI,TIUY S TIUI=0
D NEEDSIG^TIULX(.TIUY,USER,CLASS)
F S TIUI=$O(@TIUY@(TIUI)) Q:+TIUI'>0 D
. N TIUDA,TIUD13,TIUQ,TIUJ
. S TIUDA=+$G(@TIUY@(TIUI)),TIUD13=$G(^TIU(8925,TIUDA,13))
. S TIUQ=$$RESOLVE(TIUDA,SORTBY),TIUJ=9999999-+TIUD13
. ; S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUDA)="" ; P113
. S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUDA)=1
K @TIUY
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUR4 2064 printed Oct 16, 2024@18:45:31 Page 2
TIUR4 ; SLC/JER - Integrated Document Review ;11/01/03 [1/12/05 11:48am]
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
+2 ;This routine was created from a copy of TIUR1 and modified for use
+3 ; in option TIU REVIEW UNSIGNED ADDSIG
GATHER(CLASS,TIUPREF) ; Find/sort
+1 NEW TIUSFLD
+2 SET TIUSFLD=$PIECE(TIUPREF,U,3)
+3 IF +$GET(TIUQUIK)=1
DO ADDSIGN(DUZ,CLASS,TIUSFLD)
+4 QUIT
DADINTYP(TIUDA) ; addendum's parent belong? 12/1/00 Removed param TYPES
+1 NEW TIUI,TIUDTYP,TIUY
SET (TIUI,TIUY)=0
+2 SET TIUDTYP=+$GET(^TIU(8925,+$PIECE($GET(^TIU(8925,+TIUDA,0)),U,6),0))
+3 FOR
SET TIUI=$ORDER(^TMP("TIUTYP",$JOB,TIUI))
if +TIUI'>0!+TIUY
QUIT
Begin DoDot:1
+4 IF +$PIECE(^TMP("TIUTYP",$JOB,TIUI),U,2)=TIUDTYP
SET TIUY=1
End DoDot:1
+5 QUIT TIUY
RESOLVE(DA,DR) ; resolve sort field values
+1 NEW TIUD0,TIUD12,TIUD13,TIUD15,TIUY
+2 SET TIUD0=$GET(^TIU(8925,+DA,0))
SET TIUD12=$GET(^TIU(8925,+DA,12))
+3 SET TIUD13=$GET(^TIU(8925,+DA,13))
SET TIUD15=$GET(^TIU(8925,+DA,15))
+4 IF DR=.01
SET TIUY=$$PNAME^TIULC1(+TIUD0)
GOTO RESX
+5 IF DR=.02
SET TIUY=$$PTNAME^TIULC1(+$PIECE(TIUD0,U,2))
GOTO RESX
+6 IF DR=.05
SET TIUY=$PIECE(TIUD0,U,5)
GOTO RESX
+7 IF DR=1202
SET TIUY=$$PERSNAME^TIULC1(+$PIECE(TIUD12,U,2))
if TIUY="UNKNOWN"
SET TIUY=""
GOTO RESX
+8 IF DR=1208
SET TIUY=$$PERSNAME^TIULC1(+$PIECE(TIUD12,U,8))
if TIUY="UNKNOWN"
SET TIUY=""
GOTO RESX
+9 IF DR=1301
SET TIUY=$PIECE(TIUD13,U)
GOTO RESX
+10 ;I DR=1507,($P(TIUD0,U,5)=7),(+$P(TIUD15,U,7)'>0) S DR=1501
+11 ;TIU*1*100 amended notes were sorting at top w sortval=ZZZZEMPTY for sortfld=complete, even tho they had sign date and displayed it.
IF DR=1507
IF (($PIECE(TIUD0,U,5)=7)!($PIECE(TIUD0,U,5)=8))
IF (+$PIECE(TIUD15,U,7)'>0)
SET DR=1501
+12 IF DR=1501
SET TIUY=$PIECE(TIUD15,U)
GOTO RESX
+13 IF DR=1507
SET TIUY=$PIECE(TIUD15,U,7)
RESX IF $GET(TIUY)']""
SET TIUY="ZZZZEMPTY"
+1 QUIT TIUY
+2 ;
ADDSIGN(USER,CLASS,SORTBY) ; Get documents for which the user is the additional signer
+1 NEW TIUI,TIUY
SET TIUI=0
+2 DO NEEDSIG^TIULX(.TIUY,USER,CLASS)
+3 FOR
SET TIUI=$ORDER(@TIUY@(TIUI))
if +TIUI'>0
QUIT
Begin DoDot:1
+4 NEW TIUDA,TIUD13,TIUQ,TIUJ
+5 SET TIUDA=+$GET(@TIUY@(TIUI))
SET TIUD13=$GET(^TIU(8925,TIUDA,13))
+6 SET TIUQ=$$RESOLVE(TIUDA,SORTBY)
SET TIUJ=9999999-+TIUD13
+7 ; S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUDA)="" ; P113
+8 SET ^TMP("TIUI",$JOB,TIUQ,TIUJ,TIUDA)=1
End DoDot:1
+9 KILL @TIUY
+10 QUIT
