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

Package: IHS Patient

MEDICARE ELIGIBLE(#9000003)-->9000003.11

Sub-Field: 9000003.11


Information

Parent File Name Number Package
MEDICARE ELIGIBLE(#9000003) ELIGIBILITY 9000003.11 IHS Patient

Details

Field # Name Loc Type Details
.01 ELIG. DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DT+20000X) X
  • LAST EDITED:  JAN 04, 2006
  • HELP-PROMPT:  Type a date between 1960 and two years from today.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000003^AC^MUMPS
    1)= D MCR^AUPNLBCK
    2)= Q
  • CROSS-REFERENCE:  9000003.11^AAVABDW29^MUMPS
    1)= I +$G(DA(1)) D SET^AUPNDWXR(DA(1),"ELIG")
    2)= I +$G(DA(1)) D KILL^AUPNDWXR(DA(1),"ELIG")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
.02 ELIG. END DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DT+20000X) X Q:'$D(X) S DFN=$G(DFN),DA(1)=$G(DA(1),DFN) Q:'DA(1) K:X<$P(^AUPNMCR(DA(1),11,DA,0),U,1) X
  • LAST EDITED:  JUN 22, 2004
  • HELP-PROMPT:  Type a date between 1960 and two years from today.
  • TECHNICAL DESCR:  
    Patch AUPN*99.1*7 modified the Input Transform to prevent entry of a date that was before the ELIG. DATE.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000003.11^AAVABDW30^MUMPS
    1)= I +$G(DA(1)) D SET^AUPNDWXR(DA(1),"ELIG")
    2)= I +$G(DA(1)) D KILL^AUPNDWXR(DA(1),"ELIG")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
.03 COVERAGE TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'A' FOR A;
  • 'B' FOR B;
  • 'D' FOR D;

  • LAST EDITED:  DEC 20, 2005
  • CROSS-REFERENCE:  9000003.11^AAVABDW31^MUMPS
    1)= I +$G(DA(1)) D SET^AUPNDWXR(DA(1),"ELIG")
    2)= I +$G(DA(1)) D KILL^AUPNDWXR(DA(1),"ELIG")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
.04 PLAN NAME 0;4 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • INPUT TRANSFORM:  S DIC("S")="I $$ITS^AUTINS(Y,""MD"")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAY 02, 2016
  • HELP-PROMPT:  Enter the Insurer which is administering this Part D Medicare
  • SCREEN:  S DIC("S")="I $$ITS^AUTINS(Y,""MD"")"
  • EXPLANATION:  CHOOSE ONLY 'MCR PART D' INSURERS
.05 MEDICARE NAME 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 19, 2005
  • HELP-PROMPT:  Enter PATIENT'S FULL NAME exactly as defined by MEDICARE PART D INSURER
.06 ID Number 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 19, 2005
  • HELP-PROMPT:  ENTER THE ID NUMBER AS IT APPEARS ON THE CARD
.07 PERSON CODE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  DEC 19, 2005
  • HELP-PROMPT:  Answer must be 2-10 characters in length
.08 GENDER 0;8 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  APR 05, 2013
  • HELP-PROMPT:  Enter 'M' for MALE, 'F' for FEMALE, or 'U' if UNKNOWN.
.09 DATE OF BIRTH 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 19, 2005
  • HELP-PROMPT:  (No range limit on date)
.11 GROUP NAME 0;11 POINTER TO EMPLOYER GROUP INSURANCE FILE (#9999999.77) EMPLOYER GROUP INSURANCE(#9999999.77)

  • LAST EDITED:  DEC 19, 2005
Info |  Details |  All