STANDARD DATA DICTIONARY #600.7 -- CRISIS NOTE DISPLAY FILE 6/27/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):