TIURORL.m

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 ---TIURORL   1010     printed  Mar 13, 2025@21:50:21                                                                                                                                                                                                     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