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

Package: Scheduling

SD WL SERVICE/SPECIALTY(#409.31)-->409.311

Sub-Field: 409.311


Information

Parent File Name Number Package
SD WL SERVICE/SPECIALTY(#409.31) INSTITUTION 409.311 Scheduling

Details

Field # Name Loc Type Details
.01 INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,11)=""N"",$$TF^XUAF4(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 04, 2003
  • HELP-PROMPT:  ENTER INSTITUTION FOR THIS SERVICE/SPECIALTY. INSTITUTION MUST BE NATIONAL AND A TREATING FACILITY.
  • DESCRIPTION:  
    The institution that allows the DSS ID as a wait list selection.
  • SCREEN:  S DIC("S")="I $P(^(0),U,11)=""N"",$$TF^XUAF4(+Y)"
  • EXPLANATION:  Institution must be NATIONAL and a TREATING FACILITY
  • CROSS-REFERENCE:  409.311^B
    1)= S ^SDWL(409.31,DA(1),"I","B",$E(X,1,30),DA)=""
    2)= K ^SDWL(409.31,DA(1),"I","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  409.31^C^MUMPS
    1)= I $D(X) S ^SDWL(409.31,"C",DA(1),DA)=""
    2)= K ^SDWL(409.31,"C",DA(1),DA)
  • CROSS-REFERENCE:  409.31^D^MUMPS
    1)= I $D(X) S ^SDWL(409.31,"D",DA(1),X)=""
    2)= K ^SDWL(409.31,"D",DA(1),X)
  • CROSS-REFERENCE:  409.31^E^MUMPS
    1)= I $D(X) S ^SDWL(409.31,"E",X,DA(1))=""
    2)= K ^SDWL(409.31,"E",X,DA(1))
1 DATE ACTIVATED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 11, 2002
  • HELP-PROMPT:  Enter the date when this Service/Specialty can be selected
  • DESCRIPTION:  
    Date that this DSS ID can be used as a wait list selectable Service/Specialty
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^409.311^2
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SDWL(409.31,D0,"I",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(409.311,1,1,1,1.4)
    1.4)= S DIH=$G(^SDWL(409.31,DIV(0),"I",DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=409.311,DIG=2 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= ACTIVATION DATE ENTERED BY
  • CROSS-REFERENCE:  409.31^G^MUMPS
    1)= I $D(X) S ^SDWL(409.31,"ACT",$P(^SDWL(409.31,DA(1),"I",DA,0),U,1),X,DA(1),DA)=""
    2)= K ^SDWL(409.31,"ACT",$P(^SDWL(409.31,DA(1),"I",DA,0),U,1),X,DA(1),DA),^SDWL(409.31,"DEL",$P(^SDWL(409.31,DA(1),"I",DA,0),U,1))
2 ACTIVATION DATE ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 15, 2002
  • DESCRIPTION:  
    User that entered the activation date for this DSS ID
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the DATE ACTIVATED field of the INSTITUTION sub-field of the SD WL SERVICE/SPECIALTY File
3 DATE INACTIVATED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 14, 2002
  • HELP-PROMPT:  Enter the date when this Service/Specialty can no longer be selected
  • DESCRIPTION:  
    Date that this DSS ID can no longer be used as a wait list selectable
  • CROSS-REFERENCE:  ^^TRIGGER^409.311^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SDWL(409.31,D0,"I",D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(409.311,3,1,1,1.4)
    1.4)= S DIH=$G(^SDWL(409.31,DIV(0),"I",DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.311,DIG=4 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= INACTIVATED DATE
  • CROSS-REFERENCE:  409.31^F^MUMPS
    1)= I $D(X) S ^SDWL(409.31,"DEL",$P(^SDWL(409.31,DA(1),"I",DA,0),U,1),X,DA(1),DA)=""
    2)= K ^SDWL(409.31,"DEL",$P(^SDWL(409.31,DA(1),"I",DA,0),U,1),X,DA(1),DA)
4 INACTIVATED DATE ENTERED BY 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 15, 2002
  • DESCRIPTION:  
    The user that entered the inactivated date for this DSS ID
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the DATE INACTIVATED field of the INSTITUTION sub-field of the SD WL SERVICE/SPECIALTY File
Info |  Details