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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BRNREC

Package: IHS Release Of Information

Global: ^BRNREC


Information

FileMan FileNo FileMan Filename Package
90264 ROI LISTING RECORD IHS Release Of Information

Description

Directly Accessed By Routines, Total: 26

Package Total Routines
IHS Release Of Information 17 BRN    BRNDEL    BRNLKI1    BRNMLB    BRNP01    BRNPTR    BRNRD    BRNRDLT
BRNREF    BRNRLU    BRNRLUX    BRNRU11    BRNRUP    BRNRUP3    BRNU    ^BRNREC
RECEIVING PARTY    
Patient Care Component Table Maintiance 6 APCM11E1    APCM11E4    APCM11E7    APCM13E1    APCM13E4    APCM13E7    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 25

Package Total Routines
IHS Release Of Information 25 BRN2ND    BRNACT    BRNADD    BRNADDM    BRNAGE    BRNAGE1    BRNAGE2    BRNCLOS
BRNDEL    BRNDTST    BRNFOIA    BRNMLB    BRNMLOG    BRNOPEN    BRNP01    BRNPAGE
BRNPOST    BRNPOST3    BRNPTN    BRNPTRQ    BRNPUR    BRNRDLT    BRNSERV    BRNSUSPN
BRNUSER    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Release Of Information 3 ROI LISTING DEPARTMENT(#90264.3)[2901]    ROI LISTING PARAMETER(#90264.2)[.22]    ROI LISTING REC PARTY(#90264.1)[.06#90264.023(.01)]    
Kernel 2 STATE(#5)[2803]    NEW PERSON(#200)[.11.12.13#90264.023(.05)]    
IHS Patient 1 PATIENT(#9000001)[.03]    

Fields, Total: 42

Field # Name Loc Type Details
.01 DATE REQUEST INITIATED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 30, 2017
  • HELP-PROMPT:  (No range limit on date)
  • EXECUTABLE HELP:  S A="**Enter the DATE the Disclosure Request was Initiated**" D EN^DDIOL(A,"","?12") S A="" D EN^DDIOL(A,"","!!")
    DELETE AUTHORITY:
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90264^B
    1)= S ^BRNREC("B",$E(X,1,30),DA)=""
    2)= K ^BRNREC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=90264,DIG=.12 D ^DICR
    1.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=90264,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= I '$D(DIU(0)) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= USER INITIATED
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=(DUZ(2))_DA S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=90264,DIG=.02 D ^DICR
    1.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90264,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= I '$D(DIU(0)) S X=(DUZ(2))_DA
    DELETE VALUE)= NO EFFECT
    FIELD)= DISCLOSURE NUMBER
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X="O" S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90264,DIG=.08 D ^DICR
    1.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90264,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= I '$D(DIU(0)) S X="O"
    DELETE VALUE)= NO EFFECT
    FIELD)= REQUEST STATUS
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  90264^AA1^MUMPS
    1)= S:$P(^BRNREC(DA,0),U,3)]"" ^BRNREC("AA",$P(^BRNREC(DA,0),U,3),X,DA)=""
    2)= K:$P(^BRNREC(DA,0),U,3)]"" ^BRNREC("AA",$P(^BRNREC(DA,0),U,3),X,DA)
    3)= CORRESPONDS TO AA XREF ON FIELD .03
    IHS/OIT/LJF 10/04/2007 PATCH 1:  Original AA cross-reference was not defined on all fields involved.
  • CROSS-REFERENCE:  90264^AC1^MUMPS
    1)= S:$P(^BRNREC(DA,0),U,8)]"" ^BRNREC("AC",X,$P(^BRNREC(DA,0),U,8),DA)=""
    2)= K:$P(^BRNREC(DA,0),U,8)]"" ^BRNREC("AC",X,$P(^BRNREC(DA,0),U,8),DA)
    3)= CORRESPONDS TO AC XREF ON FIELD #.08
    IHS/OIT/LJF 10/04/2007 PATCH 1:  Original cross-reference "AC" was not defined on all fields involved.
  • CROSS-REFERENCE:  90264^AD1^MUMPS
    1)= S:$P(^BRNREC(DA,0),U,12)]"" ^BRNREC("AD",$P(^BRNREC(DA,0),U,12),X,DA)=""
    2)= K:$P(^BRNREC(DA,0),U,12)]"" ^BRNREC("AD",$P(^BRNREC(DA,0),U,12),X,DA)
    3)= CORRESPONDS TO AD XREF ON FIELD #.12
    IHS/OIT/LJF 10/04/2007 PATCH 1:  Original cross-reference was not defined for all fields involved.
  • CROSS-REFERENCE:  90264^AP1^MUMPS
    1)= S:$P(^BRNREC(DA,0),U,6)]"" ^BRNREC("AP",$P(^BRNREC(DA,0),U,6),X,DA)=""
    2)= K:$P(^BRNREC(DA,0),U,6)]"" ^BRNREC("AP",$P(^BRNREC(DA,0),U,6),X,DA)
    3)= CORRESPONDS TO AP XREF ON FIELD #.06
    IHS/OIT/LJF 10/04/2007 PATCH 1:  Original cross-reference was not defined for all fields involved.
  • CROSS-REFERENCE:  90264^AF1^MUMPS
    1)= S:$P(^BRNREC(DA,0),U,11)]"" ^BRNREC("AF",$P(^BRNREC(DA,0),U,11),X,DA)=""
    2)= K:$P(^BRNREC(DA,0),U,11)]"" ^BRNREC("AF",$P(^BRNREC(DA,0),U,11),X,DA)
    3)= DEFINED FOR SORTING WORKLOAD REPORTS
    IHS/OIT/LJF 10/05/2007 PATCH 1:  Added cross-reference so field .11 could be used as a sort choice in the Workload Report.
  • CROSS-REFERENCE:  90264^AG1^MUMPS
    1)= S:$P(^BRNREC(DA,0),U,13)]"" ^BRNREC("AG",$P(^BRNREC(DA,0),U,13),X,DA)=""
    2)= K:$P(^BRNREC(DA,0),U,13)]"" ^BRNREC("AG",$P(^BRNREC(DA,0),U,13),X,DA)
    3)= USED FOR SORTING WORKLOAD REPORTS
    IHS/OIT/LJF 10/05/2007 PATCH 1:  Added cross-reference so field .13 could be used as a sort choice in the Workload Report.
