Routine: ORCHANG3

Information

ORCHANG3 ;SLC/MKB - Change view by event ; 08 May 2002 2:12 PM

Name	Comments	DBIA/ICR reference
EVT	; -- Select new event
EN	; -- Select new event via DOMAIN(), PROMPT, DEFAULT, HELP
LIST	; -- List order events in DOMAIN

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No events available for this patient.",! Line Location: EVT+4
Function Call: WRITE	Prompt: !,PROMPT_$S($L(DEFAULT):DEFAULT_"//",1:"") Line Location: EN+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: EN+3
Function Call: WRITE	Prompt: !!,HELP Line Location: EN+6
Function Call: WRITE	Prompt: $C(7),!,HELP Line Location: EN+7
Function Call: WRITE	Prompt: $E(XP,$L(X)+1,$L(XP)) Line Location: EN+12
Function Call: WRITE	Prompt: " "_$P(DOMAIN(Y),U,2) Line Location: EN+18
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+4
Function Call: READ	Variable: Z Timeout: DTIME Line Location: LIST+5
Function Call: WRITE	Prompt: $C(13)," "_$P(DOMAIN(I),U,2)_" "_$$FMTE^XLFDT($P(DOMAIN(I),U,3),"2P") Line Location: LIST+6