source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRLNC1A.m@ 846

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

initial load of WorldVistAEHR

File size: 785 bytes
Line 
1LRLNC1A ; DALCOI/CA/FHS - ADD/EDIT RESULT NLT CODES IN LAB TEST FILE (#60) ; 1-OCT-1998
2 ;;5.2;LAB SERVICE;**278**;Sep 27,1994
3 ;=================================================================
4TEST ;ADD/EDIT RESULT NLT CODE
5 W !!
6 N DIC,DA,Y,X,DIE S DIE("NO^")="OUTOK"
7 S DIC=60,DIC(0)="AEQZNM"
8 S DIC("A")="Lab Test: ",DIC("S")="I ""BO""[$P(^(0),U,3)"
9 D ^DIC
10 I $D(DUOUT)!($D(DTOUT))!(Y=-1) D EXIT Q
11 S LRIEN=+Y,LRTEST=$P(Y,U,2)
12 ;Check for RESULT NLT CODE and if not one let enter
13 K DIE,DR,DA S DA=LRIEN,DIE="^LAB(60,",DR=64.1
14 D ^DIE
15 I $D(DUOUT)!$D(DTOUT) K DUOUT,DTOUT Q
16 S DIC=DIE,DR="64" W !! W ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) S S=$Y D EN^LRDIQ W !
17 S LRNLT=$P($G(^LAB(60,LRIEN,64)),U,2)
18 D EXIT
19 G TEST
20EXIT K DA,DIC,DIE,DR,DTOUT,DUOUT,LRIEN,LRNLT,LRTEST,S,Y
21 Q
Note: See TracBrowser for help on using the repository browser.