source: FOIAVistA/trunk/r/ENGINEERING-EN/ENBCPM.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 697 bytes
Line 
1ENBCPM ;(WASH ISC)/DH-Driver for Bar Coded PMI Module ;1/9/2001
2 ;;7.0;ENGINEERING;**21,32,68**;Aug 17, 1993
3 Q
4DNLOAD 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
13EXIT K DIC,ENX,ENSTA,I,J,K,O,S,X,Y
14 Q
15 ;
16 ;ENBCPM
Note: See TracBrowser for help on using the repository browser.