TIUAUDIT ;SLC/JER - Display audit trail ;4/4/01
;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
;;Text Integration Utility;;
EN ; Option entry
K ^TMP("TIUAUDIT",$J) N TIU
D EN^VALM("TIU DISPLAY AUDIT TRAIL")
K ^TMP("TIUAUDIT",$J)
Q
MAIN ; Control branching
N TIUVIEW S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
I +TIUVIEW'>0 D Q
. W !!,$C(7),$P(TIUVIEW,U,2),!
. I $$READ^TIUU("EA","RETURN to continue...")
D GET^TIUSRV(TIUDA)
Q
HDR ; Build Header
N TIUDTYP,DFN
; 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
;
CLEAN ; Die, filthy spawn!!!
D CLEAN^VALM10 K VALMHDR,TIU,TIUPRM0,TIUPRM1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUAUDIT 1355 printed Dec 13, 2024@02:38:58 Page 2
TIUAUDIT ;SLC/JER - Display audit trail ;4/4/01
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
+2 ;;Text Integration Utility;;
EN ; Option entry
+1 KILL ^TMP("TIUAUDIT",$JOB)
NEW TIU
+2 DO EN^VALM("TIU DISPLAY AUDIT TRAIL")
+3 KILL ^TMP("TIUAUDIT",$JOB)
+4 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 IF $$READ^TIUU("EA","RETURN to continue...")
End DoDot:1
QUIT
+5 DO GET^TIUSRV(TIUDA)
+6 QUIT
HDR ; Build Header
+1 NEW TIUDTYP,DFN
+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
+12 ;
CLEAN ; Die, filthy spawn!!!
+1 DO CLEAN^VALM10
KILL VALMHDR,TIU,TIUPRM0,TIUPRM1
+2 QUIT
