Routine: RMPV0RMPRPIYS

Information

RMPV0RMPRPIYS ; OIT/JDA - Adapted from RMPRPIYS; Dec 01, 2024@21:44:42

Name	Comments	DBIA/ICR reference
RMPRPIYS	;HINCIO/ODJ - RC - PIP Receive Stock ;10/8/02 13:11
PB
STN
HCPCS
HCPCS2
HCPCS3
HCPCS3A
HCPCS4
CURST
NLAB
SELP
PBX
PRINT
SELD
PNOW	;jump here if not queued.
PRINTC
PRINTX
NLABP(RMPRNLAB,RMPRMAX,RMPREXC)	;
NLABPX
NLABPH2
BARC(RMPRBARC,RMPREXC)	;
BARC1
BARCX
BARCH
SCAN
SCAN1
SCANX
SCANE
CPT(RDA)	;
CPTX
UPCASE(RMPRSTR)	;