Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
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

Directly Accessed By Routines, Total: 4

Package Total Routines
Patient Data Exchange 4 VAQPST03    ^VAT(394.82    VAQ2A    VAQUTL99    

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

External References

Name Field # of Occurrence
^%DT 11+1
NOW^%DTC .01(XREF 4n1.1)
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
^DD(394.82 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S)
^DIC(4 - [#4] .01(XREF 2n1.3), .01(XREF 2n49.2)
^DIC(4.2 - [#4.2] .01(XREF 2n1.1), .01(XREF 2n1.3)
^VA(200 - [#200] .01(XREF 3n1.3)
^VAT(394.82 - [#394.82] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S)
, .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3n1.3)
^(1 .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
^(6 .01(XREF 2n1.3), .01(XREF 2n49.2)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 4n1.1)
>> %DT 11+1*
%H .01(XREF 4n1.1)
%I .01(XREF 4n1.1)
>> D0 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2K), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 4S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 2K), .01(XREF 3n1.3), .01(XREF 4S), .02(XREF 1S), .02(XREF 1K)
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIU .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4)
, .01(XREF 4S), .01(XREF 4n1.1), .01(XREF 4n1.4)
DIV(0 .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
DUZ .01(XREF 3S)
>> I(0 .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n49.2)
>> I(100 .01(XREF 2n49.2)
U .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S)
, .01(XREF 4n1.4)
X .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.3)
, .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.1), .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K), 11+1*!
Y .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S), 11+1
Y(0 .01(XREF 2n1.3), .01(XREF 3n1.3), .01(XREF 4S)
Y(1 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 4S)
Y(101 .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n49.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All