Global: ^BMCTSORT

FileMan FileNo	FileMan Filename	Package
90001.81	RCIS REPORT LISTER ITEMS	Referred Care Information System

Directly Accessed By Routines, Total: 19

Package	Total	Routines
Referred Care Information System	19	BMCFREQ1 BMCFREQP BMCFY1 BMCFYP BMCRL0 BMCRL01 BMCRL1 BMCRL3 BMCRL4 BMCRLP BMCRLP1 BMCRLU BMCSEL ^BMCRTMP ^BMCTSORT BMCRLP2 BMCRLS BMCTEN1 BMCTENP

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Referred Care Information System	4	BMC4P10 BMC4P11 BMC4P12 BMC4P13

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Referred Care Information System	1	RCIS REPORT LISTER TEMP FILE(#90001.82)[.07, #90001.83101(.01), #90001.83102(.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:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `SEP 08, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `90001.81^B` 1)= S ^BMCTSORT("B",$E(X,1,30),DA)="" 2)= K ^BMCTSORT("B",$E(X,1,30),DA) CROSS-REFERENCE: `90001.81^U^MUMPS` 1)= S ^BMCTSORT("U",$$UP^XLFSTR(X),DA)="" 2)= K ^BMCTSORT("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; 'Y' FOR YES/NO; 'W' FOR WORD PROCESSING; 'J' FOR JUST A HIT, NO INTERACTION; LAST EDITED: `SEP 29, 1994`
.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: @
.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: `MAY 09, 1994` HELP-PROMPT: `Answer must be 1-3 characters in length.`
.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)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `OCT 30, 1995` HELP-PROMPT: `Type a Number between 1 and 999, 1 Decimal Digit` CROSS-REFERENCE: `90001.81^C` 1)= S ^BMCTSORT("C",$E(X,1,30),DA)="" 2)= K ^BMCTSORT("C",$E(X,1,30),DA) CROSS-REFERENCE: `90001.81^E^MUMPS` 1)= I $P(^BMCTSORT(DA,0),U,14)]"" S ^BMCTSORT("E",$P(^BMCTSORT(DA,0),U,14),X,DA)="" 2)= K:$P(^BMCTSORT(DA,0),U,14)]"" ^BMCTSORT("E",$P(^BMCTSORT(DA,0),U,14),X,DA)
.11	REFERRAL/PATIENT	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `DEC 29, 1993` HELP-PROMPT: `Answer must be 1-2 characters in length.`
.12	PRINT MENU HEADER	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAY 31, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.`
.13	DOLLAR	0;13	SET	'1' FOR YES; LAST EDITED: `JUL 25, 1995`
.14	PAGE	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 30, 1995` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
1	SCREEN LOGIC	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 21, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	TRANSLATION LOGIC	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 09, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
3	PRINT LOGIC	3;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
4	SORT LOGIC	4;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `OCT 04, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @

Found Entries, Total: 130

ITEM: 72-Hr Date	ITEM: 72-Hr Notification	ITEM: 72-Hr User	ITEM: Actual Begin DOS	ITEM: Actual END DOS	ITEM: Actual IHS Cost	ITEM: Actual Inpt LOS	ITEM: Actual TOTAL Cost
ITEM: Age	ITEM: Alt Res Ltr Date	ITEM: Alt Res Ltr Dissemination	ITEM: Alt Res Ltr Documentation	ITEM: Alt Res Ltr Mail#	ITEM: Alt Res Ltr User	ITEM: Alt Resource Date	ITEM: Alt Resource User
ITEM: Alternate Resource-CHS	ITEM: Any Third Party Coverage	ITEM: Beneficiary Class	ITEM: Best Avail Begin DOS	ITEM: Best Avail DRG	ITEM: Best Avail DX Code	ITEM: Best Avail END DOS	ITEM: Best Avail IHS Cost
ITEM: Best Avail Inpt LOS	ITEM: Best Avail Procedure Code	ITEM: Best Avail TOTAL Cost	ITEM: CHS Amt Auth to Date	ITEM: CHS App/Den Date	ITEM: CHS Approval Status	ITEM: CHS Auth Count	ITEM: CHS Denial Reason
ITEM: CHS Dt PO Added	ITEM: CHS FI Total to Date	ITEM: CHS Fiscal Year PO's	ITEM: CHS IHS Paid to Date	ITEM: CHS PO Authorization #	ITEM: CHS PO VENDOR	ITEM: Call-in's Only	ITEM: Cancellation Reason
ITEM: Case Manager	ITEM: Case Rev Comment Dt	ITEM: Case Reviewer	ITEM: Cause of Death	ITEM: Chart #	ITEM: Chart Facility	ITEM: Clinic Referred To	ITEM: Closed By User
ITEM: Comments-Business Office	ITEM: Comments-Case Review	ITEM: Community	ITEM: Created By User	ITEM: DT Mgd Care Action	ITEM: Date Completed	ITEM: Date Dsch Summary Rec'd	ITEM: Date Last Modified
ITEM: Date Ref Initiated	ITEM: Date User Created	ITEM: Date of Birth	ITEM: Date of Death	ITEM: Designated Provider	ITEM: Diagnostic Category	ITEM: Discharge Notes	ITEM: Eligibility Status
ITEM: Exclude Inactive Pts	ITEM: Expected Begin DOS	ITEM: Expected End DOS	ITEM: Facility Referred To	ITEM: Final DRG	ITEM: Final Dx Code	ITEM: Final Dx Prov Narr	ITEM: Final Oper Prov Narr
ITEM: Final Procedure Code	ITEM: IHS Facility Refer To	ITEM: Include IN-HOUSE Referrals	ITEM: Indian Blood Quantum	ITEM: Indian Descent	ITEM: Indian Descent Date	ITEM: Indian Descent User	ITEM: Inpatient/Outpatient
ITEM: Living Pts	ITEM: Local Category	ITEM: Medicaid	ITEM: Medicaid Plan Name	ITEM: Medicare	ITEM: Mgd Care Committee	ITEM: Mlg Address-City	ITEM: Mlg Address-Complete
ITEM: Mlg Address-Street	ITEM: Mother's Name	ITEM: Next Review Date	ITEM: Next of Kin	ITEM: Office Phone	ITEM: Patient Name	ITEM: Patient's Last Visit	ITEM: Pertinent Med Hx
ITEM: Primary Payor	ITEM: Primary Vendor	ITEM: Priority Rating	ITEM: Private Insurance	ITEM: Provis. Procedure Prov Narr	ITEM: Provisional Dx Prov Narr	ITEM: Purpose of Referral	ITEM: Pvt Ins Plan Name
ITEM: Reason not completed	ITEM: Referral #	ITEM: Requesting Facility	ITEM: Requesting Provider	ITEM: Residency	ITEM: Residency Date	ITEM: Residency User	ITEM: SSN
ITEM: Sec. Prov Appt Dt	ITEM: Sec. Prov Init Dt	ITEM: Sec. Prov Name	ITEM: Sec. Prov Purpose	ITEM: Sec. Prov User Created	ITEM: Service Cat HCPCS/CPT	ITEM: Sex	ITEM: Site Created by
ITEM: Status of Referral	ITEM: To Specific Provider	ITEM: Tribe	ITEM: Type of Referral	ITEM: Util Review Committee	ITEM: Veteran	ITEM: Visit # Auth	ITEM: W/I Med Priority Dt
ITEM: W/I Med Priority User	ITEM: W/I Medical Priority

External References

Name	Field # of Occurrence
^DIM	.021+1, .022+1, .025+1, .026+1, 1+1, 2+1, 3+1, 4+1
$$UP^XLFSTR	.01(XREF 2S), .01(XREF 2K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCTSORT - [#90001.81]	.09(XREF 2S), .09(XREF 2K)
^BMCTSORT("B"	.01(XREF 1S), .01(XREF 1K)
^BMCTSORT("C"	.09(XREF 1S), .09(XREF 1K)
^BMCTSORT("E"	.09(XREF 2S), .09(XREF 2K)
^BMCTSORT("U"	.01(XREF 2S), .01(XREF 2K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.09+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K)
U	ID.09+1, .09(XREF 2S), .09(XREF 2K)
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .021+1!, .022+1!, .025+1!, .026+1! , .03+1!, .04+1!, .05+1!, .06+1!, .07+1!, .09+1!, .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K) , .11+1!, .12+1!, .14+1!, 1+1!, 2+1!, 3+1!, 4+1!

Customize PDF page

Package: Referred Care Information System

Global: ^BMCTSORT

Information

Description

Directly Accessed By Routines, Total: 19

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 1

Fields, Total: 22

Found Entries, Total: 130

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: