ENCTMAN.m

ENCTMAN ;(WASH ISC)/RGY-Schedule Processing of Bar Code Data ;1-11-90

 ;;7.0;ENGINEERING;;Aug 17, 1993

 ;Copy of PRCTMAN ;DH-WASH ISC

 S DIC="^PRCT(446.4,",DIC(0)="QEAM" D ^DIC G:+Y<0 Q5 S:'$D(^PRCT(446.4,+Y,2,0)) ^(0)="^446.42DI^^" S (DA(1),ENCTID)=+Y,DIC=DIC_ENCTID_",2," D ^DIC G:+Y<0 Q5 S ENCTTI=+Y

 W !!,"Current Status is: ",$P(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)

 S X="Are you sure you want to reschedule this data to process ?^Y" D ENYN^ENCTQUES I X="^"!'X W !,"OK, nothing scheduled !",! G Q5

 S ZTDTH=-1 D TASK^ENCTREAD

Q5 K DIC,DA Q

DEQUE ;

 S ENCT=$S('$D(ENCTID):0,$D(^PRCT(446.4,ENCTID,0))#2:^(0),1:0) G:ENCT=0 Q4 G:$S('$D(ENCTTI):1,1:'$D(^PRCT(446.4,ENCTID,2,ENCTTI,0))#2) Q4

 I $P(ENCT,"^",4)="" D TIME S $P(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)="RTN FLD IS MISSING"_Y G Q4

 S X=$P(ENCT,"^",4) D RTN^ENCTUTL I '$D(X) D TIME S $P(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)="RTN IS MISSING"_Y G Q4

 D TIME S X=$P(ENCT,"^",4),$P(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)="STARTED ON"_Y D @($P(X,"-")_"^"_$P(X,"-",2)),TIME S:$E($P(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3),1,11)="STARTED ON-" $P(^(0),"^",3)="FINISHED ON"_Y

Q4 K ENCT,ENCTID,ENCTTI Q

TIME D NOW^%DTC S Y=% X ^DD("DD") S Y="-"_Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENCTMAN   1211     printed  Apr 09, 2024@20:59:12                                                                                                                                                                                                     Page 2

ENCTMAN   ;(WASH ISC)/RGY-Schedule Processing of Bar Code Data ;1-11-90

 +1       ;;7.0;ENGINEERING;;Aug 17, 1993

 +2       ;Copy of PRCTMAN ;DH-WASH ISC

 +3        SET DIC="^PRCT(446.4,"

           SET DIC(0)="QEAM"

           DO ^DIC

           if +Y<0

               GOTO Q5

           if '$DATA(^PRCT(446.4,+Y,2,0))

               SET ^(0)="^446.42DI^^"

           SET (DA(1),ENCTID)=+Y

           SET DIC=DIC_ENCTID_",2,"

           DO ^DIC

           if +Y<0

               GOTO Q5

           SET ENCTTI=+Y

 +4        WRITE !!,"Current Status is: ",$PIECE(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)

 +5        SET X="Are you sure you want to reschedule this data to process ?^Y"

           DO ENYN^ENCTQUES

           IF X="^"!'X

               WRITE !,"OK, nothing scheduled !",!

               GOTO Q5

 +6        SET ZTDTH=-1

           DO TASK^ENCTREAD

Q5         KILL DIC,DA

           QUIT 

DEQUE     ;

 +1        SET ENCT=$SELECT('$DATA(ENCTID):0,$DATA(^PRCT(446.4,ENCTID,0))#2:^(0),1:0)

           if ENCT=0

               GOTO Q4

           if $SELECT('$DATA(ENCTTI)

               GOTO Q4

 +2        IF $PIECE(ENCT,"^",4)=""

               DO TIME

               SET $PIECE(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)="RTN FLD IS MISSING"_Y

               GOTO Q4

 +3        SET X=$PIECE(ENCT,"^",4)

           DO RTN^ENCTUTL

           IF '$DATA(X)

               DO TIME

               SET $PIECE(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)="RTN IS MISSING"_Y

               GOTO Q4

 +4        DO TIME

           SET X=$PIECE(ENCT,"^",4)

           SET $PIECE(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3)="STARTED ON"_Y

           DO @($PIECE(X,"-")_"^"_$PIECE(X,"-",2))

           DO TIME

           if $EXTRACT($PIECE(^PRCT(446.4,ENCTID,2,ENCTTI,0),"^",3),1,11)="STARTED ON-"

               SET $PIECE(^(0),"^",3)="FINISHED ON"_Y

Q4         KILL ENCT,ENCTID,ENCTTI

           QUIT 

TIME       DO NOW^%DTC

           SET Y=%

           XECUTE ^DD("DD")

           SET Y="-"_Y

           QUIT