ENEQNX ;(WASH ISC)/DH-Equipment Inventory Driver ;1/9/2001
;;7.0;ENGINEERING;**21,68**;Aug 17, 1993
INIT S:'$D(DTIME) DTIME=600 S ENERR=0,IOP="HOME",U="^" D ^%ZIS K IOP Q
DNLD S ENSTA=""""_$P($G(^DIC(6910,1,0)),U,2)_""""
I ENSTA="""""" W !,"STATION NUMBER not found in Eng Init Param File. Can't proceed.",*7 G EXIT
S ENCTID="ENNX" 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) ^ENCTBAR
EXIT K DIC,ENERR,ENSTA,ENX,I,J,K,O,S,X,Y
Q
;ENEQNX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENEQNX 716 printed Nov 22, 2024@17:02:43 Page 2
ENEQNX ;(WASH ISC)/DH-Equipment Inventory Driver ;1/9/2001
+1 ;;7.0;ENGINEERING;**21,68**;Aug 17, 1993
INIT if '$DATA(DTIME)
SET DTIME=600
SET ENERR=0
SET IOP="HOME"
SET U="^"
DO ^%ZIS
KILL IOP
QUIT
DNLD SET ENSTA=""""_$PIECE($GET(^DIC(6910,1,0)),U,2)_""""
+1 IF ENSTA=""""""
WRITE !,"STATION NUMBER not found in Eng Init Param File. Can't proceed.",*7
GOTO EXIT
+2 SET ENCTID="ENNX"
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 ^ENCTBAR
EXIT KILL DIC,ENERR,ENSTA,ENX,I,J,K,O,S,X,Y
+1 QUIT
+2 ;ENEQNX
