LRWLHEAD ;SLC/DCM - WORKLIST HEADINGS ;2/8/91 07:34 ;
;;5.2;LAB SERVICE;;Sep 27, 1994
LRENT S LRENT=$O(^DIC(68.4,"B",LRAA(1),0)) Q:LRENT<1 S LRLINE=$O(^DIC(68.4,LRENT,1,0)),U="^"
F LRLINE=LRLINE:1:10 Q:'$D(^DIC(68.4,LRENT,1,LRLINE,0)) W !,$P(^(0),U,2),?32,$P(^(0),U,3),?64,$P(^(0),U,4),?96,$P(^(0),U,5)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRWLHEAD 312 printed Dec 13, 2024@02:23 Page 2
LRWLHEAD ;SLC/DCM - WORKLIST HEADINGS ;2/8/91 07:34 ;
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
LRENT SET LRENT=$ORDER(^DIC(68.4,"B",LRAA(1),0))
if LRENT<1
QUIT
SET LRLINE=$ORDER(^DIC(68.4,LRENT,1,0))
SET U="^"
+1 FOR LRLINE=LRLINE:1:10
if '$DATA(^DIC(68.4,LRENT,1,LRLINE,0))
QUIT
WRITE !,$PIECE(^(0),U,2),?32,$PIECE(^(0),U,3),?64,$PIECE(^(0),U,4),?96,$PIECE(^(0),U,5)
