Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LRAPPRE

LRAPPRE.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRAPPRE   284     printed  Apr 09, 2024@21:17:11                                                                                                                                                                                                      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