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: 601.2213

Package: Mental Health

PSYCH INSTRUMENT PATIENT(#601.2)-->601.21-->601.22-->601.2213

Sub-Field: 601.2213


Information

Parent File Name Number Package
601.22 STAFF COMMENTS ENTRY DATE 601.2213 Mental Health

Details

Field # Name Loc Type Details
.01 STAFF COMMENTS ENTRY DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="",X="T" D ^%DT S X=$P($H,",",2),Y=Y_"."_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600\60))_(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X
  • LAST EDITED:  AUG 06, 1987
  • DESCRIPTION:  
    This is the system date the COMMENTS were entered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 DATE OF COMMENT 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
  • LAST EDITED:  NOV 06, 2000
  • DESCRIPTION:  
    This is the date the author wrote or dictated the COMMENTS.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  601.2213^AD
    1)= S ^YTD(601.2,DA(3),1,DA(2),1,DA(1),"R","AD",$E(X,1,30),DA)=""
    2)= K ^YTD(601.2,DA(3),1,DA(2),1,DA(1),"R","AD",$E(X,1,30),DA)
2 TRANSCRIBER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 31, 1987
  • DESCRIPTION:  
    This is the name of the person who entered the comments. Actually stored is the pointer value pointing to the person in the NEW PERSON file #200.
3 AUTHOR 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 01, 1992
  • DESCRIPTION:  
    This is the name of the person who AUTHORED the comment. Actually stored is the pointer value pointing to the person in the NEW PERSON file #200.
4 ELECTRONIC SIGNATURE 0;5 SET
  • '0' FOR NOT SIGNED;
  • '1' FOR SIGNED;

  • LAST EDITED:  APR 01, 1992
  • HELP-PROMPT:  The individual signing must also be the author.
  • DESCRIPTION:  
    Currently NOT USED. Intended as flag: '0' for not signed, '1' for signed.
  • SCREEN:  S DIC("S")="I 1 Q:'Y I DUZ=$P(^YTD(601.2,DA(3),1,DA(2),1,DA(1),""R"",DA,0),U,4) D SIG^XUSESIG I $G(X)]"""""
  • EXPLANATION:  In order to change the status to signed you MUST be the author of the comments, and a verification of your electronic signature is required.
5 DATE/TIME SIGNED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
  • LAST EDITED:  NOV 06, 2000
  • DESCRIPTION:  
    Current NOT USED. Intended to be DATE/TIME the comments were signed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 COSIGNER 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I 1" D ^DIC K DIC S DIC=DIE,X=+Y D SIG^XUSESIG(Y,.Y) K:Y<0 X D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 14, 1993
  • DESCRIPTION:  
    Currently NOT USED. Intended as name of the person who cosigned the comments.
  • SCREEN:  S DIC("S")="I 1" D ^DIC K DIC S DIC=DIE,X=+Y D SIG^XUSESIG(Y,.Y) K:Y<0 X
  • EXPLANATION:  CURRENTLY NOT USED. Intended to be the name of the person who cosigned the comments.
7 ELECTRONIC SIGNATURE (COSIGN) 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • DESCRIPTION:  
    Currently NOT USED. Intended to be the name of the person who cosigned the comments.
8 DATE/TIME COSIGNED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)
  • LAST EDITED:  NOV 06, 2000
  • DESCRIPTION:  
    Currently NOT USED. Intended as DATE and TIME the comments were cosigned.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9 COMMENT 1;0 WORD-PROCESSING #601.22139

  • DESCRIPTION:  
    This the actual comment (word processing) field.
  • LAST EDITED:  JUL 31, 1987
  • DESCRIPTION:  
    The COMMENT appended to the instrument results.
Info |  Details