.02 DISCLOSURE NUMBER 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  MAR 09, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
    UNEDITABLE
  • NOTES:  TRIGGERED by the DATE REQUEST INITIATED field of the ROI LISTING RECORD File
  • CROSS-REFERENCE:  90264^C
    1)= S ^BRNREC("C",$E(X,1,30),DA)=""
    2)= K ^BRNREC("C",$E(X,1,30),DA)
.03 PATIENT 0;3 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 10, 2000
    UNEDITABLE
  • CROSS-REFERENCE:  90264^AA^MUMPS
    1)= S ^BRNREC("AA",X,$P(^BRNREC(DA,0),U),DA)=""
    2)= K ^BRNREC("AA",X,$P(^BRNREC(DA,0),U),DA)
  • CROSS-REFERENCE:  90264^E
    1)= S ^BRNREC("E",$E(X,1,30),DA)=""
    2)= K ^BRNREC("E",$E(X,1,30),DA)
.031 HRCN COMPUTED

  • MUMPS CODE:  S X=$P($G(^AUPNPAT(+$P(^BRNREC(D0,0),U,3),41,+$G(DUZ(2)),0)),U,2)
  • ALGORITHM:  S X=$P($G(^AUPNPAT(+$P(^BRNREC(D0,0),U,3),41,+$G(DUZ(2)),0)),U,2)
  • LAST EDITED:  OCT 04, 2007
.04 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • 'M' FOR MEDICAL RECORD;
  • 'P' FOR PERSONNEL;
  • 'O' FOR OTHER;

  • LAST EDITED:  JAN 22, 2003
  • SCREEN:  S DIC("S")="I Y'=""P"""
  • EXPLANATION:  Screens out Personnel Types per HIPPA Regulations
.05 OTHER TYPE DESCRIPTION 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  FEB 29, 2000
  • HELP-PROMPT:  Allows further explanation 1-45 characters
  • EXECUTABLE HELP:  S A="**Answer only if the choice of TYPE = OTHER**" D EN^DDIOL(A,"","?5")
