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.101

Package: Registration

VA PATIENT(#2)-->2.101

Sub-Field: 2.101


Information

Parent File Name Number Package
VA PATIENT(#2) DISPOSITION LOG-IN DATE/TIME 2.101 Registration

Details

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

  • INPUT TRANSFORM:  S %DT="ETRPX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X,LL=+$O(^DPT(DA(1),"DIS",0)) I LL>0,DINUM'
  • LAST EDITED:  DEC 15, 1994
  • HELP-PROMPT:  Enter the date and time this patient was logged as a new application for care. Date must be before today's date and must be after the last disposition.
  • DESCRIPTION:  The date/time the patient was registered using the 'Register a Patient' option in ADT should be entered into this field. Registrations must be entered using the ADT module and should not be entered or edited using VA
    FileMan options.
  • EXECUTABLE HELP:  W !,"Enter '??' (a double question mark) for a list of the available dates and times.",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2.101^50
    1)= X ^DD(2.101,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1) S DIU=X K Y S X=DIV S X="1" X ^DD(2.101,.
    01,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
    1.4)= S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= X ^DD(2.101,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1) S DIU=X K Y S X=DIV S X="" X ^DD(2.101,.0
    1,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
    2.4)= S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE VALUE)= "1"
    DELETE VALUE)= @
    FIELD)= AC
  • CROSS-REFERENCE:  2^ADIS
    1)= S ^DPT("ADIS",$E(X,1,30),DA(1),DA)=""
    2)= K ^DPT("ADIS",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  2^ADI^MUMPS
    1)= S ^DPT("ADI",$E(X,1,30),DA(1),DA)=""
    2)= K ^DPT("ADI",$E(X,1,30),DA(1),DA)
    This cross-reference is identical to the ^DPT("ADIS" cross-reference on this field.  The only difference is that this ADI cross-reference was also set on disposition if the registration and disposition were in different
    months.
    MAS no longer uses this cross-reference and this serves as notification that this cross-reference will be removed the first release of MAS released 18 months after the release of MAS 5.2.
  • CROSS-REFERENCE:  2.101^AODS1^MUMPS
    1)= S A1B2TAG="REG" D ^A1B2XFR
    2)= S A1B2TAG="REG" D ^A1B2XFR





.2
10-10T REGISTRATION
0;20
SET

  • '0' FOR NO;
  • '1' FOR YES;
  • LAST EDITED:  DEC 18, 1996
  • DESCRIPTION:  
    Was the patient registered using the 10-10T





1
STATUS
0;2
SET 

************************REQUIRED FIELD************************
  • '0' FOR 10/10 VISIT;
  • '1' FOR UNSCHEDULED;
  • '2' FOR APPLICATION WITHOUT EXAM;
  • LAST EDITED:  JUL 15, 1991
  • HELP-PROMPT:  Enter '0' if this is a 10/10 visit for AMIS, '1' if this is an unscheduled visit, or '2' if this is an application without exam.
  • DESCRIPTION:  ter the appropriate code indicating the status of the patient's visit.  Enter 0 if this patient had a 1010 visit (application for care).  Enter 1 if the patient's visit was not scheduled.  Enter 2 if no exam was needed.
    This data is used by the AMIS 400 series reports.
  • CROSS-REFERENCE:  2.101^AAS^MUMPS
    1)= S SDX=$S(X=0:2,X=1:4,1:"") K:'SDX SDX I $D(SDX) S ^SC("AAS",SDX,(9999999-DA),DA(1))=$S('$D(^DPT(DA(1),"DIS",DA,0)):"",1:+$P(^(0),"^",4)) K SDX
    2)= S SDX=$S(X=0:2,X=1:4,1:"") K:'SDX SDX I $D(SDX) S SDX1=$S($D(^SC("AAS",SDX,(9999999-DA),DA(1))):9999999-DA,1:$P(9999999-DA,".")) K ^SC("AAS",SDX,SDX1,DA(1)),SDX,SDX1
  • CROSS-REFERENCE:  2.101^ASDPSD1^MUMPS
    1)= S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",4),1:"") Q:SDX']""  S SDX1=$S('X:"TT",X=1:"UN",1:"") Q:SDX1']""  I '$D(^DPT("ASDPSD","C"," "_SDX,SDX1,9999999-DA,DA(1))) S ^(DA(1))=""
    2)= S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",4),1:"") Q:SDX']""  S SDX1=$S('X:"TT",X=1:"UN",1:"") Q:SDX1']""  K ^DPT("ASDPSD","C"," "_SDX,SDX1,9999999-DA,DA(1))
  • CROSS-REFERENCE:  2.101^AOERR1^MUMPS
    1)= D UNSCHED^DGOERNOT
    2)= K DGOERNOT S:X'=$P(^DPT(DA(1),"DIS",DA,0),U,2) DGOERNOT=X
    This cross-reference is used in conjunction with ORDER ENTRY/ RESULTS REPORTING v2.09 or higher and will cause MAS OE/RR NOTIFICATIONS for UNSCHEDULED (1010) VISITS to be sent to users who are on an OE/RR LIST for the
    patient.





