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

Package: Registration

PATIENT(#2)-->2.001-->2.011

Sub-Field: 2.011

Information

Parent File	Name	Number	Package
2.001	ENROLLMENT DATA	2.011	Registration

Details

Field #	Name	Loc	Type	Details
.01	DATE OF ENROLLMENT	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXT",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X I $N(^DPT(DA(2),"DE",DA(1),1,0))>0,$P(^DPT(DA(2),"DE",DA(1),0),"^",2)']"" W !,7,7,"PATIENT ALREADY HAS ACTIVE ENROLLMENT IN CLINIC !!",7,7 K X` LAST EDITED: `APR 18, 1990` DESCRIPTION: `Enter the date this patient was initially enrolled in this clinic.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^2.001^2` `1)= X ^DD(2.011,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1) S DIU=X K Y S X="" X ^DD(2.011,.01,1,1,1.4)` `1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA` `1.4)= S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= X ^DD(2.011,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1) S DIU=X K Y S X="I" X ^DD(2.011,.01,1,1,2.4)` `2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA` `2.4)= S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= @` `DELETE VALUE)= "I"` `FIELD)= CURRENT STATUS` CROSS-REFERENCE: `2^AEB^MUMPS` `1)= S ^DPT("AEB",$E(X,1,30),DA(2),DA(1),DA)=""` `2)= K ^DPT("AEB",$E(X,1,30),DA(2),DA(1),DA)` CROSS-REFERENCE: `2.011^AEB1^MUMPS` `1)= S SD=+^DPT(DA(2),"DE",DA(1),0),^DPT("AEB1",SD,$E(X,1,30),DA(2),DA(1),DA)="" K SD` `2)= S SD=+^DPT(DA(2),"DE",DA(1),0) K ^DPT("AEB1",SD,$E(X,1,30),DA(2),DA(1),DA),SD`
1	OPT OR AC	0;2	SET	**********************REQUIRED FIELD********************** 'O' FOR OPT; 'A' FOR AC; LAST EDITED: `JUL 12, 1983` DESCRIPTION: `Enter O if the patient is being seen by this clinic on an outpatient basis. Enter A if the patient is being seen for ambulatory care.`
2	SERVICE		COMPUTED	MUMPS CODE: `X ^DD(2.011,2,9.2) S Y(2,101)=$S($D(^SC(D0,0)):^(0),1:"") S X=$P($P(Y(2,102),$C(59)_$P(Y(2,101),U,3)_":",2),$C(59),1) S D0=Y(2,2)` `9.2 = S Y(2,2)=$S($D(D0):D0,1:""),Y(2,1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:""),D0=$P(Y(2,1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S Y(2,102)=$C(59)_$S($D(^DD(44,2,0)):$P(^(0),U,3),1:"")` ALGORITHM: `ENROLLMENT CLINIC:SERVICE` DESCRIPTION: `This is a computed field which returns the service of the clinic in which this patient is (was) enrolled.`
3	DATE OF DISCHARGE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S HSC=+^DPT(DA(2),"DE",DA(1),0) F XS=(X\1_.9):0 S XS=$N(^DPT(DA(2),"S",XS)) Q:XS<0 I +^(XS,0)=HSC,$P(^(0),"^",2)'["C",$P(^(0),"^",2)'["N" X ^DD(2.011,3,9.2) Q` `9.2 = W !,7,"PATIENT HAS FUTURE APPOINTMENTS, MUST BE CANCELLED PRIOR TO DISCHARGE !!",7 K X` LAST EDITED: `AUG 04, 1993` DESCRIPTION: `This field contains the date this patient was discharged from this clinic.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^2.001^2` `1)= X ^DD(2.011,3,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1) S DIU=X K Y S X="I" X ^DD(2.011,3,1,1,1.4)` `1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA` `1.4)= S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= X ^DD(2.011,3,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DE",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59),1) S DIU=X K Y S X="" X ^DD(2.011,3,1,1,2.4)` `2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA` `2.4)= S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= "I"` `DELETE VALUE)= @` `FIELD)= CURRENT STATUS` CROSS-REFERENCE: `2^AC^MUMPS` `1)= K ^DPT("AEB",+$P(^DPT(DA(2),"DE",DA(1),1,DA,0),"^",1),DA(2),DA(1),DA)` `2)= S ^DPT("AEB",+$P(^DPT(DA(2),"DE",DA(1),1,DA,0),"^",1),DA(2),DA(1),DA)=""` CROSS-REFERENCE: `^^TRIGGER^2.011^5` `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(^DPT(D0,"DE",D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2.011,3,1,4,1.4)` `1.4)= S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2.011,DIG=5 D ^DICR:$` `N(^DD(DIH,DIG,1,0))>0` `2)= 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(^DPT(D0,"DE",D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(2.011,3,1,4,2.4)` `2.4)= S DIH=$S($D(^DPT(DIV(0),"DE",DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=2.011,DIG=5 D ^DICR:$` `N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= @` `DELETE VALUE)= @` `FIELD)= REVIEW DATE`
4	REASON FOR DISCHARGE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `APR 17, 1984` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH` DESCRIPTION: `If the patient has been discharged from this clinic, this field contains the reason the patient was discharged. This is a free text field which allows up to 80 characters to be entered.`
5	REVIEW DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 1986` HELP-PROMPT: `Enter the date/time the patient's enrollment in this clinic was last reviewed.` DESCRIPTION: `Enter the date on which this patients enrollment in this particular clinic was last reviewed.` NOTES: `TRIGGERED by the DATE OF DISCHARGE field of the ENROLLMENT DATA sub-field of the ENROLLMENT CLINIC sub-field of the PATIENT File`