Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 600.71

Package: Mental Health

CRISIS NOTE DISPLAY(#600.7)-->600.71

Sub-Field: 600.71


Information

Parent File Name Number Package
CRISIS NOTE DISPLAY(#600.7) DATE/TIME OF ACCESS 600.71 Mental Health

Details

Field # Name Loc Type Details
.01 DATE/TIME OF ACCESS 0;1 DATE
************************REQUIRED FIELD************************

  • 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
1 PATIENT 0;2 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • DESCRIPTION:  
    Pointer to Patient File #2, automtically updated.
2 TYPE 0;3 SET
************************REQUIRED FIELD************************
  • '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.
3 USER 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • 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(YSG7,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(YSG7,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(YSG7,U),X,DA)
Info |  Details