Routine: RMPRPIYD

Information

RMPRPIYD ;HINES OIFO/ODJ - PIP RECONCILE - Pick HCPCS Item;3/8/01

Name	Comments	DBIA/ICR reference
ITEM(RMPRSTN,RMPRLCN,RMPR11,RMPREXC)	;
ITEMA1
ITEMX
CHKN(RMPR11)	;
CHKNX
CHKD(RMPR11)	;
CHKDX
OKADD(RMPR11,RMPRYN,RMPREXC)	;
ADDNMX
QM
QQM
QM2
QM2A
QM2B
QM2X
LIKE(RMPRSTN,RMPRLCN,RMPRHCPC,RMPRTXT,RMPREXC,RMPR11)	;
LIKEA1
LIKEA
LIKEB
LIKEX

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,"Answer with ITEM NUMBER or DESCRIPTION:" Line Location: QM+0
Function Call: WRITE	Prompt: !!?8,"You may enter a new ITEM, if you wish" Line Location: QQM+1
Function Call: WRITE	Prompt: !?8,"This is an Item or Appliance under PSAS HCPCS kept by local site in" Line Location: QQM+2
Function Call: WRITE	Prompt: !?8,"Prosthetics Inventory module." Line Location: QQM+3
Function Call: WRITE	Prompt: !?3,RMPRI,?16,RMPR("HCPCS-ITEM"),?28,RMPR("DESCRIPTION") Line Location: QM2A+7
Function Call: WRITE	Prompt: !?4,$J(RMPRLIN,2),?9,RMPREXMA("DESCRIPTION") Line Location: LIKEA+15
Function Call: WRITE	Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5) Line Location: LIKEA+21
Function Call: WRITE	Prompt: ! Line Location: LIKEB+8