source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUAUDIT.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1TIUAUDIT ;SLC/JER - Display audit trail ;4/4/01
2 ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
3 ;;Text Integration Utility;;
4EN ; Option entry
5 K ^TMP("TIUAUDIT",$J) N TIU
6 D EN^VALM("TIU DISPLAY AUDIT TRAIL")
7 K ^TMP("TIUAUDIT",$J)
8 Q
9MAIN ; 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
16HDR ; 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
23SETREC(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 ;
36CLEAN ; Die, filthy spawn!!!
37 D CLEAN^VALM10 K VALMHDR,TIU,TIUPRM0,TIUPRM1
38 Q
Note: See TracBrowser for help on using the repository browser.