Routine: RMPROPN1

Information

RMPROPN1 ;PHX/RFM-LISTS OPEN STOCK ISSUES ;8/29/1994

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: START+1
Function Call: WRITE	Prompt: !,$C(7),"Invalid Date Range Selection!!" Line Location: START+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!" Line Location: PRINT+3
Function Call: WRITE	Prompt: !!?32,"END OF REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: !,"PATIENT NAME",?14,"SSN",?20,"REQUEST DATE",?34,"VENDOR",?49,"ITEM",?70,"ITEM COST" Line Location: WRI+0
Function Call: WRITE	Prompt: !,$E($P(^DPT($P(^RMPR(660,RP,0),U,2),0),U,1),1,12),?14,$E($P(^(0),U,9),6,9) Line Location: WRI+1
Function Call: WRITE	Prompt: ?20,Y,?34 Line Location: WRI+2
Function Call: WRITE	Prompt: $E($P(^PRC(440,$P(^RMPR(660,RP,0),U,9),0),U,1),1,13) Line Location: WRI+2
Function Call: WRITE	Prompt: ?49 Line Location: WRI+3
Function Call: WRITE	Prompt: $E($P(^(0),U,2),1,18) Line Location: WRI+3
Function Call: WRITE	Prompt: ?70,$J($FN(+$P(^RMPR(660,RP,0),U,16),"P",2),10) Line Location: WRI+4
Function Call: WRITE	Prompt: ! Line Location: WRI+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !,"FROM: ",RMPRX_"-",RMPRY,?34,"OPEN STOCK ISSUES",?72,"PAGE ",PAGE,! Line Location: HDR+1