LRLOG ;VA/SLC/STAFF - Edit Log ;10/15/03 09:08
Source file <LRLOG.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TESTP | ; test for patient integrity | |
| PATS(DATE1,DATE2,CNT) | ; get patients that were edited during a time range ; returns ^TMP("LRLOG PATS",$J) - must kill after use | |
| NPTSDT(DFN,TSDT) | ; $$(dfn,timestamp date/time) -> patient's next timestamp date/time | |
| PATINTEG(DFN,CNT) | ; check integrity of a patient ; returns ^TMP("LRLOG",$J) - must kill after use | |
| PTSDT(DFN,TSDT,TS) | ; API - returns patient's array of timestamps for a timestamp date/time | |
| LTS() | ; $$() -> last timestamp ien | |
| INIT | ; initialize setup of edit log ; sets last edit as timestamp on old data ; does not set user | |
| TSDT(TSDT,TS) | ; API - returns array of timestamps for a timestamp date/time | |
| DATEINTG(DATE1,DATE2,CNT) | ; check integrity on patient's that were edited during a time range ; returns ^TMP("LRLOG",$J),^TMP("LRLOG PATS",$J) - must kill after use | |
| TESTD | ; test for integrity of patients that were edited during a date range | |
| NTSDT(TSDT) | ; $$(timestamp date/time) -> next timestamp ien from a timestamp date/time | |
| LOG(TS) | ; $$(timestamp ien) -> timestamp entry: timestamp^dfn^sub^cdt^user | |
| TIMESTMP(PAT,SUB,CDT,USER,TIMESTMP) | ; set a timestamp entry in edit log ; from LRPX,LRPXRM | |
| LPTS(DFN) | ; $$(dfn) -> patient's last timestamp ien | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CDT | TIMESTMP~ | 
| CNT | DATEINTG~, PATS~, PATINTEG~ | 
| DATE1 | DATEINTG~, PATS~ | 
| DATE2 | DATEINTG~, PATS~ | 
| DFN | PATINTEG~, LPTS~, PTSDT~, NPTSDT~ | 
| PAT | TIMESTMP~ | 
| SUB | TIMESTMP~ | 
| TIMESTMP | TIMESTMP~ | 
| TS | TSDT~, PTSDT~, LOG~ | 
| TSDT | TSDT~, PTSDT~, NTSDT~, NPTSDT~ | 
| USER | TIMESTMP~ |