ENBCPM.m

ENBCPM ;(WASH ISC)/DH-Driver for Bar Coded PMI Module ;1/9/2001

 ;;7.0;ENGINEERING;**21,32,68**;Aug 17, 1993

 Q

DNLOAD S ENSTA=""""_$P($G(^DIC(6910,1,0)),U,2)_""""

 I ENSTA="""""" W !,"STATION NUMBER not found in Eng Init Parm File.  Can't proceed.",*7 G EXIT

 S ENCTID="ENPM" F I=1,2,3,4,5,6,7,8 S ENSTA(I)=""""_" "_""""

 I $G(^DIC(6910,1,3,0))]"" D

 . S (I,ENX)=0 F  S ENX=$O(^DIC(6910,1,3,ENX)) Q:'ENX!(I>8)  D

 .. S I=I+1,ENSTA(I)=""""_$P(^DIC(6910,1,3,ENX,0),U)_""""

 . I I>8 W !!,"NOTE: Only the first eight (8) ALTERNATE STATION NUMBERS will be downloaded.",*7

 D:$D(ENSTA) DNLD^ENBCPM1

 K ENCTEON,ENCTEOFF,ENCTTYPE,ENCTOPEN,ENCTCLOS,ENEMP

EXIT K DIC,ENX,ENSTA,I,J,K,O,S,X,Y

 Q

 ;

 ;ENBCPM

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENBCPM   713     printed  Apr 09, 2024@21:00:36                                                                                                                                                                                                       Page 2

ENBCPM    ;(WASH ISC)/DH-Driver for Bar Coded PMI Module ;1/9/2001

 +1       ;;7.0;ENGINEERING;**21,32,68**;Aug 17, 1993

 +2        QUIT 

DNLOAD     SET ENSTA=""""_$PIECE($GET(^DIC(6910,1,0)),U,2)_""""

 +1        IF ENSTA=""""""

               WRITE !,"STATION NUMBER not found in Eng Init Parm File.  Can't proceed.",*7

               GOTO EXIT

 +2        SET ENCTID="ENPM"

           FOR I=1,2,3,4,5,6,7,8

               SET ENSTA(I)=""""_" "_""""

 +3        IF $GET(^DIC(6910,1,3,0))]""

               Begin DoDot:1

 +4                SET (I,ENX)=0

                   FOR 

                       SET ENX=$ORDER(^DIC(6910,1,3,ENX))

                       if 'ENX!(I>8)

                           QUIT 

                       Begin DoDot:2

 +5                        SET I=I+1

                           SET ENSTA(I)=""""_$PIECE(^DIC(6910,1,3,ENX,0),U)_""""

                       End DoDot:2

 +6                IF I>8

                       WRITE !!,"NOTE: Only the first eight (8) ALTERNATE STATION NUMBERS will be downloaded.",*7

               End DoDot:1

 +7        if $DATA(ENSTA)

               DO DNLD^ENBCPM1

 +8        KILL ENCTEON,ENCTEOFF,ENCTTYPE,ENCTOPEN,ENCTCLOS,ENEMP

EXIT       KILL DIC,ENX,ENSTA,I,J,K,O,S,X,Y

 +1        QUIT 

 +2       ;

 +3       ;ENBCPM