source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCVINIT.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1PRCVINIT ;WOIFO/DAP-ITEM/VENDOR FILE INITIALIZATION CALLING; 05/23/05
2V ;;5.1;IFCAP;**81**;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 Q
6 ;
7INIT ;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
Note: See TracBrowser for help on using the repository browser.