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

PRC5198P.m

Go to the documentation of this file.
  1. PRC5198P ;WOIFO/DAP-POST INSTALL TO PRC*5.1*98;05/18/06 ; 1/24/07 2:18pm
  1. V ;;5.1;IFCAP;**98**;Oct 20,2000;Build 37
  1. ;Per VHA Directive 2004-038, this routine should not be modified
  1. Q
  1. ;
  1. 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
  1. ;methods detailed in IA #2263
  1. ;
  1. N PRCPER,PRCPER1,ERRFLG,PRCPMG,PRCPAD
  1. S ERRFLG=0
  1. ;
  1. ; Sets default value for PRC CLRS ADDRESS parameter
  1. ;
  1. S PRCPAD="127.0.0.1"
  1. D EN^XPAR("SYS","PRC CLRS ADDRESS",1,PRCPAD,.PRCPER)
  1. I PRCPER=0 D BMES^XPDUTL("PRC CLRS ADDRESS successfully set to 127.0.0.1")
  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))
  1. ;
  1. ; Sets default value for PRC CLRS OUTLOOK MAILGROUP parameter
  1. ;
  1. S PRCPMG="VHACO10FPCLRS@e2k.domain.ext"
  1. D EN^XPAR("SYS","PRC CLRS OUTLOOK MAILGROUP",1,PRCPMG,.PRCPER1)
  1. I PRCPER1=0 D MES^XPDUTL("PRC CLRS OUTLOOK MAILGROUP successfully set to "_PRCPMG_" .")
  1. 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))
  1. ;
  1. D SETNEW
  1. ;
  1. I ERRFLG=0 D MES^XPDUTL("POST-INSTALL COMPLETED SUCCESSFULLY!")
  1. I ERRFLG=1 D MES^XPDUTL("POST-INSTALL COMPLETED WITH ERRORS!!!")
  1. ;
  1. Q
  1. BARCODE ; Modified Barcode Label print codes for Pri/Sec Inventory Point
  1. ; Pre-install process for PRC*5.1*98
  1. ;
  1. ; Print Template ^PRCT(446.5,IEN
  1. ; 1. Get "Primary/Secondary Label" IEN
  1. ; 2. Rename the label to "PRE-ODI PRIM-SECONDARY LABEL"
  1. ; 3. Reset the "B" cross refernce for this label
  1. ;
  1. Q:+$O(^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",0))
  1. N IEN
  1. S IEN=$$FIND1^DIC(446.5,,"BX","PRIMARY/SECONDARY LABEL")
  1. I 'IEN D Q
  1. . D MES^XPDUTL("NO PRIMARY/SECONDARY LABEL FOUND BEFORE INSTALLATION.")
  1. . D MES^XPDUTL("PRE-INSTALL COMPLETED SUCCESSFULLY!")
  1. . Q
  1. S $P(^PRCT(446.5,IEN,0),U,1)="PRE-ODI PRIM/SECONDARY LABEL"
  1. S ^PRCT(446.5,"B","PRE-ODI PRIM/SECONDARY LABEL",IEN)=""
  1. K ^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",IEN)
  1. ;
  1. D MES^XPDUTL("CUSTOM LABEL, PRIMARY/SECONDARY LABEL RENAMED TO PRE-ODI PRIM/SECONDARY LABEL.")
  1. D MES^XPDUTL("PRE-INSTALL COMPLETED SUCCESSFULLY!")
  1. Q
  1. ;
  1. SETNEW ; Compile the new Print Label template "Primary/Secondary Label"
  1. ;
  1. N COMP,DA,D0,D1,DIC,DIE,DLAYGO,DQ,DR,ERR,FLS,FLDS,I,J,LN,MULT,NL,N0
  1. N P,PRCT,PRCTE,T,T1,X,Y,%DT
  1. S DA=$O(^PRCT(446.5,"B","PRIMARY/SECONDARY LABEL",0)) Q:'DA
  1. D COMP^PRCTRED
  1. D MES^XPDUTL("NEW PRIMARY/SECONDARY LABEL COMPILE COMPLETED.")
  1. Q
  1. ;