.06 REQUESTING PARTY 0;6 POINTER TO ROI LISTING REC PARTY FILE (#90264.1)
************************REQUIRED FIELD************************
ROI LISTING REC PARTY(#90264.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^BRNTREQ(+Y,0),U,8)=""A""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 11, 2007
  • SCREEN:  S DIC("S")="I $P(^BRNTREQ(+Y,0),U,8)=""A"""
  • EXPLANATION:  ACTIVE PARTIES ONLY
  • CROSS-REFERENCE:  90264^D
    1)= S ^BRNREC("D",$E(X,1,30),DA)=""
    2)= K ^BRNREC("D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90264^AP^MUMPS
    1)= S ^BRNREC("AP",X,$P(^BRNREC(DA,0),U),DA)=""
    2)= K ^BRNREC("AP",X,$P(^BRNREC(DA,0),U),DA)
.07 PURPOSE 0;7 SET
************************REQUIRED FIELD************************
  • '1' FOR FURTHER MEDICAL CARE;
  • '2' FOR INSURANCE;
  • '3' FOR ATTORNEY;
  • '4' FOR PERSONAL;
  • '5' FOR SCHOOL ;
  • '6' FOR TORT;
  • '7' FOR FOIA;
  • '8' FOR SUBPOENA;
  • '9' FOR OTHER;
  • 'A' FOR DISABILITY;
  • 'B' FOR HEALTHCARE OPERATIONS;
  • 'C' FOR PAYMENT;
  • 'D' FOR TREATMENT;

  • LAST EDITED:  JUN 12, 2013
.08 REQUEST STATUS 0;8 SET
************************REQUIRED FIELD************************
  • 'O' FOR OPEN;
  • 'H' FOR HOLD;
  • 'C' FOR CLOSED;
  • 'D' FOR DENIED;

  • LAST EDITED:  JAN 18, 2008
  • NOTES:  TRIGGERED by the DATE REQUEST INITIATED field of the ROI LISTING RECORD File
    TRIGGERED by the DATE DISCLOSED COUNTER field of the ROI LISTING RECORD File
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.13
    1)= X ^DD(90264,.08,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=90264,DIG=.13 D ^DIC
    R
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(90264,.08,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="CLOSED"
    1.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=90264,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= REQUEST STATUS="CLOSED"
    CREATE VALUE)= I '$D(DIU(0)) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= USER COMPLETED
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.19
    1)= X ^DD(90264,.08,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=90264,DIG=.19 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(90264,.08,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="CLOSED"
    1.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,19)=DIV,DIH=90264,DIG=.19 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= REQUEST STATUS="CLOSED"
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE DISCLOSURE CLOSED
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.09
    1)= X ^DD(90264,.08,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X="N" S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90264,DIG=.09 D ^DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(90264,.09,0)),U,3),Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59))=""
    1.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90264,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= REQUEST PRIORITY=""
    CREATE VALUE)= I '$D(DIU(0)) S X="N"
    DELETE VALUE)= NO EFFECT
    FIELD)= REQUEST PRIORITY
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  90264^AC^MUMPS
    1)= S ^BRNREC("AC",$P(^BRNREC(DA,0),U),X,DA)=""
    2)= K ^BRNREC("AC",$P(^BRNREC(DA,0),U),X,DA)
.09 REQUEST PRIORITY 0;9 SET
************************REQUIRED FIELD************************
  • 'S' FOR STAT;
  • 'N' FOR NON-CRITICAL;

  • LAST EDITED:  MAR 09, 2000
  • NOTES:  TRIGGERED by the REQUEST STATUS field of the ROI LISTING RECORD File
.11 STAFF ASSIGNMENT 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 11, 2007
  • EXECUTABLE HELP:  S A="**Optional Entry-Name of Staff assigned to handle Disclosure**" D EN^DDIOL(A,"","?5")
  • CROSS-REFERENCE:  90264^AF^MUMPS
    1)= S:$P(^BRNREC(DA,0),U) ^BRNREC("AF",X,$P(^BRNREC(DA,0),U),DA)=""
    2)= K:$P(^BRNREC(DA,0),U) ^BRNREC("AF",X,$P(^BRNREC(DA,0),U),DA)
    3)= ADDED TO SORT WORKLOAD REPORT
    IHS/OIT/LJF 10/05/2007 PATCH 1:  Added cross-reference so this field could be used as a sort choice in the Workload Report.
  • CROSS-REFERENCE:  90264^AH
    1)= S ^BRNREC("AH",$E(X,1,30),DA)=""
    2)= K ^BRNREC("AH",$E(X,1,30),DA)
    3)= USED FOR AGING REPORT BY STAFF
    IHS/OIT/LJF 10/11/2007 PATCH 1:  Added cross-reference to run Aging Report by Staff Assignment.
