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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^VAT(394.61

Package: Patient Data Exchange

Global: ^VAT(394.61


Information

FileMan FileNo FileMan Filename Package
394.61 VAQ - TRANSACTION Patient Data Exchange

Description

Directly Accessed By Routines, Total: 86

Package Total Routines
Patient Data Exchange 71 Data Segment    Notify    VAQ REQUIRES PROCESSING    VAQ TRANSACTIONS BY STATUS    VAQADM22    VAQADM50    VAQADS01    VAQBUL01
VAQBUL02    VAQBUL03    VAQBUL04    VAQBUL06    VAQCON0    VAQCON1    VAQCON2    VAQCON3
VAQCON4    VAQCON5    VAQCON6    VAQCON7    VAQCON8    VAQCON93    VAQCON94    VAQCON97
VAQCON98    VAQCON99    VAQDBI    VAQDBIM    VAQDBIM0    VAQDBIP    VAQDBIP1    VAQDBIP3
VAQDBIP4    VAQDIS11    VAQDIS12    VAQDIS15    VAQEXT01    VAQEXT04    VAQEXT05    VAQEXT06
VAQFIL10    VAQFIL12    VAQFIL13    VAQFIL14    VAQFIL15    VAQFIL16    VAQFIL17    VAQFIL18
VAQFILE    VAQFILE1    VAQHSH    VAQLED01    VAQLED02    VAQLED04    VAQLED07    VAQLED09
VAQLED10    VAQPSE01    VAQPSE02    VAQPUR10    VAQUTL97    ^VAT(394.61    VAQPUR11    VAQREQ01
VAQUPD1    VAQUPD2    VAQUPD25    VAQUTL3    VAQUTL92    VAQUTL96    VAQXRF2    
Pharmacy Prescription Practice 2 Data Segment    Notify    
Registration 2 VAQ REQUIRES PROCESSING    VAQ TRANSACTIONS BY STATUS    
Health Summary 1 GMTSPDX    
Integrated Billing 1 IBAPDX    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Patient Data Exchange 7 VAQEXT03    VAQFILE    VAQLED09    VAQPRE39    VAQREQ06    VAQUIN01    VAQUTL96    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Patient Data Exchange 1 VAQ - DATA(#394.62)[40]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Patient Data Exchange 3 VAQ - DATA SEGMENT(#394.71)[#394.618(.01)]    VAQ - ENCRYPTION METHOD(#394.72)[41]    VAQ - STATUS(#394.85)[.02.05]    
Kernel 1 NEW PERSON(#200)[#394.6171(.01)]    
Registration 1 PATIENT(#2)[.03]    

Fields, Total: 26

Field # Name Loc Type Details
.01 Transaction Number 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 08, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Unique number identifying the transaction.
  • PRE-LOOKUP:  I X="+" S X=$$AUTO^VAQXRF2(1) K:(X<0) X
  • CROSS-REFERENCE:  394.61^B
    1)= S ^VAT(394.61,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"B",$E(X,1,30),DA)
.02 Current Status 0;2 POINTER TO VAQ - STATUS FILE (#394.85) VAQ - STATUS(#394.85)

  • LAST EDITED:  FEB 15, 1994
  • DESCRIPTION:  
    Current status of the transaction.
  • CROSS-REFERENCE:  394.61^STATUS
    1)= S ^VAT(394.61,"STATUS",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"STATUS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  394.61^PPP^MUMPS
    1)= S VAQXRF=X S X="PPPFMX2" X ^%ZOSF("TEST") D:($T) PDXTRIG^PPPFMX2(DA,1) S X=VAQXRF K VAQXRF
    2)= S VAQXRF=X S X="PPPFMX2" X ^%ZOSF("TEST") D:($T) PDXTRIG^PPPFMX2(DA,0) S X=VAQXRF K VAQXRF
    Updates information in the PPP FOREIGN FACILITY XREF file (#1020.2). This is only executed if Prescription Practices has been installed at the local facility.
.03 Patient Ptr 0;3 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  DEC 07, 1992
  • DESCRIPTION:  
    Link to where the patient is stored locally.
  • CROSS-REFERENCE:  394.61^PATPTR
    1)= S ^VAT(394.61,"PATPTR",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"PATPTR",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.61^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(394.61,.03,1,2,1.1) X ^DD(394.61,.03,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,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,1)=DIV,DIH=394.61,DIG=10 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.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(394.61,.03,1,2,2.4)
    2.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,1)=DIV,DIH=394.61,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= Patient Ptr:NAME
    DELETE VALUE)= @
    FIELD)= #10
  • CROSS-REFERENCE:  ^^TRIGGER^394.61^11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.61,.03,1,3,1.1) X ^DD(394.61,.03,1,3,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.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,2)=DIV,DIH=394.61,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.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.61,.03,1,3,2.4)
    2.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,2)=DIV,DIH=394.61,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= Patient Ptr:SOCIAL SECURITY NUMBER
    DELETE VALUE)= @
    FIELD)= #11
  • CROSS-REFERENCE:  ^^TRIGGER^394.61^12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.61,.03,1,4,1.1) X ^DD(394.61,.03,1,4,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,3) S D0=I(0,0)
    1.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,3)=DIV,DIH=394.61,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.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(394.61,.03,1,4,2.4)
    2.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,3)=DIV,DIH=394.61,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= Patient Ptr:DATE OF BIRTH
    DELETE VALUE)= @
    FIELD)= #12
