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.83

Package: Patient Data Exchange

Global: ^VAT(394.83


Information

FileMan FileNo FileMan Filename Package
394.83 VAQ - OUTGOING GROUP Patient Data Exchange

Description

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Patient Data Exchange 4 VAQPST03    VAQREQ03    VAQREQ05    VAQREQ09    

Pointer To FileMan Files, Total: 3

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

Fields, Total: 4

Field # Name Loc Type Details
.01 Group Name 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Name of group.
  • CROSS-REFERENCE:  394.83^B
    1)= S ^VAT(394.83,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.83,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.83^.02
    1)= X ^DD(394.83,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.83,.01,1,2,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.83,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.83,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Created By=""
    CREATE VALUE)= S X=$G(DUZ)
    DELETE VALUE)= NO EFFECT
    FIELD)= Created By
    User creating outgoing group automatically stored.
  • CROSS-REFERENCE:  ^^TRIGGER^394.83^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.83,.01,1,3,1.1) X
    ^DD(394.83,.01,1,3,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.83,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Date Created=""
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= Date Created
    Date/time outgoing group was created automatically stored.
.02 Created By 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 01, 1993
  • DESCRIPTION:  
    Name of person who created this group.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Group Name field of the VAQ - OUTGOING GROUP File
.03 Date Created 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 01, 1993
  • DESCRIPTION:  
    Date the group was created.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Group Name field of the VAQ - OUTGOING GROUP File
10 Remote Facility FAC;0 POINTER Multiple #394.831 394.831

  • DESCRIPTION:  
    Multiple containing the facilities and their associated domains.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields