Routine: GMRVORE2

Name	Comments	DBIA/ICR reference
DCM
SCHED	;
STOP	;
EDCM	;
ASK	; ASK PROMPTS FOR AN ORDER GMRVORDF=START^STOP^ADM SCH^SPEC INSTRUCT ; WHERE IF THE PIECE="" THEN NO DEFAULT FOR PROMPT ; THE PIECE=VALUE THEN VALUE IS DEFAULT FOR PROMPT ; THE PIECE=~VALUE THEN VALUE TO BE STUFFED WITHOUT PROMPT ; RETURNS GMRVORAN=START^STOP^ADM SCH^ADM TIME^FREQ^COMM WITH ; THE ANSWERS, AND GMROUT. ;
STDT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Editing order ",$P(GMRVORD(2),U,5) Line Location: ASK+7
Function Call: READ	Timeout: DTIME Variable: GMRVCOM Line Location: EDCM+2
Function Call: WRITE	Prompt: !,?4,$C(7),"Are you sure you want to delete these SPECIAL INSTRUCTIONS" Line Location: DCM+0
Function Call: WRITE	Prompt: !,?5,$C(7),"Answer YES or NO" Condition for execution: %=0 Line Location: DCM+0
Function Call: WRITE	Prompt: !,?3,$C(7),"THE STOP DATE CANNOT BE EARLIER THAN THE START DATE" Line Location: STOP+6

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	STDT+4, STOP+5
^GMRD(120.57 - [#120.57]	STOP+3, STOP+4

Name	Field # of Occurrence
>> %	DCM*
%DT	STDT+4!, STOP+5!
%DT("A"	STDT+3, STOP+3
%DT("B"	STDT+2, STDT+4, STOP+2, STOP+5
%DT(0	STDT+4, STOP+5
>> DIROUT	EDCM+3*
DTIME	EDCM+2
>> GMROUT	STDT+4, SCHED+6, EDCM+3, DCM, STOP+5
>> GMRVANSR	STDT+4, STOP+5
>> GMRVAS	SCHED+1, SCHED+2, SCHED+3*
>> GMRVCOM	EDCM+1, EDCM+2, EDCM+3, DCM, DCM+1
>> GMRVDF	EDCM+2*, DCM
>> GMRVNEW	ASK+7
>> GMRVORAN	EDCM+2*
>> GMRVORD(1	STDT+3, STOP+3, STOP+4
>> GMRVORD(2	ASK+7, STDT+3
>> GMRVSTOP	STOP+1, STOP+2, STOP+7
>> GMRVSTRT	STDT+1, STDT+2, STDT+5, STOP+3, STOP+4, STOP+6
>> ORACTION	ASK+7, STDT+3, SCHED+6, STOP+3, STOP+4
PSJAT	SCHED+3, SCHED+4!
PSJAX	SCHED+4!
PSJM	SCHED+3, SCHED+4!
PSJNE	SCHED+2*, SCHED+4!
PSJPP	SCHED+2*, SCHED+4!
PSJTS	SCHED+4!
PSJW	SCHED+4!
PSJX	SCHED+2*, SCHED+3, SCHED+4!
PSJY	SCHED+4!
U	ASK+7, STDT+3, STDT+4, SCHED+3, EDCM+2, STOP+3, STOP+4, STOP+5
>> X	STOP+4
>> X1	STOP+3*
>> X2	STOP+3*
>> XQH	DCM+1*
>> Y	STDT+2, STDT+3, STDT+4, STDT+5, STOP+2, STOP+4, STOP+5, STOP+6, STOP+7

Information