| 1 | ENBCPM ;(WASH ISC)/DH-Driver for Bar Coded PMI Module ;1/9/2001
|
|---|
| 2 | ;;7.0;ENGINEERING;**21,32,68**;Aug 17, 1993
|
|---|
| 3 | Q
|
|---|
| 4 | DNLOAD S ENSTA=""""_$P($G(^DIC(6910,1,0)),U,2)_""""
|
|---|
| 5 | I ENSTA="""""" W !,"STATION NUMBER not found in Eng Init Parm File. Can't proceed.",*7 G EXIT
|
|---|
| 6 | S ENCTID="ENPM" F I=1,2,3,4,5,6,7,8 S ENSTA(I)=""""_" "_""""
|
|---|
| 7 | I $G(^DIC(6910,1,3,0))]"" D
|
|---|
| 8 | . S (I,ENX)=0 F S ENX=$O(^DIC(6910,1,3,ENX)) Q:'ENX!(I>8) D
|
|---|
| 9 | .. S I=I+1,ENSTA(I)=""""_$P(^DIC(6910,1,3,ENX,0),U)_""""
|
|---|
| 10 | . I I>8 W !!,"NOTE: Only the first eight (8) ALTERNATE STATION NUMBERS will be downloaded.",*7
|
|---|
| 11 | D:$D(ENSTA) DNLD^ENBCPM1
|
|---|
| 12 | K ENCTEON,ENCTEOFF,ENCTTYPE,ENCTOPEN,ENCTCLOS,ENEMP
|
|---|
| 13 | EXIT K DIC,ENX,ENSTA,I,J,K,O,S,X,Y
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | ;ENBCPM
|
|---|
