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

Package: IHS Patient

PATIENT(#9000001)-->9000001.44

Sub-Field: 9000001.44


Information

Parent File Name Number Package
PATIENT(#9000001) MBI 9000001.44 IHS Patient

Details

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
  • LAST EDITED:  OCT 27, 2017
  • HELP-PROMPT:  Enter MBI issue date if known, earliest effective date if not.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000001.44^B
    1)= S ^AUPNPAT(DA(1),44,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNPAT(DA(1),44,"B",$E(X,1,30),DA)
1 MBI 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:'+$$FORMOK^AUPNMBI(X) X
  • LAST EDITED:  NOV 03, 2017
  • HELP-PROMPT:  Must be 11 characters in length and in acceptable CMS MBI format.
  • DESCRIPTION:  CMS-issued Medicare Beneficiary Identifier (MBI) value.
    Acceptable MBI Format is:
    1 1 Position: 1 2 3 4 5 6 7 8 9 0 1
    ---------------------
    Type: C A X N A X N A A N N
    Types are:
    A = Alphabetic characters A-Z
    C = Natural numbers 1-9
    N = Whole numbers 0-9
    X = Alphanumeric characters 0-9 and A-Z Letters excluded from use in alphabetics/alphanumerics: S,L,O,B,I,Z
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000001.44^C
    1)= S ^AUPNPAT(DA(1),44,"C",$E(X,1,30),DA)=""
    2)= K ^AUPNPAT(DA(1),44,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9000001.44^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNPAT(D0,44,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(9000001.44,1,1,2,1.4)
    1.4)= S DIH=$G(^AUPNPAT(DIV(0),44,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=9000001.44,DIG=3 D ^DICR
    2)= Q
    3)= CANNOT BE EDITED BY USER
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE ENTERED
  • CROSS-REFERENCE:  ^^TRIGGER^9000001.44^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNPAT(D0,44,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(9000001.44,1,1,3,1.4)
    1.4)= S DIH=$G(^AUPNPAT(DIV(0),44,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000001.44,DIG=4 D ^DICR
    2)= Q
    3)= CANNOT BE EDITED BY USER
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= ENTERED BY
  • CROSS-REFERENCE:  ^^TRIGGER^9000001^45
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AUPNPAT(D0,45)):^(45),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^AUPNPAT(DIV(0),45)),DIV=X S $P(^(45),U,1)=DIV,DIH=9000001,DIG=45 D ^DICR
    2)= Q
    CREATE VALUE)= MBI
    DELETE VALUE)= NO EFFECT
    FIELD)= MOST RECENT MBI
  • CROSS-REFERENCE:  9000001^MBI^MUMPS
    1)= S ^AUPNPAT("MBI",$E(X,1,30),DA(1))=""
    2)= K ^AUPNPAT("MBI",$E(X,1,30),DA(1))





2
SOURCE
0;3
SET 

  • 'MCR' FOR MEDICARE CARD;
  • 'MCD' FOR MEDICAID CARD;
  • 'RRE' FOR RAILROAD RETIREMENT CARD;
  • 'CMS' FOR CMS UPLOAD;
  • 'OTH' FOR OTHER;
  • LAST EDITED:  OCT 25, 2017
  • HELP-PROMPT:  Enter data entry source for this MBI value.
  • AUDIT:  YES, ALWAYS





3
DATE ENTERED
0;4
DATE 

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 20, 2017
  • AUDIT:  YES, ALWAYS
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the MBI field of the MBI sub-field of the PATIENT File





4
ENTERED BY
0;5
POINTER TO NEW PERSON FILE (#200) 
NEW PERSON(#200)
  • LAST EDITED:  OCT 20, 2017
  • AUDIT:  YES, ALWAYS
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the MBI field of the MBI sub-field of the PATIENT File







    



Info | 
Details | 
All