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

TIUR1.m

Go to the documentation of this file.
  1. TIUR1 ; SLC/JER - Integrated Document Review ;11/01/03
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**79,100,113,112**;Jun 20, 1997
  1. ; 11/30/00 moved PUTLIST & ADDELMNT here from TIUR.
  1. ; 12/12/00 moved PUTLIST, ADDELMNT, PARENT, EXPANDKD to TIUR2
  1. GATHER(TIUI,TIUPREF,CLASS,STATIFNS,EARLY,LATE,XREF,SCREEN) ; Find/sort
  1. ; Uses title info from ^TMP("TIUTYP",$J) array, set in SELTYP^TIULA
  1. N TIUT,TIUTP,TIUS,TIUSTAT,TIUSFLD,TIUD0,TIUD12,TIUD13,TIUD15
  1. N TIUIFN,TIULD
  1. S TIUSFLD=$P(TIUPREF,U,3)
  1. S TIUSFLD=$S(TIUSFLD="P":".02",TIUSFLD="D":".01",TIUSFLD="S":".05",TIUSFLD="C":"1507",TIUSFLD="A":"1202",TIUSFLD="E":"1208",1:"1301")
  1. S TIUT=0 F S TIUT=$O(^TMP("TIUTYP",$J,TIUT)) Q:+TIUT'>0 D
  1. . S TIUTP=+$P($G(^TMP("TIUTYP",$J,TIUT)),U,2) Q:TIUTP'>0
  1. . S TIUS=1 F S TIUSTAT=$P(STATIFNS,";",TIUS) Q:'TIUSTAT D
  1. . . S TIUS=TIUS+1
  1. . . S (TIUJ,TIULD)=LATE
  1. . . F S TIUJ=$O(^TIU(8925,XREF,TIUI,TIUTP,TIUSTAT,TIUJ)) Q:+TIUJ'>0!(+TIUJ>EARLY) D
  1. . . . S TIUIFN=0
  1. . . . F S TIUIFN=$O(^TIU(8925,XREF,TIUI,TIUTP,TIUSTAT,TIUJ,TIUIFN)) Q:+TIUIFN'>0 D
  1. . . . . I ($P(TIUPRM0,U,6)="S"),(+$$CANDO^TIULP(TIUIFN,"VIEW")'>0) Q
  1. . . . . I +$G(ORVP),(+$P($G(^TIU(8925,+TIUIFN,0)),U,2)'=+$G(ORVP)) Q
  1. . . . . I TIUTP=81,(^TMP("TIUTYP",$J)>1),($P(^TMP("TIUTYP",$J,TIUT),U,4)="NOT PICKED"),(+$P($G(^TIU(8925,+TIUIFN,0)),U,5)>6) Q
  1. . . . . I TIUTP=81,(^TMP("TIUTYP",$J)>1),($P(^TMP("TIUTYP",$J,TIUT),U,4)="NOT PICKED"),'+$$DADINTYP(TIUIFN) Q
  1. . . . . S TIUQ=$$RESOLVE(TIUIFN,TIUSFLD)
  1. . . . . ; S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUIFN)="",TIULD=TIUJ ; P113
  1. . . . . ; TIUK=1: 1 search category chosen (SCREEN="")
  1. . . . . ; TIUK>1: 2+ search categories chosen (SCREEN=1)
  1. . . . . ; ALL my unsigned (SCREEN="ALL")
  1. . . . . I SCREEN=1!(SCREEN="ALL") S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUIFN)=1
  1. . . . . E D
  1. . . . . . I $D(^TMP("TIUI",$J,TIUQ,TIUJ,TIUIFN)),$G(^TMP("TIUI",$J,TIUQ,TIUJ,TIUIFN))=(SCREEN-1) S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUIFN)=SCREEN
  1. . . . . S TIULD=TIUJ
  1. I +$G(TIUQUIK)=1,+$G(TIULD) D ADDSIGN(DUZ,CLASS,TIULD,TIUSFLD)
  1. Q
  1. DADINTYP(TIUDA) ; addendum's parent belong? 12/1/00 Removed param TYPES
  1. N TIUI,TIUDTYP,TIUY S (TIUI,TIUY)=0
  1. S TIUDTYP=+$G(^TIU(8925,+$P($G(^TIU(8925,+TIUDA,0)),U,6),0))
  1. F S TIUI=$O(^TMP("TIUTYP",$J,TIUI)) Q:+TIUI'>0!+TIUY D
  1. . I +$P(^TMP("TIUTYP",$J,TIUI),U,2)=TIUDTYP S TIUY=1
  1. Q TIUY
  1. RESOLVE(DA,DR) ; resolve sort field values
  1. N TIUD0,TIUD12,TIUD13,TIUD15,TIUY
  1. S TIUD0=$G(^TIU(8925,+DA,0)),TIUD12=$G(^TIU(8925,+DA,12))
  1. S TIUD13=$G(^TIU(8925,+DA,13)),TIUD15=$G(^TIU(8925,+DA,15))
  1. I DR=.01 S TIUY=$$PNAME^TIULC1(+TIUD0) G RESX
  1. I DR=.02 S TIUY=$$PTNAME^TIULC1(+$P(TIUD0,U,2)) G RESX
  1. I DR=.05 S TIUY=$P(TIUD0,U,5) G RESX
  1. I DR=1202 S TIUY=$$PERSNAME^TIULC1(+$P(TIUD12,U,2)) S:TIUY="UNKNOWN" TIUY="" G RESX
  1. I DR=1208 S TIUY=$$PERSNAME^TIULC1(+$P(TIUD12,U,8)) S:TIUY="UNKNOWN" TIUY="" G RESX
  1. I DR=1301 S TIUY=$P(TIUD13,U) G RESX
  1. ;I DR=1507,($P(TIUD0,U,5)=7),(+$P(TIUD15,U,7)'>0) S DR=1501
  1. 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.
  1. I DR=1501 S TIUY=$P(TIUD15,U) G RESX
  1. I DR=1507 S TIUY=$P(TIUD15,U,7)
  1. RESX I $G(TIUY)']"" S TIUY="ZZZZEMPTY"
  1. Q TIUY
  1. ;
  1. ADDSIGN(USER,CLASS,DATE,SORTBY) ; Get documents for which the user is the additional signer
  1. N TIUI,TIUY S TIUI=0
  1. D NEEDSIG^TIULX(.TIUY,USER,CLASS)
  1. F S TIUI=$O(@TIUY@(TIUI)) Q:+TIUI'>0 D
  1. . N TIUDA,TIUD13,TIUQ,TIUJ
  1. . S TIUDA=+$G(@TIUY@(TIUI)),TIUD13=$G(^TIU(8925,TIUDA,13))
  1. . S TIUQ=$$RESOLVE(TIUDA,SORTBY),TIUJ=9999999-+TIUD13
  1. . ; S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUDA)="" ; P113
  1. . S ^TMP("TIUI",$J,TIUQ,TIUJ,TIUDA)=1
  1. K @TIUY
  1. Q