Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 2.011

Package: Registration

VA 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.
  • GROUP:  IHS





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 VA PATIENT File







    



Info | 
Details | 
All