Global: ^BRNSORT

FileMan FileNo	FileMan Filename	Package
90264.7	ROI REPORTING UTILITY SORT	IHS Release Of Information

Package	Total	Routines
IHS Release Of Information	7	BRNRU11 BRNRU2 BRNRU21 BRNRUP BRNRUP1 BRNRUP3 BRNRUS

Package	Total	FileMan Files
IHS Release Of Information	1	ROI REPORTING UTILITY TEMP(#90264.8)[.07, #90264.81101(.01), #90264.81102(.01)]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 08, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.01	ITEM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `APR 02, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `90264.7^B` 1)= S ^BRNSORT("B",$E(X,1,30),DA)="" 2)= K ^BRNSORT("B",$E(X,1,30),DA) CROSS-REFERENCE: `90264.7^U^MUMPS` 1)= S ^BRNSORT("U",$$UP^XLFSTR(X),DA)="" 2)= K ^BRNSORT("U",$$UP^XLFSTR(X),DA)
.02	TYPE	0;2	SET	'Q' FOR QMAN; 'R' FOR READER; 'D' FOR DATE RANGE; 'N' FOR NUMERIC; 'F' FOR FREE TEXT RANGE; 'Y' FOR YES/NO; 'W' FOR WORD PROCESSING; 'J' FOR JUST A HIT, NO INTERACTION; 'T' FOR TEXT, ONE ENTRY; 'C' FOR CONTAINS; 'S' FOR SPECIAL; LAST EDITED: `JUN 21, 2005`
.021	INPUT TX FOR FREE TEXT	21;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.022	HELP PROMPT FOR FREE TEXT	22;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.025	INPUT TX FOR NUMERIC	25;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.026	HELP PROMPT FOR NUMERIC	26;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.027	DIR ? FOR NUMERIC	27;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `OCT 27, 2003` HELP-PROMPT: `Answer must be 1-70 characters in length.`
.028	PROMPT FOR NUMERIC	28;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `OCT 27, 2003` HELP-PROMPT: `Answer must be 1-70 characters in length.`
.03	QMAN TERM	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `SEP 20, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.`
.04	FILE,FIELD FOR DIR/DIQ	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.05	PRINT/SELECT/SORT	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `DEC 06, 2007` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: Enter 1 to 3 letters where P = PRINT, S = SELECT, and R = SORT.
.06	COLUMN HEADER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 21, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.07	SUGGESTED COLUMN WIDTH	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>80)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `Type a Number between 1 and 80, 0 Decimal Digits`
.08	MULT LOGIC	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 21, 1993`
.09	ORDER ON MENU	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.99)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `APR 14, 2003` HELP-PROMPT: `Type a Number between 1 and 999.99, 2 Decimal Digits` CROSS-REFERENCE: `90264.7^C` 1)= S ^BRNSORT("C",$E(X,1,30),DA)="" 2)= K ^BRNSORT("C",$E(X,1,30),DA)
.12	PRINT MENU HEADER	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<3) X` LAST EDITED: `JAN 31, 2002` HELP-PROMPT: `Answer must be 3-21 characters in length.`
.13	MULT ITEM SELECT/PRINT	0;13	SET	'1' FOR YES; LAST EDITED: `OCT 13, 2003`
1	SCREEN LOGIC	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `DEC 06, 2007` HELP-PROMPT: `This is Standard MUMPS code.` DESCRIPTION: `Logic sets X to internal value of this field for this record (BRNVIEN).` SCREEN^BRNRU11 then checks to see if this value is stored as a choice in the Temp Report entry (BRNRPT=report, BRNI=entry IEN). If the logic is checked here, reset X to null if it doesn't pass. Need to do that for date ranges. WRITE AUTHORITY: @
2	TRANSLATION LOGIC	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `DEC 26, 2007` HELP-PROMPT: `This is Standard MUMPS code.` DESCRIPTION: Enter M code to set the value of X to the external value of the selection criteria stored in the Temp Report entry. WRITE AUTHORITY: @
3	PRINT LOGIC	3;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `DEC 26, 2007` HELP-PROMPT: `This is Standard MUMPS code.` DESCRIPTION: `For single answer items, set BRNPRNT equal to the external format for the item. Can usually use $$GET1^DIQ code.` For multiples, set BRNPRNM array as such: BRNPRNM(count)=external format (can use $$GET1^DIQ) BRNPRNM(count,"I")=internal format so if user only wants to print those that match a screening criteria the others can be identified and deleted WRITE AUTHORITY: @
4	SORT LOGIC	4;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `DEC 07, 2007` HELP-PROMPT: `This is Standard MUMPS code.` DESCRIPTION: `Enter M code to set the printable version of this field into the variable BRNSRT for sorting purposes. For dates, the sorting needs to be in FileMan formats. Both DFN and BRNVIEN can be used as file IENs.` Examples: S BRNSRT=$$GET1^DIQ(90264,BRNVIEN,.02) S BRNSRT=$$GET1^DIQ(90264,BRNVIEN,.16,"I") S BRNSRT=$$GET1^DIQ(2,DFN,.02) WRITE AUTHORITY: @

Customize PDF page

Package: IHS Release Of Information

Global: ^BRNSORT

Information

Description

Directly Accessed By Routines, Total: 7

Pointed To By FileMan Files, Total: 1

Fields, Total: 22