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.2914

Package: IHS Patient

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

Sub-Field: 9000010.2914


Information

Parent File Name Number Package
V EMERGENCY VISIT RECORD(#9000010.29) NURSES 9000010.2914 IHS Patient

Details

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

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

  • LAST EDITED:  JAN 17, 2017
  • CROSS-REFERENCE:  9000010.2914^ANT^MUMPS
    1)= I $P(^AUPNVER(DA(1),14,DA,0),U,3)]"" S ^AUPNVER(DA(1),14,"ANT",X,$P(^AUPNVER(DA(1),14,DA,0),U,3),DA)=""
    2)= I $P(^AUPNVER(DA(1),14,DA,0),U,3)]"" K ^AUPNVER(DA(1),14,"ANT",X,$P(^AUPNVER(DA(1),14,DA,0),U,3),DA)
.03 NURSE 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^ANTO^MUMPS
    1)= I $P(^AUPNVER(DA(1),14,DA,0),U,2)]"" S ^AUPNVER(DA(1),14,"ANT",$P(^AUPNVER(DA(1),14,DA,0),U,2),X,DA)=""
    2)= I $P(^AUPNVER(DA(1),14,DA,0),U,2)]"" K ^AUPNVER(DA(1),14,"ANT",$P(^AUPNVER(DA(1),14,DA,0),U,2),X,DA)
  • CROSS-REFERENCE:  9000010.2914^AN
    1)= S ^AUPNVER(DA(1),14,"AN",$E(X,1,30),DA)=""
    2)= K ^AUPNVER(DA(1),14,"AN",$E(X,1,30),DA)
Info |  Details |  All