Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 394.831

Package: Patient Data Exchange

VAQ - OUTGOING GROUP(#394.83)-->394.831

Sub-Field: 394.831


Information

Parent File Name Number Package
VAQ - OUTGOING GROUP(#394.83) Remote Facility 394.831 Patient Data Exchange

Details

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

  • INPUT TRANSFORM:  S DIC("S")="I $$OKDOM1^VAQXRF2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 09, 2001
  • DESCRIPTION:  
    Name of facility.
  • SCREEN:  S DIC("S")="I $$OKDOM1^VAQXRF2(Y)"
  • EXPLANATION:  You can't choose a Facility which points to a closed Domain.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  394.831^B
    1)= S ^VAT(394.83,DA(1),"FAC","B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.83,DA(1),"FAC","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  394.831^AD1^MUMPS
    1)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,1) K VAQXRF
    2)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,0,.01,X) K VAQXRF
    Creates a cross reference of all remote facilities and their domains that have been entered for a given group.
    Resulting node ==> ^VAT(394.83,DA(1),"FAC","A-OUTGRP",[10;.01],[10;.02],DA)
    Where: [10;.01] is field number .01 of multiple field number 10
    [10;.02] is field number .02 of multiple field number 10
    DA(1) is the entry number within the main file
    DA is the entry number within the multiple
    The resulting node is created by the AD1 and AD2 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.
  • CROSS-REFERENCE:  ^^TRIGGER^394.831^10
    1)= X ^DD(394.831,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.831,.01,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=394.831,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Added By=""
    CREATE VALUE)= S X=$G(DUZ)
    DELETE VALUE)= NO EFFECT
    FIELD)= Added By
    User adding facility to outgoing group automatically stored.
  • CROSS-REFERENCE:  ^^TRIGGER^394.831^11
    1)= X ^DD(394.831,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.831,.01,1,4,1.1) X ^DD(394.831,.01,1,4,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,1)):^(1),1:"") S X=$P(Y(1),U,2)=""
    1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=394.831,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Date Added=""
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= Date Added
    Date/time facility added to outgoing group automatically stored.
  • CROSS-REFERENCE:  ^^TRIGGER^394.831^.02
    1)= X ^DD(394.831,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.831,.01,1,5,1.1) X ^DD(394.831,.01,1,5,1.4)
    1.1)= S X=DIV X ^DD(394.831,.01,1,5,49.2) S D0=$P(Y(101),U,1) S:'$D(^DIC(4.2,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) S D1=I(1,0)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(394.831,.01,1,5,69.2) S X=$S('$D(^DIC(4.2,+$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(^VAT(394.83,DIV(0),"FAC",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.831,DIG=.02 D ^DICR:$O(^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.83,D0,"FAC",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.831,.01,1,5,2.4)
    2.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.831,DIG=.02 D ^DICR:$O(^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:""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"")
    69.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"")
    CREATE CONDITION)= Remote Facility:DOMAIN'=""
    CREATE VALUE)= Remote Facility:DOMAIN:NUMBER
    DELETE VALUE)= @
    FIELD)= Remote Domain
.02 Remote Domain 0;2 POINTER TO DOMAIN FILE (#4.2) DOMAIN(#4.2)

  • INPUT TRANSFORM:  S DIC("S")="I $$OKDOM2^VAQXRF2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 09, 2001
  • DESCRIPTION:  
    Facility's E-Mail address.
  • SCREEN:  S DIC("S")="I $$OKDOM2^VAQXRF2(Y)"
  • EXPLANATION:  You can't choose a closed Domain.
  • NOTES:  TRIGGERED by the Remote Facility field of the Remote Facility sub-field of the VAQ - OUTGOING GROUP File
  • CROSS-REFERENCE:  394.831^AD2^MUMPS
    1)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,1) K VAQXRF
    2)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,0,.02,X) K VAQXRF
    Creates a cross reference of all remote facilities and their domains that have been entered for a given group.
    Resulting node ==> ^VAT(394.83,DA(1),"FAC","A-OUTGRP",[10;.01],[10;.02],DA)
    Where: [10;.01] is field number .01 of multiple field number 10
    [10;.02] is field number .02 of multiple field number 10
    DA(1) is the entry number within the main file
    DA is the entry number within the multiple
    The resulting node is created by the AD1 and AD2 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.
10 Added By 1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 01, 1992
  • DESCRIPTION:  
    Person who added this facility.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Remote Facility field of the Remote Facility sub-field of the VAQ - OUTGOING GROUP File
11 Date Added 1;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1992
  • DESCRIPTION:  
    Date facility was added.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Remote Facility field of the Remote Facility sub-field of the VAQ - OUTGOING GROUP File
Info |  Details