- 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 Jan 18, 2025@03:40:07 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