BOPTBS ;IHS/ILC/ALG/CIA/PLS - troubleshooting ;13-Apr-2006 10:18;SM
;;1.0;AUTOMATED DISPENSING INTERFACE;**1**;Jul 26, 2005
;EP - Called by BOP FUTURE TASK LIST option
C S (BOPOXX,BOPOX)="BOP"
;
FUT ;Searching Future tasks.
N DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTH,ZTS
K ^TMP($J)
S ZTC=0,ZTF=1,ZTH="Scheduled and waiting tasks..."
W !!,"Building sorted list of tasks..."
;
F1 S ZT1="" F S ZT1=$O(^%ZTSCH("JOB",ZT1)) Q:ZT1="" D
.S ZT2="" F S ZT2=$O(^%ZTSCH("JOB",ZT1,ZT2)) Q:'ZT2 D
..D SORT(ZT1,ZT2)
;
F2 S ZT1=$$H3^%ZTM($H) F S ZT1=$O(^%ZTSCH(ZT1)) Q:'ZT1 D
.S ZTS=0 F S ZTS=$O(^%ZTSCH(ZT1,ZTS)) Q:'ZTS D
..D SORT(ZT1,ZTS)
;
F3 S ZT1="" F S ZT1=$O(^%ZTSCH("IO",ZT1)) Q:ZT1="" D
.S ZT2="" F S ZT2=$O(^%ZTSCH("IO",ZT1,ZT2)) Q:'ZT2 D
..S ZT3=0 F S ZT3=$O(^%ZTSCH("IO",ZT1,ZT2,ZT3)) Q:ZT3="" D
...D SORT(ZT2,ZT3)
;
F4 S ZT1="" F S ZT1=$O(^%ZTSCH("LINK",ZT1)) Q:'ZT1 D
.S ZT2="" F S ZT2=$O(^%ZTSCH("LINK",ZT1,ZT2)) Q:'ZT2 D
..S ZTS=0 F S ZTS=$O(^%ZTSCH("LINK",ZT1,ZT2,ZTS)) Q:'ZTS D
...D SORT(ZT2,ZTS)
W "finished!"
F5 ;
G:$O(^TMP($J,0))="" F6
S BOPOERR=0
S BOPOI=0 F S BOPOI=$O(^TMP($J,BOPOI)) Q:BOPOI="" S BOPOJ=0 F S BOPOJ=$O(^TMP($J,BOPOI,BOPOJ)) Q:BOPOJ="" D
.S DATA=$G(^%ZTSK(BOPOJ,0)) I $P(DATA,"^",2)[BOPOX D
..S BOPOERR=1
..F I=1:1:10 S BOPOE(I)=$P(DATA,"^",I)
..F I=5,6 S BOPOF(I)=$$HTE^XLFDT(BOPOE(I),"2Z")
..W !,"Task No. ",BOPOJ
..W !,"Routine: ",BOPOE(2)
..W !,"Creation time: ",BOPOF(5)
..W !,"Sched. Run Time: ",BOPOF(6)
..W !,"Scheduled by: ",BOPOE(10)
..W !
I 'BOPOERR W !!,"No future task scheduled for "_BOPOX
K ^TMP($J)
Q
;
F6 I 'ZTC W !!,"There are no future tasks on this volume set."
W ! S DIR(0)="E",DIR("A")="Press RETURN to continue" D
.I ZTC S DIR("A")="End of listing. "_DIR("A")
D ^DIR K ^TMP($J) Q
;
SORT(ZTDTH,ZTSK) ;
I ZTDTH["," S ZTDTH=$$H3^%ZTM(ZTDTH)
S ^TMP($J,ZTDTH,ZTSK)=""
Q
;
BOPOR ; EP - troubleshoot menu option
;Called by BOP RUN TASK LIST option
S BOPOI=0,BOPOJ=0
S BOPOII="Info from running task file: "
F S BOPOI=$O(^%ZTSCH("TASK",BOPOI)) Q:BOPOI<1 D
.Q:'$D(^%ZTSK(BOPOI))
.S DATA=^%ZTSK(BOPOI,0)
.I $P(DATA,"^",2)["BOP" D BOPOP
W !!
I 'BOPOJ D
.S BOPOII="Info from the Site Parameter file: "
.S ZTSK=$P($G(^BOP(90355,1,4)),"^",3)
.I 'ZTSK Q
.D STAT^%ZTLOAD I $G(ZTSK(0)),$G(ZTSK(1))=1 S BOPOI=ZTSK,DATA=^%ZTSK(BOPOI,0) D BOPOP
S BOPOII=""
I 'BOPOJ W !!!,"There is no running task in ""BOP"" namespace."
Q
BOPOP ;
W !,BOPOII
W !,"The running task is scheduled....",!
S BOPOJ=1
W !,"Task No. ",BOPOI
W !,"Routine: ",$P(DATA,U,2)
W !,"Creation time: ",$$HTE^XLFDT($P(DATA,U,5),"2Z")
W !,"Sched. Run Time: ",$$HTE^XLFDT($P(DATA,U,6),"2Z")
W !,"Scheduled by: ",$P(DATA,U,10)
W !
Q
;
DONE ;EP - Look at the last entry that is done
;Called by BOP CHECK TRANSACTIONS option
N BOPOI,ANS,BOPOX
S BOPOX=0
W !,"Print out the last entry in the log 10 times. This number should change."
W !,"If it doesn't, the interface isn't moving data."
W !,"To stop before 10 cycles are done, enter any number."
W !!,"IEN #",?11,"Patient",?38,"SSN",?44,"Log in date/time"
W !,"-----",?11,"-------",?38,"---",?44,"----------------"
F I=1:1:10 H 2 S BOPOI=^BOP(90355.1,0) S BOPOI=$O(^BOP(90355.1,"AS",0,0)) D Q:'BOPOI D:I=10 REMOVE Q:BOPOX
.I 'BOPOI W !,"NO DATA TO TRANSFER" Q
.W !,BOPOI,?11,$E($P(^BOP(90355.1,BOPOI,1),U,3),1,25),?38,$E($P(^(1),U,15),6,9),?44,$P(^(0),U)
.W ! S DIR(0)="NO",DIR("T")=1 D ^DIR K DIR
.I X?.N D REMOVE
Q
;
REMOVE ;remove an "AS" record
N BOPMGRP
S BOPWHO=$$INTFACE^BOPTU(1) S BOPWHO=$S(BOPWHO="O":"OMNICELL",1:"PYXIS")
N DIR,X,Y S DIR("A")="Do you want to remove this ""AS"" cross reference from this file"
S DIR(0)="YO",DIR("B")="YES"
S DIR("?")=" "
S DIR("?",1)="Enter YES to remove crossreference"
S DIR("?",2)="Enter NO to retain crossreference"
S DIR("?",3)="Enter an '^' to exit."
D ^DIR
S:$G(DUOUT)!$G(DTOUT) BOPOX=1 I 'Y W !,"No changes made" Q
I Y K ^BOP(90355.1,"AS",0,BOPOI) W !,"DONE. Sending a "_$G(BOPWHO)_" Alert notice" D
.S BOPMGRP=$$GET1^DIQ(90355,1,.06)
.I BOPMGRP="" D
..S XMY(DUZ)=""
.E D
..S XMY("G."_BOPMGRP)=""
.;send mail message
.N TEXT,XMTEXT,XMY,XMSUB,XMZ,TEXT
.S XMDUZ="ADS INTERFACE"
.S TEXT(1)="The ""AS"" cross-reference for the following BOP Queue file (90355.1)"
.S TEXT(2)="has been deleted. Please examine the record data."
.S TEXT(3)=BOPOI_" "_$E($P(^BOP(90355.1,BOPOI,1),U,3),1,25)_" "_$E($P(^(1),U,15),6,9)_" "_$P(^(0),U)
.S XMTEXT="TEXT(",XMSUB=$G(BOPWHO)_" Record Fault" D ^XMD
Q
BOPTBS ;IHS/ILC/ALG/CIA/PLS - troubleshooting ;13-Apr-2006 10:18;SM
+1 ;;1.0;AUTOMATED DISPENSING INTERFACE;**1**;Jul 26, 2005
+2 ;EP - Called by BOP FUTURE TASK LIST option
C SET (BOPOXX,BOPOX)="BOP"
+1 ;
FUT ;Searching Future tasks.
+1 NEW DIR,DIRUT,DTOUT,DUOUT,X,ZT,ZT1,ZT2,ZT3,ZTC,ZTF,ZTH,ZTS
+2 KILL ^TMP($JOB)
+3 SET ZTC=0
SET ZTF=1
SET ZTH="Scheduled and waiting tasks..."
+4 WRITE !!,"Building sorted list of tasks..."
+5 ;
F1 SET ZT1=""
FOR
SET ZT1=$ORDER(^%ZTSCH("JOB",ZT1))
IF ZT1=""
QUIT
Begin DoDot:1
+1 SET ZT2=""
FOR
SET ZT2=$ORDER(^%ZTSCH("JOB",ZT1,ZT2))
IF 'ZT2
QUIT
Begin DoDot:2
+2 DO SORT(ZT1,ZT2)
End DoDot:2
End DoDot:1
+3 ;
F2 SET ZT1=$$H3^%ZTM($HOROLOG)
FOR
SET ZT1=$ORDER(^%ZTSCH(ZT1))
IF 'ZT1
QUIT
Begin DoDot:1
+1 SET ZTS=0
FOR
SET ZTS=$ORDER(^%ZTSCH(ZT1,ZTS))
IF 'ZTS
QUIT
Begin DoDot:2
+2 DO SORT(ZT1,ZTS)
End DoDot:2
End DoDot:1
+3 ;
F3 SET ZT1=""
FOR
SET ZT1=$ORDER(^%ZTSCH("IO",ZT1))
IF ZT1=""
QUIT
Begin DoDot:1
+1 SET ZT2=""
FOR
SET ZT2=$ORDER(^%ZTSCH("IO",ZT1,ZT2))
IF 'ZT2
QUIT
Begin DoDot:2
+2 SET ZT3=0
FOR
SET ZT3=$ORDER(^%ZTSCH("IO",ZT1,ZT2,ZT3))
IF ZT3=""
QUIT
Begin DoDot:3
+3 DO SORT(ZT2,ZT3)
End DoDot:3
End DoDot:2
End DoDot:1
+4 ;
F4 SET ZT1=""
FOR
SET ZT1=$ORDER(^%ZTSCH("LINK",ZT1))
IF 'ZT1
QUIT
Begin DoDot:1
+1 SET ZT2=""
FOR
SET ZT2=$ORDER(^%ZTSCH("LINK",ZT1,ZT2))
IF 'ZT2
QUIT
Begin DoDot:2
+2 SET ZTS=0
FOR
SET ZTS=$ORDER(^%ZTSCH("LINK",ZT1,ZT2,ZTS))
IF 'ZTS
QUIT
Begin DoDot:3
+3 DO SORT(ZT2,ZTS)
End DoDot:3
End DoDot:2
End DoDot:1
+4 WRITE "finished!"
F5 ;
+1 IF $ORDER(^TMP($JOB,0))=""
GOTO F6
+2 SET BOPOERR=0
+3 SET BOPOI=0
FOR
SET BOPOI=$ORDER(^TMP($JOB,BOPOI))
IF BOPOI=""
QUIT
SET BOPOJ=0
FOR
SET BOPOJ=$ORDER(^TMP($JOB,BOPOI,BOPOJ))
IF BOPOJ=""
QUIT
Begin DoDot:1
+4 SET DATA=$GET(^%ZTSK(BOPOJ,0))
IF $PIECE(DATA,"^",2)[BOPOX
Begin DoDot:2
+5 SET BOPOERR=1
+6 FOR I=1:1:10
SET BOPOE(I)=$PIECE(DATA,"^",I)
+7 FOR I=5,6
SET BOPOF(I)=$$HTE^XLFDT(BOPOE(I),"2Z")
+8 WRITE !,"Task No. ",BOPOJ
+9 WRITE !,"Routine: ",BOPOE(2)
+10 WRITE !,"Creation time: ",BOPOF(5)
+11 WRITE !,"Sched. Run Time: ",BOPOF(6)
+12 WRITE !,"Scheduled by: ",BOPOE(10)
+13 WRITE !
End DoDot:2
End DoDot:1
+14 IF 'BOPOERR
WRITE !!,"No future task scheduled for "_BOPOX
+15 KILL ^TMP($JOB)
+16 QUIT
+17 ;
F6 IF 'ZTC
WRITE !!,"There are no future tasks on this volume set."
+1 WRITE !
SET DIR(0)="E"
SET DIR("A")="Press RETURN to continue"
Begin DoDot:1
+2 IF ZTC
SET DIR("A")="End of listing. "_DIR("A")
End DoDot:1
+3 DO ^DIR
KILL ^TMP($JOB)
QUIT
+4 ;
SORT(ZTDTH,ZTSK) ;
+1 IF ZTDTH[","
SET ZTDTH=$$H3^%ZTM(ZTDTH)
+2 SET ^TMP($JOB,ZTDTH,ZTSK)=""
+3 QUIT
+4 ;
BOPOR ; EP - troubleshoot menu option
+1 ;Called by BOP RUN TASK LIST option
+2 SET BOPOI=0
SET BOPOJ=0
+3 SET BOPOII="Info from running task file: "
+4 FOR
SET BOPOI=$ORDER(^%ZTSCH("TASK",BOPOI))
IF BOPOI<1
QUIT
Begin DoDot:1
+5 IF '$DATA(^%ZTSK(BOPOI))
QUIT
+6 SET DATA=^%ZTSK(BOPOI,0)
+7 IF $PIECE(DATA,"^",2)["BOP"
DO BOPOP
End DoDot:1
+8 WRITE !!
+9 IF 'BOPOJ
Begin DoDot:1
+10 SET BOPOII="Info from the Site Parameter file: "
+11 SET ZTSK=$PIECE($GET(^BOP(90355,1,4)),"^",3)
+12 IF 'ZTSK
QUIT
+13 DO STAT^%ZTLOAD
IF $GET(ZTSK(0))
IF $GET(ZTSK(1))=1
SET BOPOI=ZTSK
SET DATA=^%ZTSK(BOPOI,0)
DO BOPOP
End DoDot:1
+14 SET BOPOII=""
+15 IF 'BOPOJ
WRITE !!!,"There is no running task in ""BOP"" namespace."
+16 QUIT
BOPOP ;
+1 WRITE !,BOPOII
+2 WRITE !,"The running task is scheduled....",!
+3 SET BOPOJ=1
+4 WRITE !,"Task No. ",BOPOI
+5 WRITE !,"Routine: ",$PIECE(DATA,U,2)
+6 WRITE !,"Creation time: ",$$HTE^XLFDT($PIECE(DATA,U,5),"2Z")
+7 WRITE !,"Sched. Run Time: ",$$HTE^XLFDT($PIECE(DATA,U,6),"2Z")
+8 WRITE !,"Scheduled by: ",$PIECE(DATA,U,10)
+9 WRITE !
+10 QUIT
+11 ;
DONE ;EP - Look at the last entry that is done
+1 ;Called by BOP CHECK TRANSACTIONS option
+2 NEW BOPOI,ANS,BOPOX
+3 SET BOPOX=0
+4 WRITE !,"Print out the last entry in the log 10 times. This number should change."
+5 WRITE !,"If it doesn't, the interface isn't moving data."
+6 WRITE !,"To stop before 10 cycles are done, enter any number."
+7 WRITE !!,"IEN #",?11,"Patient",?38,"SSN",?44,"Log in date/time"
+8 WRITE !,"-----",?11,"-------",?38,"---",?44,"----------------"
+9 FOR I=1:1:10
HANG 2
SET BOPOI=^BOP(90355.1,0)
SET BOPOI=$ORDER(^BOP(90355.1,"AS",0,0))
Begin DoDot:1
+10 IF 'BOPOI
WRITE !,"NO DATA TO TRANSFER"
QUIT
+11 WRITE !,BOPOI,?11,$EXTRACT($PIECE(^BOP(90355.1,BOPOI,1),U,3),1,25),?38,$EXTRACT($PIECE(^(1),U,15),6,9),?44,$PIECE(^(0),U)
+12 WRITE !
SET DIR(0)="NO"
SET DIR("T")=1
DO ^DIR
KILL DIR
+13 IF X?.N
DO REMOVE
End DoDot:1
IF 'BOPOI
QUIT
IF I=10
DO REMOVE
IF BOPOX
QUIT
+14 QUIT
+15 ;
REMOVE ;remove an "AS" record
+1 NEW BOPMGRP
+2 SET BOPWHO=$$INTFACE^BOPTU(1)
SET BOPWHO=$SELECT(BOPWHO="O":"OMNICELL",1:"PYXIS")
+3 NEW DIR,X,Y
SET DIR("A")="Do you want to remove this ""AS"" cross reference from this file"
+4 SET DIR(0)="YO"
SET DIR("B")="YES"
+5 SET DIR("?")=" "
+6 SET DIR("?",1)="Enter YES to remove crossreference"
+7 SET DIR("?",2)="Enter NO to retain crossreference"
+8 SET DIR("?",3)="Enter an '^' to exit."
+9 DO ^DIR
+10 IF $GET(DUOUT)!$GET(DTOUT)
SET BOPOX=1
IF 'Y
WRITE !,"No changes made"
QUIT
+11 IF Y
KILL ^BOP(90355.1,"AS",0,BOPOI)
WRITE !,"DONE. Sending a "_$GET(BOPWHO)_" Alert notice"
Begin DoDot:1
+12 SET BOPMGRP=$$GET1^DIQ(90355,1,.06)
+13 IF BOPMGRP=""
Begin DoDot:2
+14 SET XMY(DUZ)=""
End DoDot:2
+15 IF '$TEST
Begin DoDot:2
+16 SET XMY("G."_BOPMGRP)=""
End DoDot:2
+17 ;send mail message
+18 NEW TEXT,XMTEXT,XMY,XMSUB,XMZ,TEXT
+19 SET XMDUZ="ADS INTERFACE"
+20 SET TEXT(1)="The ""AS"" cross-reference for the following BOP Queue file (90355.1)"
+21 SET TEXT(2)="has been deleted. Please examine the record data."
+22 SET TEXT(3)=BOPOI_" "_$EXTRACT($PIECE(^BOP(90355.1,BOPOI,1),U,3),1,25)_" "_$EXTRACT($PIECE(^(1),U,15),6,9)_" "_$PIECE(^(0),U)
+23 SET XMTEXT="TEXT("
SET XMSUB=$GET(BOPWHO)_" Record Fault"
DO ^XMD
End DoDot:1
+24 QUIT
