STANDARD DATA DICTIONARY #125.8 -- PROBLEM LIST AUDIT FILE 6/27/25 PAGE 1
STORED IN ^GMPL(125.8, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds an audit trail of all changes made to the Problem List entries including the old and new values, who made the
change, and why. Each entry here represents a single change to one problem.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: PROBLEM(AD), DATE/TIME MODIFIED(AD1), PROBLEM(B)
125.8,.01 PROBLEM 0;1 POINTER TO PROBLEM FILE (#9000011) (Required)
LAST EDITED: JUN 03, 1993
DESCRIPTION:
This is the problem for which a change is being recorded.
CROSS-REFERENCE: 125.8^B
1)= S ^GMPL(125.8,"B",$E(X,1,30),DA)=""
2)= K ^GMPL(125.8,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 125.8^AD^MUMPS
1)= S:+$P(^GMPL(125.8,DA,0),U,3) ^GMPL(125.8,"AD",X,(9999999-$P(^(0),U,3)),DA)=""
2)= K ^GMPL(125.8,"AD",X,+(9999999-$P(^GMPL(125.8,DA,0),U,3)),DA)
Used to retrieve a problem's audit trail in reverse-chronological order.
125.8,1 FIELD NUMBER 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999.9999)!(X<.01)!(X?.E1"."5N.N) X
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Type a Number between .01 and 9999.9999, 4 Decimal Digits
DESCRIPTION:
This is the number of the field for which a change is being recorded.
125.8,2 DATE/TIME MODIFIED 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 03, 1993
DESCRIPTION:
This is the date and time that this data was changed.
CROSS-REFERENCE: 125.8^AD1^MUMPS
1)= S ^GMPL(125.8,"AD",$P(^GMPL(125.8,DA,0),U),(9999999-X),DA)=""
2)= K ^GMPL(125.8,"AD",$P(^GMPL(125.8,DA,0),U),(9999999-X),DA)
Used to retrieve a problem's audit trail in reverse-chronological order.
125.8,3 WHO MODIFIED 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 28, 1992
DESCRIPTION: This is the user who actually made the change to this data; the current user's DUZ is stuffed in
here.
125.8,4 OLD VALUE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION:
This is the original value as stored in the Problem file global (internal format).
125.8,5 NEW VALUE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION:
This is the new value now stored in the Problem file global (internal format).
125.8,6 REASON FOR CHANGE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: OCT 28, 1992
HELP-PROMPT: Answer must be 3-25 characters in length.
DESCRIPTION:
This is the description of why the change was made, if known.
125.8,7 REQUESTING PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 05, 1993
DESCRIPTION:
This is the provider who either changed this data, or directed it to be changed.
125.8,10 OLD PROBLEM ENTRY 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>150!($L(X)<1) X
LAST EDITED: MAR 05, 1993
HELP-PROMPT: Answer must be 1-150 characters in length.
DESCRIPTION:
This is the entire problem entry (internal format) as it existed prior to changing this data.
TECHNICAL DESCR: This field consists of the original 0-node concatenated with an "^" and the original 1-node, prior
to modifying this data.
FILES POINTED TO FIELDS
NEW PERSON (#200) WHO MODIFIED (#3)
REQUESTING PROVIDER (#7)
PROBLEM (#9000011) PROBLEM (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):