.04 Sensitive Patient 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 24, 1992
  • DESCRIPTION:  
    Set to YES if the patient was flagged as sensitive at the remote facility.
.05 Release Status 0;5 POINTER TO VAQ - STATUS FILE (#394.85) VAQ - STATUS(#394.85)

  • LAST EDITED:  MAR 26, 1993
  • DESCRIPTION:  
    This is used when a PDX Request has been processed and requires transmission. The status placed here will be used when building the resulting message (i.e. background job building message will use this status).
.06 Remote Transaction Number 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is used to store the transaction number of this transaction on the remote system. This field will primarily be used for PDX Requests and Unsolicited PDXs that have been received from a remote facility.
.07 Remote Version Number 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 21, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999, 3 Decimal Digits
  • DESCRIPTION:  
    This is used to store the version of PDX that the remote site is using. This field will primarily be used when requests are processed and returned and when a message must be retransmitted.
10 Patient's Name QRY;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    Name of the patient.
  • NOTES:  TRIGGERED by the Patient Ptr field of the VAQ - TRANSACTION File
  • CROSS-REFERENCE:  394.61^NAME
    1)= S ^VAT(394.61,"NAME",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"NAME",$E(X,1,30),DA)
  • CROSS-REFERENCE:  394.61^BS51^MUMPS
    1)= S VAQXRF=$$BS5^VAQXRF2(DA,1) K VAQXRF
    2)= S VAQXRF=$$BS5^VAQXRF2(DA,0,10,X) K VAQXRF
    Creates a cross reference based on the first letter of the patient's last name concatenated with the last 4 digits (plus pseudo indicator) of the patient's social security number.
    Resulting node ==> ^VAT(394.61,"BS5",($E([10],1)_$E([11],6,10)),DA)
    Where: [10] is field number 10
    [11] is field number 11
    DA is the entry number
    The resulting node is created by the BS51 and BS52 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.
11 Patient's SSN QRY;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'((X?9N)!(X?9N1"P")) X
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  Answer must be 9-10 characters in length.
  • DESCRIPTION:  
    Social Security Number of the patient.
  • NOTES:  TRIGGERED by the Patient Ptr field of the VAQ - TRANSACTION File
  • CROSS-REFERENCE:  394.61^SSN
    1)= S ^VAT(394.61,"SSN",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"SSN",$E(X,1,30),DA)
  • CROSS-REFERENCE:  394.61^BS52^MUMPS
    1)= S VAQXRF=$$BS5^VAQXRF2(DA,1) K VAQXRF
    2)= S VAQXRF=$$BS5^VAQXRF2(DA,0,11,X) K VAQXRF
    Creates a cross reference based on the first letter of the patient's last name concatenated with the last 4 digits (plus pseudo indicator) of the patient's social security number.
    Resulting node ==> ^VAT(394.61,"BS5",($E([10],1)_$E([11],6,10)),DA)
    Where: [10] is field number 10
    [11] is field number 11
    DA is the entry number
    The resulting node is created by the BS51 and BS52 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.
