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

Package: Patient Data Exchange

VAQ - SEGMENT GROUP(#394.84)-->394.841

Sub-Field: 394.841


Information

Parent File Name Number Package
VAQ - SEGMENT GROUP(#394.84) Data Segment 394.841 Patient Data Exchange

Details

Field # Name Loc Type Details
.01 Data Segment 0;1 POINTER TO VAQ - DATA SEGMENT FILE (#394.71) VAQ - DATA SEGMENT(#394.71)

  • LAST EDITED:  SEP 28, 1993
  • DESCRIPTION:  
    Data segment contained in this group.
  • CROSS-REFERENCE:  394.841^B
    1)= S ^VAT(394.84,DA(1),"SEG","B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.84,DA(1),"SEG","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.841^.02
    1)= X ^DD(394.841,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,"SEG",D1,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.841,.01,1,2,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.84,D0,"SEG",D1,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.84,DIV(0),"SEG",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.841,DIG=.02 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 segment to segment group automatically stored.
  • CROSS-REFERENCE:  ^^TRIGGER^394.841^.03
    1)= X ^DD(394.841,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,"SEG",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.841,.01,1,3,1.1) X ^DD(394.841,.01,1,3,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.84,D0,"SEG",D1,0)):^(0),1:"") S X=$P(Y(1),U,3)=""
    1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),"SEG",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.841,DIG=.03 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 segment is added to segment group automatically stored.
.02 Added By 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 02, 1992
  • DESCRIPTION:  
    Person who added the data segment to the group.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Data Segment field of the Data Segment sub-field of the VAQ - SEGMENT GROUP File
.03 Date Added 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 02, 1992
  • DESCRIPTION:  
    Date the data segment was added.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Data Segment field of the Data Segment sub-field of the VAQ - SEGMENT GROUP File
.04 Time Limit 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<2)!($$VALOCC^VAQDBIH2(X,0)<0) X
  • LAST EDITED:  SEP 15, 1993
  • HELP-PROMPT:  Enter a valid time limit (1-5 digits followed by 'Y' or 'M' or 'D')
  • DESCRIPTION:  
    Time limit to use when extracting data segment (if applicable)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 Occurrence Limit 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 02, 1993
  • HELP-PROMPT:  Enter a valid occurrence limit (1-5 digits)
  • DESCRIPTION:  
    Occurrence limit to use when extracting data segment (if applicable)
Info |  Details