| 1 | TIUAUDIT ;SLC/JER - Display audit trail ;4/4/01
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
|
|---|
| 3 | ;;Text Integration Utility;;
|
|---|
| 4 | EN ; Option entry
|
|---|
| 5 | K ^TMP("TIUAUDIT",$J) N TIU
|
|---|
| 6 | D EN^VALM("TIU DISPLAY AUDIT TRAIL")
|
|---|
| 7 | K ^TMP("TIUAUDIT",$J)
|
|---|
| 8 | Q
|
|---|
| 9 | MAIN ; Control branching
|
|---|
| 10 | N TIUVIEW S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
|
|---|
| 11 | I +TIUVIEW'>0 D Q
|
|---|
| 12 | . W !!,$C(7),$P(TIUVIEW,U,2),!
|
|---|
| 13 | . I $$READ^TIUU("EA","RETURN to continue...")
|
|---|
| 14 | D GET^TIUSRV(TIUDA)
|
|---|
| 15 | Q
|
|---|
| 16 | HDR ; Build Header
|
|---|
| 17 | N TIUDTYP,DFN
|
|---|
| 18 | ; I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE
|
|---|
| 19 | D:$D(TIU)'>9 GETTIU^TIULD(.TIU,+TIUDA)
|
|---|
| 20 | S VALMHDR(1)=$$CENTER^TIULS($P($G(TIU("DOCTYP")),U,2))
|
|---|
| 21 | S VALMHDR(2)=$$SETREC("HDR")
|
|---|
| 22 | Q
|
|---|
| 23 | SETREC(LINE) ; Calls $$SETSTR^VALM1 for each line of ^TMP("TIUAUDIT",$J,
|
|---|
| 24 | N Y
|
|---|
| 25 | I LINE="HDR" D
|
|---|
| 26 | . S Y=$$SETSTR^VALM1($$NAME^TIULS(TIU("PNM"),"LAST,FI MI"),$G(Y),1,15)
|
|---|
| 27 | . S Y=$$SETSTR^VALM1(TIU("SSN"),$G(Y),16,12)
|
|---|
| 28 | . S Y=$$SETSTR^VALM1($P($G(TIU("WARD")),U,2),$G(Y),30,20)
|
|---|
| 29 | . I +TIU("DOCTYP")=1 D
|
|---|
| 30 | . . S Y=$$SETSTR^VALM1("Adm: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY"),$G(Y),51,13)
|
|---|
| 31 | . . S Y=$$SETSTR^VALM1("Dis: "_$$DATE^TIULS(+TIU("LDT"),"MM/DD/YY"),$G(Y),66,13)
|
|---|
| 32 | . I +TIU("DOCTYP")'=1 D
|
|---|
| 33 | . . S Y=$$SETSTR^VALM1("Visit Date: "_$$DATE^TIULS(+TIU("EDT"),"MM/DD/YY@HR:MIN"),$G(Y),53,26)
|
|---|
| 34 | Q Y
|
|---|
| 35 | ;
|
|---|
| 36 | CLEAN ; Die, filthy spawn!!!
|
|---|
| 37 | D CLEAN^VALM10 K VALMHDR,TIU,TIUPRM0,TIUPRM1
|
|---|
| 38 | Q
|
|---|
