Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

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`