STANDARD DATA DICTIONARY #600.7 -- CRISIS NOTE DISPLAY FILE 9/29/25 PAGE 1
STORED IN ^YSG("CNT", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.01)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Stores data concerning access of crisis notes.
COMPILED CROSS-REFERENCE ROUTINE: YSXRAA
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: USER(AA), USER(AD), DATE(B)
600.7,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 13, 1988
DESCRIPTION:
This is the date the crisis note was created or displayed, normally will be the current date.
CROSS-REFERENCE: 600.7^B
1)= S ^YSG("CNT","B",$E(X,1,30),DA)=""
2)= K ^YSG("CNT","B",$E(X,1,30),DA)
600.7,1 DATE/TIME OF ACCESS 1;0 DATE Multiple #600.71 (Add New Entry without Asking)
DESCRIPTION:
Date and Time that the specific USER viewed the specific PATIENT's Crisis Note or Message.
600.71,.01 DATE/TIME OF ACCESS 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date and Time specific USER viewed specific PATIENT's Crisis Note or Message.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
600.71,1 PATIENT 0;2 POINTER TO PATIENT FILE (#2) (Required)
DESCRIPTION:
Pointer to Patient File #2, automtically updated.
600.71,2 TYPE 0;3 SET (Required)
'CN' FOR CRISIS NOTE;
'MS' FOR MESSAGE;
'SC' FOR SET NEW CRISIS NOTE;
'SM' FOR SET NEW MESSAGE;
LAST EDITED: JUL 14, 1988
DESCRIPTION:
Set of codes representing type of viewed note.
600.71,3 USER 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUL 14, 1988
DESCRIPTION:
Pointer to the NEW PERSON File #200, automatically updated.
CROSS-REFERENCE: 600.7^AA^MUMPS
1)= N YSG7 S YSG7=^YSG("CNT",DA(1),1,DA,0) S:$P(YSG7,U,3)'?1"S".E ^YSG("CNT","AA",$P(YSG7,U,2),$P(Y
SG7,U,3),X,9999999-$P(YSG7,U),DA)=""
2)= N YSG7 S YSG7=^YSG("CNT",DA(1),1,DA,0) K ^YSG("CNT","AA",$P(YSG7,U,2),$P(YSG7,U,3),X,9999999-$P
(YSG7,U),DA)
CROSS-REFERENCE:600.7^AD^MUMPS
1)= N YSG7 S YSG7=^YSG("CNT",DA(1),1,DA,0) S:$P(YSG7,U,3)?1"S".E ^YSG("CNT","AD",$P(YSG7,U,2),$P(YS
G7,U,3),9999999-$P(YSG7,U),X,DA)=""
2)= N YSG7 S YSG7=^YSG("CNT",DA(1),1,DA,0) K ^YSG("CNT","AD",$P(YSG7,U,2),$P(YSG7,U,3),9999999-$P(Y
SG7,U),X,DA)
FILES POINTED TO FIELDS
NEW PERSON (#200) DATE/TIME OF ACCESS:USER (#3)
PATIENT (#2) DATE/TIME OF ACCESS:PATIENT (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):