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

Package: Patient Data Exchange

Global: ^VAT(394.87


Information

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

Description

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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields