Routine: LRPX

Information

LRPX ;SLC/STAFF - Process lab indexes ;9/26/03 15:39

Source file <LRPX.m>

Name	Comments	DBIA/ICR reference
CHKILL(LRDFN,LRIDT)	; from LROC ; delete Chem xrefs in ^PXRMINDX(63
CHSET(LRDFN,LRIDT)	; from LRVER3A ; add Chem xrefs in ^PXRMINDX(63
PATIENT(LRDFN,DFN,OK)	;
TESTS(LRDFN,LRIDT,LRDN,TEST)	;
KLAB(DFN,DATE,ITEM,NODE)	; from LRPXRM ; delete index for lab data.
SLAB(DFN,DATE,ITEM,NODE)	; from LRPXRM, LRPXSXRA, LRPXSXRB, LRPXSXRL ; set index for lab data.