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

Package: IHS Patient Registration

REGISTRATION MAILING LIST(#9009065)-->9009065.05

Sub-Field: 9009065.05


Information

Parent File Name Number Package
REGISTRATION MAILING LIST(#9009065) PATIENT 9009065.05 IHS Patient Registration

Details

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  DEC 19, 1991
  • CROSS-REFERENCE:  9009065.05^B
    1)= S ^AGADLIST(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^AGADLIST(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9009065.05^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AGADLIST(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9009065.05,.01,1,2,1.1) X ^DD(9009065.05,.01,1,2,1.4)
    1.1)= S X=DIV X ^DD(9009065.05,.01,1,2,49.2) S X=$S('$D(^DPT(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AGADLIST(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9009065.05,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"")
    CREATE VALUE)= PATIENT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1
1 PRINT ORDER VALUE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • NOTES:  TRIGGERED by the PATIENT field of the PATIENT sub-field of the REGISTRATION MAILING LIST File
  • CROSS-REFERENCE:  9009065.05^C
    1)= S ^AGADLIST(DA(1),1,"C",$E(X,1,30),DA)=""
    2)= K ^AGADLIST(DA(1),1,"C",$E(X,1,30),DA)
Info |  Details |  All