Global: ^BRNREC

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

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

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

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)

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

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

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

Customize PDF page

Package: IHS Release Of Information

Global: ^BRNREC

Information

Description

Directly Accessed By Routines, Total: 26

Accessed By FileMan Db Calls, Total: 25

Pointer To FileMan Files, Total: 6

Fields, Total: 42

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: