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

Package: Patient Data Exchange

*PDX PARAMETER(#394.2)-->394.26

Sub-Field: 394.26


Information

Parent File Name Number Package
*PDX PARAMETER(#394.2) WORK GROUP 394.26 Patient Data Exchange

Details

Field # Name Loc Type Details
.01 WORK GROUP 0;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAY 15, 1991
  • HELP-PROMPT:  Enter the name of an institution to add to your PDX working group
  • DESCRIPTION:  
    NAME OF THE INSTITUTION IN THE WORK GROUP
  • CROSS-REFERENCE:  394.26^B
    1)= S ^VAT(394.2,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.2,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.26^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.2,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.26,.01,1,2,1.1) X ^DD(394.26,.01,1,2,1.4)
    1.1)= S X=DIV X ^DD(394.26,.01,1,2,49.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^VAT(394.2,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.26,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.2,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.26,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^VAT(394.2,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.26,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:"") S X=2910402 K DIC S DIC="^DIC(4.2,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"")
    CREATE VALUE)= 4.2:DOMAIN
    DELETE VALUE)= @
    FIELD)= NETWORK AD
1 NETWORK ADDRESS 0;2 POINTER TO DOMAIN FILE (#4.2)
************************REQUIRED FIELD************************
DOMAIN(#4.2)

  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter the network address of the institution
  • DESCRIPTION:  
    NETWORK ADDRESS OF THE INSTITUTION
  • NOTES:  TRIGGERED by the WORK GROUP field of the WORK GROUP sub-field of the *PDX PARAMETER File
  • CROSS-REFERENCE:  394.26^NET
    1)= S ^VAT(394.2,DA(1),1,"NET",$E(X,1,30),DA)=""
    2)= K ^VAT(394.2,DA(1),1,"NET",$E(X,1,30),DA)
    CROSS REFERENCE ON THE NETWORK ADDRESS FOR INSTITUTIONS IN THE PDX WORKING GROUP
Info |  Details |  All