2
TYPE OF BENEFIT APPLIED FOR
0;3
SET 

************************REQUIRED FIELD************************
  • '1' FOR HOSPITAL;
  • '2' FOR DOMICILIARY;
  • '3' FOR OUTPATIENT MEDICAL;
  • '4' FOR OUTPATIENT DENTAL;
  • '5' FOR NURSING HOME CARE;
  • LAST EDITED:  JAN 15, 1986
  • HELP-PROMPT:  Enter the type of benefit this patient is now applying for.
  • DESCRIPTION:  
    Enter the type of care this patient has applied for whether it be inpatient (dom, hospital, or nursing home) or outpatient (dental, or non-dental).





2.1
TYPE OF CARE APPLIED FOR
0;11
SET 

************************REQUIRED FIELD************************
  • '1' FOR DENTAL;
  • '2' FOR PLASTIC SURGERY;
  • '3' FOR STERILIZATION;
  • '4' FOR PREGNANCY;
  • '5' FOR ALL OTHER;
  • INPUT TRANSFORM:  I X=4,($P(^DPT(DA(1),0),"^",2)="M") K X
  • LAST EDITED:  JUN 09, 1989
  • HELP-PROMPT:  Select the type of care this applicant is applying for.  Pregnancy can not be selected for male patients.
  • DESCRIPTION:  
    Enter the type of care that the patient is requesting service for.  If the patient will be receiving treatment for plastic surgery, dental care, sterilization, or pregnancy, enter that choice.  Otherwise, enter all other.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





3
FACILITY APPLYING TO
0;4
POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
MEDICAL CENTER DIVISION(#40.8)
  • LAST EDITED:  JUL 29, 1986
  • HELP-PROMPT:  Enter the division this patient is applying for care to if it is multidivision.
  • DESCRIPTION:  
    Enter the facility (division) at which this patient will be receiving care.  This is a pointer to the MEDICAL CENTER DIVISION file.
  • CROSS-REFERENCE:  2.101^AAS1^MUMPS
    1)= S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):+$P(^(0),"^",2),1:""),SDX=$S(SDX=0:2,SDX=1:4,1:"") K:'SDX SDX I $D(SDX) S ^SC("AAS",SDX,(9999999-DA),DA(1))=X K SDX
    2)= S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):+$P(^(0),"^",2),1:""),SDX=$S(SDX=0:2,SDX=1:4,1:"") K:'SDX SDX I $D(SDX) S SDX1=$S($D(^SC("AAS",SDX,(9999999-DA),DA(1))):9999999-DA,1:$P(9999999-DA,".")) K ^SC("AAS",SDX,SDX1,DA(1)),S
    DX,SDX1
  • CROSS-REFERENCE:  2.101^ASDPSD^MUMPS
    1)= S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",2),1:""),SDX=$S(SDX=0:"TT",SDX=1:"UN",1:"") K:SDX']"" SDX I $D(SDX) S SDIV=" "_X D SSD^DGREG0 K SDIV,SDX
    2)= S SDX=$S($D(^DPT(DA(1),"DIS",DA,0)):$P(^(0),"^",2),1:""),SDX=$S(SDX=0:"TT",SDX=1:"UN",1:"") K:SDX']"" SDX I $D(SDX) S SDIV=" "_X D SSDK^DGREG0 K SDIV,SDX





