TIURORL ; SLC/JER - List Management Library for OE screen ;4/17/00
;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
UPDATE(ITEM) ; Updates list following actions
N AUT,RDT,TITL,TIUD0,TIUD12,TIUD13,TIUDA,IDKIDFLG
N STAT,TIUR ;10/2/00
S TIUDA=+$P(ITEM,U,2)
S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD12=$G(^(12)),TIUD13=$G(^(13))
S TITL=$$PNAME^TIULC1(+TIUD0),IDKIDFLG=1
I +$O(^TIU(8925,"DAD",+TIUDA,0)),+$$HASADDEN^TIULC1(TIUDA,IDKIDFLG) S TITL="+ "_TITL ;**100**
S AUT=$$NAME^TIULS($$PERSNAME^TIULC1(+$P(TIUD12,U,2)),"LAST,FI")
S RDT=$$DATE^TIULS(+TIUD13,"MM/DD/YY HR:MIN")
S STAT=$$LOW^XLFSTR($P($G(^TIU(8925.6,+$P(TIUD0,U,5),0)),U))
S TIUR=$$SETFLD^VALM1(VALMCNT,$G(TIUR),"NUMBER")
S TIUR=$$SETFLD^VALM1(TITL,$G(TIUR),"TITLE")
S TIUR=$$SETFLD^VALM1(AUT,$G(TIUR),"AUTHOR")
S TIUR=$$SETFLD^VALM1(RDT,$G(TIUR),"REF DATE")
S TIUR=$$SETFLD^VALM1(STAT,$G(TIUR),"STATUS")
S ^TMP("TIUR",$J,VALMCNT,0)=TIUR
D RESTORE^VALM10(+ITEM),CNTRL^VALM10(+ITEM,1,VALM("RM"),IOINHI,IOINORM)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIURORL 1010 printed Nov 22, 2024@17:55:23 Page 2
TIURORL ; SLC/JER - List Management Library for OE screen ;4/17/00
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
UPDATE(ITEM) ; Updates list following actions
+1 NEW AUT,RDT,TITL,TIUD0,TIUD12,TIUD13,TIUDA,IDKIDFLG
+2 ;10/2/00
NEW STAT,TIUR
+3 SET TIUDA=+$PIECE(ITEM,U,2)
+4 SET TIUD0=$GET(^TIU(8925,+TIUDA,0))
SET TIUD12=$GET(^(12))
SET TIUD13=$GET(^(13))
+5 SET TITL=$$PNAME^TIULC1(+TIUD0)
SET IDKIDFLG=1
+6 ;**100**
IF +$ORDER(^TIU(8925,"DAD",+TIUDA,0))
IF +$$HASADDEN^TIULC1(TIUDA,IDKIDFLG)
SET TITL="+ "_TITL
+7 SET AUT=$$NAME^TIULS($$PERSNAME^TIULC1(+$PIECE(TIUD12,U,2)),"LAST,FI")
+8 SET RDT=$$DATE^TIULS(+TIUD13,"MM/DD/YY HR:MIN")
+9 SET STAT=$$LOW^XLFSTR($PIECE($GET(^TIU(8925.6,+$PIECE(TIUD0,U,5),0)),U))
+10 SET TIUR=$$SETFLD^VALM1(VALMCNT,$GET(TIUR),"NUMBER")
+11 SET TIUR=$$SETFLD^VALM1(TITL,$GET(TIUR),"TITLE")
+12 SET TIUR=$$SETFLD^VALM1(AUT,$GET(TIUR),"AUTHOR")
+13 SET TIUR=$$SETFLD^VALM1(RDT,$GET(TIUR),"REF DATE")
+14 SET TIUR=$$SETFLD^VALM1(STAT,$GET(TIUR),"STATUS")
+15 SET ^TMP("TIUR",$JOB,VALMCNT,0)=TIUR
+16 DO RESTORE^VALM10(+ITEM)
DO CNTRL^VALM10(+ITEM,1,VALM("RM"),IOINHI,IOINORM)
+17 QUIT
