LRWLHEAD.m

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 ---LRWLHEAD   312     printed  Apr 09, 2024@21:08:36                                                                                                                                                                                                     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)