4
WHO ENTERED 10/10
0;5
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  JUL 19, 1990
  • HELP-PROMPT:  Enter the name of the person who entered or verified the data for this application for care.
  • DESCRIPTION:  
    The user who entered the registration (1010 application) for this patient will automatically be stored in this field.  This field can be used for tracking purposes.  It should NOT be edited.





5
LOG OUT DATE TIME
0;6
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="ETRX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(X),X<-(DA-9999999) K X
  • LAST EDITED:  OCT 18, 1990
  • HELP-PROMPT:  Enter the date and time this application for care was dispositioned.
  • DESCRIPTION:  
    Enter in this field the date/time the patient was dispositioned.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^2.101^50
    1)= X ^DD(2.101,5,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1) S DIU=X K Y S X=DIV S X="" X ^DD(2.101,5,1,
    1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
    1.4)= S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    2)= X ^DD(2.101,5,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_":",2),$C(59),1) S DIU=X K Y S X=DIV S X="1" X ^DD(2.101,5,1
    ,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1
    2.4)= S DIH=$S($D(^DPT(DIV(0),"DIS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=2.101,DIG=50 D ^DICR:$N(^DD
    (DIH,DIG,1,0))>0
    CREATE VALUE)= @
    DELETE VALUE)= "1"
    FIELD)= AC
  • CROSS-REFERENCE:  2^ADIS4^MUMPS
    1)= S L=+^DPT(DA(1),"DIS",DA,0) S:$E(X,1,5)>$E(L,1,5) ^DPT("ADI",X,DA(1),DA)=""
    2)= K ^DPT("ADI",X,DA(1),DA)
    This cross-reference is also set on the LOG-IN DATE/TIME field.  It is no longer used by MAS and it will be removed in the first release of MAS released 18 months after MAS version 5.2.





6
DISPOSITION
0;7
POINTER TO DISPOSITION FILE (#37) 

************************REQUIRED FIELD************************
DISPOSITION(#37)
  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),""^"",10)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 17, 1991
  • HELP-PROMPT:  Enter the disposition of this application for care.
  • DESCRIPTION:  Enter the type of disposition this patient had.  Choose from the available list whether the patient was scheduled for a future appointment, admitted to your facility or another facility, or was released from care without
    exam, for example.  Many other choices also exist.
  • SCREEN:  S DIC("S")="I '$P(^(0),""^"",10)"
  • EXPLANATION:  ONLY ACTIVE DISPOSITION TYPES PLEASE!
  • CROSS-REFERENCE:  2.101^AODS5^MUMPS
    1)= S A1B2TAG="REG" D ^A1B2XFR
    2)= S A1B2TAG="REG" D ^A1B2XFR





8
REASON FOR LATE DISPOSITION
0;8
POINTER TO DISPOSITION LATE REASON FILE (#30)
DISPOSITION LATE REASON(#30)
  • LAST EDITED:  DEC 10, 1983
  • HELP-PROMPT:  Enter the reason this application for care took so long to disposition.
  • DESCRIPTION:  As part of the 'MAS Parameter Entry/Edit' option, a site can determine how may hours must elapse before a disposition is considered to be entered late.  If the time between the registration (log-in) date/time and the
    disposition (log-out) date/time is found to be more than the number of hours specified in the MAS parameters, the user will be prompted with a reason for the late disposition.  This is a pointer to the DISPOSITION LATE
    REASON file.





9
WHO DISPOSITIONED
0;9
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  SEP 24, 1990
  • HELP-PROMPT:  Enter the name of the person who dispositioned this application for care.
  • DESCRIPTION:  
    When a user dispositions a patient, the name of the user will automatically be entered into this field.  This field can be used for tracking purposes at the site and should not be edited.





10
DESCRIPTION OF INCIDENT
1;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>250!($L(X)<3) X
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter a brief description of what caused the accident, 3-250 characters.
  • DESCRIPTION:  
    If the patient was injured in an accident, a brief description (from 3-250 characters) should be entered detailing what caused the injury.





12
*ELIGIBLE FOR MEDICAID
0;12
SET

  • '0' FOR NO;
  • '1' FOR YES;
  • LAST EDITED:  FEB 27, 1992
  • HELP-PROMPT:  Does patient meet eligibility requirements of Medicaid.
  • DESCRIPTION:  
    If this patient is eligible for medicaid, enter yes in this field.  Otherwise, entere no.  This field is used for billing purposes.
  • CROSS-REFERENCE:  2.101^AC^MUMPS
    1)= S DFN=DA(1) D EN^DGMTR
    2)= Q





