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

PRCIN07.m

Go to the documentation of this file.
  1. PRCIN07 ;SF/SWS-PREINSTALL *107 TO ADD 441.2 entry ;4-26-94/3:45 PM
  1. V ;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. Q
  1. START ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. N DIC,Y,NREC
  1. S DIC="^PRC(441.2,",X=4235
  1. D ^DIC
  1. I Y=-1 D
  1. .S (DIC,Y)=""
  1. .S DIC="^PRC(441.2,",X=4235,DIC(0)=""
  1. .D FILE^DICN
  1. .I Y'=-1 S MREC=+Y
  1. .S THISDESC="Hazardous Material Spill Containment and Clean-up Equipment and Material."
  1. .S THISDESC=THISDESC_" Includes Secondary Spill Containment Sumps; Liquid Spill Containment Pallets; Spill Containment Basins; Spill Containment Systems; Absorbent, Sorbent and Blotting Materials."
  1. .S (DIC,Y)=""
  1. .S DIE="^PRC(441.2,",DA=MREC,DR="1///Hazardous Material Spill;2///^S X=THISDESC;3///42;4///General;5///DLA/DASS"
  1. .D ^DIE
  1. K DIC,Y,MREC,DA,X
  1. Q