PRC5198P ;WOIFO/DAP-POST INSTALL TO PRC*5.1*98;05/18/06 ; 1/24/07 2:18pm
V ;;5.1;IFCAP;**98**;Oct 20,2000;Build 37
;Per VHA Directive 2004-038, this routine should not be modified
Q
;
INIT ;Entry point for routine that makes two calls out to EN^XPAR and sets
;two system level parameters to their desired initial values using
;methods detailed in IA #2263
;
N PRCPER,PRCPER1,ERRFLG,PRCPMG,PRCPAD
S ERRFLG=0
;
; Sets default value for PRC CLRS ADDRESS parameter
;
S PRCPAD="127.0.0.1"
D EN^XPAR("SYS","PRC CLRS ADDRESS",1,PRCPAD,.PRCPER)
I PRCPER=0 D BMES^XPDUTL("PRC CLRS ADDRESS successfully set to 127.0.0.1")
I PRCPER'=0 S ERRFLG=1 D BMES^XPDUTL("Error while trying to edit the PRC CLRS ADDRESS:") D MES^XPDUTL($P(PRCPER,"^",2))
;
; Sets default value for PRC CLRS OUTLOOK MAILGROUP parameter
;
S PRCPMG="VHACO10FPCLRS@e2k.domain.ext"
D EN^XPAR("SYS","PRC CLRS OUTLOOK MAILGROUP",1,PRCPMG,.PRCPER1)
I PRCPER1=0 D MES^XPDUTL("PRC CLRS OUTLOOK MAILGROUP successfully set to "_PRCPMG_" .")
I PRCPER1'=0 S ERRFLG=1 D MES^XPDUTL("Error while trying to edit the PRC CLRS OUTLOOK MAILGROUP:") D MES^XPDUTL($P(PRCPER1,"^",2))
;
D SETNEW
;
I ERRFLG=0 D MES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
I ERRFLG=1 D MES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
;
Q
BARCODE ; Modified Barcode Label print codes for Pri/Sec Inventory Point
; Pre-install process for PRC*5.1*98
;
; Print Template ^PRCT(446.5,IEN
; 1. Get "Primary/Secondary Label" IEN
; 2. Rename the label to "PRE-ODI PRIM-SECONDARY LABEL"
; 3. Reset the "B" cross refernce for this label
;
Q:+$O(^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",0))
N IEN
S IEN=$$FIND1^DIC(446.5,,"BX","PRIMARY/SECONDARY LABEL")
I 'IEN D Q
. D MES^XPDUTL("NO PRIMARY/SECONDARY LABEL FOUND BEFORE INSTALLATION.")
. D MES^XPDUTL("PRE-INSTALL COMPLETED SUCCESSFULLY!")
. Q
S $P(^PRCT(446.5,IEN,0),U,1)="PRE-ODI PRIM/SECONDARY LABEL"
S ^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",IEN)=""
K ^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",IEN)
;
D MES^XPDUTL("CUSTOM LABEL, PRIMARY/SECONDARY LABEL RENAMED TO PRE-ODI PRIM/SECONDARY LABEL.")
D MES^XPDUTL("PRE-INSTALL COMPLETED SUCCESSFULLY!")
Q
;
SETNEW ; Compile the new Print Label template "Primary/Secondary Label"
;
N COMP,DA,D0,D1,DIC,DIE,DLAYGO,DQ,DR,ERR,FLS,FLDS,I,J,LN,MULT,NL,N0
N P,PRCT,PRCTE,T,T1,X,Y,%DT
S DA=$O(^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",0)) Q:'DA
D COMP^PRCTRED
D MES^XPDUTL("NEW PRIMARY/SECONDARY LABEL COMPILE COMPLETED.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC5198P 2579 printed Apr 09, 2024@21:12:49 Page 2
PRC5198P ;WOIFO/DAP-POST INSTALL TO PRC*5.1*98;05/18/06 ; 1/24/07 2:18pm
V ;;5.1;IFCAP;**98**;Oct 20,2000;Build 37
+1 ;Per VHA Directive 2004-038, this routine should not be modified
+2 QUIT
+3 ;
INIT ;Entry point for routine that makes two calls out to EN^XPAR and sets
+1 ;two system level parameters to their desired initial values using
+2 ;methods detailed in IA #2263
+3 ;
+4 NEW PRCPER,PRCPER1,ERRFLG,PRCPMG,PRCPAD
+5 SET ERRFLG=0
+6 ;
+7 ; Sets default value for PRC CLRS ADDRESS parameter
+8 ;
+9 SET PRCPAD="127.0.0.1"
+10 DO EN^XPAR("SYS","PRC CLRS ADDRESS",1,PRCPAD,.PRCPER)
+11 IF PRCPER=0
DO BMES^XPDUTL("PRC CLRS ADDRESS successfully set to 127.0.0.1")
+12 IF PRCPER'=0
SET ERRFLG=1
DO BMES^XPDUTL("Error while trying to edit the PRC CLRS ADDRESS:")
DO MES^XPDUTL($PIECE(PRCPER,"^",2))
+13 ;
+14 ; Sets default value for PRC CLRS OUTLOOK MAILGROUP parameter
+15 ;
+16 SET PRCPMG="VHACO10FPCLRS@e2k.domain.ext"
+17 DO EN^XPAR("SYS","PRC CLRS OUTLOOK MAILGROUP",1,PRCPMG,.PRCPER1)
+18 IF PRCPER1=0
DO MES^XPDUTL("PRC CLRS OUTLOOK MAILGROUP successfully set to "_PRCPMG_" .")
+19 IF PRCPER1'=0
SET ERRFLG=1
DO MES^XPDUTL("Error while trying to edit the PRC CLRS OUTLOOK MAILGROUP:")
DO MES^XPDUTL($PIECE(PRCPER1,"^",2))
+20 ;
+21 DO SETNEW
+22 ;
+23 IF ERRFLG=0
DO MES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
+24 IF ERRFLG=1
DO MES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
+25 ;
+26 QUIT
BARCODE ; Modified Barcode Label print codes for Pri/Sec Inventory Point
+1 ; Pre-install process for PRC*5.1*98
+2 ;
+3 ; Print Template ^PRCT(446.5,IEN
+4 ; 1. Get "Primary/Secondary Label" IEN
+5 ; 2. Rename the label to "PRE-ODI PRIM-SECONDARY LABEL"
+6 ; 3. Reset the "B" cross refernce for this label
+7 ;
+8 if +$ORDER(^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",0))
QUIT
+9 NEW IEN
+10 SET IEN=$$FIND1^DIC(446.5,,"BX","PRIMARY/SECONDARY LABEL")
+11 IF 'IEN
Begin DoDot:1
+12 DO MES^XPDUTL("NO PRIMARY/SECONDARY LABEL FOUND BEFORE INSTALLATION.")
+13 DO MES^XPDUTL("PRE-INSTALL COMPLETED SUCCESSFULLY!")
+14 QUIT
End DoDot:1
QUIT
+15 SET $PIECE(^PRCT(446.5,IEN,0),U,1)="PRE-ODI PRIM/SECONDARY LABEL"
+16 SET ^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",IEN)=""
+17 KILL ^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",IEN)
+18 ;
+19 DO MES^XPDUTL("CUSTOM LABEL, PRIMARY/SECONDARY LABEL RENAMED TO PRE-ODI PRIM/SECONDARY LABEL.")
+20 DO MES^XPDUTL("PRE-INSTALL COMPLETED SUCCESSFULLY!")
+21 QUIT
+22 ;
SETNEW ; Compile the new Print Label template "Primary/Secondary Label"
+1 ;
+2 NEW COMP,DA,D0,D1,DIC,DIE,DLAYGO,DQ,DR,ERR,FLS,FLDS,I,J,LN,MULT,NL,N0
+3 NEW P,PRCT,PRCTE,T,T1,X,Y,%DT
+4 SET DA=$ORDER(^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",0))
if 'DA
QUIT
+5 DO COMP^PRCTRED
+6 DO MES^XPDUTL("NEW PRIMARY/SECONDARY LABEL COMPILE COMPLETED.")
+7 QUIT
+8 ;
