Routine: RMPRPIYF

Information

RMPRPIYF ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;8/2/02 07:27

Name	Comments	DBIA/ICR reference
COST	;
DATE
REQ
LOT
REMA
CC
POST	;POSTS EDITED TRANSACTION TO 660	ICR #7540 Status: Active Usage: Controlled Subscription
API	;call API for 660, 661.7, 661.6, 661.63, 661.9
PCE	;update PCE data
DEL1	;ENTRY POINT TO DELETE AN ISSUE FROM STOCK	ICR #7540 Status: Active Usage: Controlled Subscription
EXIT	;KILL VARIABLES AND EXIT ROUTINE	ICR #7540 Status: Active Usage: Controlled Subscription
UP660	;update 660
UPDATE	;update the new entries AND delete old data
BACK	; Bring back ITEM into current stock.
UP6	;now update file 661.6
UP63	;update file 661.63
UP7	;file #661.7,deduct quantity
UP9	;file 661.9
QUAN	;only update quantity
ERR

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This field is mandatory!!!",! Line Location: DATE+1
Function Call: WRITE	Prompt: !,"This field is mandatory!!!",! Line Location: DATE+2
Function Call: WRITE	Prompt: !,"Jumping not allowed!" Line Location: REQ+1
Function Call: WRITE	Prompt: !?5,"Deleted..." Line Location: REQ+2
Function Call: WRITE	Prompt: !,"Jumping not allowed!" Line Location: LOT+1
Function Call: WRITE	Prompt: !?5,"Deleted..." Line Location: LOT+2
Function Call: WRITE	Prompt: !,"Jumping not allowed!" Line Location: REMA+1
Function Call: WRITE	Prompt: !?5,"Deleted..." Line Location: REMA+2
Function Call: WRITE	Prompt: !,"Posting...." Line Location: POST+1
Function Call: WRITE	Prompt: !!,"*** ERROR in 2319 UPDATE, Please notify your IRM..IEN = ",$G(RMPR60("IEN")),!! Line Location: API+6
Function Call: WRITE	Prompt: !,"* Error in API RMPRPIX2, ERROR = ",RMPRERR,!,"* Please inform your IRM !!",! Line Location: UP660+4
Function Call: WRITE	Prompt: !!,"Error encountered while posting to PIP. Patient 10-2319 not deleted!! Please check with your Application Coordinator." Line Location: ERR+0