LRWLHEAD.m

LRWLHEAD ; IHS/DIR/FJE - WORKLIST HEADINGS 2/8/91 07:34 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;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)

LRENT2 ;  from LRLLP2 and LRLLP5  ;IHS/ANMC/CLS 08/18/96

 S LRENT=$O(^DIC(68.4,"B",LRAA,0)) Q:LRENT<1  S LRLINE=$O(^DIC(68.4,LRENT,1,0)),U="^"

 F LRLINE=LRLINE1:1:10 Q:'$D(^DIC(68.4,LRENT,1,LRLINE1,0))  W !,$P(^(0),U,2),?32,$P(^(0),U,3),?64,$P(^(0),U,4),?96,$P(^(0),U,5)

LRWLHEAD  ; IHS/DIR/FJE - WORKLIST HEADINGS 2/8/91 07:34 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;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)

LRENT2    ;  from LRLLP2 and LRLLP5  ;IHS/ANMC/CLS 08/18/96

 +1        SET LRENT=$ORDER(^DIC(68.4,"B",LRAA,0))

           IF LRENT<1

               QUIT 

           SET LRLINE=$ORDER(^DIC(68.4,LRENT,1,0))

           SET U="^"

 +2        FOR LRLINE=LRLINE1:1:10

               IF '$DATA(^DIC(68.4,LRENT,1,LRLINE1,0))

                   QUIT 

               WRITE !,$PIECE(^(0),U,2),?32,$PIECE(^(0),U,3),?64,$PIECE(^(0),U,4),?96,$PIECE(^(0),U,5)