.12 USER INITIATED 0;12 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUL 07, 2000
  • NOTES:  TRIGGERED by the DATE REQUEST INITIATED field of the ROI LISTING RECORD File
  • CROSS-REFERENCE:  90264^AD^MUMPS
    1)= S ^BRNREC("AD",X,$P(^BRNREC(DA,0),U),DA)=""
    2)= K ^BRNREC("AD",X,$P(^BRNREC(DA,0),U),DA)
.13 USER COMPLETED 0;13 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  OCT 05, 2007
  • NOTES:  TRIGGERED by the REQUEST STATUS field of the ROI LISTING RECORD File
  • CROSS-REFERENCE:  90264^AG^MUMPS
    1)= S:$P(^BRNREC(DA,0),U)]"" ^BRNREC("AG",X,$P(^BRNREC(DA,0),U),DA)=""
    2)= K:$P(^BRNREC(DA,0),U)]"" ^BRNREC("AG",X,$P(^BRNREC(DA,0),U),DA)
    3)= ADDED FOR SORTING WORKLAOD REPORT
    IHS/OIT/LJF 10/05/2007 PATCH 1:  Added cross-reference so this field could be used as a sort choice in the Workload Report.
.14 ENTIRE RECORD 0;14 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 18, 2008
  • HELP-PROMPT:  Enter Y if entire record is to be sent; otherwise hit return
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.17
    1)= X ^DD(90264,.14,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X="ENTIRE RECORD SENT" X ^DD(90264,.14,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,17)=""
    1.4)= S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=90264,DIG=.17 D ^DICR
    2)= Q
    CREATE CONDITION)= SPECIFIC RECORD INFORMATION=""
    CREATE VALUE)= I '$D(DIU(0)) S X="ENTIRE RECORD SENT"
    DELETE VALUE)= NO EFFECT
    FIELD)= SPECIFIC RECORD INFORMATION
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
.15 BEGINNING EVENT DATE 0;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 29, 2000
.16 ENDING EVENT DATE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 29, 2000
.17 SPECIFIC RECORD INFORMATION 0;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JAN 31, 2003
  • HELP-PROMPT:  Answer 1-40 Characters Detailed Description
  • EXECUTABLE HELP:  S A="Example: Sending Only Back Injury Related Medical Information." D EN^DDIOL(A,"","?5")
  • NOTES:  TRIGGERED by the ENTIRE RECORD field of the ROI LISTING RECORD File
.18 CONGRESSIONAL 0;18 SET
  • 'Y' FOR YES;

  • LAST EDITED:  FEB 29, 2000
  • HELP-PROMPT:  Enter Y if the Disclosure is a Congressional Request
.19 DATE DISCLOSURE CLOSED 0;19 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 09, 2000
  • NOTES:  TRIGGERED by the REQUEST STATUS field of the ROI LISTING RECORD File
.21 REQUEST METHOD 0;21 SET
  • '1' FOR IN PERSON;
  • '2' FOR TELEPHONE CALL;
  • '3' FOR REGULAR MAIL;
  • '4' FOR ELECTRONIC MAIL;
  • '5' FOR FAX;

  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  How was this request received?