12 Patient's DOB QRY;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 24, 1992
  • DESCRIPTION:  
    Date the patient was born.
  • NOTES:  TRIGGERED by the Patient Ptr field of the VAQ - TRANSACTION File
13 Patient ID QRY;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    A unique identifier of the patient.
20 Date/Time of Request RQST1;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 24, 1992
  • DESCRIPTION:  
    Date and time the request was made.
21 Requestor RQST1;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAY 03, 1993
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    Person who initiated the request.
  • CROSS-REFERENCE:  394.61^AC
    1)= S ^VAT(394.61,"AC",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"AC",$E(X,1,30),DA)
30 Requesting Site RQST2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    From where the request was initiated.
31 Requesting Address RQST2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    Network address of the requesting site.
40 Encrypted NCRPT;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  NOV 24, 1992
  • DESCRIPTION:  
    Set to YES if data was encrypted for transmission.
41 Encryption Method NCRPT;2 POINTER TO VAQ - ENCRYPTION METHOD FILE (#394.72) VAQ - ENCRYPTION METHOD(#394.72)

  • LAST EDITED:  NOV 24, 1992
  • DESCRIPTION:  
    Type of encryption used.
50 Date/Time of Reply ATHR1;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 12, 1993
  • DESCRIPTION:  
    Date and time the reply was received.
51 Authorizer ATHR1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 25, 1992
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    Person who released the patient information.
60 Authorizing Site ATHR2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 25, 1992
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    From where the patient information came.
61 Authorizing Address ATHR2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  NOV 25, 1992
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    Network address of the authorizing site.
70 Data in Notification NTFY1;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 25, 1992
  • DESCRIPTION:  
    Set to YES if requested data is included in the return of data notification(s).
71 Notify NTFY2;0 POINTER Multiple #394.6171 394.6171

  • DESCRIPTION:  
    Multiple containing all people to notify upon return of data.
80 Data Segment SEG;0 POINTER Multiple #394.618 394.618

  • DESCRIPTION:  
    Multiple containing the data segments contained in the transaction.
90 Purge PRG;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 25, 1992
  • DESCRIPTION:  
    Flag indicating if the transaction should be deleted.
  • CROSS-REFERENCE:  394.61^PURGE
    1)= S ^VAT(394.61,"PURGE",$E(X,1,30),DA)=""
    2)= K ^VAT(394.61,"PURGE",$E(X,1,30),DA)
