Routine: VENPCCMX

VENPCCMX ; IHS/OIT/GIS - PRINT DEAMON MONITOR 12 Feb 2004 10:12 AM ;

 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24

MON ; EP-MONITOR THE PRINT DEAMON

 N %,STOP,LAST,TOT

 S %=+$O(^TMP("VEN TASK",0)),LAST=$G(^TMP("VEN TASK",%))

 I '$D(^TMP("VEN TASK")) G:$$MSG(1) RPT Q

 W !,"The Print Deamon is being monitored"

RPT W !!

 F TOT=1:1 Q:$G(STOP)  D

 . S %=$O(^TMP("VEN TASK",0)) I '% D  Q

 .. S STOP=1

 .. S %=$O(^VEN(7.7,999999999),-1) I '% Q

 .. I '$P($G(^VEN(7.7,%,0)),U,6) W !,"Print Deamon encountered an error: ",$G(^(1))

 .. Q

 . S %=^TMP("VEN TASK",%) I %="" S STOP=1 Q

 . I TOT=60,%=LAST W !,"The Print Deamon appears to be stuck!",!,"It will be shut down now..." D KILLTASK^VENPCCP S STOP=1 Q

 . I TOT=60 S TOT=1,LAST=%

 . W $C(13),?70,$C(13)

 . W %

 . R %:1 E  Q

 . I %="^^" W !,"The Print Deamon has been stopped!" D KILLTASK^VENPCCP S STOP=1 Q

 . I %="" S STOP=1 Q

. Q

MSG(STATE) ; EP - START THE PRINT DEAMON MSG

 N %,%Y

 I $G(STATE) D

 . W !,"The Print Deamon does not appear to be running at this time!"

 . S %=$O(^VEN(7.7,999999999),-1) I '% Q

 . I '$P($G(^VEN(7.7,%,0)),U,6) W !,"It stopped with this error: ",$G(^(1))

. Q

 W !,"Want to start the Print Deamon now"

 S %=1 D YN^DICN I %'=1 Q 0

 I $D(^TMP("VEN TASK")) W !,"Print Deamon has been started!" Q 1

 X ("J "_U_"VENPCCP")

 W !,"Attempting to start the Print Deamon...  Please wait"

H 3

 I $D(^TMP("VEN TASK")) W !,"Print Deamon has been started!" Q 1

 W !,"Unable to start the Print Deamon!  Notify site manager..."

Q 0

STOP ; EP-STOP THE PRINT DEAMON

 I '$D(^TMP("VEN TASK")) W !,"The print deamon is not running at this time!" Q

 N %,%Y,CFIGIEN,PATH

 S CFIGIEN=$$CFG^VENPCCU

 S PATH=$G(^VEN(7.5,CFIGIEN,1))

 S %=$$COUNT^VENPCCP(PATH)

 I %=1 W !,"There is one file waiting to be processed by the Print Deamon" G SS

 I '% S %="no"

 W !,"There are ",%," files waiting to be processed by the Print Deamon"

SS W !,"Want to stop the Print Deamon now"

 S %=1 D YN^DICN I %'=1 Q

 D KILLTASK^VENPCCP K ^TMP("VEN ERROR FLAG")

S1 W !,"The Print Deamon has been stopped!"

START ; EP-START THE PRINT DEAMON

 I $$MSG(0)

RESTART ; EP-CLEAN OUT THE PRINT DIRECTORY AND RESTART THE PRINT DEAMON

 W !,"WARNING!!!",!,"This option will erase all files in the print queue and reset the system"

 W !,"Want to proceed" S %=2 D YN^DICN I %'=1 Q

 N PATH,F,CFIGIEN,%

 S PATH=$G(^VEN(7.5,+$$CFG^VENPCCU,1)) I '$L(PATH) W !,"Unable to find path in config file!.  Request terminated.",!! Q

 S F="*.txt"

 D DEL^VENPCCP(PATH,F) W !,"The Print Directory has been cleaned out.",!!

 D KILLTASK^VENPCCP K ^TMP("VEN ERROR FLAG")

 I $$MSG(0)

AUTO ; EP-AUTOMATICALLY START PCC PLUS PRINT DEAMON

 D KILLTASK^VENPCCP K ^TMP("VEN ERROR FLAG")

 X ("J "_U_"VENPCCP")

VENPCCMX  ; IHS/OIT/GIS - PRINT DEAMON MONITOR 12 Feb 2004 10:12 AM ;

 +1       ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24

 +2       ;

 +3       ;

 +4       ;

MON       ; EP-MONITOR THE PRINT DEAMON

 +1        NEW %,STOP,LAST,TOT

 +2        SET %=+$ORDER(^TMP("VEN TASK",0))

           SET LAST=$GET(^TMP("VEN TASK",%))

 +3        IF '$DATA(^TMP("VEN TASK"))

               IF $$MSG(1)

                   GOTO RPT

               QUIT

 +4        WRITE !,"The Print Deamon is being monitored"

