| [613] | 1 | LRLNC1A ; 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 | ;=================================================================
|
|---|
| 4 | TEST ;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
|
|---|
| 20 | EXIT K DA,DIC,DIE,DR,DTOUT,DUOUT,LRIEN,LRNLT,LRTEST,S,Y
|
|---|
| 21 | Q
|
|---|
