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

LRAUFIX.m

Go to the documentation of this file.

LRAUFIX ;AVAMC/REG - RELEASE AUTOPSY REPORTS ;2/18/93  13:47 ;

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

 F LRDFN=0:0 S LRDFN=$O(^LR(LRDFN)) Q:'LRDFN  S Y=$P($G(^LR(LRDFN,"AU")),"^",3) S:Y $P(^("AU"),"^",15)=Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRAUFIX   208     printed  Nov 22, 2024@17:19:47                                                                                                                                                                                                      Page 2

LRAUFIX   ;AVAMC/REG - RELEASE AUTOPSY REPORTS ;2/18/93  13:47 ;

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

 +2        FOR LRDFN=0:0

               SET LRDFN=$ORDER(^LR(LRDFN))

               if 'LRDFN

                   QUIT

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

               if Y

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

 +3        QUIT