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

Package: IHS Patient

MEDICAID ELIGIBLE(#9000004)-->9000004.11

Sub-Field: 9000004.11


Information

Parent File Name Number Package
MEDICAID ELIGIBLE(#9000004) ELIGIBILITY DATES 9000004.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 S:$D(X) DINUM=X
  • LAST EDITED:  JUN 22, 2004
  • HELP-PROMPT:  Type a date between 1960 and two years from today.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000004^AA^MUMPS
    1)= S ^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),9999999,9999999-X,DA(1))=""
    2)= K ^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),$S($P(^AUPNMCD(DA(1),11,DA,0),U,2)'="":$P(^(0),U,2),1:9999999),9999999-X,DA(1)),^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),9999999,9999999-X,DA(1))
  • CROSS-REFERENCE:  9000004^AC^MUMPS
    1)= D MCD^AUPNLBCK
    2)= Q
  • CROSS-REFERENCE:  9000004.11^AAVABDW39^MUMPS
    1)= I +$G(DA(1)) S DWDFN=$P($G(^AUPNMCD(DA(1),0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN
    2)= I +$G(DA(1)) S DWDFN=$P($G(^AUPNMCD(DA(1),0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN
    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) K:X<$P(^AUPNMCD(DA(1),11,DA,0),U,1) X
  • LAST EDITED:  DEC 19, 2005
  • 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:  9000004^AA-TOO^MUMPS
    1)= Q:$P(^AUPNMCD(DA(1),0),U,4)  K ^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),9999999,9999999-$P(^(11,DA,0),U,1),DA(1)) S ^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),X,9999999-$P(^(11,DA,0),U,1),DA(1))=""
    2)= K ^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),X,9999999-$P(^(11,DA,0),U,1),DA(1)) S ^AUPNMCD("AA",$P(^AUPNMCD(DA(1),0),U,4),9999999,9999999-$P(^(11,DA,0),U,1),DA(1))=""
  • CROSS-REFERENCE:  9000004.11^AAVABDW40^MUMPS
    1)= I +$G(DA(1)) S DWDFN=$P($G(^AUPNMCD(DA(1),0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN
    2)= I +$G(DA(1)) S DWDFN=$P($G(^AUPNMCD(DA(1),0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
.03 COVERAGE TYPE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1UN.UN) X
  • LAST EDITED:  NOV 25, 2014
  • HELP-PROMPT:  ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000004.11^AAVABDW41^MUMPS
    1)= I +$G(DA(1)) S DWDFN=$P($G(^AUPNMCD(DA(1),0)),U) D:+DWDFN SET^AUPNDWXR(DWDFN,"ELIG") K DWDFN
    2)= I +$G(DA(1)) S DWDFN=$P($G(^AUPNMCD(DA(1),0)),U) D:+DWDFN KILL^AUPNDWXR(DWDFN,"ELIG") K DWDFN
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
Info |  Details |  All