Routine: RMPRRET1

Information

RMPRRET1 ;PHX/RFM-RETURN ITEM FROM 2319 ;8/29/1994

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No items available on patient 10-2319 for return." Line Location: TMP+0
Function Call: WRITE	Prompt: !!?15,"ITEMS RECORDED ON PATIENT'S 2319",!!,?15,"ITEM",?30,"DATE ISSUED",?43,"SERIAL NUMBER" Line Location: TMP1+0
Function Call: WRITE	Prompt: !,I_".",?7,$P(^RMPR(660,RO,0),U,15),$E($P(^TMP($J,RO),U),1,20) Line Location: WRI+1
Function Call: WRITE	Prompt: ?30,Y Line Location: WRI+1
Function Call: WRITE	Prompt: ?30,Y Line Location: WRI+1
Function Call: WRITE	Prompt: $C(7),!!,"You have not selected an item posted to the Patient's 10-2319.",! Line Location: CON+0
Function Call: WRITE	Prompt: $C(7),?5,!,"Someone else is editing this record" Line Location: POS+3
Function Call: WRITE	Prompt: $C(7),!?10,"Deleted..." Line Location: POS+5
Function Call: WRITE	Prompt: @IOF Line Location: POS+12
Function Call: WRITE	Prompt: $C(7),!,"You are not an Inventory Point user and the item you have selected is in",!,"Inventory. Do you wish to continue" Line Location: INV+0
Function Call: WRITE	Prompt: !,"Answer `YES` or `NO`" Line Location: INV+0
Function Call: WRITE	Prompt: !,"Would you like to add this item back into inventory" Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"Enter `YES` to add item back into inventory, `NO` to not.",! Line Location: QUE+1
Function Call: WRITE	Prompt: $C(7),!,"The Item you selected is not in this Inventory Point." Line Location: INVITEM+0