Routine: PSOORFI3

Information

PSOORFI3 ;BIR/RTR-finish CPRS orders by Clinic ; 4/26/11 2:05pm

Name	Comments	DBIA/ICR reference
CLIN
SORT
START
EXIT
CHECK	; check Institution
EOP
L1	;Lock single order
UL1	;Unlock single order
DOSE	;pending orders
DOSE1
DU
DOSE2	;displays pending order after edits
DOSE3
DO
FMD
SQR	;
SQN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSOORFI3+8
Function Call: WRITE	Prompt: ! Line Location: PSOORFI3+8
Function Call: WRITE	Prompt: ! Line Location: CLIN+0
Function Call: WRITE	Prompt: !!,"You are signed in under the "_$G(PSODINST)_" CPRS Ordering",!,"Institution, which does not match the Institution for this Clinic!",! Line Location: CLIN+1
Function Call: WRITE	Prompt: ! Line Location: SORT+0
Function Call: WRITE	Prompt: !!,"There are no Clinics associated with this Sort Group!",! Line Location: SORT+3
Function Call: WRITE	Prompt: @IOF Line Location: SORT+5
Function Call: WRITE	Prompt: !,"Orders for these Clinics in the Sort Group will not be displayed for Finishing",!,"because the CPRS Ordering Institution does not match the Institution that is",!,"associated with the Clinic:",! Line Location: SORT+5
Function Call: WRITE	Prompt: !,$P($G(^SC(PSCLP,0)),"^") Line Location: SORT+6
Function Call: WRITE	Prompt: @IOF Line Location: SORT+7
Function Call: WRITE	Prompt: !!,"There are no Clinics that have a matching Institution!",! Line Location: SORT+9
Function Call: WRITE	Prompt: ! Line Location: EOP+0