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

Package: Registration

PATIENT(#2)-->2.0361

Sub-Field: 2.0361


Information

Parent File Name Number Package
PATIENT(#2) PATIENT ELIGIBILITIES 2.0361 Registration

Details

Field # Name Loc Type Details
.01 ELIGIBILITY 0;1 POINTER TO ELIGIBILITY CODE FILE (#8) ELIGIBILITY CODE(#8)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,7),$S($P(^(0),U,8):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELGCHK^DGRPTU(D0),$$HUDCK^DGLOCK1(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
  • LAST EDITED:  MAR 18, 2025
  • HELP-PROMPT:  Select other eligibilities to which this patient may be entitled.
  • DESCRIPTION:  
    Enter all eligibilities under which this patient may receive care. The patients primary eligibility as well as all other eligibilities he is entitled to is stored in this multiple.
  • TECHNICAL DESCR:  Unlike previous versions of the PATIENT file, in this version ALL the patient's eligibilities are stored in this multiple.
    When the user enters/edits that patient's PRIMARY ELIGIBILITY CODE, that code is automatically stored in the multiple as well as in the PRIMARY ELIGIBILITY CODE field.
    This change was necessary to accomodate the VA/DOD sharing
  • SCREEN:  S DIC("S")="I '$P(^(0),U,7),$S($P(^(0),U,8):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELGCHK^DGRPTU(D0),$$HUDCK^DGLOCK1(Y)"
  • EXPLANATION:  Select other eligibilities for the patient. The primary may be selected but it must already exist.
  • AUDIT:  YES, ALWAYS
  • DELETE TEST:  1,0)= S DFN=DA(1) D EV^DGLOCK D:$D(X) COV^DGLOCK3(DA) I '$D(X)!(+$G(^DPT(DA(1),.36))=DA) W:$D(X) !?5,"Deleting primary eligibility is not allowed"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRIMARY ELIGIBILITY CODE field of the PATIENT File
  • CROSS-REFERENCE:  2.0361^B
    1)= S ^DPT(DA(1),"E","B",$E(X,1,30),DA)=""
    2)= K ^DPT(DA(1),"E","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  2^AEL1^MUMPS
    1)= S ^DPT("AEL",DA(1),+X)=""
    2)= K ^DPT("AEL",DA(1),+X) I X=$$FIND1^DIC(8,"","B","COLLATERAL OF VET") D ARCHALL^DGRP1152U(DA(1))
    When an eligibility is deleted, the KILL logic will remove the item from the "AEL" cross reference and then check if "COLLATERAL OF VET" eligibility is being removed. If so, code is called to archive all CCP entries in
    the COMMUNITY CARE PROGRAM sub-file (#2.191) of the PATIENT file (#2). The ARCHIVE (#.04) field of the CCP entry is set to 1.
  • CROSS-REFERENCE:  ^^TRIGGER^2.0361^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2.0361,.01,1,3,1.1) X ^DD(2.0361,.01,1,3,1.4)
    1.1)= S X=DIV S X="" I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"LONG")) X ^("LONG")
    1.4)= S DIH=$G(^DPT(DIV(0),"E",DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2.0361,DIG=.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),"E",DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2.0361,DIG=.03 D ^DIC
    R
    CREATE VALUE)= S X="" I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"LONG")) X ^("LONG")
    DELETE VALUE)= @
    FIELD)= LONG
  • CROSS-REFERENCE:  2^AO^MUMPS
    1)= S DFN=DA(1) D EN^DGMTR K DGREQF
    2)= S DFN=DA(1) D EN^DGMTR K DGREQF
    This cross-reference is used to determine whether or not a means test or co-pay test is required.
  • CROSS-REFERENCE:  2^AENR01^MUMPS
    1)= D AUTOUPD^DGENA2(DA(1))
    2)= D AUTOUPD^DGENA2(DA(1))
    3)= DO NOT DELETE
    This cross-reference is used to update the patient's current Patient Enrollment record.
    When deleting an eligibility, at the point the kill logic of this x-ref is executed the data still exists in the global. To determine whether an eligibility still exists the "B" x-ref is checked - if not there, the
    eligibility is ignored.
.03 LONG ID 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X),$D(X) K:$L(X)>15!($L(X)<1) X I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"TRANSFORM")) X ^("TRANSFORM")
  • LAST EDITED:  MAR 12, 1991
  • HELP-PROMPT:  Enter the value of the patient's identification.
  • DESCRIPTION:  This field contains the patient's long ID associated with the patient's ELIGIBILITY. For most eligibilities this is the Social Security Number.
    This field is triggered by the 'ELIGILBILTY(#.01)' field. It is user defined only if this eligibility's id format allows this user interaction as indicated by the 'PROMPT USER FOR ID?(#.02)' field of the 'IDENTIFICATION
    FORMAT(#8.1)' file.
  • EXECUTABLE HELP:  I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"HELP")) X ^("HELP")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ELIGIBILITY field of the PATIENT ELIGIBILITIES sub-field of the PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2.0361^.04
    1)= D L11^VADPT62
    1.1)= S X=DIV I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"SHORT")) X ^("SHORT")
    1.4)= S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2.0361,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= D L12^VADPT62
    2.4)= S DIH=$S($D(^DPT(DIV(0),"E",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=2.0361,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),"SHORT")) X ^("SHORT")
    DELETE VALUE)= @
    FIELD)= SHORT ID
  • CROSS-REFERENCE:  2.0361^AC^MUMPS
    1)= I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),1)) X ^(1)
    2)= I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),2)) X ^(2)
  • CROSS-REFERENCE:  ^^TRIGGER^2^.363
    1)= D L31^VADPT62
    1.4)= S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,3)=DIV,DIH=2,DIG=.363 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= D L32^VADPT62
    2.4)= S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,3)=DIV,DIH=2,DIG=.363 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
    CREATE VALUE)= LONG ID
    DELETE CONDITION)= S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
    DELETE VALUE)= @
    DIC)=
    FIELD)= PRIMARY LONG ID
  • CROSS-REFERENCE:  2^PID^MUMPS
    1)= S:$S('$D(^DIC(8,DA,0)):0,'$D(^DIC(8.2,+$P(^(0),U,10),0)):0,1:$P(^(0),U)'="VA STANDARD") ^DPT("PID",X,DA(1),DA)=""
    2)= K ^DPT("PID",X,DA(1),DA)
.04 SHORT ID 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  OCT 04, 1991
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
  • DESCRIPTION:  This field contains the patient's short ID associated with the patient's ELIGIBILITY. For most eligibilities, this is the last four digits of the Social Security Number.
    This field is uneditable and triggered by the 'LONG ID(#.03)' field.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the LONG ID field of the PATIENT ELIGIBILITIES sub-field of the PATIENT File
  • CROSS-REFERENCE:  ^^TRIGGER^2^.364
    1)= D S31^VADPT62
    1.4)= S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,4)=DIV,DIH=2,DIG=.364 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= D S32^VADPT62
    2.4)= S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""),DIV=X S $P(^(.36),U,4)=DIV,DIH=2,DIG=.364 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
    CREATE VALUE)= SHORT ID
    DELETE CONDITION)= S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))
    DELETE VALUE)= @
    DIC)=
    FIELD)= PRIMARY SHORT ID
Info |  Details