Routine: ORCHANGE

Information

ORCHANGE ;SLC/MKB-Change View utilities ; 08 May 2002 2:12 PM

Name	Comments	DBIA/ICR reference
EN	; -- Change view of current list
RANGE	; -- Get new date range for list
RQ
START(CURRENT,REQD)	; -- Return new beginning date
STOP(CURRENT,REQD)	; -- Return new ending date
MAX	; -- Get new max # of items to list
AUTHOR(USER)	; -- Select new author of note
LISTHDR	; -- List available subhdrs
LRSUB	; -- Return lab subscript to jump to in list ; Available subscripts in ^TMP("OR",$J,"IDX",name)=line #
LRS
LRS1
DGROUP	; -- Select new service (display group)
CS	; -- Select new consult service
REMOVE	; -- Remove preferred view
SAVE	; -- Save current view as preferred
OK(DEL)	; -- Are you sure you want to save/remove view of ORTAB?
RETURN	; -- Return to preferred view of ORTAB

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No other views of this list currently available" Line Location: EN+3
Function Call: WRITE	Prompt: !,"Date range can not be selected when viewing"_THISTS_"orders." Line Location: RANGE+8
Function Call: WRITE	Prompt: !!,"Choose from:" Line Location: LISTHDR+2
Function Call: WRITE	Prompt: !," "_HDR Line Location: LISTHDR+5
Function Call: WRITE	Prompt: !!,"There are no section headers defined for this report." Line Location: LRSUB+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: LRS+8
Function Call: WRITE	Prompt: $E(P,$L(X)+1,$L(P)) Line Location: LRS+9
Function Call: WRITE	Prompt: !!,"Select Service/Section: "_$P(^ORD(100.98,+ZZ,0),U)_"//" Line Location: DGROUP+6
Function Call: READ	Variable: X Timeout: DTIME Line Location: DGROUP+7
Function Call: WRITE	Prompt: !!,HELP,!,"Choose from:" Line Location: DGROUP+9
Function Call: WRITE	Prompt: " ...done." Line Location: SAVE+6