LRDIDLE0 ;VA/DALOI/JMC - Create audit trail of changed values ; 13-Oct-2017 14:04 ; MKK
Source file <LRDIDLE0.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 2 | $$GET1^DIQ ^DIWP |
IHS Changes To Lab | 1 | SENDMAIL^BLRUTIL8 |
Kernel | 1 | $$FMTE^XLFDT |
Lab Service | 1 | FILECOM^LRVR4 |
Toolkit | 1 | $$GET^XPAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
INIT | ;
; This code controls the automatic audit trail entries for CH subscripted ; tests which are reported and subsequently changed. Modification of this ; code by local stations may have Medical/Legal ramifications. Local ; stations are STRONGLY advised to NOT make changes. |
|
STORE | ; Store comments in file #63, field #99 COMMENTS
|
|
EVAL | ; EP
|
|
USERID(LRDUZ) | ; Create user id for comment text
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^UTILITY($J | STORE+9!, STORE+11, STORE+12, STORE+16! |
Name | Line Occurrences |
---|---|
$$USERID | INIT+8, EVAL+6, EVAL+15, EVAL+29, EVAL+38 |
STORE | EVAL+42 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHNGRI | STORE+28~, STORE+30*, STORE+31, STORE+39 |
CHNGRN | STORE+28~, STORE+31*, STORE+32*, STORE+39 |
DIWF | STORE+2~, STORE+8* |
DIWL | STORE+2~, STORE+8*, STORE+11, STORE+12 |
DIWR | STORE+2~, STORE+8* |
DUZ | INIT+8 |
DUZ("AG" | USERID+9 |
DUZ(2 | USERID+10 |
>> J | STORE+14* |
>> LRACC | STORE+36, STORE+40 |
LRCHDT7 | INIT+6~, INIT+8*, EVAL+8, EVAL+18, EVAL+19, EVAL+31, EVAL+40 |
>> LRDFN | STORE+21 |
LRDUZ | USERID~, USERID+7 |
LRDUZ("AG" | USERID+9*, USERID+12 |
LRDUZ(2 | USERID+10*, USERID+12 |
LRI | INIT+6~, EVAL+23~, EVAL+34*, EVAL+35, EVAL+36, EVAL+37, STORE+2~, STORE+5*, STORE+6*, STORE+7 , STORE+8, STORE+9, STORE+12, STORE+18*, STORE+19*, STORE+20, STORE+29*, STORE+30, STORE+33*, STORE+34* , STORE+35*, STORE+36*, STORE+37*, STORE+38*, STORE+39 |
>> LRIDT | STORE+21 |
LRJ | INIT+6~, INIT+8*, EVAL+7*, EVAL+8*, EVAL+16*, EVAL+17*, EVAL+18, EVAL+19, EVAL+30*, EVAL+31* , EVAL+39*, EVAL+40*, EVAL+42, STORE+2~, STORE+8*, STORE+11*, STORE+12 |
LRK | STORE+2~, STORE+12*, STORE+13, STORE+14, STORE+15 |
LRNEW | INIT+6~, EVAL+4*, EVAL+8, EVAL+12*, EVAL+13*, EVAL+18, EVAL+19, EVAL+27*, EVAL+31, EVAL+35* , EVAL+40 |
>> LRNOW7 | INIT+8 |
>> LROK | INIT+8* |
LROLD | INIT+6~, EVAL+5*, EVAL+6, EVAL+14*, EVAL+15, EVAL+28*, EVAL+29, EVAL+36*, EVAL+38 |
>> LRSA( | EVAL+3, EVAL+5, EVAL+6, EVAL+7, EVAL+11, EVAL+14, EVAL+15, EVAL+16, EVAL+22, EVAL+24 , EVAL+29, EVAL+30, EVAL+38, EVAL+39 |
>> LRSB | EVAL+3, EVAL+4, EVAL+5, EVAL+6, EVAL+7, EVAL+11, EVAL+12, EVAL+13, EVAL+14, EVAL+15 , EVAL+16, EVAL+22, EVAL+24, EVAL+29, EVAL+30, EVAL+38, EVAL+39 |
>> LRSB( | EVAL+4, EVAL+12, EVAL+13, EVAL+24 |
LRSQ9 | INIT+6~, EVAL+6*, EVAL+7, EVAL+15*, EVAL+16, EVAL+29*, EVAL+30, EVAL+38*, EVAL+39 |
LRTXT | INIT+6~, STORE+40 |
LRTXT( | EVAL+7*, EVAL+8*, EVAL+16*, EVAL+18*, EVAL+19*, EVAL+30*, EVAL+31*, EVAL+39*, EVAL+40*, STORE+6 , STORE+7, STORE+8, STORE+9!, STORE+12*, STORE+13, STORE+14*, STORE+15*, STORE+19, STORE+20, STORE+30 , STORE+34*, STORE+35*, STORE+36*, STORE+37*, STORE+38*, STORE+39* |
LRTXT("A" | STORE+29 |
>> LRUID | STORE+37 |
LRUSER | INIT+6~, INIT+8*, EVAL+8, EVAL+18, EVAL+19, EVAL+31, EVAL+40 |
LRX | EVAL+23~, EVAL+24*, EVAL+26, EVAL+27, EVAL+34, EVAL+35, STORE+2~, STORE+20*, STORE+21, STORE+22 |
LRY | EVAL+23~, EVAL+24*, EVAL+26, EVAL+28, EVAL+34, EVAL+36, USERID+6~, USERID+7*, USERID+12*, USERID+13 |
LRZ | EVAL+23~, EVAL+37*, EVAL+39 |
LRZ(0 | EVAL+33*, EVAL+37 |
>> VADM(1 | STORE+35 |
X | STORE+2~, STORE+8* |