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

Package: IHS Patient

V EMERGENCY VISIT RECORD(#9000010.29)-->9000010.2913

Sub-Field: 9000010.2913


Information

Parent File Name Number Package
V EMERGENCY VISIT RECORD(#9000010.29) PROVIDERS 9000010.2913 IHS Patient

Details

Field # Name Loc Type Details
.01 PROVIDERS 0;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 17, 2017
  • CROSS-REFERENCE:  9000010.2913^B
    1)= S ^AUPNVER(DA(1),13,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNVER(DA(1),13,"B",$E(X,1,30),DA)
.02 PROVIDER TYPE 0;2 SET
  • 'ED' FOR ED PROVIDER;
  • 'TR' FOR TRIAGE PROVIDER;
  • 'PR' FOR PRIMARY PROVIDER;
  • 'DC' FOR DISCHARGE PROVIDER;

  • LAST EDITED:  JAN 17, 2017
  • CROSS-REFERENCE:  9000010.2913^ATT^MUMPS
    1)= I $P(^AUPNVER(DA(1),13,DA,0),U,3)]"" S ^AUPNVER(DA(1),13,"ATT",X,$P(^AUPNVER(DA(1),13,DA,0),U,3),DA)=""
    2)= I $P(^AUPNVER(DA(1),13,DA,0),U,3)]"" K ^AUPNVER(DA(1),13,"ATT",X,$P(^AUPNVER(DA(1),13,DA,0),U,3),DA)
.03 PROVIDER TIME 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 17, 2017
  • CROSS-REFERENCE:  9000010.29^ATTO^MUMPS
    1)= I $P(^AUPNVER(DA(1),13,DA,0),U,2)]"" S ^AUPNVER(DA(1),13,"ATT",$P(^AUPNVER(DA(1),13,DA,0),U,2),X,DA)=""
    2)= I $P(^AUPNVER(DA(1),13,DA,0),U,2)]"" K ^AUPNVER(DA(1),13,"ATT",$P(^AUPNVER(DA(1),13,DA,0),U,2),X,DA)
  • CROSS-REFERENCE:  9000010.2913^AT
    1)= S ^AUPNVER(DA(1),13,"AT",$E(X,1,30),DA)=""
    2)= K ^AUPNVER(DA(1),13,"AT",$E(X,1,30),DA)
Info |  Details |  All