Routine: RMPRPCER

Information

RMPRPCER ;HIN/RVD-PRINT PCE DATA ;7/3/01

Name	Comments	DBIA/ICR reference
STDT	;RMPRSDT is start date in FM internal form.
CONT
PRINT
BUILD	;build a tmp global.
WRITE	;write report to a selected device
HEAD
HEAD1
EXIT
EXIT1
NONE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Invalid Date Range Selection!!" Line Location: STDT+9
Function Call: WRITE	Prompt: !!,"Processing report......." Line Location: PRINT+0
Function Call: WRITE	Prompt: @IOF Line Location: WRITE+14
Function Call: WRITE	Prompt: @IOF Line Location: WRITE+15
Function Call: WRITE	Prompt: !,RMPR("L") Line Location: WRITE+16
Function Call: WRITE	Prompt: !,"<End of Report>" Line Location: WRITE+17
Function Call: WRITE	Prompt: !,"* PROSTHETICS PCE DATA * Run Date: ",RMRDAT,?70,"PAGE: ",RMPAGE Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"Start Date: ",RMSDAT,?26,"End Date: ",RMEDAT,?51,"station: ",$E($P($G(^DIC(4,RS,0)),U,1),1,19) Line Location: HEAD+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+1
Function Call: WRITE	Prompt: !,RMPR("L") Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?30,"TYPE OF",?42,"CPRS",?60,"PCE" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"DATE",?10,"PATIENT",?21,"ITEM",?30,"REQUEST",?40,"REQUESTOR",?51,"ICD9",?60,"DATE",?68,"DIAGNOSIS" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"----",?10,"-------",?21,"----",?30,"-------",?40,"---------",?51,"----",?58,"--------",?68,"---------" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !!,"NO DATA TO PRINT !!!!!" Line Location: NONE+0