Routine: RMPRPIY8

Information

RMPRPIY8 ;HINCIO/ODJ - Pick HCPCS Item ;3/8/01

Name	Comments	DBIA/ICR reference
QM
QQM
QM2
QM2A
QM2B
QM2X
LIKE(RMPRSTN,RMPRLCN,RMPRHCPC,RMPRTXT,RMPREXC,RMPR11,RMPR4)	;
LIKEA1
LIKEA
LIKEB
LIKEH1
LIKEH
LIKEH9
LIKEH9A
LIKEX

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,"Answer with ITEM, or NUMBER, or DESCRIPTION" Line Location: QM+0
Function Call: WRITE	Prompt: !?3,"Choose from:" Line Location: QM+1
Function Call: WRITE	Prompt: !?3,"Choose from:" Line Location: QQM+0
Function Call: WRITE	Prompt: !?3,RMPRLIN,?16,RMPR("HCPCS-ITEM"),?28,RMPR("DESCRIPTION") Line Location: QM2A+8
Function Call: WRITE	Prompt: !?4,$J(RMPRLIN,2),?9,$QS(RMPRGBL,5),?40,RMPR("HCPCS-ITEM") Line Location: LIKEA+12
Function Call: WRITE	Prompt: ! Line Location: LIKEB+4
Function Call: WRITE	Prompt: !?4,$J(RMPRLIN,2),?9,RMPR11("HCPCS-ITEM"),?23,RMPR11("DESCRIPTION") Line Location: LIKEH+13
Function Call: WRITE	Prompt: ! Line Location: LIKEH9+4