100 Comment CMNT;0 WORD-PROCESSING #394.611

  • DESCRIPTION:  
    Comment that was associated with the transaction.

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #272
  • Integrated Billing
  • ICR #298
  • Health Summary
  • ICR #439
  • Pharmacy Prescription Practice
  • Transaction Number (.01).
    Access: Read w/Fileman

    As the result of changing from a local name space (A1AY)and numbering sequence to a national name space (PPP) andnumbering sequence, Pharmacy Prescription Practices v1.0(PPP) will need to kill and directly set MUMPS crossreferences in the VAQ - TRANSACTION file.As the result of changing from a local name space (A1AY)and numbering sequence to a national name space (PPP) andnumbering sequence, Pharmacy Prescription Practices v1.0(PPP) will need to kill and directly set MUMPS crossreferences in the VAQ - TRANSACTION file.The cross reference to create this is a MUMPS crossreference on the Current Statusfield (#.02) of the VAQ - TRANSACTION file (#394.61) This crossreference is used to update information in the PPP FOREIGN FACILITY XREF file(#1020.2).
    ICR #1166
  • Pharmacy Prescription Practice
  • Transaction Number (.01).
    Access: Direct Global Read & w/Fileman

    Data Segment (80).
    Access: Direct Global Read & w/Fileman

    Date/Time of Reply (50).
    Access: Direct Global Read & w/Fileman

    Authorizer (51).
    Access: Direct Global Read & w/Fileman

    Authorizing Site (60).
    Access: Direct Global Read & w/Fileman

    Authorizing Address (61).
    Access: Direct Global Read & w/Fileman

    Patients SSN (11).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT 12+1, 20+1, 50+1, 12+1, 20+1, 50+1
    ^DICR .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4)
    .03(XREF 4n1.4), .03(XREF 4n2.4)
    PDXTRIG^PPPFMX2 .02(XREF 2S), .02(XREF 2K), .02(XREF 2S), .02(XREF 2K)
    $$AUTO^VAQXRF2 .01TPL+1, .01TPL+1
    $$BS5^VAQXRF2 10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K), 10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" .02(XREF 2S), .02(XREF 2K), .02(XREF 2S), .02(XREF 2K)
    ^DD( .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4)
    .03(XREF 4n1.4), .03(XREF 4n2.4)
    ^DD(394.61 .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K)
    .03(XREF 4S), .03(XREF 4K)
    ^DPT - [#2] .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)
    ^VAT(394.61 - [#394.61] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4)
    .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), 10(XREF 1S), 10(XREF 1K)
    11(XREF 1S), 11(XREF 1K), 21(XREF 1S), 21(XREF 1K), 90(XREF 1S), 90(XREF 1K), .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
    .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4)
    .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), 10(XREF 1S), 10(XREF 1K), 11(XREF 1S), 11(XREF 1K), 21(XREF 1S), 21(XREF 1K)
    90(XREF 1S), 90(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^("QRY" IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S)
    .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4)
    .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4)
    ^(0 .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 12+1*, 20+1*, 50+1*, 12+1*, 20+1*, 50+1*
    >> D0 .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2K), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3K), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4K), .03(XREF 2S)
    .03(XREF 2n1.1), .03(XREF 2K), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3K), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4K)
    >> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
    .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 11(XREF 1S), 11(XREF 1K)
    11(XREF 2S), 11(XREF 2K), 21(XREF 1S), 21(XREF 1K), 90(XREF 1S), 90(XREF 1K), .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
    .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K)
    10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K), 21(XREF 1S), 21(XREF 1K)
    90(XREF 1S), 90(XREF 1K)
    >> DIG .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4)
    .03(XREF 4n1.4), .03(XREF 4n2.4)
    >> DIH .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4)
    .03(XREF 4n1.4), .03(XREF 4n2.4)
    >> DIU .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K)
    .03(XREF 4S), .03(XREF 4K)
    DIV .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4)
    .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4)
    .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4)
    DIV(0 .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.4)
    .03(XREF 4K), .03(XREF 4n2.4), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4)
    .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4)
    >> I(0 .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)
    U IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K)
    .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4)
    .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4)
    .03(XREF 4K), .03(XREF 4n2.4)
    VAQXRF IDWRITE1+1*!, .02(XREF 2S), .02(XREF 2K), 10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K), IDWRITE1+1*!, .02(XREF 2S), .02(XREF 2K)
    10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K)
    X .01+1!, .01TPL+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4)
    .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), .06+1!, .07+1!, 10+1!, 10(XREF 1S), 10(XREF 1K)
    10(XREF 2K), 11+1!, 11(XREF 1S), 11(XREF 1K), 11(XREF 2K), 12+1*!, 13+1!, 20+1*!, 21+1!, 21(XREF 1S)
    21(XREF 1K), 30+1!, 31+1!, 50+1*!, 51+1!, 60+1!, 61+1!, 90(XREF 1S), 90(XREF 1K), .01+1!
    , .01TPL+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S)
    .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S)
    .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), .06+1!, .07+1!, 10+1!, 10(XREF 1S), 10(XREF 1K), 10(XREF 2K)
    , 11+1!, 11(XREF 1S), 11(XREF 1K), 11(XREF 2K), 12+1*!, 13+1!, 20+1*!, 21+1!, 21(XREF 1S), 21(XREF 1K)
    , 30+1!, 31+1!, 50+1*!, 51+1!, 60+1!, 61+1!, 90(XREF 1S), 90(XREF 1K)
    Y .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), 12+1, 20+1, 50+1, .03(XREF 2S)
    .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), 12+1, 20+1, 50+1
    Y(1 .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K)
    .03(XREF 4S), .03(XREF 4K)
    Y(101 .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All