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

Package: PCE Patient Care Encounter

EXAM(#9999999.15)-->9999999.18

Sub-Field: 9999999.18


Information

Parent File Name Number Package
EXAM(#9999999.15) CODE MAPPINGS 9999999.18 PCE Patient Care Encounter

Details

Field # Name Loc Type Details
.01 CODING SYSTEM 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3)!('$$VCODESYS^PXINPTR(.X)) X
    MAXIMUM LENGTH: 7
  • LAST EDITED:  JAN 23, 2019
  • HELP-PROMPT:  Enter the abbreviation for the coding system, 3 to 7 characters.
  • DESCRIPTION:  This is the coding system, it is stored as one of the standard abbreviations as defined in the Lexicon Coding Systems file #757.03.
  • EXECUTABLE HELP:  D CSHELP^PXLEX
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:($L(X)>40)!($L(X)<1) X
    MAXIMUM LENGTH: 40
  • LAST EDITED:  JAN 22, 2019
  • HELP-PROMPT:  Enter a code from the selected coding system, 1 to 40 characters.
  • DESCRIPTION:  This is a code such as ICD-9, CPT, SNOMED CT, etc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.18^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUTTEXAM(D0,210,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(9999999.18,1,1,1,1.4)
    1.4)= S DIH=$G(^AUTTEXAM(DIV(0),210,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9999999.18,DIG=2 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUTTEXAM(D0,210,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9999999.18,1,1,1,2.4)
    2.4)= S DIH=$G(^AUTTEXAM(DIV(0),210,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9999999.18,DIG=2 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= @
    FIELD)= DATE MAPPED
    When a code is mapped automatically set the date and time it was mapped.
2 DATE MAPPED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 22, 2019
  • HELP-PROMPT:  Enter the date and time the code was mapped.
  • DESCRIPTION:  This is the date and time the mapping was done. Do not edit this field, it is set automatically when the code is mapped.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the CODE field of the CODE MAPPINGS sub-field of the EXAM File
3 DATE LINKED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 22, 2019
  • HELP-PROMPT:  Enter the date and time when the code was linked.
  • DESCRIPTION:  This is the date and time the mapped code was linked to existing patient data. This field should not be edited, it is set automatically when the linking is done.
Info |  Details