Routine: RMPR29LP

Information

RMPR29LP ;HIN/RVD-PRINT LAB STOCK ISSUE PENDING COMPLETION ;2/09/1998

Name	Comments	DBIA/ICR reference
EN
PRINT	;Entry point of printing report.
EXIT	;EXIT FROM REPORT HERE
WRI	;write Lab Stock Issue Pending Completion
HEAD
HEAD1	;write heading

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(RMPAT,1,14),?16,$E(RSSN,6,9),?24,RMDATE,?34,RMWOOR,?55,RMDTOP,?63,$E(RMITEM,1,16) Line Location: WRI+8
Function Call: WRITE	Prompt: !,?63,$E(RMITEM,1,16) Line Location: WRI+9
Function Call: WRITE	Prompt: @IOF Line Location: WRI+11
Function Call: WRITE	Prompt: @IOF Line Location: WRI+12
Function Call: WRITE	Prompt: !,"LAB STOCK ISSUE PENDING COMPLETION",?65,"Page: ",RMPAGE,!,"for station: ",$E($P($G(^DIC(4,RMPR("STA"),0)),U,1),1,20) Line Location: HEAD+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+1
Function Call: WRITE	Prompt: !,RMPR("L") Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"PATIENT",?17,"SSN",?24,"DATE INIT",?36,"WORK ORDER #",?50,"# DAYS OPEN",?68,"ITEM" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"-------",?17,"---",?24,"---------",?36,"------------",?50,"-----------",?68,"----" Line Location: HEAD1+4