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 Dec 13, 2024@02:08:08 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
