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 ^VAT(394.82    VAQ2A    VAQPST03    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