source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCIN07.m@ 1093

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

initial load of WorldVistAEHR

File size: 852 bytes
RevLine 
[613]1PRCIN07 ;SF/SWS-PREINSTALL *107 TO ADD 441.2 entry ;4-26-94/3:45 PM
2V ;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
3 ;Per VHA Directive 2004-038, this routine should not be modified.
4 Q
5START ;Per VHA Directive 10-93-142, this routine should not be modified.
6 N DIC,Y,NREC
7 S DIC="^PRC(441.2,",X=4235
8 D ^DIC
9 I Y=-1 D
10 .S (DIC,Y)=""
11 .S DIC="^PRC(441.2,",X=4235,DIC(0)=""
12 .D FILE^DICN
13 .I Y'=-1 S MREC=+Y
14 .S THISDESC="Hazardous Material Spill Containment and Clean-up Equipment and Material."
15 .S THISDESC=THISDESC_" Includes Secondary Spill Containment Sumps; Liquid Spill Containment Pallets; Spill Containment Basins; Spill Containment Systems; Absorbent, Sorbent and Blotting Materials."
16 .S (DIC,Y)=""
17 .S DIE="^PRC(441.2,",DA=MREC,DR="1///Hazardous Material Spill;2///^S X=THISDESC;3///42;4///General;5///DLA/DASS"
18 .D ^DIE
19 K DIC,Y,MREC,DA,X
20 Q
Note: See TracBrowser for help on using the repository browser.