Routine: RMPOLET2

Information

RMPOLET2 ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98

Name	Comments	DBIA/ICR reference
START	;
ASKHEAD	;
PRINT(HEAD)	; Print H.O. correspondence
BODY	; Set up array for filing and print letter
LINE(X)
HEADER	;
EXIT	;Clean up and quit

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no letters to print for this site." Line Location: START+9
Function Call: WRITE	Prompt: !!,"Use the 'List of Patients' option to create a list.",!!,$C(7) Line Location: START+10
Function Call: WRITE	Prompt: @IOF Line Location: START+15
Function Call: WRITE	Prompt: !,"Would you like a letterhead printed on the letters" Line Location: ASKHEAD+1
Function Call: WRITE	Prompt: !,"Answer 'Yes' for a header, 'No' for no header." Line Location: ASKHEAD+4
Function Call: WRITE	Prompt: !,"<<< Error"_+X_":"_$P(X,";",2)_" Patient #"_RMPODFN_" ! >>>",*7 Line Location: BODY+39
Function Call: READ	Formatting: !! Prompt: "Press <ENTER> to continue" Variable: ANS Timeout: DTIME Line Location: BODY+43
Function Call: WRITE	Prompt: !,?9,X Line Location: LINE+1