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

Package: IHS Patient

VAMB ELIGIBLE(#9000006.02)-->9000006.21101

Sub-Field: 9000006.21101


Information

Parent File Name Number Package
VAMB ELIGIBLE(#9000006.02) ELIGIBILITY DATES 9000006.21101 IHS Patient

Details

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X S:$D(X) DINUM=X
  • LAST EDITED:  APR 12, 2013
  • HELP-PROMPT:  Enter beginning date of eligibility date range.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000006.21101^B
    1)= S ^AUPNVAMB(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNVAMB(DA(1),11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000006.02^AA^MUMPS
    1)= S ^AUPNVAMB("AA",X,$S(+$P(^AUPNVAMB(DA(1),11,DA,0),U,2):$P(^(0),U,2),1:9999999),DA(1))=""
    2)= K ^AUPNVAMB("AA",X,$S(+$P(^AUPNVAMB(DA(1),11,DA,0),U,2):$P(^(0),U,2),1:9999999),DA(1))
.02 ELIG END DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X K:+$G(X)<$P(^AUPNVAMB(DA(1),11,DA,0),U,1) X
  • LAST EDITED:  APR 12, 2013
  • HELP-PROMPT:  Enter ending eligibility date (must follow beginning date).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000006.02^AA^MUMPS
    1)= K ^AUPNVAMB("AA",+$P(^AUPNVAMB(DA(1),11,DA,0),U,1),9999999,DA(1)) S ^AUPNVAMB("AA",+$P(^AUPNVAMB(DA(1),11,DA,0),U,1),X,DA(1))=""
    2)= K ^AUPNVAMB("AA",+$P(^AUPNVAMB(DA(1),11,DA,0),U,1),X,DA(1))
.03 COVERAGE TYPE 0;3 POINTER TO COVERAGE TYPE FILE (#9999999.65) COVERAGE TYPE(#9999999.65)

  • LAST EDITED:  APR 12, 2013
Info |  Details |  All