Routine: RMPOLETA

Information

RMPOLETA ;EDS/PAK - HOME OXYGEN LETTERS ;8/6/98 07:37

Name	Comments	DBIA/ICR reference
SELECT	;
PROMPT	;Prompt for letter list groups to print
ASK	;
EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?30,RMPO("NAME"),!?15,"HOME OXYGEN PATIENT LISTING FOR - " Line Location: PROMPT+1
Function Call: WRITE	Prompt: Y,!?35,"LETTERS",!! Line Location: PROMPT+2
Function Call: WRITE	Prompt: CNT," patients." Line Location: PROMPT+4
Function Call: WRITE	Prompt: !,?15,LSTN,".",?19,"Welcome to Home Oxygen Program Letter group of " Line Location: PROMPT+7
Function Call: WRITE	Prompt: !,?15,LSTN,".",?19,"Prescription Cancellation Letter group of " Line Location: PROMPT+8
Function Call: WRITE	Prompt: !,?15,LSTN,".",?19,$E(RMPOLCD,2,4)," day Rx expiration group of " Line Location: PROMPT+9
Function Call: WRITE	Prompt: !!,"No patient letters to print today." Line Location: PROMPT+10
Function Call: WRITE	Prompt: !!,"The list above shows the letters that have been compiled." Line Location: ASK+1
Function Call: WRITE	Prompt: !,"and how many patients will receive each letter." Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Please enter a number from 1 to "_CNT_" or 'ALL'." Line Location: ASK+6