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

Package: IHS Immunizations Interface

IZ PARAMETERS(#90480)-->90480.03-->90480.37

Sub-Field: 90480.37


Information

Parent File Name Number Package
90480.03 HL7 COMPONENT CONTENT 90480.37 IHS Immunizations Interface

Details

Field # Name Loc Type Details
.01 SEGMENT 0;1 SET
  • 'MSH' FOR MSH;
  • 'PID' FOR PID;
  • 'PD1' FOR PD1;
  • 'NK1' FOR NK1;
  • 'PV1' FOR PV1;
  • 'ORC' FOR ORC;
  • 'RXA' FOR RXA;

  • LAST EDITED:  JUN 29, 2017
  • CROSS-REFERENCE:  90480.37^B
    1)= S ^BYIMPARA(DA(2),3,DA(1),7,"B",$E(X,1,30),DA)=""
    2)= K ^BYIMPARA(DA(2),3,DA(1),7,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90480.37^SEG^MUMPS
    1)= I X]"",$P(^BYIMPARA(DA(2),3,DA(1),7,DA,0),U,2),$P(^(0),U,3) S ^BYIMPARA(DA(2),3,DA(1),7,"SEG",X,$P(^(0),U,2),$P(^(0),U,3))=$P(^(0),U,4)
    2)= I X]"",$P(^BYIMPARA(DA(2),3,DA(1),7,DA,0),U,2),$P(^(0),U,3) K ^BYIMPARA(DA(2),3,DA(1),7,"SEG",X,$P(^(0),U,2),$P(^(0),U,3))
.02 COMPONENT 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 29, 2017
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • CROSS-REFERENCE:  90480.37^SEG2^MUMPS
    1)= I $P($G(^BYIMPARA(DA(2),3,DA(1),7,DA,0)),U)]"",X,$P(^(0),U,3) S ^BYIMPARA(DA(2),3,DA(1),7,"SEG",$P(^(0),U),X,$P(^(0),U,3))=$P(^(0),U,4)
    2)= I $P($G(^BYIMPARA(DA(2),3,DA(1),7,DA,0)),U)]"",X,$P(^(0),U,3) K ^BYIMPARA(DA(2),3,DA(1),7,"SEG",$P(^(0),U),X,$P(^(0),U,3))
.03 SUB-COMPONENT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 29, 2017
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • CROSS-REFERENCE:  90480.37^SEG3^MUMPS
    1)= I $P(^BYIMPARA(DA(2),3,DA(1),7,DA,0),U)]"",$P(^(0),U,2),X S ^BYIMPARA(DA(2),3,DA(1),7,"SEG",$P(^(0),U),$P(^(0),U,2),X)=$P(^(0),U,4)
    2)= I $P(^BYIMPARA(DA(2),3,DA(1),7,DA,0),U)]"",$P(^(0),U,2),X K ^BYIMPARA(DA(2),3,DA(1),7,"SEG",$P(^(0),U),$P(^(0),U,2),X)
.04 VALUE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>99!($L(X)<1) X
  • LAST EDITED:  JUN 29, 2017
  • HELP-PROMPT:  Answer must be 1-99 characters in length.
  • CROSS-REFERENCE:  90480.37^SEG4^MUMPS
    1)= I X]"",$P(^BYIMPARA(DA(2),3,DA(1),7,DA,0),U)]"",$P(^(0),U,2),$P(^(0),U,3) S ^BYIMPARA(DA(2),3,DA(1),7,"SEG",$P(^(0),U),$P(^(0),U,2),$P(^(0),U,3))=X
    2)= I X]"",$P(^BYIMPARA(DA(2),3,DA(1),7,DA,0),U)]"",$P(^(0),U,2),$P(^(0),U,3) K ^BYIMPARA(DA(2),3,DA(1),7,"SEG",$P(^(0),U),$P(^(0),U,2),$P(^(0),U,3))
Info |  Details |  All