.22 FACILITY 0;22 POINTER TO ROI LISTING PARAMETER FILE (#90264.2) ROI LISTING PARAMETER(#90264.2)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIVFAC^BRNU(+Y,+$G(DA))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JAN 23, 2008
  • TECHNICAL DESCR:  IHS/OIT/LJF 01/04/2008 PATCH 1: Added field for sites that run a multiple facility database. Will be stuffed with DUZ(2) of user signed in. For any past disclosures where an exact match could not be determined, the
    field will be left blank.  That is why the field in NOT required.  All reports will identify disclosures with no facility as "UNKNOWN".
  • SCREEN:  S DIC("S")="I $$ACTIVFAC^BRNU(+Y,+$G(DA))"
  • EXPLANATION:  ACTIVE FACILITIES ONLY
  • CROSS-REFERENCE:  90264^AJ
    1)= S ^BRNREC("AJ",$E(X,1,30),DA)=""
    2)= K ^BRNREC("AJ",$E(X,1,30),DA)
    3)= USED TO SORT REPORTS BY FACILITY
    IHS/OIT/LJF 01/16/2008 PATCH 1:  Added cross-reference to facilitate the sorting of reports for those sites running in a multi-division mode.
22 DISCLOSURE DESCRIPTION 22;0 WORD-PROCESSING #90264.022

  • LAST EDITED:  JUN 12, 2013
23 RECEIVING PARTY 23;0 POINTER Multiple #90264.023 90264.023
24 TABLE DATA 24;1 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 14, 2002
  • HELP-PROMPT:  ENTERING YES WILL ALLOW YOU TO ENTER ADDRESS OF REQUESTING PARTY, OTHERWISE HIT RETURN FOR NO.
1101 PATIENT/AGENT REQUEST TYPE 11;1 SET
  • 'H' FOR HAND DELIVER;
  • 'I' FOR IN PERSON;
  • 'MR' FOR MAIL REGULAR;
  • 'MC' FOR MAIL CERTIFIED;
  • 'F' FOR FAX;
  • 'O' FOR OTHER;
  • 'E' FOR ELECTRONIC;

  • LAST EDITED:  FEB 09, 2011
2401 FIRST PARTY REQUEST 24;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 14, 2002
  • HELP-PROMPT:  A Yes Answer is utilized in responding to the new FOIA Reporting Requirements
  • EXECUTABLE HELP:  S A=" **See FOIA Menu Option under the Reports Menu Structure**" D EN^DDIOL(A,"","?5")
2402 SUSPEND START DT 24;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 10, 2003
2403 SUSPEND STOP DT 24;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 10, 2003
2404 SUSPENDED DISCLOSURE COMPUTED

  • MUMPS CODE:  S X=$$SUSPEND^BRNU(D0)
  • ALGORITHM:  S X=$$SUSPEND^BRNU(D0)
  • LAST EDITED:  JAN 18, 2008
  • TECHNICAL DESCR:  
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Changed field from SET of CODES stuffed by triggers to a computed field.
2501 DISCLOSURE OPEN COUNTER 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 09, 2000
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the RECEIVING PARTY field of the RECEIVING PARTY sub-field of the ROI LISTING RECORD File
2502 DATE DISCLOSED COUNTER 0;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 18, 2008
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DISCLOSURE DATE field of the RECEIVING PARTY sub-field of the ROI LISTING RECORD File
  • CROSS-REFERENCE:  ^^TRIGGER^90264^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=Y(0)=$P(Y(1),U,25) I X S X=DIV S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X="C" X ^
    DD(90264,2502,1,1,1.4)
    1.4)= S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90264,DIG=.08 D ^DICR
    2)= X ^DD(90264,2502,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X="C" S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90264,DIG=.08 D ^DICR
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,26)=$P(Y(1),U,25)
    2.4)= S DIH=$S($D(^BRNREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90264,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= DATE DISCLOSED COUNTER=DISCLOSURE OPEN COUNTER
    CREATE VALUE)= I '$D(DIU(0)) S X="C"
    DELETE CONDITION)= DATE DISCLOSED COUNTER=DISCLOSURE OPEN COUNTER
    DELETE VALUE)= I '$D(DIU(0)) S X="C"
    FIELD)= REQUEST STATUS
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
2601 2ND REQUEST DATE 26;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 04, 2001
  • HELP-PROMPT:  Enter the Date of Receipt for the Second Request Notification
    UNEDITABLE
2602 3RD REQUEST DATE 26;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 04, 2001
  • HELP-PROMPT:  Enter Date of Receipt for the Third Request Notification
    UNEDITABLE