13
REGISTRATION ELIGIBILITY CODE
0;13
POINTER TO ELIGIBILITY CODE FILE (#8) 

************************REQUIRED FIELD************************
ELIGIBILITY CODE(#8)
  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",9)=8!($D(^DPT(""AEL"",DA(1),+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 22, 1993
  • DESCRIPTION:  When a patient is registered, the user registering the patient will be asked for the patient's eligibility under which they are receiving care.  The default will be the primary eligibility code.  However, if the patient
    also has other entitled eligibilities (employee, for example), one of the other eligibilities may also be entered.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",9)=8!($D(^DPT(""AEL"",DA(1),+Y)))"
  • EXPLANATION:  ONLY ELIGIBILITIES WHICH HAVE BEEN ASSIGNED TO THIS PATIENT!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^409.68^.13
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.101,13,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(101),U,13),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(2.
    101,13,1,1,1.4)
    1.4)= S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,13)=DIV,DIH=409.68,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    89.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:""),D0=$P(Y(1),U,18) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0
    CREATE VALUE)= S X=X
    DELETE VALUE)= NO EFFECT
    FIELD)= OUTPATIENT ENCOUNTER:#.13





14
ELIG VERIFIED AT REGISTRATION
0;14
SET 

************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;
  • LAST EDITED:  FEB 08, 1988
  • DESCRIPTION:  
    If the eligibility was verified at the time of registration, this field will be YES.  Otherwise, it will be NO.





15
SC AT REGISTRATION
0;15
SET 

************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;
  • LAST EDITED:  FEB 08, 1988
  • DESCRIPTION:  If the patient being registered was SC (as determined by the SERVICE CONNECTED? field on screen 7 of registration) at the time this application was entered, YES will be stuffed into this field.  Otherwise NO will be filled
    in here.





16
SC% AT REGISTRATION
0;16
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 08, 1988
  • HELP-PROMPT:  If SC at registration enter the percentage of service connection.
  • DESCRIPTION:  If the patient was service connected at the time of this registration (as determined by the SERVICE CONNECTED? field on registration screen 7), the service connected percentage should be entered here.  The default value
    will be the percentage entered on registration screen 7.





