Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^VAT(394.82

Package: Patient Data Exchange

Global: ^VAT(394.82


Information

FileMan FileNo FileMan Filename Package
394.82 VAQ - RELEASE GROUP Patient Data Exchange

Description

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Patient Data Exchange 2 VAQ2A    VAQPST03    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.01]    NEW PERSON(#200)[10]    
MailMan 1 DOMAIN(#4.2)[.02]    

Fields, Total: 4

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

  • LAST EDITED:  NOV 01, 1994
  • DESCRIPTION:  
    Name of remote facility being granted 'Automatic Processing'.
  • CROSS-REFERENCE:  394.82^B
    1)= S ^VAT(394.82,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.82,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.82^.02
    1)= X ^DD(394.82,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.82,.01,1,2,1.1) X ^DD(394.82,.01,1,2,1.4)
    1.1)= S X=DIV X ^DD(394.82,.01,1,2,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)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S 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:"") S X=$S('$D(^DIC(4.2,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1))'="" S D0=I(0,0)
    1.4)= S DIH=$S($D(^VAT(394.82,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.82,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.82,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.82,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^VAT(394.82,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.82,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S 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:"")
    CREATE CONDITION)= Remote Facility:DOMAIN'=""
    CREATE VALUE)= Remote Facility:DOMAIN:NUMBER
    DELETE VALUE)= @
    FIELD)= Remote Domain
  • CROSS-REFERENCE:  ^^TRIGGER^394.82^10
    1)= X ^DD(394.82,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,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.82,.01,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.82,D0,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.82,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=394.82,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 remote facility to release group automatically stored
  • CROSS-REFERENCE:  ^^TRIGGER^394.82^11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"") S X=$P(Y(1),U,2)="" I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.82,.01,1,4,1.1) X
    ^DD(394.82,.01,1,4,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^VAT(394.82,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=394.82,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 remote facility is added to release group automatically stored.
.02 Remote Domain 0;2 POINTER TO DOMAIN FILE (#4.2) DOMAIN(#4.2)

  • LAST EDITED:  MAR 31, 1993
  • DESCRIPTION:  
    Remote facility's E-Mail address.
  • NOTES:  TRIGGERED by the Remote Facility field of the VAQ - RELEASE GROUP File
  • CROSS-REFERENCE:  394.82^C
    1)= S ^VAT(394.82,"C",$E(X,1,30),DA)=""
    2)= K ^VAT(394.82,"C",$E(X,1,30),DA)
10 Added By 1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 01, 1992
  • DESCRIPTION:  
    User who added this facility to the Release Group.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Remote Facility field of the VAQ - RELEASE 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 the facility was added.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Remote Facility field of the VAQ - RELEASE GROUP File
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields