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

LRAPREF.m

Go to the documentation of this file.

LRAPREF ;AVAMC/REG - SNOMED REFERENCE OPTION SELECTOR ;3/9/94  13:20 ;

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

L D END W ! S (DIC,DIE)=95,DIC(0)="AEOQLM",DLAYGO=95 D ^DIC K DIC,DLAYGO G:Y<1 END S DA=+Y,DR="0:99" D ^DIE G L

END D V^LRU Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRAPREF   238     printed  Apr 09, 2024@21:12:02                                                                                                                                                                                                      Page 2

LRAPREF   ;AVAMC/REG - SNOMED REFERENCE OPTION SELECTOR ;3/9/94  13:20 ;

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

L          DO END

           WRITE !

           SET (DIC,DIE)=95

           SET DIC(0)="AEOQLM"

           SET DLAYGO=95

           DO ^DIC

           KILL DIC,DLAYGO

           if Y<1

               GOTO END

           SET DA=+Y

           SET DR="0:99"

           DO ^DIE

           GOTO L

 +1       ;

END        DO V^LRU

           QUIT