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

LRUSNOM.m

Go to the documentation of this file.
  1. LRUSNOM ;AVAMC/REG - ANATOMIC PATH REFERENCES ;4/12/94 10:15 ;
  1. ;;5.2;LAB SERVICE;;Sep 27, 1994
  1. A G:'$D(LRF) END K LR("CK") W ! S (DIE,DIC)=LRF,DIC(0)="AEQM" D ^DIC K DIC G:Y<1 END S DA=+Y I DR=5 D CK^LRU G:$D(LR("CK")) A D ^DIE D FRE^LRU G A
  1. D PRT G A
  1. ;
  1. DE D END S LRF="^LAB(61.4," G E ;edit Disease
  1. EE D END S LRF="^LAB(61.2," G E ;edit Etiology
  1. FE D END S LRF="^LAB(61.3," G E ;edit edit Function
  1. ME D END S LRF="^LAB(61.1," G E ;edit edit Morphology
  1. OE D END S LRF="^LAB(61.6," G E ;edit Occupation
  1. TE D END S LRF="^LAB(61," G E ;edit Topography
  1. PE D END S LRF="^LAB(61.5," G E ;edit Procedure
  1. E S DR=5 G LRUSNOM
  1. ;
  1. DP D END S LRF=61.4 G P
  1. EP D END S LRF=61.2 G P
  1. FP D END S LRF=61.3 G P
  1. MP D END S LRF=61.1 G P
  1. OP D END S LRF=61.6 G P
  1. TP D END S LRF=61 G P
  1. PP D END S LRF=61.5 G P
  1. P S DR="0;JR" G LRUSNOM
  1. ;
  1. PRT ;print references
  1. S ZTRTN="QUE^LRUSNOM" D BEG^LRUTL G:POP!($D(ZTSK)) END
  1. QUE U IO S DIC=^DIC(LRF,0,"GL") D EN^DIQ,END^LRUTL Q
  1. ;
  1. END D V^LRU Q