source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQPRKIL.m@ 1306

AAQPRKIL ;FGO/PJP - Stop running Print jobs ;09/22/97 [8/28/01 10:38am]

 ;;1.0;Local;;

 ;

 ; This routine will kill a process and remove an associated task

 ; from the task list, %ZTSCH("TASK",). You will be prompted for a

 ; print device and the routine will search all running jobs and

 ; display the job tied to that Device. 

 S FOUND=0 W ! S DIC="^%ZIS(1,",DIC(0)="AEMQZ",DIC("A")="Enter Printer Name: "  D ^DIC

 I Y=-1 G EXIT

 S PRINTER=$P(Y(0),"^",2)

 W !!,"If a print job is actively printing, answer the LOGOUT",!,"question with YES to continue with the kill process."

 W !!,"A print job stopped due to an Equinox port in XOFF state",!,"may resume printing after using LOGOUT to make the port available."

ASKLO S %=1 W !!,"Have you checked the port status to see if a LOGOUT is needed" D YN^DICN S AAQLO=% I %=0 W !!,"Answer 'Y' to continue with killing the job.",!,"Answer 'N' to check the port status first." G ASKLO

 I AAQLO=2 W !!,"Check the port, LOGOUT if needed, check port status for Accessed/Activity",!,"or us Examine Job to see if the job has resumed." R !!,"Press RETURN to continue:",DANS:15 W ! G EXIT

 ;; Taken from %ZAUG ;at/jas; birmingham ocio/albany ocio ;PROGRAM TO LIST JOBS AND PIDS

 S SW10=$V(0,-2,$ZU(40,0,1))\1024#2

 S BASE=$V($ZU(40,2,47),-2,"S")

 S MAXPID=$V($ZU(40,2,47)-(2*$ZU(40,0,4)),-2,4)

 F I=1:1:MAXPID S PID=$V(I*4+BASE,-3,4) S:PID JOB(PID)=PID

 S JJ="" F  S JJ=$O(JOB(JJ)) Q:(FOUND=1)!(JJ="")  D:$ZU(67,0,JJ)=2

 .S PID=JOB(JJ)

 .S XX=$V(-1,PID),PROG=$P(XX,"^",6),DEV=$P(XX,"^",3) S:PROG="" PROG="SystemJob"

 .I $G(^XUTL("XQ",PID,"DUZ")) S ZDUZ=^XUTL("XQ",PID,"DUZ") S:ZDUZ=0 ZDUZ=".5" S USER=$P(^VA(200,ZDUZ,0),"^",1)

 .; Do not allow the killing of a System Job or a % job.

 .I (DEV[PRINTER)&(PROG'["%")&(PROG'="SystemJob") D

 ..S FOUND=1

 ..S ^TMP($J,"DEV",PID)=XX

 ..S PADPID=PID_$E("      ",$L(PID)+1,6) ;pad pid for display

 ..S PADRTN=$P(XX,"^",6)_$E("           ",$L($P(XX,"^",6))+1,10) ;pad routine for display

 ..W !,!,"PID   ","ROUTINE   ","USER        ","       DEVICE "

 ..W !,"---   ","-------   ","----        ","       ------ "

 ..W !,PADPID,PADRTN,USER,"     ",$P(XX,"^",3),!

 ..D KILLIT

 I FOUND=0 W !,!,"...No job found using ",PRINTER,!

EXIT K %,AAQLO,BASE,DANS,DEV,DIC,FOUND,I,JJ,JOB,KILLED,MAXPID

 K PADPID,PADRTN,PID,PRINTER,PROG,RECORD,SW10,USER,TSK,TSKDEV,TSKPID,Y,XX,ZDUZ,ZTSK,^TMP($J,"DEV")

 Q

KILLIT K DIR

 S DIR(0)="Y"

 S DIR("A")="Are you sure you want to stop this process"

 S DIR("B")="NO"

 S DIR("?")="     Answer YES to kill the process."

 D ^DIR

 I 'Y W !,!,?5,"Tasks NOT stopped!",!

 I $D(DTOUT) W $C(7) G END

 K DIR,DIRUT,DTOUT,DUOUT

 I 'Y G END

 S KILLED=$$INT^ZZRESJOB(PID)

 I KILLED=0 W !,!,"...PROCESS DEAD OR NOT RESPONDING",!

 I KILLED=1 W !,!,"...PID# ",PID," has been stopped.",!

 S TSK=0 F I=0:0 S TSK=$O(^%ZTSCH("TASK",TSK)) Q:TSK=""  D

 .S RECORD=^%ZTSCH("TASK",TSK),TSKDEV=$P(RECORD,"^",6),TSKPID=$P(RECORD,"^",10)

 .I TSKPID=PID  D

 ..W !,"...PID# ",PID," was a tasked job.  Removing Task# ",TSK," from the task list.",! S ZTSK=TSK H 2

 ..L +^%ZTSCH("TASK",ZTSK)

 ..K ^%ZTSCH("TASK",ZTSK)

 ..W !?5,"...",ZTSK," removed."

 ..L -^%ZTSCH("TASK",ZTSK)

 ..W !?5,"...finished!",!

 ..R !,"...Press RETURN to continue:",DANS:15 W !

 Q

END S JJ=10000 ;Dirty exit should not have a process number higher

 Q