TIURHX.m

TIURHX ;SLC/JER - Display reassignment history ;21-MAR-2001 16:47:04

 ;;1.0;TEXT INTEGRATION UTILITIES;**61,100**;Jun 20, 1997

DISPLAY ; Display Reassignment History of Selected Documents

 N TIUDA,TIUD,TIUDATA,TIUI,Y,DIROUT,TIUQUIT

 I '$D(VALMY) D EN^VALM2(XQORNOD(0))

 S TIUI=0

 F  S TIUI=$O(VALMY(TIUI)) Q:+TIUI'>0  D  Q:$D(TIUQUIT)

 . N TIUVIEW

 . S TIUDATA=$G(^TMP("TIURIDX",$J,TIUI))

 . D CLEAR^VALM1

 . W !!,"Reviewing #",+TIUDATA

 . S TIUDA=+$P(TIUDATA,U,2)

 . S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")

 . I +TIUVIEW'>0 D  Q  ; Exclude records user can't print

 . . W !!,$C(7),$P(TIUVIEW,U,2),! ; Echo denial message

 . . I $$READ^TIUU("EA","RETURN to continue...") ; pause

 . . D RESTORE^TIULM(+TIUI)

 . D EN

 . I +$G(TIUQUIT) D FIXLSTNW^TIULM Q

 . D RESTORE^VALM10(+TIUI)

 K VALMY S VALMBCK="R"

 Q

EN ; Option entry

 K ^TMP("TIURHX",$J) N TIU

 D EN^VALM("TIU DISPLAY REASSIGN HISTORY")

 Q

MAIN ; Control branching

 N TIUVIEW S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")

 I +TIUVIEW'>0 D  Q

 . W !!,$C(7),$P(TIUVIEW,U,2),!

 . S VALMQUIT=1

 . I $$READ^TIUU("EA","RETURN to continue...")

 D GET^TIUSRV(TIUDA,0,1)

 Q

HDR ; Build Header

 N TIUDTYP

 ; I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE

 D:$D(TIU)'>9 GETTIU^TIULD(.TIU,+TIUDA)

 S VALMHDR(1)=$$CENTER^TIULS($P($G(TIU("DOCTYP")),U,2))

 S VALMHDR(2)=$$SETREC("HDR")

 Q

SETREC(LINE) ; Calls $$SETSTR^VALM1 for each line of ^TMP("TIUAUDIT",$J,

 N Y

 I LINE="HDR" D

 . S Y=$$SETSTR^VALM1($$NAME^TIULS(TIU("PNM"),"LAST,FI MI"),$G(Y),1,15)

 . S Y=$$SETSTR^VALM1(TIU("SSN"),$G(Y),16,12)

 . S Y=$$SETSTR^VALM1($P($G(TIU("WARD")),U,2),$G(Y),30,20)

 . I +TIU("DOCTYP")=1 D

 . . S Y=$$SETSTR^VALM1("Adm: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY"),$G(Y),51,13)

 . . S Y=$$SETSTR^VALM1("Dis: "_$$DATE^TIULS(+TIU("LDT"),"MM/DD/YY"),$G(Y),66,13)

 . I +TIU("DOCTYP")'=1 D

 . . S Y=$$SETSTR^VALM1("Visit Date: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY@HR:MIN"),$G(Y),53,26)

 Q Y

TIURHX    ;SLC/JER - Display reassignment history ;21-MAR-2001 16:47:04

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**61,100**;Jun 20, 1997

DISPLAY   ; Display Reassignment History of Selected Documents

 +1        NEW TIUDA,TIUD,TIUDATA,TIUI,Y,DIROUT,TIUQUIT

 +2        IF '$DATA(VALMY)

               DO EN^VALM2(XQORNOD(0))

 +3        SET TIUI=0

 +4        FOR 

               SET TIUI=$ORDER(VALMY(TIUI))

               IF +TIUI'>0

                   QUIT 

               Begin DoDot:1

 +5                NEW TIUVIEW

 +6                SET TIUDATA=$GET(^TMP("TIURIDX",$JOB,TIUI))

 +7                DO CLEAR^VALM1

 +8                WRITE !!,"Reviewing #",+TIUDATA

 +9                SET TIUDA=+$PIECE(TIUDATA,U,2)

 +10               SET TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")

 +11      ; Exclude records user can't print

                   IF +TIUVIEW'>0

                       Begin DoDot:2

 +12      ; Echo denial message

                           WRITE !!,$CHAR(7),$PIECE(TIUVIEW,U,2),!

 +13      ; pause

                           IF $$READ^TIUU("EA","RETURN to continue...")

 +14                       DO RESTORE^TIULM(+TIUI)

                       End DoDot:2

                       QUIT 

 +15               DO EN

 +16               IF +$GET(TIUQUIT)

                       DO FIXLSTNW^TIULM

                       QUIT 

 +17               DO RESTORE^VALM10(+TIUI)

               End DoDot:1

               IF $DATA(TIUQUIT)

                   QUIT 

 +18       KILL VALMY

           SET VALMBCK="R"

 +19       QUIT 

EN        ; Option entry

 +1        KILL ^TMP("TIURHX",$JOB)

           NEW TIU

 +2        DO EN^VALM("TIU DISPLAY REASSIGN HISTORY")

 +3        QUIT 

MAIN      ; Control branching

 +1        NEW TIUVIEW

           SET TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")

 +2        IF +TIUVIEW'>0

               Begin DoDot:1

 +3                WRITE !!,$CHAR(7),$PIECE(TIUVIEW,U,2),!

 +4                SET VALMQUIT=1

 +5                IF $$READ^TIUU("EA","RETURN to continue...")

               End DoDot:1

               QUIT 

 +6        DO GET^TIUSRV(TIUDA,0,1)

 +7        QUIT 

HDR       ; Build Header

 +1        NEW TIUDTYP

 +2       ; I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE

 +3        IF $DATA(TIU)'>9

               DO GETTIU^TIULD(.TIU,+TIUDA)

 +4        SET VALMHDR(1)=$$CENTER^TIULS($PIECE($GET(TIU("DOCTYP")),U,2))

 +5        SET VALMHDR(2)=$$SETREC("HDR")

 +6        QUIT 

SETREC(LINE) ; Calls $$SETSTR^VALM1 for each line of ^TMP("TIUAUDIT",$J,

 +1        NEW Y

 +2        IF LINE="HDR"

               Begin DoDot:1

 +3                SET Y=$$SETSTR^VALM1($$NAME^TIULS(TIU("PNM"),"LAST,FI MI"),$GET(Y),1,15)

 +4                SET Y=$$SETSTR^VALM1(TIU("SSN"),$GET(Y),16,12)

 +5                SET Y=$$SETSTR^VALM1($PIECE($GET(TIU("WARD")),U,2),$GET(Y),30,20)

 +6                IF +TIU("DOCTYP")=1

                       Begin DoDot:2

 +7                        SET Y=$$SETSTR^VALM1("Adm: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY"),$GET(Y),51,13)

 +8                        SET Y=$$SETSTR^VALM1("Dis: "_$$DATE^TIULS(+TIU("LDT"),"MM/DD/YY"),$GET(Y),66,13)

                       End DoDot:2

 +9                IF +TIU("DOCTYP")'=1

                       Begin DoDot:2

 +10                       SET Y=$$SETSTR^VALM1("Visit Date: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY@HR:MIN"),$GET(Y),53,26)

                       End DoDot:2

               End DoDot:1

 +11       QUIT Y