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

Package: Patient Data Exchange

Global: ^VAT(394.87


Information

FileMan FileNo FileMan Filename Package
394.87 VAQ - WORKLOAD Patient Data Exchange

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Patient Data Exchange 2 ^VAT(394.87    Segment in Transaction    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Patient Data Exchange 1 VAQADS01    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Patient Data Exchange 2 VAQ - DATA SEGMENT(#394.71)[#394.873(.01)]    VAQ - WORK(#394.88)[.03]    
Kernel 1 NEW PERSON(#200)[.02]    
Registration 1 PATIENT(#2)[10]    

Fields, Total: 10

Field # Name Loc Type Details
.01 Date/Time of Work 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 28, 1993
  • DESCRIPTION:  
    When work was done.
  • CROSS-REFERENCE:  394.87^B
    1)= S ^VAT(394.87,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.87,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.87^.02
    1)= X ^DD(394.87,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.87,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.87,.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.87,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.87,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.87,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Done By=""
    CREATE VALUE)= S X=$G(DUZ)
    DELETE VALUE)= NO EFFECT
    FIELD)= Done By
    User that did the specified work is automatically added.
.02 Done By 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 08, 1992
  • DESCRIPTION:  
    Who did the work.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the Date/Time of Work field of the VAQ - WORKLOAD File
.03 Work Done 0;3 POINTER TO VAQ - WORK FILE (#394.88) VAQ - WORK(#394.88)

  • LAST EDITED:  DEC 08, 1992
  • DESCRIPTION:  
    Type of work done.
10 Patient Ptr PAT;1 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  DEC 08, 1992
  • DESCRIPTION:  
    On whom the work was done.
  • CROSS-REFERENCE:  ^^TRIGGER^394.87^11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.87,10,1,1,1.1) X ^DD(394.87,10,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,2)=DIV,DIH=394.87,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.87,10,1,1,2.4)
    2.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,2)=DIV,DIH=394.87,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= Patient Ptr:NAME
    DELETE VALUE)= @
    FIELD)= #11
  • CROSS-REFERENCE:  ^^TRIGGER^394.87^12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.87,10,1,2,1.1) X ^DD(394.87,10,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0)
    1.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,3)=DIV,DIH=394.87,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(394.87,10,1,2,2.4)
    2.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,3)=DIV,DIH=394.87,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= Patient Ptr:SOCIAL SECURITY NUMBER
    DELETE VALUE)= @
    FIELD)= #12
11 Patient's Name PAT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  DEC 08, 1992
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    Name of the patient on whom the work was done.
  • NOTES:  TRIGGERED by the Patient Ptr field of the VAQ - WORKLOAD File
12 Patient's SSN PAT;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9)!'((X?9N)!(X?9N1"P")) X
  • LAST EDITED:  DEC 08, 1992
  • HELP-PROMPT:  Answer must be 9-10 characters in length.
  • DESCRIPTION:  
    Social Security Number of the patient on whom the work was done.
  • NOTES:  TRIGGERED by the Patient Ptr field of the VAQ - WORKLOAD File
13 Patient ID PAT;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JAN 15, 1993
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    Patient ID of the patient on whom the work was done.
20 Remote Facility FAC;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  DEC 08, 1992
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    Facility associated with the transaction.
21 Remote Domain FAC;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  DEC 08, 1992
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    Domain associated with the transaction.
30 Segment in Transaction SGMNT;0 POINTER Multiple #394.873 394.873

  • DESCRIPTION:  
    Multiple containing all data segments contained in the transaction.

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), 10(XREF 1n1.4), 10(XREF 1n2.4), 10(XREF 2n1.4), 10(XREF 2n2.4)
^DD(394.87 .01(XREF 2S), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
^DPT - [#2] 10(XREF 1n1.1), 10(XREF 2n1.1)
^VA(200 - [#200] .01(XREF 2n1.3)
^VAT(394.87 - [#394.87] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 10(XREF 1S), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4), 10(XREF 2S)
, 10(XREF 2n1.4), 10(XREF 2K), 10(XREF 2n2.4)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> D0 .01(XREF 2S), .01(XREF 2n1.3), 10(XREF 1S), 10(XREF 1n1.1), 10(XREF 1K), 10(XREF 2S), 10(XREF 2n1.1), 10(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
>> DIG .01(XREF 2n1.4), 10(XREF 1n1.4), 10(XREF 1n2.4), 10(XREF 2n1.4), 10(XREF 2n2.4)
>> DIH .01(XREF 2n1.4), 10(XREF 1n1.4), 10(XREF 1n2.4), 10(XREF 2n1.4), 10(XREF 2n2.4)
>> DIU .01(XREF 2S), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
DIV .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 10(XREF 1S), 10(XREF 1n1.1), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4), 10(XREF 2S), 10(XREF 2n1.1)
, 10(XREF 2n1.4), 10(XREF 2K), 10(XREF 2n2.4)
DIV(0 .01(XREF 2n1.3), .01(XREF 2n1.4), 10(XREF 1S), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4), 10(XREF 2S), 10(XREF 2n1.4), 10(XREF 2K), 10(XREF 2n2.4)
DUZ .01(XREF 2S)
>> I(0 10(XREF 1n1.1), 10(XREF 2n1.1)
U .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 10(XREF 1S), 10(XREF 1n1.1), 10(XREF 1n1.4), 10(XREF 1K), 10(XREF 1n2.4), 10(XREF 2S), 10(XREF 2n1.1)
, 10(XREF 2n1.4), 10(XREF 2K), 10(XREF 2n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), 10(XREF 1S), 10(XREF 1n1.1), 10(XREF 1n1.4), 10(XREF 1K)
, 10(XREF 1n2.4), 10(XREF 2S), 10(XREF 2n1.1), 10(XREF 2n1.4), 10(XREF 2K), 10(XREF 2n2.4), 11+1!, 12+1!, 13+1!, 20+1!
, 21+1!
Y .01+1, .01(XREF 2S), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
Y(0 .01(XREF 2n1.3)
Y(1 .01(XREF 2S), .01(XREF 2n1.3), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
Y(101 10(XREF 1n1.1), 10(XREF 2n1.1)
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