17
AMIS 420 SEGMENT
0;17
POINTER TO AMIS SEGMENT FILE (#391.1)
AMIS SEGMENT(#391.1)
  • INPUT TRANSFORM:  S DIC("S")="I Y>400,Y<421" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 08, 1988
  • DESCRIPTION:  The AMIS 400 series reports are generated based on data in the DISPOSITION LOG-IN DATE/TIME multiple.  When an application is dispositioned, it is deterined by the module which AMIS segment (401-420) this registration
    should fall into.  This information is created automatically by the MAS module.
  • SCREEN:  S DIC("S")="I Y>400,Y<421"
  • EXPLANATION:  AMIS 401-420 SEGMENT ON WHICH THIS DISPOSITION IS COUNTED





18
OUTPATIENT ENCOUNTER
0;18
POINTER TO OUTPATIENT ENCOUNTER FILE (#409.68)
OUTPATIENT ENCOUNTER(#409.68)
  • LAST EDITED:  FEB 10, 1993





19
ENCOUNTER CONVERSION STATUS
0;19
SET

  • '0' FOR NOT CONVERTED;
  • '1' FOR CONVERTED;
  • LAST EDITED:  JAN 14, 1998
  • DESCRIPTION:  This field indicates whether or not this disposition was converted  during the ACRP Database Conversion (SD*5.3*211).
    The field is set to '1' after the disposition has been converted by the conversion software.





20
NEED RELATED TO OCCUPATION
2;1
SET 

************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • LAST EDITED:  NOV 30, 1983
  • HELP-PROMPT:  Enter 'Y' if this application for care is related to the patient's occupation, 'N' if it is not, 'U' if you do not know.
  • DESCRIPTION:  
    If the need for care is related to an injury or condition acquired while the patient was performing work-related duties, yes should be entered here.  Otherwise, no should be entered.





21
WORKMEN'S COMP CLAIM FILED
2;2
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • LAST EDITED:  NOV 30, 1983
  • HELP-PROMPT:  Enter 'Y' if a workman's comp claim has been filed against this patient's employer, 'N' if it has not.
  • DESCRIPTION:  If the injury or condition for which this patient is being treated occurred while performing duties necessary for his/her job and the patient entered a workmen's compensation claim for this injury or condition, enter yes
    here.  Otherwise, enter no.





22
WORKMEN'S COMP CLAIM NUMBER
2;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<4) X
  • LAST EDITED:  NOV 30, 1983
  • HELP-PROMPT:  Enter the workman's comp claim number, 4 to 10 characters.
  • DESCRIPTION:  If this patient is being seen for an injury or condition s/he received while performing work related duties and s/he filed a claim with workmen's compensation, enter the claim number here.  Otherwise, leave this field
    blank.





23
NEED RELATED TO AN ACCIDENT
2;4
SET 

************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • LAST EDITED:  NOV 30, 1983
  • HELP-PROMPT:  Enter 'Y' if this application for care is due to an accident, 'N' if it is not, 'U' if unknown.
  • DESCRIPTION:  
    If the injury or condition for which this patient is being treated was the result of an accident, enter yes here.  Otherwise, answer no.





24
INJURY CAUSED BY
2;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<4) X
  • LAST EDITED:  NOV 30, 1983
  • HELP-PROMPT:  Enter who or what was responsible for the accident, 4-80 characters.
  • DESCRIPTION:  
    If the reason this patient is being seen at the medical center is due to an injury sustained, enter what caused the injury.  Otherwise, leave this field blank.





25
INJURING PARTIES INSURANCE
2;6
POINTER TO INSURANCE COMPANY FILE (#36)
INSURANCE COMPANY(#36)
  • LAST EDITED:  OCT 22, 1984
  • DESCRIPTION:  
    If the reason this patient is being seen at this medical center is due to an injury sustained and there is a liable party, enter that party's insurance policy number.  Otherwise, leave this field blank.





26
FILED AGAINST INJURING PARTY
2;7
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • LAST EDITED:  NOV 30, 1983
  • DESCRIPTION:  
    If this patient is being seen is due to an injury resulting from another person's negligence, enter yes here if a claim has been filed against the other party's insurance company.  Otherwise, answer no.





30
ATTORNEY'S NAME
3;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length.
  • DESCRIPTION:  Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format.  This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma.  All other
    characters and parenthetical text will be removed.
  • TECHNICAL DESCR:  
    IHS/ITSC/LJF 2/5/2004: Changed Input Transform - added K DG20NAME before setting DG20NAME to kill any leftover array items from previous patient.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ANAM1001 (#39)    MUMPS    IR    ACTION    WHOLE FILE (#2)
    Short Descr:  This index keeps the NAME COMPONENTS file in synch with field #30.
    Description:  This cross reference uses Kernel name standardization APIs to keep the NAME COMPONENTS (#20) file record associated with the #30 field synchronized with the data value stored in that field.
    Set Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^DPTNAME(.DG20NAME),UPDCOMP^XLFNAME2(2.101,.DA,30,.DG20NAME,100.21,,"CL30") K DG20NAME Q
    Kill Logic:  I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) Q
    X(1):  ATTORNEY'S NAME  (2.101,30)  (Subscr 1)  (forwards)





31
A-ADDRESS 1
3;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter the first line of the attorney's address (do not include city, state or zip code), 3-30 characters.
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the first line the street address for the attorney.





32
A-ADDRESS 2
3;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter the second line of the attorney's address (do not include city, state or zip code), 3-30 characters.
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the second line of the street address for the attorney.





33
A-ADDRESS 3
3;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter the third line of the attorney's address (do not include city, state or zip code) 3-30 characters.
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the third line of the street address for the attorney.





34
A-CITY
3;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter the attorney's city address, 3-30 characters.
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the city where the attorney practices.





35
A-STATE
3;6
POINTER TO STATE FILE (#5)
STATE(#5)
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter the attorney's state address.
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the the state where the attorney practices.





36
A-ZIP CODE
3;7
FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X
  • LAST EDITED:  JUN 07, 1993
  • HELP-PROMPT:  Enter the 5 numbers in the attorney's zip code (ex: '12345').
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the zip code of the attorney's address.
  • CROSS-REFERENCE:  2.101^ADISAZIP^MUMPS
    1)= D SETMULT^DGREGDD1(DA(1),DA,2.101,"DIS",38,3,9,X)
    2)= D KILLMULT^DGREGDD1(DA(1),DA,2.101,"DIS",38,3,9,X)
    This sets the corresponding zip+4 field to be equal to this field's value.





37
A-PHONE
3;8
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  DEC 01, 1983
  • HELP-PROMPT:  Enter the attorney's phone number, 3-20 characters.
  • DESCRIPTION:  
    If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the the attorney's business phone number.





38
A-ZIP+4
3;9
FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR
  • OUTPUT TRANSFORM:  D ZIPOUT^VAFADDR
  • LAST EDITED:  JUN 07, 1993
  • HELP-PROMPT:  Answer with either 5 digit or 9 digit zip code.
  • DESCRIPTION:  If the patient is being treated for an injury sustained due to the negligence of another and the patient has an attorney covering the incident, enter the zip code of the attorney's address.  Answer with either the 5 digit
    format (e.g. 12345) or the nine digit format (e.g.  12345-6789 or 123456789).
  • TECHNICAL DESCR:  
    Related to other address fields for the patient's attorney.  This field 'triggers' the A-ZIP CODE (#38) field of the disposition multiple, using the first 5 digits of this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.101^ADISZIP4^MUMPS
    1)= D SETMULT^DGREGDD1(DA(1),DA,2.101,"DIS",36,3,7,$E(X,1,5))
    2)= D KILLMULT^DGREGDD1(DA(1),DA,2.101,"DIS",36,3,7,$E(X,1,5))
    This sets the corresponding zip code field to the first 5 digits of this field.





50
ACTIVE
0;10
SET

  • '1' FOR ACTIVE;
  • LAST EDITED:  JUL 02, 1985
  • HELP-PROMPT:  Enter 1 if this registration is active (not dispositioned).
  • DESCRIPTION:  
    If this registration is currently active (not dispostioned) a 1 will be stored in this field.  Otherwise, the field should be left blank.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the LOG IN DATE/TIME field of the DISPOSITION LOG-IN DATE/TIME sub-field of the VA PATIENT File
    TRIGGERED by the LOG OUT DATE TIME field of the DISPOSITION LOG-IN DATE/TIME sub-field of the VA PATIENT File
  • CROSS-REFERENCE:  2^ADA
    1)= S ^DPT("ADA",$E(X,1,30),DA(1),DA)=""
    2)= K ^DPT("ADA",$E(X,1,30),DA(1),DA)





99
PROGRAMMERS USE

COMPUTED DATE

  • MUMPS CODE:  S Y(2.101,99,1)=$S($D(^DPT(D0,"DIS",D1,0)):^(0),1:"") S X=$P(Y(2.101,99,1),U,1)
  • ALGORITHM:  #.01
  • DESCRIPTION:  
    Used to speed reporting in Multidivisional Facilities.  Fileman can not sort by same field twice





100.21
ATTORNEY'S NAME COMPONENTS
0;21
POINTER TO NAME COMPONENTS FILE (#20)
NAME COMPONENTS(#20)
  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  This field contains a pointer to the NAME COMPONENTS record associated with DISPOSITION field #30.
    WRITE AUTHORITY:^
    UNEDITABLE





11500.01
ODS AT REGISTRATION?
ODS;1
SET

  • '1' FOR YES;
  • '0' FOR NO;
  • LAST EDITED:  JAN 16, 1991
  • HELP-PROMPT:  Did this patient have a period of service of ODS at the time of this registration?
  • DESCRIPTION:  
    Enter yes if this patient was an ODS patient at the time of this registration.  Otherwise, respond no.





11500.02
ODS REGISTRATION ENTRY
ODS;2
POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JAN 16, 1991
  • HELP-PROMPT:  Enter the entry in the ODS REGISTRATIONS file which corresponds to this registration.
  • DESCRIPTION:  
    Enter the entry in the ODS REGISTRATIONS file which corresponds to this registration.
  • CROSS-REFERENCE:  2^AODSR
    1)= S ^DPT("AODSR",$E(X,1,30),DA(1),DA)=""
    2)= K ^DPT("AODSR",$E(X,1,30),DA(1),DA)







    



Info | 
Details | 
All