LRAPPRE.m

LRAPPRE ;AVAMC/REG - ANATOMIC PATH PRE-INIT ;10/6/90  12:29

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 ;Added to LRPRE1

 F A=0:0 S A=$O(^LR("AAUA",A)) Q:'A  F B=0:0 S B=$O(^LR("AAUA",A,B)) Q:'B  S LRDFN=+$O(^LR("AAUA",A,B,0)),E=$P($G(^LR(LRDFN,"AU")),"^",3) I E S $P(^("AU"),"^",15)=E

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRAPPRE   284     printed  Apr 23, 2025@18:21:51                                                                                                                                                                                                      Page 2

LRAPPRE   ;AVAMC/REG - ANATOMIC PATH PRE-INIT ;10/6/90  12:29

 +1       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +2       ;Added to LRPRE1

 +3        FOR A=0:0

               SET A=$ORDER(^LR("AAUA",A))

               if 'A

                   QUIT 

               FOR B=0:0

                   SET B=$ORDER(^LR("AAUA",A,B))

                   if 'B

                       QUIT 

                   SET LRDFN=+$ORDER(^LR("AAUA",A,B,0))

                   SET E=$PIECE($GET(^LR(LRDFN,"AU")),"^",3)

                   IF E

                       SET $PIECE(^("AU"),"^",15)=E

 +4        QUIT