2603 2ND REQUEST METHOD 26;3 SET
  • '1' FOR IN PERSON;
  • '2' FOR TELEPHONE CALL;
  • '3' FOR REGULAR MAIL;
  • '4' FOR ELECTRONIC MAIL;
  • '5' FOR FAX;

  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  How was this 2nd request received?
2604 3RD REQUEST METHOD 26;4 SET
  • '1' FOR IN PERSON;
  • '2' FOR TELEPHONE CALL;
  • '3' FOR REGULAR MAIL;
  • '4' FOR ELECTRONIC MAIL;
  • '5' FOR FAX;

  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  How was this 3rd request received?
2701 TOTAL PAGES COMPUTED

  • MUMPS CODE:  X ^DD(90264,2701,9.3) S X=Y(90264,2701,102) S D0=Y(90264,2701,80) S D1=Y(90264,2701,81) S X=$J(X,0,0)
    9.2 = S Y(90264,2701,80)=$S($D(D0):D0,1:""),Y(90264,2701,81)=$S($D(D1):D1,1:""),Y(90264,2701,102)=""
    9.3 = X ^DD(90264,2701,9.2) X "F D1=0:0 S D1=$O(^BRNREC(D0,23,D1)) Q:D1'>0  S Y(90264,2701,102)=Y(90264,2701,102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""")" S D(1)=D1
  • ALGORITHM:  TOTAL(RECEIVING PARTY:NUMBER OF PAGES) (ALWAYS 0 DECIMAL DIGITS)
2702 TOTAL REPRODUCTION COST COMPUTED

  • MUMPS CODE:  X ^DD(90264,2702,9.3) S X=Y(90264,2702,102) S D0=Y(90264,2702,80) S D1=Y(90264,2702,81) S X=$J(X,0,2)
    9.2 = S Y(90264,2702,80)=$S($D(D0):D0,1:""),Y(90264,2702,81)=$S($D(D1):D1,1:""),Y(90264,2702,102)=""
    9.3 = X ^DD(90264,2702,9.2) X "F D1=0:0 S D1=$O(^BRNREC(D0,23,D1)) Q:D1'>0  X $P(^DD(90264.023,.08,0),U,5,99) S Y(90264,2702,102)=Y(90264,2702,102)+X" S D(1)=D1
  • ALGORITHM:  TOTAL(RECEIVING PARTY:TOTAL COST) (ALWAYS 2 DECIMAL DIGITS)
2801 PATIENT MAILING STREET/PO BOX 28;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 23, 2003
  • HELP-PROMPT:  Enter 1-35 Characters (If Address is different than Patient Registration)
2802 PATIENT MAILING CITY 28;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 23, 2003
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
2803 PATIENT MAILING STATE 28;3 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 23, 2003
2804 PATIENT MAILING ZIP 28;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  JAN 23, 2003
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
2901 FACILITY DEPARTMENT 29;1 POINTER TO ROI LISTING DEPARTMENT FILE (#90264.3) ROI LISTING DEPARTMENT(#90264.3)

  • LAST EDITED:  JAN 23, 2003
  • CROSS-REFERENCE:  90264^AE
    1)= S ^BRNREC("AE",$E(X,1,30),DA)=""
    2)= K ^BRNREC("AE",$E(X,1,30),DA)

External References

