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

PRCVINIT.m

Go to the documentation of this file.
  1. PRCVINIT ;WOIFO/DAP-ITEM/VENDOR FILE INITIALIZATION CALLING; 05/23/05
  1. V ;;5.1;IFCAP;**81**;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. INIT ;Entry call for the routine, allows users to initialize
  1. ;the item and vendor file checksums while offering enhanced feedback
  1. ;
  1. ;Verify that site parameter is properly set for use of COTS Inventory Interface
  1. I $$GET^XPAR("SYS","PRCV COTS INVENTORY",1,"Q")'=1 W !,"The site parameter is not properly set for",!,"use of the COTS Inventory interface!",! Q
  1. ;
  1. ;If checksums have already been initialized for the site this routine will quit to avoid errors caused by re-initiating the checksums
  1. I $D(^PRCV(414.04,1,0)) W !,"Item or Vendor file checksum has already been initialized!",! Q
  1. ;
  1. W !,"Item file checksum initialization beginning...",!
  1. D INIT^PRCVIT
  1. I $D(^PRCV(414.04,1,0)) W !,"Item file checksum initialization complete!",!
  1. I '$D(^PRCV(414.04,1,0)) W !,"Item file checksum initialization failed!",! Q
  1. ;
  1. W !,"Vendor file checksum initialization beginning...",!
  1. D INIT^PRCVNDR
  1. I $D(^PRCV(414.04,2,0)) W !,"Vendor file checksum initialization complete!",!
  1. I '$D(^PRCV(414.04,2,0)) W !,"Vendor file checksum initialization failed!",! Q
  1. ;
  1. Q