VENPCCM2 ; IHS/OIT/GIS - MANAGE SYSTEM SYNCHRONIZATION PRINT DEAMON - ;
;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
;
; 2.5 HEADR FILE COMPARISON NO LONGER NEEDED
;
TSYNC(IP,IPA) ; EP-PRINT TEMPLATE SYNC
N TSN,STOP S STOP=0
F TSN=1,2 Q:$G(STOP) D TS1(TSN,$S(TSN=1:IP,1:IPA)) I IP=IPA Q
K ^TMP("VEN TSYNC")
Q
;
TS1(TSN,IP) ; EP-PRINT SERVICE PRINT TEMPLATES
N TS1,TS2,I,X,Y,RPMS,I,X,PCE,TIEN,OK,BAD,WARN
S PCE=0,(TS1,TS2,RPMS,OK,BAD,WARN)=""
F S PCE=$O(^TMP("VEN TSYNC",$J,TSN,PCE)) Q:'PCE S TS1=TS1_^(PCE)
S TS1=$$LOW^XLFSTR(TS1)
TS2 ; EP-RPMS PRINT TEMPLATES
S TIEN=0 F S TIEN=$O(^VEN(7.41,TIEN)) Q:'TIEN D
. S X=$P($G(^VEN(7.41,TIEN,0)),U),Y=$P($G(^(0)),U,3)
. I '$L(X)!('$L(Y)) Q
. I RPMS'="" S RPMS=RPMS_U,TS2=TS2_U
. S RPMS=RPMS_X,TS2=TS2_Y_"_template.doc"
. Q
S TS2=$$LOW^XLFSTR(TS2)
TSA ; ANALYZE PRINT TEMPLATES
F I=1:1:$L(TS2,U) S X=$P(TS2,U,I) I $L(X),X'["HS2_",X'["hs2_" D
. I (U_TS1_U)[(U_X_U) S:OK'="" OK=OK_U S OK=OK_X_" ("_$P(RPMS,U,I)_")" Q
. I BAD'="" S BAD=BAD_U
. S BAD=BAD_X_" ("_$P(RPMS,U,I)_")"
. Q
F I=1:1:$L(TS1,U) S X=$P(TS1,U,I) I $L(X),X'["HS2_",X'["hs2_",(U_TS2_U)'[(U_X_U) S:WARN'="" WARN=WARN_U S WARN=WARN_X
TSM ; STATUS MESSAGE
I TSN=2 W ! S STOP='$$WAIT^VENPCCU I STOP Q
I OK="",BAD="" W !?5,"VEN EHP EF TEMPLATES file is empty! At least 1 template must exist." Q
I OK="",WARN="" W !?5,"Print Service Templates folder is empty! At least 1 template must exist." Q
W !!,"Checking out templates on Print Server #",TSN," (",IP,")"
I $L(OK)>1 D
. W !?5,"PRINT TEMPLATE(S) properly synchronized on the RPMS and Print Servers:"
. F I=1:1:$L(OK,U) W !?10,$P(OK,U,I)
. Q
I $L(BAD)>1 W ! S STOP='$$WAIT^VENPCCU Q:STOP D
. W ?5,"PRINT TEMPLATE(S) entered in the VEN EHP EF TEMPLATES file, but",!?5,"not registered on the Print Server:"
. F I=1:1:$L(BAD,U) W !?10,$P(BAD,U,I)
. W !?5,"Either remove TEMPLATE(S) from VEN EHP EF TEMPLATES file OR",!?5,"add TEMPLATE(S) to the PCC+ Print Service. TO AVOID CRASHES, DO THIS NOW!"
. I $G(CFLG)=0 S CFLG=1
. Q
I $L(WARN)>1 W ! S STOP='$$WAIT^VENPCCU Q:STOP D
. W ?5,"PRINT TEMPLATE(S) registered in the PCC+ Print Service but not",!?5,"in the VEN EHP EF TEMPLATES file:"
. F I=1:1:$L(WARN,U) W !?10,$P(WARN,U,I)
. W !?5,"This will not cause any tech problems, but you will not be able to access",!?5,"a PRINT TEMPLATE unless it is entered in the VEN EHP EF TEMPLATES file"
. Q
Q
;
FS(FSN) ; EP-GET FILE FROM GLOBALS AND RETURN THE STRING
N STG,I,X,PCE
S PCE=0,STG=""
F S PCE=$O(^TMP("VEN FSYNC",$J,FSN,PCE)) Q:'PCE S STG=STG_^(PCE)
Q STG
;
S Z=2
I '$L($G(MN)) Q
N X,Y,%,IP,IPA,RH,PH,GBL,H,PATH,CFIGIEN,TOT,POP,SOCK,PPATH,TARGET,MSG,N,A,B,C,RSTG
S CFIGIEN=$$CFG^VENPCCU
I 'CFIGIEN W !?7,"Unable to locate thePCC+ configuration!" Q
S GBL=$NA(^TMP("VEN HVAL",$J)) K @GBL
S PATH=$G(^VEN(7.5,CFIGIEN,2))
I PATH="" W !?7,"Unable to find the Path to the header files on the RPMS Server!" Q
S PPATH="c:\program files\ilc\ilc forms print service\templates\"
S RH=MN_"header.txt",PH=MN_"_header.txt",TARGET=PPATH_PH,MSG="FILE_SEND^"_TARGET
S %=$G(^VEN(7.5,CFIGIEN,11)),IP=$P(%,U,1)
I IP="" W !?7,"Unable to find the Path to the header files on the Print Server(s)!" Q
S IPA=$P(%,U,2) I IPA="" S IPA=IP
S SOCK=$P(%,U,3) I SOCK="" S SOCK=5143
S Z=1 ; FROME HERE ON, ERRORS ARE NOT FATAL
S POP=$$OPN^VENPCCP(PATH,RH,"R","R RSTG") ; GET RPMS HEADER FILE
I POP!($G(RSTG)="") W !?7,"Unable to find the header file on the RPMS Server!" K @GBL Q
F TOT=1:1 S X=$E(RSTG,1,250),RSTG=$E(RSTG,251,99999),@GBL@(1,TOT)=X I RSTG="" Q ; RPMS HEADER GLOBAL
D GET^VENPCCM1(IP,SOCK,MSG,"^TMP(""VEN HVAL"",$J,2)")
I '$D(@GBL@(2,1)) W !?7,"Unable to find the header file on Print Server ",IP K @GBL Q
I IP=IPA G HCMP
D GET^VENPCCM1(IPA,SOCK,MSG,"^TMP(""VEN HVAL"",$J,3)")
I '$D(@GBL@(2,1)) W !?7,"Unable to find the header file on Print Server ",IPA K @GBL Q
HCMP S N=0,%=0 F S N=$O(@GBL@(1,N)) Q:'N D I % Q
. S A=$G(@GBL@(1,N)),B=$G(@GBL@(2,N)),C=$G(@GBL@(3,N))
. S X=$L(A) I X<250 S B=$E(B,1,X) I IP'=IPA S C=$E(C,1,X)
. I A'=B S %=1 W !?7,"The header file on RPMS server does not match the file on ",IP
. I IP'=IPA,A'=C S %=1 W !?7,"The header file on RPMS server does not match the file on ",IPA
. Q
I '% W !?7,"Header files valid/synchronized on RPMS Server & Print Server(s)",! S Z=0
K @GBL
Q
;
HDR(IP,IPA,PHDR,COMP) ; EP-COMPARE HEADER FILES
N FSN,CFIGIEN,POP,RSTG,PS,PATH
S CFIGIEN=$$CFG^VENPCCU
S PATH=$G(^VEN(7.5,CFIGIEN,2)) I PATH="" W !,"Unable to find the Path to the header files on the RPMS Server!" G HDRQ
S POP=$$OPN^VENPCCP(PATH,COMP,"R","R RSTG")
I POP W !,"Unable to find the header file '"_COMP_"' on the RPMS Server!" G HDRQ
F FSN=1,2 S PS="Print Server #"_FSN_" ("_$S(FSN=1:IP,1:IPA)_")" D HDR1(PS,RSTG,PHDR,COMP) I IP=IPA Q
HDRQ K ^TMP("VEN FSYNC",$J)
Q
;
HDR1(PS,RSTG,PHDR,COMP) ;
W !
N PSTG,X,Y,%
S PSTG=$$FS(FSN)
I PSTG="" W !,"Unable to locate the header file '",PHDR,"' on ",PS
I $P(PSTG,$C(13))'=RSTG W !,"The header file '",PHDR,"' on ",PS,!,"does not match the header file on the RPMS Server '",COMP,"'." Q
I $L(RSTG,U)*2'=($L(PSTG,U)+1) W !,"Invalid header file '",PHDR,"' on ",PS Q
W !,"Header files '",PHDR,"' on ",PS,!,"and '",COMP,"' on the RPMS Server are valid and synchronized."
Q
;
FILE(FILE,IP) ; EP-GIVEN A PATHFILE AND IP, RETURN THE FILE IN A STRING
N I,START,%,PCE,STG,CFIGIEN,SOCK
I $D(SOCKET) S SOCK=SOCKET
I '$D(SOCK) S SOCK=$P($G(^VEN(7.5,$$CFG^VENPCCU,11)),U,3) I 'SOCK Q ""
S ^TMP("VEN SYNC",$J)="FILE_GET"_U_FILE_U_IP_U_SOCK
I '$D(^TMP("VEN TASK")) S START=1 X "J"_" "_U_"VENPCCP" ; START THE PRINT DEAMON IF IT IS NOT RUNNING
F I=1:1:30 Q:$D(^TMP("VEN GETFILE",$J,0)) H 1
I '$D(^TMP("VEN GETFILE",$J,0)) Q ""
I $G(START) D KILLTASK^VENPCCP ; STOP THE PRINT DEAMON IF IT WASN'T RUNNING BEFORE THIS REQUEST
S STG=^TMP("VEN GETFILE",$J,0) I STG'="" K ^(0) Q STG
S PCE=0
F S PCE=$O(^TMP("VEN GETFILE",$J,PCE)) Q:'PCE S STG=STG_^(PCE)
K ^TMP("VEN GETFILE")
Q STG
;
TEMPLATE(IP) ; EP-RETURN THE TEMPLATE LIST FROM A PRINT SERVER
N I,START,%,SOCK,PCE,STG,CFIGIEN
I $G(SOCKET) S SOCK=SOCKET
I '$D(SOCK) S SOCK=$P($G(^VEN(7.5,$$CFG^VENPCCU,11)),U,3) I 'SOCK Q ""
S ^TMP("VEN SYNC",$J)="TEMP_GET"_U_IP_U_SOCK
I '$D(^TMP("VEN TASK")) S START=1 X "J"_" "_U_"VENPCCP" ; START THE PRINT DEAMON IF IT IS NOT RUNNING
F I=1:1:30 Q:$D(^TMP("VEN GETTEMP",$J,0)) H 1
I '$D(^TMP("VEN GETTEMP",$J,0)) Q ""
I $G(START) D KILLTASK^VENPCCP ; STOP THE PRINT DEAMON IF IT WASN'T RUNNING BEFORE THIS REQUEST
S STG=^TMP("VEN GETTEMP",$J,0) I STG'="" K ^(0) Q STG
S PCE=0
F S PCE=$O(^TMP("VEN GETTEMP",$J,PCE)) Q:'PCE S STG=STG_^(PCE)
K ^TMP("VEN GETTEMP")
Q STG
;
PGRP(IP) ; EP-RETURN THE PRINT GROUP LIST FROM A PRINT SERVER
N I,START,%,SOCK,PCE,STG,CFIGIEN
I $D(SOCKET) S SOCK=SOCKET
I '$D(SOCK) S SOCK=$P($G(^VEN(7.5,$$CFG^VENPCCU,11)),U,3) I 'SOCK Q ""
S ^TMP("VEN SYNC",$J)="PG_GET"_U_IP_U_SOCK
I '$D(^TMP("VEN TASK")) S START=1 X "J"_" "_U_"VENPCCP" ; START THE PRINT DEAMON IF IT IS NOT RUNNING
PGG F I=1:1:30 Q:$D(^TMP("VEN GETPG",$J,0)) H 1
I '$D(^TMP("VEN GETPG",$J,0)) Q ""
I $G(START) D KILLTASK^VENPCCP ; STOP THE PRINT DEAMON IF IT WASN'T RUNNING BEFORE THIS REQUEST
S STG=^TMP("VEN GETPG",$J,0) I STG'="" K ^(0) Q STG
S PCE=0
F S PCE=$O(^TMP("VEN GETPG",$J,PCE)) Q:'PCE S STG=STG_^(PCE)
K ^TMP("VEN GETPG")
Q STG
;
VENPCCM2 ; IHS/OIT/GIS - MANAGE SYSTEM SYNCHRONIZATION PRINT DEAMON - ;
+1 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
+2 ;
+3 ; 2.5 HEADR FILE COMPARISON NO LONGER NEEDED
+4 ;
TSYNC(IP,IPA) ; EP-PRINT TEMPLATE SYNC
+1 NEW TSN,STOP
SET STOP=0
+2 FOR TSN=1,2
IF $GET(STOP)
QUIT
DO TS1(TSN,$SELECT(TSN=1:IP,1:IPA))
IF IP=IPA
QUIT
+3 KILL ^TMP("VEN TSYNC")
+4 QUIT
+5 ;
TS1(TSN,IP) ; EP-PRINT SERVICE PRINT TEMPLATES
+1 NEW TS1,TS2,I,X,Y,RPMS,I,X,PCE,TIEN,OK,BAD,WARN
+2 SET PCE=0
SET (TS1,TS2,RPMS,OK,BAD,WARN)=""
+3 FOR
SET PCE=$ORDER(^TMP("VEN TSYNC",$JOB,TSN,PCE))
IF 'PCE
QUIT
SET TS1=TS1_^(PCE)
+4 SET TS1=$$LOW^XLFSTR(TS1)
TS2 ; EP-RPMS PRINT TEMPLATES
+1 SET TIEN=0
FOR
SET TIEN=$ORDER(^VEN(7.41,TIEN))
IF 'TIEN
QUIT
Begin DoDot:1
+2 SET X=$PIECE($GET(^VEN(7.41,TIEN,0)),U)
SET Y=$PIECE($GET(^(0)),U,3)
+3 IF '$LENGTH(X)!('$LENGTH(Y))
QUIT
+4 IF RPMS'=""
SET RPMS=RPMS_U
SET TS2=TS2_U
+5 SET RPMS=RPMS_X
SET TS2=TS2_Y_"_template.doc"
+6 QUIT
End DoDot:1
+7 SET TS2=$$LOW^XLFSTR(TS2)
TSA ; ANALYZE PRINT TEMPLATES
+1 FOR I=1:1:$LENGTH(TS2,U)
SET X=$PIECE(TS2,U,I)
IF $LENGTH(X)
IF X'["HS2_"
IF X'["hs2_"
Begin DoDot:1
+2 IF (U_TS1_U)[(U_X_U)
IF OK'=""
SET OK=OK_U
SET OK=OK_X_" ("_$PIECE(RPMS,U,I)_")"
QUIT
+3 IF BAD'=""
SET BAD=BAD_U
+4 SET BAD=BAD_X_" ("_$PIECE(RPMS,U,I)_")"
+5 QUIT
End DoDot:1
+6 FOR I=1:1:$LENGTH(TS1,U)
SET X=$PIECE(TS1,U,I)
IF $LENGTH(X)
IF X'["HS2_"
IF X'["hs2_"
IF (U_TS2_U)'[(U_X_U)
IF WARN'=""
SET WARN=WARN_U
SET WARN=WARN_X
TSM ; STATUS MESSAGE
+1 IF TSN=2
WRITE !
SET STOP='$$WAIT^VENPCCU
IF STOP
QUIT
+2 IF OK=""
IF BAD=""
WRITE !?5,"VEN EHP EF TEMPLATES file is empty! At least 1 template must exist."
QUIT
+3 IF OK=""
IF WARN=""
WRITE !?5,"Print Service Templates folder is empty! At least 1 template must exist."
QUIT
+4 WRITE !!,"Checking out templates on Print Server #",TSN," (",IP,")"
+5 IF $LENGTH(OK)>1
Begin DoDot:1
+6 WRITE !?5,"PRINT TEMPLATE(S) properly synchronized on the RPMS and Print Servers:"
+7 FOR I=1:1:$LENGTH(OK,U)
WRITE !?10,$PIECE(OK,U,I)
+8 QUIT
End DoDot:1
+9 IF $LENGTH(BAD)>1
WRITE !
SET STOP='$$WAIT^VENPCCU
IF STOP
QUIT
Begin DoDot:1
+10 WRITE ?5,"PRINT TEMPLATE(S) entered in the VEN EHP EF TEMPLATES file, but",!?5,"not registered on the Print Server:"
+11 FOR I=1:1:$LENGTH(BAD,U)
WRITE !?10,$PIECE(BAD,U,I)
+12 WRITE !?5,"Either remove TEMPLATE(S) from VEN EHP EF TEMPLATES file OR",!?5,"add TEMPLATE(S) to the PCC+ Print Service. TO AVOID CRASHES, DO THIS NOW!"
+13 IF $GET(CFLG)=0
SET CFLG=1
+14 QUIT
End DoDot:1
+15 IF $LENGTH(WARN)>1
WRITE !
SET STOP='$$WAIT^VENPCCU
IF STOP
QUIT
Begin DoDot:1
+16 WRITE ?5,"PRINT TEMPLATE(S) registered in the PCC+ Print Service but not",!?5,"in the VEN EHP EF TEMPLATES file:"
+17 FOR I=1:1:$LENGTH(WARN,U)
WRITE !?10,$PIECE(WARN,U,I)
+18 WRITE !?5,"This will not cause any tech problems, but you will not be able to access",!?5,"a PRINT TEMPLATE unless it is entered in the VEN EHP EF TEMPLATES file"
+19 QUIT
End DoDot:1
+20 QUIT
+21 ;
FS(FSN) ; EP-GET FILE FROM GLOBALS AND RETURN THE STRING
+1 NEW STG,I,X,PCE
+2 SET PCE=0
SET STG=""
+3 FOR
SET PCE=$ORDER(^TMP("VEN FSYNC",$JOB,FSN,PCE))
IF 'PCE
QUIT
SET STG=STG_^(PCE)
+4 QUIT STG
+5 ;
+1 SET Z=2
+2 IF '$LENGTH($GET(MN))
QUIT
+3 NEW X,Y,%,IP,IPA,RH,PH,GBL,H,PATH,CFIGIEN,TOT,POP,SOCK,PPATH,TARGET,MSG,N,A,B,C,RSTG
+4 SET CFIGIEN=$$CFG^VENPCCU
+5 IF 'CFIGIEN
WRITE !?7,"Unable to locate thePCC+ configuration!"
QUIT
+6 SET GBL=$NAME(^TMP("VEN HVAL",$JOB))
KILL @GBL
+7 SET PATH=$GET(^VEN(7.5,CFIGIEN,2))
+8 IF PATH=""
WRITE !?7,"Unable to find the Path to the header files on the RPMS Server!"
QUIT
+9 SET PPATH="c:\program files\ilc\ilc forms print service\templates\"
+10 SET RH=MN_"header.txt"
SET PH=MN_"_header.txt"
SET TARGET=PPATH_PH
SET MSG="FILE_SEND^"_TARGET
+11 SET %=$GET(^VEN(7.5,CFIGIEN,11))
SET IP=$PIECE(%,U,1)
+12 IF IP=""
WRITE !?7,"Unable to find the Path to the header files on the Print Server(s)!"
QUIT
+13 SET IPA=$PIECE(%,U,2)
IF IPA=""
SET IPA=IP
+14 SET SOCK=$PIECE(%,U,3)
IF SOCK=""
SET SOCK=5143
+15 ; FROME HERE ON, ERRORS ARE NOT FATAL
SET Z=1
+16 ; GET RPMS HEADER FILE
SET POP=$$OPN^VENPCCP(PATH,RH,"R","R RSTG")
+17 IF POP!($GET(RSTG)="")
WRITE !?7,"Unable to find the header file on the RPMS Server!"
KILL @GBL
QUIT
+18 ; RPMS HEADER GLOBAL
FOR TOT=1:1
SET X=$EXTRACT(RSTG,1,250)
SET RSTG=$EXTRACT(RSTG,251,99999)
SET @GBL@(1,TOT)=X
IF RSTG=""
QUIT
+19 DO GET^VENPCCM1(IP,SOCK,MSG,"^TMP(""VEN HVAL"",$J,2)")
+20 IF '$DATA(@GBL@(2,1))
WRITE !?7,"Unable to find the header file on Print Server ",IP
KILL @GBL
QUIT
+21 IF IP=IPA
GOTO HCMP
+22 DO GET^VENPCCM1(IPA,SOCK,MSG,"^TMP(""VEN HVAL"",$J,3)")
+23 IF '$DATA(@GBL@(2,1))
WRITE !?7,"Unable to find the header file on Print Server ",IPA
KILL @GBL
QUIT
HCMP SET N=0
SET %=0
FOR
SET N=$ORDER(@GBL@(1,N))
IF 'N
QUIT
Begin DoDot:1
+1 SET A=$GET(@GBL@(1,N))
SET B=$GET(@GBL@(2,N))
SET C=$GET(@GBL@(3,N))
+2 SET X=$LENGTH(A)
IF X<250
SET B=$EXTRACT(B,1,X)
IF IP'=IPA
SET C=$EXTRACT(C,1,X)
+3 IF A'=B
SET %=1
WRITE !?7,"The header file on RPMS server does not match the file on ",IP
+4 IF IP'=IPA
IF A'=C
SET %=1
WRITE !?7,"The header file on RPMS server does not match the file on ",IPA
+5 QUIT
End DoDot:1
IF %
QUIT
+6 IF '%
WRITE !?7,"Header files valid/synchronized on RPMS Server & Print Server(s)",!
SET Z=0
+7 KILL @GBL
+8 QUIT
+9 ;
HDR(IP,IPA,PHDR,COMP) ; EP-COMPARE HEADER FILES
+1 NEW FSN,CFIGIEN,POP,RSTG,PS,PATH
+2 SET CFIGIEN=$$CFG^VENPCCU
+3 SET PATH=$GET(^VEN(7.5,CFIGIEN,2))
IF PATH=""
WRITE !,"Unable to find the Path to the header files on the RPMS Server!"
GOTO HDRQ
+4 SET POP=$$OPN^VENPCCP(PATH,COMP,"R","R RSTG")
+5 IF POP
WRITE !,"Unable to find the header file '"_COMP_"' on the RPMS Server!"
GOTO HDRQ
+6 FOR FSN=1,2
SET PS="Print Server #"_FSN_" ("_$SELECT(FSN=1:IP,1:IPA)_")"
DO HDR1(PS,RSTG,PHDR,COMP)
IF IP=IPA
QUIT
HDRQ KILL ^TMP("VEN FSYNC",$JOB)
+1 QUIT
+2 ;
HDR1(PS,RSTG,PHDR,COMP) ;
+1 WRITE !
+2 NEW PSTG,X,Y,%
+3 SET PSTG=$$FS(FSN)
+4 IF PSTG=""
WRITE !,"Unable to locate the header file '",PHDR,"' on ",PS
+5 IF $PIECE(PSTG,$CHAR(13))'=RSTG
WRITE !,"The header file '",PHDR,"' on ",PS,!,"does not match the header file on the RPMS Server '",COMP,"'."
QUIT
+6 IF $LENGTH(RSTG,U)*2'=($LENGTH(PSTG,U)+1)
WRITE !,"Invalid header file '",PHDR,"' on ",PS
QUIT
+7 WRITE !,"Header files '",PHDR,"' on ",PS,!,"and '",COMP,"' on the RPMS Server are valid and synchronized."
+8 QUIT
+9 ;
FILE(FILE,IP) ; EP-GIVEN A PATHFILE AND IP, RETURN THE FILE IN A STRING
+1 NEW I,START,%,PCE,STG,CFIGIEN,SOCK
+2 IF $DATA(SOCKET)
SET SOCK=SOCKET
+3 IF '$DATA(SOCK)
SET SOCK=$PIECE($GET(^VEN(7.5,$$CFG^VENPCCU,11)),U,3)
IF 'SOCK
QUIT ""
+4 SET ^TMP("VEN SYNC",$JOB)="FILE_GET"_U_FILE_U_IP_U_SOCK
+5 ; START THE PRINT DEAMON IF IT IS NOT RUNNING
IF '$DATA(^TMP("VEN TASK"))
SET START=1
XECUTE "J"_" "_U_"VENPCCP"
+6 FOR I=1:1:30
IF $DATA(^TMP("VEN GETFILE",$JOB,0))
QUIT
HANG 1
+7 IF '$DATA(^TMP("VEN GETFILE",$JOB,0))
QUIT ""
+8 ; STOP THE PRINT DEAMON IF IT WASN'T RUNNING BEFORE THIS REQUEST
IF $GET(START)
DO KILLTASK^VENPCCP
+9 SET STG=^TMP("VEN GETFILE",$JOB,0)
IF STG'=""
KILL ^(0)
QUIT STG
+10 SET PCE=0
+11 FOR
SET PCE=$ORDER(^TMP("VEN GETFILE",$JOB,PCE))
IF 'PCE
QUIT
SET STG=STG_^(PCE)
+12 KILL ^TMP("VEN GETFILE")
+13 QUIT STG
+14 ;
TEMPLATE(IP) ; EP-RETURN THE TEMPLATE LIST FROM A PRINT SERVER
+1 NEW I,START,%,SOCK,PCE,STG,CFIGIEN
+2 IF $GET(SOCKET)
SET SOCK=SOCKET
+3 IF '$DATA(SOCK)
SET SOCK=$PIECE($GET(^VEN(7.5,$$CFG^VENPCCU,11)),U,3)
IF 'SOCK
QUIT ""
+4 SET ^TMP("VEN SYNC",$JOB)="TEMP_GET"_U_IP_U_SOCK
+5 ; START THE PRINT DEAMON IF IT IS NOT RUNNING
IF '$DATA(^TMP("VEN TASK"))
SET START=1
XECUTE "J"_" "_U_"VENPCCP"
+6 FOR I=1:1:30
IF $DATA(^TMP("VEN GETTEMP",$JOB,0))
QUIT
HANG 1
+7 IF '$DATA(^TMP("VEN GETTEMP",$JOB,0))
QUIT ""
+8 ; STOP THE PRINT DEAMON IF IT WASN'T RUNNING BEFORE THIS REQUEST
IF $GET(START)
DO KILLTASK^VENPCCP
+9 SET STG=^TMP("VEN GETTEMP",$JOB,0)
IF STG'=""
KILL ^(0)
QUIT STG
+10 SET PCE=0
+11 FOR
SET PCE=$ORDER(^TMP("VEN GETTEMP",$JOB,PCE))
IF 'PCE
QUIT
SET STG=STG_^(PCE)
+12 KILL ^TMP("VEN GETTEMP")
+13 QUIT STG
+14 ;
PGRP(IP) ; EP-RETURN THE PRINT GROUP LIST FROM A PRINT SERVER
+1 NEW I,START,%,SOCK,PCE,STG,CFIGIEN
+2 IF $DATA(SOCKET)
SET SOCK=SOCKET
+3 IF '$DATA(SOCK)
SET SOCK=$PIECE($GET(^VEN(7.5,$$CFG^VENPCCU,11)),U,3)
IF 'SOCK
QUIT ""
+4 SET ^TMP("VEN SYNC",$JOB)="PG_GET"_U_IP_U_SOCK
+5 ; START THE PRINT DEAMON IF IT IS NOT RUNNING
IF '$DATA(^TMP("VEN TASK"))
SET START=1
XECUTE "J"_" "_U_"VENPCCP"
PGG FOR I=1:1:30
IF $DATA(^TMP("VEN GETPG",$JOB,0))
QUIT
HANG 1
+1 IF '$DATA(^TMP("VEN GETPG",$JOB,0))
QUIT ""
+2 ; STOP THE PRINT DEAMON IF IT WASN'T RUNNING BEFORE THIS REQUEST
IF $GET(START)
DO KILLTASK^VENPCCP
+3 SET STG=^TMP("VEN GETPG",$JOB,0)
IF STG'=""
KILL ^(0)
QUIT STG
+4 SET PCE=0
+5 FOR
SET PCE=$ORDER(^TMP("VEN GETPG",$JOB,PCE))
IF 'PCE
QUIT
SET STG=STG_^(PCE)
+6 KILL ^TMP("VEN GETPG")
+7 QUIT STG
+8 ;