Name Field # of Occurrence
^%DT .01+1, .15+1, .16+1, .19+1, 2402+1, 2403+1, 2601+1, 2602+1
$$SUSPEND^BRNU 2404+1
EN^DDIOL .01(HELP ), .05(HELP ), .11(HELP ), .17(HELP ), 2401(HELP )
^DIC .06+1, .22+1
^DICR .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .08(XREF 1S), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.4)
.08(XREF 3S), .08(XREF 3n1.4), .14(XREF 1n1.4), 2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.4)
Y^DIQ ID.03+1, ID.06+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] ID.03+1, .031+1
^BRNREC - [#90264] .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K)
.01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .01(XREF 9S), .01(XREF 9K), .01(XREF 10S), .01(XREF 10K), .03(XREF 1S), .03(XREF 1K)
, .031+1, .06(XREF 2S), .06(XREF 2K), .08(XREF 1S), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.3), .08(XREF 3n1.4)
.08(XREF 4S), .08(XREF 4K), .11(XREF 1S), .11(XREF 1K), .12(XREF 1S), .12(XREF 1K), .13(XREF 1S), .13(XREF 1K), .14(XREF 1S), .14(XREF 1n1.3)
.14(XREF 1n1.4), 2502(XREF 1S), 2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.3), 2502(XREF 1n2.4)
^BRNREC("AA" .01(XREF 5S), .01(XREF 5K), .03(XREF 1S), .03(XREF 1K)
^BRNREC("AC" .01(XREF 6S), .01(XREF 6K), .08(XREF 4S), .08(XREF 4K)
^BRNREC("AD" .01(XREF 7S), .01(XREF 7K), .12(XREF 1S), .12(XREF 1K)
^BRNREC("AE" 2901(XREF 1S), 2901(XREF 1K)
^BRNREC("AF" .01(XREF 9S), .01(XREF 9K), .11(XREF 1S), .11(XREF 1K)
^BRNREC("AG" .01(XREF 10S), .01(XREF 10K), .13(XREF 1S), .13(XREF 1K)
^BRNREC("AH" .11(XREF 2S), .11(XREF 2K)
^BRNREC("AJ" .22(XREF 1S), .22(XREF 1K)
^BRNREC("AP" .01(XREF 8S), .01(XREF 8K), .06(XREF 2S), .06(XREF 2K)
^BRNREC("B" .01(XREF 1S), .01(XREF 1K)
^BRNREC("C" .02(XREF 1S), .02(XREF 1K)
^BRNREC("D" .06(XREF 1S), .06(XREF 1K)
^BRNREC("E" .03(XREF 2S), .03(XREF 2K)
^BRNTREQ - [#90264.1] ID.06+1
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4), .01(XREF 4n1.4), .08(XREF 1n1.4), .08(XREF 2n1.4), .08(XREF 3n1.4), 2502(XREF 1n2.4)
^DD(9000001 ID.03+1
^DD(90264 .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 3n1.3), .14(XREF 1S), 2502(XREF 1S), 2502(XREF 1K), 2701+1
, 2701OF9.3+1, 2702+1, 2702OF9.3+1
^DD(90264.1 ID.06+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, ID.06+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .08(XREF 1S)
.08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.3), .08(XREF 3n1.4), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 1n1.4), 2502(XREF 1S)
2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.3), 2502(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .15+1*, .16+1*, .19+1*, 2402+1*, 2403+1*, 2601+1*, 2602+1*
%I ID.03+1*!, ID.06+1*!
>> A .01(HELP ), .05(HELP ), .11(HELP ), .17(HELP ), 2401(HELP )
>> C ID.03+1*, ID.06+1*
>> D(1 2701OF9.3+1*, 2702OF9.3+1*
>> D0 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .031+1, .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 3n1.3)
.14(XREF 1S), .14(XREF 1n1.3), 2404+1, 2502(XREF 1S), 2502(XREF 1K), 2502(XREF 1n2.3), 2701+1*, 2701OF9.2+1, 2702+1*, 2702OF9.2+1
>> D1 2701+1*, 2701OF9.2+1, 2701OF9.3+1, 2702+1*, 2702OF9.2+1, 2702OF9.3+1
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .01(XREF 7S)
.01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .01(XREF 9S), .01(XREF 9K), .01(XREF 10S), .01(XREF 10K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S)
.03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .08(XREF 1n1.3), .08(XREF 2n1.3), .08(XREF 3n1.3)
.08(XREF 4S), .08(XREF 4K), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2K), .12(XREF 1S), .12(XREF 1K), .13(XREF 1S), .13(XREF 1K)
.14(XREF 1n1.3), .22(XREF 1S), .22(XREF 1K), 2502(XREF 1S), 2502(XREF 1n2.3), 2901(XREF 1S), 2901(XREF 1K)
DIC ID.03+1, ID.06+1, .06+1!*, .22+1!*
DIC("S" .04SCR+1*, .06+1*, .06SCR+1*, .22+1*, .22SCR+1*
>> DIE .06+1, .22+1
>> DIG .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .08(XREF 1S), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.4)
.08(XREF 3S), .08(XREF 3n1.4), .14(XREF 1n1.4), 2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.4)
>> DIH .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .08(XREF 1S), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.4)
.08(XREF 3S), .08(XREF 3n1.4), .14(XREF 1n1.4), 2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.4)
>> DIU .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .08(XREF 1S), .08(XREF 2S), .08(XREF 3S), .14(XREF 1S), 2502(XREF 1S), 2502(XREF 1K)
>> DIU(0 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .08(XREF 1S), .08(XREF 2S), .08(XREF 3S), .14(XREF 1S), 2502(XREF 1S), 2502(XREF 1K)
DIV .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S)
.08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.3), .08(XREF 3n1.4), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 1n1.4), 2502(XREF 1S), 2502(XREF 1n1.4)
2502(XREF 1K), 2502(XREF 1n2.3), 2502(XREF 1n2.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S)
.08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.3), .08(XREF 3n1.4), .14(XREF 1n1.3), .14(XREF 1n1.4), 2502(XREF 1S), 2502(XREF 1n1.4), 2502(XREF 1K)
2502(XREF 1n2.3), 2502(XREF 1n2.4)
DT .08(XREF 2S)
DUZ .01(XREF 2S), .08(XREF 1S)
DUZ(2 .01(XREF 3S), .031+1
U ID.02+1, ID.03+1, ID.06+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S)
.01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .01(XREF 9S), .01(XREF 9K), .01(XREF 10S)
.01(XREF 10K), .03(XREF 1S), .03(XREF 1K), .031+1, .06(XREF 2S), .06(XREF 2K), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S)
.08(XREF 2n1.3), .08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.3), .08(XREF 3n1.4), .08(XREF 4S), .08(XREF 4K), .11(XREF 1S), .11(XREF 1K), .12(XREF 1S)
.12(XREF 1K), .13(XREF 1S), .13(XREF 1K), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 1n1.4), 2502(XREF 1S), 2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.3)
2502(XREF 1n2.4)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 5S)
.01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .01(XREF 7S), .01(XREF 7K), .01(XREF 8S), .01(XREF 8K), .01(XREF 9S), .01(XREF 9K), .01(XREF 10S)
.01(XREF 10K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .031+1*, .05+1!
, .06+1*!, .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 1n1.4), .08(XREF 2S), .08(XREF 2n1.3)
.08(XREF 2n1.4), .08(XREF 3S), .08(XREF 3n1.3), .08(XREF 3n1.4), .08(XREF 4S), .08(XREF 4K), .11(XREF 1S), .11(XREF 1K), .11(XREF 2S), .11(XREF 2K)
.12(XREF 1S), .12(XREF 1K), .13(XREF 1S), .13(XREF 1K), .14(XREF 1S), .14(XREF 1n1.3), .14(XREF 1n1.4), .15+1*!, .16+1*!, .17+1!
, .19+1*!, .22+1*!, .22(XREF 1S), .22(XREF 1K), 2402+1*!, 2403+1*!, 2404+1*, 2501+1!, 2502+1!, 2502(XREF 1S)
2502(XREF 1n1.4), 2502(XREF 1K), 2502(XREF 1n2.3), 2502(XREF 1n2.4), 2601+1*!, 2602+1*!, 2701+1*, 2702+1*, 2801+1!, 2802+1!
, 2804+1!, 2901(XREF 1S), 2901(XREF 1K)
Y ID.03+1*, ID.06+1*, .01+1, .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .06+1, .08(XREF 1S), .08(XREF 2S), .08(XREF 3S)
.14(XREF 1S), .15+1, .16+1, .19+1, .22+1, 2402+1, 2403+1, 2502(XREF 1S), 2502(XREF 1K), 2601+1
, 2602+1
Y(0 .08(XREF 1n1.3), .08(XREF 2n1.3), .08(XREF 3n1.3), .14(XREF 1n1.3), 2502(XREF 1S), 2502(XREF 1n2.3)
Y(1 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S), .08(XREF 1S), .08(XREF 1n1.3), .08(XREF 2S), .08(XREF 2n1.3), .08(XREF 3S), .08(XREF 3n1.3), .14(XREF 1S)
.14(XREF 1n1.3), 2502(XREF 1S), 2502(XREF 1K), 2502(XREF 1n2.3)
Y(2 .08(XREF 3n1.3)
Y(90264 2701+1, 2701OF9.2+1*, 2702+1, 2702OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All