Routine: RMPRPIFD

Information

RMPRPIFD ;PHX/RFM,RGB-DELETE ISSUE FROM STOCK ;8/27/07 07:27

Name	Comments	DBIA/ICR reference
DEL1	;ENTRY POINT TO DELETE AN ISSUE FROM STOCK	ICR #7542 Status: Active Usage: Controlled Subscription
DEL1A	;ASK IF INACTIVE ITEM
DEL1B
DEL2	;call API for returning item to PIP
EXIT	;KILL VARIABLES AND EXIT ROUTINE

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: 4 Line Location: DEL1B+3
Function Call: WRITE	Prompt: !!," *** Scanned HCPCS has been deleted from HCPCS Item Master (ASHI). CANNOT delete previous issue." Line Location: DEL1B+3
Function Call: WRITE	Prompt: ! Line Location: DEL1B+3
Function Call: WRITE	Prompt: !!,"** STOCK ISSUE DELETE ABORTED",!! Line Location: DEL2+3
Function Call: WRITE	Prompt: !!,"*** ERROR in PCE DELETE, Please notify your IRM..660 IEN = ",RMPRIEN,!! Line Location: DEL2+5
Function Call: WRITE	Prompt: !,"* Error in API RMPRPIU3, ERROR = ",RMCHK,!,"* Please inform your IRM !!",! Line Location: DEL2+8
Function Call: WRITE	Prompt: $C(7),!?10,"Deleted..." Line Location: DEL2+10