| [613] | 1 | LRSPDA ;AVAMC/REG - SURGICAL PATH DATA ENTRY ; 9/11/88 17:13 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | L S X="SURGICAL PATHOLOGY" D ^LRUTL Q
|
|---|
| 4 | ;
|
|---|
| 5 | H ;blocks, stains, procedures
|
|---|
| 6 | D END,L G:Y=-1 END K DR,Y W ! F X=1,2,3 S Y(X)=$P(^DD(63.812,X,0),"^") W !?15,X,". ",Y(X)
|
|---|
| 7 | S Z="",B=1 F A=0:0 W !,"Selection (",B,"): " R X:DTIME Q:X=""!(X[U) D:X<1!(X>3)!(X'=+X) HELP I X>0&(X<4)&(X=+X) W " ",Y(X) S:Z'[X Z=Z_X_";" S B=B+1 Q:B=4
|
|---|
| 8 | Q:Z="" S DR=.012,(DR(3,63.8121),DR(3,63.822),DR(3,63.824))=".01;1//^S X=""H & E STAIN""",(DR(4,63.8122),DR(4,63.823),DR(4,63.824))=".01;.02//1;.03;.04"
|
|---|
| 9 | S DR(2,63.812)=Z D ^LRAPDA,END Q
|
|---|
| 10 | HELP W $C(7),!!,"Enter a number from 1 to 3",! Q
|
|---|
| 11 | ;
|
|---|
| 12 | END D V^LRU Q
|
|---|
