Routine: PSJLIACT

Information

PSJLIACT ;BIR/MV - IV ACTION ;28 Jul 98 8:50 AM

Name	Comments	DBIA/ICR reference
DC	; Discontinue order
ACEDIT	; Display LM screen and AC and EDit actions
AEEXIT	; Call for EXIT CODE in PSJ LM IV AC/EDIT
EDIT	; Edit order
EDIT1	;
ACCEPT	; Accept order
R	; Renewal
H	; Hold
L	; Activity Log
O	; On Call
VF	; Make the order active *ENHANCEMENTS MADE IN PSJ5.0*260
VF1(PSIVREA,PSIVAL,PSIVLOG)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This order is part of a complex order. If you discontinue this order the",!,"following orders will be discontinued too (unless the stop date has already",!,"been reached)." Line Location: DC+4
Function Call: WRITE	Prompt: !!,"Do you want to discontinue this order" Line Location: DC+5
Function Call: WRITE	Prompt: !,"This order may not be edited." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"You cannot edit an inactive order" Line Location: EDIT1+7
Function Call: WRITE	Prompt: !!,">>> Verify may not be selected at this point." Line Location: VF+7
Function Call: WRITE	Prompt: ! Line Location: VF1+28