| [613] | 1 | PRCVINIT ;WOIFO/DAP-ITEM/VENDOR FILE INITIALIZATION CALLING; 05/23/05
|
|---|
| 2 | V ;;5.1;IFCAP;**81**;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | INIT ;Entry call for the routine, allows users to initialize
|
|---|
| 8 | ;the item and vendor file checksums while offering enhanced feedback
|
|---|
| 9 | ;
|
|---|
| 10 | ;Verify that site parameter is properly set for use of COTS Inventory Interface
|
|---|
| 11 | 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
|
|---|
| 12 | ;
|
|---|
| 13 | ;If checksums have already been initialized for the site this routine will quit to avoid errors caused by re-initiating the checksums
|
|---|
| 14 | I $D(^PRCV(414.04,1,0)) W !,"Item or Vendor file checksum has already been initialized!",! Q
|
|---|
| 15 | ;
|
|---|
| 16 | W !,"Item file checksum initialization beginning...",!
|
|---|
| 17 | D INIT^PRCVIT
|
|---|
| 18 | I $D(^PRCV(414.04,1,0)) W !,"Item file checksum initialization complete!",!
|
|---|
| 19 | I '$D(^PRCV(414.04,1,0)) W !,"Item file checksum initialization failed!",! Q
|
|---|
| 20 | ;
|
|---|
| 21 | W !,"Vendor file checksum initialization beginning...",!
|
|---|
| 22 | D INIT^PRCVNDR
|
|---|
| 23 | I $D(^PRCV(414.04,2,0)) W !,"Vendor file checksum initialization complete!",!
|
|---|
| 24 | I '$D(^PRCV(414.04,2,0)) W !,"Vendor file checksum initialization failed!",! Q
|
|---|
| 25 | ;
|
|---|
| 26 | Q
|
|---|