RPT        WRITE !!

 +1        FOR TOT=1:1

               IF $GET(STOP)

                   QUIT

               Begin DoDot:1

 +2                SET %=$ORDER(^TMP("VEN TASK",0))

                   IF '%

                       Begin DoDot:2

 +3                        SET STOP=1

 +4                        SET %=$ORDER(^VEN(7.7,999999999),-1)

                           IF '%

                               QUIT

 +5                        IF '$PIECE($GET(^VEN(7.7,%,0)),U,6)

                               WRITE !,"Print Deamon encountered an error: ",$GET(^(1))

 +6                        QUIT

                       End DoDot:2

                       QUIT

 +7                SET %=^TMP("VEN TASK",%)

                   IF %=""

                       SET STOP=1

                       QUIT

 +8                IF TOT=60

                       IF %=LAST

                           WRITE !,"The Print Deamon appears to be stuck!",!,"It will be shut down now..."

                           DO KILLTASK^VENPCCP

                           SET STOP=1

                           QUIT

 +9                IF TOT=60

                       SET TOT=1

                       SET LAST=%

 +10               WRITE $CHAR(13),?70,$CHAR(13)

 +11               WRITE %

 +12               READ %:1

                  IF '$TEST

                       QUIT

 +13               IF %="^^"

                       WRITE !,"The Print Deamon has been stopped!"

                       DO KILLTASK^VENPCCP

                       SET STOP=1

                       QUIT

 +14               IF %=""

                       SET STOP=1

                       QUIT

 +15               QUIT

               End DoDot:1

 +16       QUIT

 +17      ;

MSG(STATE) ; EP - START THE PRINT DEAMON MSG

 +1        NEW %,%Y

 +2        IF $GET(STATE)

               Begin DoDot:1

 +3                WRITE !,"The Print Deamon does not appear to be running at this time!"

 +4                SET %=$ORDER(^VEN(7.7,999999999),-1)

                   IF '%

                       QUIT

 +5                IF '$PIECE($GET(^VEN(7.7,%,0)),U,6)

                       WRITE !,"It stopped with this error: ",$GET(^(1))

 +6                QUIT

               End DoDot:1

 +7        WRITE !,"Want to start the Print Deamon now"

 +8        SET %=1

           DO YN^DICN

           IF %'=1

               QUIT 0

 +9        IF $DATA(^TMP("VEN TASK"))

               WRITE !,"Print Deamon has been started!"

               QUIT 1

 +10       XECUTE ("J "_U_"VENPCCP")

 +11       WRITE !,"Attempting to start the Print Deamon...  Please wait"

 +12       HANG 3

 +13       IF $DATA(^TMP("VEN TASK"))

               WRITE !,"Print Deamon has been started!"

               QUIT 1

 +14       WRITE !,"Unable to start the Print Deamon!  Notify site manager..."

 +15       QUIT 0

 +16      ;

STOP      ; EP-STOP THE PRINT DEAMON

 +1        IF '$DATA(^TMP("VEN TASK"))

               WRITE !,"The print deamon is not running at this time!"

               QUIT

 +2        NEW %,%Y,CFIGIEN,PATH

 +3        SET CFIGIEN=$$CFG^VENPCCU

 +4        SET PATH=$GET(^VEN(7.5,CFIGIEN,1))

 +5        SET %=$$COUNT^VENPCCP(PATH)

 +6        IF %=1

               WRITE !,"There is one file waiting to be processed by the Print Deamon"

               GOTO SS

 +7        IF '%

               SET %="no"

 +8        WRITE !,"There are ",%," files waiting to be processed by the Print Deamon"

SS         WRITE !,"Want to stop the Print Deamon now"

 +1        SET %=1

           DO YN^DICN

           IF %'=1

               QUIT

 +2        DO KILLTASK^VENPCCP

           KILL ^TMP("VEN ERROR FLAG")

S1         WRITE !,"The Print Deamon has been stopped!"

 +1        QUIT

 +2       ;

START     ; EP-START THE PRINT DEAMON

 +1        IF $$MSG(0)

 +2        QUIT

 +3       ;

RESTART   ; EP-CLEAN OUT THE PRINT DIRECTORY AND RESTART THE PRINT DEAMON

 +1        WRITE !,"WARNING!!!",!,"This option will erase all files in the print queue and reset the system"

 +2        WRITE !,"Want to proceed"

           SET %=2

           DO YN^DICN

           IF %'=1

               QUIT

 +3        NEW PATH,F,CFIGIEN,%

 +4        SET PATH=$GET(^VEN(7.5,+$$CFG^VENPCCU,1))

           IF '$LENGTH(PATH)

               WRITE !,"Unable to find path in config file!.  Request terminated.",!!

               QUIT

 +5        SET F="*.txt"

 +6        DO DEL^VENPCCP(PATH,F)

           WRITE !,"The Print Directory has been cleaned out.",!!

 +7        DO KILLTASK^VENPCCP

           KILL ^TMP("VEN ERROR FLAG")

 +8        IF $$MSG(0)

 +9        QUIT

 +10      ;

AUTO      ; EP-AUTOMATICALLY START PCC PLUS PRINT DEAMON

 +1        DO KILLTASK^VENPCCP

           KILL ^TMP("VEN ERROR FLAG")

 +2        XECUTE ("J "_U_"VENPCCP")

 +3        QUIT

 +4       ;

VENPCCMX.m