Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VENPCCP3

VENPCCP3.m

Go to the documentation of this file. 
  1. VENPCCP3 ; IHS/OIT/GIS - PRINT DEAMON - MANAGE ERRORS, MISC. ASMU OPTIONS ; 
  1.  ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
  1.  ;
  1.  ; DEAD CODE IN 2.5
  1.  ;
  1. CLEAN ; EP-CLEAN OUT OLD Z FILES FROM THE PRINT DIRECTORY
  1.  I $G(CFIGIEN),$L($G(PATH)),$G(DT)
  1.  E  Q
  1.  I $P($G(^VEN(7.5,CFIGIEN,0)),U,22)=DT Q  ; CLEANUP ALREADY COMPLETED
  1.  N TMP,FILE,EIEN,%,DA,DR,DIE
  1.  S TMP="^TMP(""VEN Z CLEAN"","""_$J_""")"
  1.  D FILES^VENPCCP2(PATH,TMP)
  1.  S FILE="z" F  S FILE=$O(@TMP@(FILE)) Q:'$L(FILE)  D
  1.  . I $E(FILE)'="z" Q
  1.  . S EIEN=$O(^VEN(7.7,"F",FILE,0))
  1.  . I 'EIEN D DEL^VENPCCP1(PATH,FILE) Q  ; DELETE ALL Z FILES NOT ENERTERED IN ERROR LOG
  1.  . S %=$P($G(^VEN(7.7,EIEN,0)),U)
  1.  . I %'=DT D DEL^VENPCCP1(PATH,FILE) ; DELETE OLD Z FILES
  1.  . Q
  1.  K @TMP
  1.  S DIE="^VEN(7.5,",DA=CFIGIEN,DR=".22////"_DT L +^VEN(7.5,DA):0 I $T D ^DIE L -^VEN(7.5,DA)
  1.  D ^XBFMK
  1.  Q
  1.  ; 
  1. PATCH ; EP-PATCH VENPCCP & VENPCC TO INCLUDE NEW ERROR MANAGEMENT UTILITIES
  1.  W !,"Patch option has been disabled.  Request terminated..." Q
  1.  Q
  1.  ; 
  1. UNPATCH ; EP-REMOVE ERROR MANAGEMENT PATCHES FROM VENPCCP AND VENPCC 
  1.  W !,"Un-patch option has been disabled.  Request terminated..." Q
  1.  Q
  1.  ; 
  1. ELOG ; EP-PRINT ERROR LOG
  1.  N BY,FR,TO,FLDS,DIC,POP
  1.  S BY="+PRINT GROUP,@TIMESTAMP",(TO,FR)=",?",FLDS="[VENE ERROR LIST",DIC="^VEN(7.7,"
  1.  D EN1^DIP
  1.  Q
  1.  ; 
  1. BLOCK(TYPE) ; EP-BLOCK A CLINIC FOR REPAIRS
  1.  I '$L(TYPE) Q
  1.  N DIC,X,Y,DIE,DA,DR
  1.  S DIC("A")=$S(TYPE=1:"Stop",1:"Resume")_" printing PCC+ forms at what clinic: "
  1.  S DIC="^VEN(7.95,",DIC(0)="AEQ" D ^DIC I Y=-1 Q
  1.  S DIE=DIC,DA=+Y,DR="2.15////"_TYPE
  1.  L +^VEN(7.95,DA):0 I $T D ^DIE L -^VEN(7.95,DA)
  1.  D ^XBFMK
  1.  W !,"PCC+ forms will "_$S(TYPE:"not",1:"now")_" be printed at this clinic",!!
  1.  Q
  1.  ;
  1. MAX ; EP-SET THE MAXIMUM NUMBER OF "z" FILES FOR A CLINIC
  1.  N DIC,X,Y,DIE,DA,DR,MAX,A,B
  1.  S DIC("A")="Clinic name: "
  1.  S DIC="^VEN(7.95,",DIC(0)="AEQ" D ^DIC I Y=-1 Q
  1.  S DA=+Y,B=$P($G(^VEN(7.95,DA,2)),U,14) I B="" S B=20
  1.  S A="Maximum number of 'z' files allowed for this clinic"
  1.  S MAX=$$DIR^XBDIR("N^0:999:0",A,B)
  1.  I MAX?1."^" D ^XBFMK Q
  1.  S DIE=DIC,DR="2.14////^S X=MAX"
  1.  L +^VEN(7.95,DA):0 I $T D ^DIE L -^VEN(7.95,DA)
  1.  D ^XBFMK
  1.  W !,"For this clinic, A maximum of ",MAX," 'z' files will be allowed in the print folder.",!!
  1.  Q
  1.  ;
  1. CLN(TYPE) ; EP-TURN AUTO-CLEANUP ON/OFF
  1.  N DIE,DA,DR,X,Y,%
  1.  W !,"Want to turn ",$S(TYPE:"on",1:"off")," the auto cleanup feature for the PRINT folder"
  1.  S %="" D YN^DICN I %'=1 Q
  1.  S DA=$$CFG^VENPCCU I 'DA Q
  1.  S DIE="^VEN(7.5,",DR=".21////^S X=TYPE" L +^VEN(7.5,DA):0 I $T D ^DIE L -^VEN(7.5,DA)
  1.  D ^XBFMK
  1.  Q
  1.  ; 
  1. CLNYES ; EP-TURN ON AUTO CLEANUP
  1.  D CLN(1) Q
  1.  ; 
  1. CLNNO ; EP-TURN OFF AUTO CLEANUP
  1.  D CLN(0) Q
  1.  ;
  1. DV ; EP - DELETE A TEST VISIT, ASSOCIATED TEST V FILE ENTRIES, AND ASSOCIATED VEN QUEUE ENTRY
  1.  D GETPAT^APCDVDEL
  1.  I APCDPAT="" W !!,"No PATIENT selected!" D EOJ Q
  1.  D GETVISIT^APCDVDEL
  1.  I APCDVSIT="" W !!,"No VISIT selected!" D EOJ Q
  1.  D DSPLY^APCDVDEL
  1.  D DELETE^APCDVDEL
  1.  N DA,DIK S DA=$O(^VEN(7.2,"AV",APCDVSIT,0))
  1.  I DA S DIK="^VEN(7.2," D ^DIK ; CLEAN UP QUEUE FILE
  1. EOJ D EOJ^APCDVDEL
  1.  Q
  1.  ;
  1. BLOCKON ; EP-BLOCK PCC+ DOCUMENT GENERATION FOR A SPECIFIC CLINIC
  1.  D BLOCK(1) Q
  1.  ;
  1. BLOCKOFF ; EP-DON'T BLOCK PCC+ DOCUMENT GENERATION FOR A SPECIFIC CLINIC
  1.  D BLOCK(0) Q
  1.  ; 
  1. HE ; EP-ERROR HELPER
  1.  N DIC,X,Y
  1.  S DIC="^VEN(7.71,",DIC(0)="AEQM",DIC("A")="Enter error name or number: " D ^DIC I Y=-1 Q
  1.  S BY="ERROR NUMBER="_+Y,FLDS="[VENE ERROR HELPER",DHD="W ""PCC+ ERROR RESOLUTION"",!,""---------------------------""" D EN1^DIP
  1.  Q
  1.  ; 
  1. IP ; EP - RESET IP ADDRESSSES FOR THE PRINT SERVERS
  1.  N CFIGIEN,DIC,DIE,DA,DR,X,Y,IP1,IP2,IP4,IP5
  1.  S DA=$$CFG^VENPCCU,X=$G(^VEN(7.5,+DA,11))
  1.  S IP1=$P(X,U) I '$L(X) Q
  1.  S IP2=$P(X,U,2) I '$L(IP2) S IP2=IP1
  1.  S IP4=$P(X,U,4),IP5=$P(X,U,5)
  1.  I IP1=IP2,'$L(IP4) W !,"Both Print Servers already have the same IP address!  Request denied..." H 3 Q
  1.  I IP1=IP2 W !,"Want to reactivate both print servers" S %=1 D YN^DICN Q:%'=1  S DR="11.1////"_IP4_";11.2////"_IP5_";11.4///@;11.5///@" D IPDIE Q
  1.  S DIR(0)="SX^1:Shut down Print Server #1;2:Shut down Print Server #2;3:Quit"
  1.  S DIR("A")="Select an action:"
  1.  D ^DIR K DIR
  1.  I Y=1 S DR="11.1////"_IP2_";11.4////"_IP1_";11.5////"_IP2 D IPDIE Q
  1.  I Y=2 S DR="11.2////"_IP1_";11.4////"_IP1_";11.5////"_IP2 D IPDIE Q
  1.  Q
  1.  ;
  1. IPDIE S DIE=19707.5
  1.  L +^VEN(7.5,DA):0 I $T D ^DIE L -^VEN(7.5,DA)
  1.  D KILLTASK^VENPCCP
  1.  W !,"Resetting the Print Server IP addresses.  Please wait..." H 5
  1.  I $$MSG^VENPCCMX(0)
  1.  D ^XBFMK
  1.  Q
  1.  ;