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

Package: IHS Patient

PROBLEM(#9000011)-->9000011.11-->9000011.1111

Sub-Field: 9000011.1111


Information

Parent File Name Number Package
9000011.11 NOTE 9000011.1111 IHS Patient

Details

Field # Name Loc Type Details
.01 NOTE NMBR 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  MAR 21, 2013
  • HELP-PROMPT:  Type a number between 1 and 999, 0 decimal digits.
  • DESCRIPTION:  
    This is the unique note identifier.
  • AUDIT:  EDITED OR DELETED
  • CROSS-REFERENCE:  9000011.1111^B
    1)= S ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000011.1111^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
    Controls the behaviour of the input templates used by IHS to populate and maintain this file.
  • CROSS-REFERENCE:  ^^TRIGGER^9000011.1111^.09
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^AUPNPROB(D0,11,D1,11,D2,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9000011.1111,.01,1,3,1.4)
    1.4)= S DIH=$G(^AUPNPROB(DIV(0),11,DIV(1),11,DIV(2),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9000011.1111,DIG=.09 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.09
.03 NOTE NARRATIVE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>160!($L(X)<3) X
  • LAST EDITED:  MAR 07, 2013
  • HELP-PROMPT:  Answer must be 3-160 characters in length.
  • DESCRIPTION:  
    Additional comments may be entered here to further describe this problem.
  • AUDIT:  EDITED OR DELETED
.04 STATUS 0;4 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;
  • 'E' FOR ENTERED IN ERROR;

  • LAST EDITED:  MAR 08, 2013
  • HELP-PROMPT:  If this note is currently ACTIVE, indicate it here.
  • DESCRIPTION:  
    This flag indicates if this note is currently active.
  • AUDIT:  EDITED OR DELETED
.05 DATE NOTE ADDED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JUL 26, 1993
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1880 AND TODAY
  • DESCRIPTION:  
    This is the date this note was entered into this file.
.06 AUTHOR 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 07, 2013
  • HELP-PROMPT:  Enter the name of the provider who authored the text of this note.
  • DESCRIPTION:  
    This is the provider who authored the text of this note.
  • AUDIT:  EDITED OR DELETED
.07 ENTERED IN ERROR BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 08, 2013
.08 REASON ENTERED IN ERROR 0;8 SET
  • 'D' FOR DUPLICATE;
  • 'E' FOR ENTERED IN ERROR;
  • 'O' FOR OTHER;

  • LAST EDITED:  MAR 08, 2013
.09 ENTERED BY 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 11, 2013
  • NOTES:  TRIGGERED by the NOTE NMBR field of the NOTE sub-field of the NOTE FACILITY sub-field of the PROBLEM File
1101 COMMENT IF OTHER EIE 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 08, 2013
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
Info |  Details |  All