- BLRPCCBD ;IHS/OIT/MKK - IHS TaskMan "Busy Device" Report ;JUL 06, 2010 3:14 PM
- ;;5.2;IHS LABORATORY;**1025,1027**;NOV 01, 1997
- ;;
- EP ; EP
- NEW CNT,CNTTSK,TSK,ONE,ZERO,HEADER,STR,SDATE,STIME
- ;
- S (CNT,CNTTSK,TSK)=0
- S HEADER(1)="TASKMAN Listing"
- S HEADER(2)="'BUSY DEVICE' Tasks"
- S HEADER(3)=" "
- S $E(HEADER(4),1)="Task #"
- S $E(HEADER(4),13)="Date"
- S $E(HEADER(4),21)="Time"
- S $E(HEADER(4),31)="Routine"
- S $E(HEADER(4),41)="Description"
- ;
- F S TSK=$O(^%ZTSK(TSK)) Q:TSK=""!(TSK'?.N) D
- . S CNTTSK=CNTTSK+1
- . ;
- . ; Only HLLP processes
- . I $G(^%ZTSK(TSK,.03))'["HL7 Message Processor for Lab" Q
- . ;
- . S ONE=$$UP^XLFSTR($G(^%ZTSK(TSK,.1)))
- . I ONE'["RESCHEDULED FOR BUSY DEVICE" Q
- . ;
- . S ZERO=$G(^%ZTSK(TSK,0))
- . S SDATE=$$UP^XLFSTR($$HTE^XLFDT($P(ZERO,"^",5),"2PMZ"))
- . S STIME=$P(SDATE," ",2,3)
- . S SDATE=$P(SDATE," ",1)
- . ;
- . I CNT<1 D BLRGSHSH^BLRGMENU
- . W TSK
- . W ?10,SDATE,$J(STIME,9)
- . W ?30,$P(ZERO,"^",2)
- . W ?40,$E($G(^%ZTSK(TSK,.03)),1,40)
- . W !
- . S CNT=CNT+1
- ;
- W:CNT>0 !!,"Number of tasks that were rescheduled = ",CNT,!
- ; W:CNT<1 !!,"Number of tasks that were examined = ",CNTTSK,!
- ; ----- BEGIN IHS/OIT/MKK LR*5.2*1027 -- More explicit message
- I CNT<1 D
- . W !!,"Number of tasks that were examined = ",CNTTSK,!
- . W ?10,"No Tasks were rescheduled.",!!
- ; ----- END IHS/OIT/MKK LR*5.2*1027
- ;
- D PRESSKEY^BLRGMENU(10)
- ;
- Q
- BLRPCCBD ;IHS/OIT/MKK - IHS TaskMan "Busy Device" Report ;JUL 06, 2010 3:14 PM
- +1 ;;5.2;IHS LABORATORY;**1025,1027**;NOV 01, 1997
- +2 ;;
- EP ; EP
- +1 NEW CNT,CNTTSK,TSK,ONE,ZERO,HEADER,STR,SDATE,STIME
- +2 ;
- +3 SET (CNT,CNTTSK,TSK)=0
- +4 SET HEADER(1)="TASKMAN Listing"
- +5 SET HEADER(2)="'BUSY DEVICE' Tasks"
- +6 SET HEADER(3)=" "
- +7 SET $EXTRACT(HEADER(4),1)="Task #"
- +8 SET $EXTRACT(HEADER(4),13)="Date"
- +9 SET $EXTRACT(HEADER(4),21)="Time"
- +10 SET $EXTRACT(HEADER(4),31)="Routine"
- +11 SET $EXTRACT(HEADER(4),41)="Description"
- +12 ;
- +13 FOR
- SET TSK=$ORDER(^%ZTSK(TSK))
- IF TSK=""!(TSK'?.N)
- QUIT
- Begin DoDot:1
- +14 SET CNTTSK=CNTTSK+1
- +15 ;
- +16 ; Only HLLP processes
- +17 IF $GET(^%ZTSK(TSK,.03))'["HL7 Message Processor for Lab"
- QUIT
- +18 ;
- +19 SET ONE=$$UP^XLFSTR($GET(^%ZTSK(TSK,.1)))
- +20 IF ONE'["RESCHEDULED FOR BUSY DEVICE"
- QUIT
- +21 ;
- +22 SET ZERO=$GET(^%ZTSK(TSK,0))
- +23 SET SDATE=$$UP^XLFSTR($$HTE^XLFDT($PIECE(ZERO,"^",5),"2PMZ"))
- +24 SET STIME=$PIECE(SDATE," ",2,3)
- +25 SET SDATE=$PIECE(SDATE," ",1)
- +26 ;
- +27 IF CNT<1
- DO BLRGSHSH^BLRGMENU
- +28 WRITE TSK
- +29 WRITE ?10,SDATE,$JUSTIFY(STIME,9)
- +30 WRITE ?30,$PIECE(ZERO,"^",2)
- +31 WRITE ?40,$EXTRACT($GET(^%ZTSK(TSK,.03)),1,40)
- +32 WRITE !
- +33 SET CNT=CNT+1
- End DoDot:1
- +34 ;
- +35 IF CNT>0
- WRITE !!,"Number of tasks that were rescheduled = ",CNT,!
- +36 ; W:CNT<1 !!,"Number of tasks that were examined = ",CNTTSK,!
- +37 ; ----- BEGIN IHS/OIT/MKK LR*5.2*1027 -- More explicit message
- +38 IF CNT<1
- Begin DoDot:1
- +39 WRITE !!,"Number of tasks that were examined = ",CNTTSK,!
- +40 WRITE ?10,"No Tasks were rescheduled.",!!
- End DoDot:1
- +41 ; ----- END IHS/OIT/MKK LR*5.2*1027
- +42 ;
- +43 DO PRESSKEY^BLRGMENU(10)
- +44 ;
- +45 QUIT
