source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRLNCLK.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1LRLNCLK ;DALOI/RSH/FHS - LOOK UP LOINC CODE AND DISPLAY;31 -AUG-2001
2 ;;5.2;LAB SERVICE;**232,278**;Sep 27,1994
3START ;
4 D ENTERLNC
5 I $G(LREND) D EXIT
6 E G START
7 Q
8ENTERLNC ;Enter LOINC code for lookup
9 W !! K DIR S LREND=0,DIR(0)="PO^95.3:AQEMZ",DIR("A")="Enter LOINC Code/Name "
10 S DIR("?")="You can see possible LOINC CODES/Specimen by entering the"
11 S DIR("?",1)="LOINC Test Name..Specimen example( GLUCOSE..UR )"
12 S DIR("?",2)=" "
13 D ^DIR K DIR
14 I $D(DUOUT)!($D(DTOUT))!(Y=-1) K DTOUT,DUOUT S LREND=1 Q
15 S LRCODE=+Y
16SP D DISPL
17 Q
18DISPL ;Show LOINC entry selected in file 95.3
19 ;display header-system and class
20 ;display LOINC code, component, property, time aspect, scale type and method type
21 S DA=LRCODE
22 S LRLNC0=^LAB(95.3,DA,0)
23 F I=2,6,7,8,9,10,11,14,15 S LRLNC0(I)=$P(LRLNC0,U,I)
24 S LRLNCNAM=$P($G(^LAB(95.3,DA,80)),U)
25 W @IOF
26 W !,"LOINC CODE: ",LRCODE_"-"_LRLNC0(15)," ",LRLNCNAM
27 W !,"SYSTEM: ",$P($G(^LAB(64.061,+LRLNC0(8),0)),U),?40,"CLASS: ",$P($G(^LAB(64.061,+LRLNC0(11),0)),U)
28 W:LRLNC0(2) !,"COMPONENT: ",$P($G(^LAB(95.31,+LRLNC0(2),0)),U)
29 W:LRLNC0(6) !,"PROPERTY: ",$P($G(^LAB(64.061,+LRLNC0(6),0)),U)
30 W:LRLNC0(7) !,"TIME ASPECT: ",$P($G(^LAB(64.061,+LRLNC0(7),0)),U)
31 W:LRLNC0(9) !,"SCALE TYPE: ",$P($G(^LAB(64.061,+LRLNC0(9),0)),U)
32 W:LRLNC0(10) !,"METHOD TYPE: ",$P($G(^LAB(64.2,+LRLNC0(10),0)),U)
33 W:LRLNC0(14) !,"UNITS: ",$P($G(^LAB(64.061,+LRLNC0(14),0)),U)
34 Q
35EXIT K DA,DIR,DIRUT,DTOUT,LRCODE,LREND,LRLNCNAM,LRLNC0,X,Y
36 Q
Note: See TracBrowser for help on using the repository browser.