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

Package: Kernel

INSTITUTION(#4)-->4.042

Sub-Field: 4.042


Information

Parent File Name Number Package
INSTITUTION(#4) EFFECTIVE DATE/TIME 4.042 Kernel

Details

Field # Name Loc Type Details
.01 EFFECTIVE DATE/TIME 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 2006
  • HELP-PROMPT:  Enter the date/time of the last change to this NPI.
  • DESCRIPTION:  
    This field contains the date and time of the last change to the NPI field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  4.042^B
    1)= S ^DIC(4,DA(1),"NPISTATUS","B",$E(X,1,30),DA)=""
    2)= K ^DIC(4,DA(1),"NPISTATUS","B",$E(X,1,30),DA)
.02 STATUS 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR ACTIVE;
  • '0' FOR INACTIVE;

  • LAST EDITED:  MAR 01, 2006
  • DESCRIPTION:  The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then the NPI will be accessible by end-users to document a particular provider. If 'INACTIVE', then the NPI will only be accessible by the application to
    display legacy data.
    UNEDITABLE
.03 NPI 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:'($$CHKDGT^XUSNPIE1(X,DA(1),"Organization_ID")) X
    MAXIMUM LENGTH: 30
  • LAST EDITED:  JUL 12, 2018
  • HELP-PROMPT:  Answer must be 10 characters in length and not being used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  4.042^C
    1)= S ^DIC(4,DA(1),"NPISTATUS","C",$E(X,1,30),DA)=""
    2)= K ^DIC(4,DA(1),"NPISTATUS","C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  4.042^AC^MUMPS
    1)= D SET1^XUSNPIE1(DA(1),X)
    2)= Q
    3)= Special Trigger
    his Special x-ref sets the NPI field (#41.99).
  • FIELD INDEX:  NPI42 (#677) REGULAR IR LOOKUP & SORTING WHOLE FILE (#4)
    Short Descr: NPI42 X-REF
    Set Logic: S ^DIC(4,"NPI42",$E(X,1,10),DA(1),DA)=""
    Kill Logic: K ^DIC(4,"NPI42",$E(X,1,10),DA(1),DA)
    Whole Kill: K ^DIC(4,"NPI42")
    X(1): NPI (4.042,.03) (Subscr 1) (Len 10) (forwards)
Info |  Details