PRCIN07 ;SF/SWS-PREINSTALL *107 TO ADD 441.2 entry ;4-26-94/3:45 PM
V ;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
;Per VHA Directive 2004-038, this routine should not be modified.
Q
START ;Per VHA Directive 10-93-142, this routine should not be modified.
N DIC,Y,NREC
S DIC="^PRC(441.2,",X=4235
D ^DIC
I Y=-1 D
.S (DIC,Y)=""
.S DIC="^PRC(441.2,",X=4235,DIC(0)=""
.D FILE^DICN
.I Y'=-1 S MREC=+Y
.S THISDESC="Hazardous Material Spill Containment and Clean-up Equipment and Material."
.S THISDESC=THISDESC_" Includes Secondary Spill Containment Sumps; Liquid Spill Containment Pallets; Spill Containment Basins; Spill Containment Systems; Absorbent, Sorbent and Blotting Materials."
.S (DIC,Y)=""
.S DIE="^PRC(441.2,",DA=MREC,DR="1///Hazardous Material Spill;2///^S X=THISDESC;3///42;4///General;5///DLA/DASS"
.D ^DIE
K DIC,Y,MREC,DA,X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCIN07 872 printed Dec 13, 2024@02:11:28 Page 2
PRCIN07 ;SF/SWS-PREINSTALL *107 TO ADD 441.2 entry ;4-26-94/3:45 PM
V ;;5.1;IFCAP;**114**;Oct 20, 2000;Build 4
+1 ;Per VHA Directive 2004-038, this routine should not be modified.
+2 QUIT
START ;Per VHA Directive 10-93-142, this routine should not be modified.
+1 NEW DIC,Y,NREC
+2 SET DIC="^PRC(441.2,"
SET X=4235
+3 DO ^DIC
+4 IF Y=-1
Begin DoDot:1
+5 SET (DIC,Y)=""
+6 SET DIC="^PRC(441.2,"
SET X=4235
SET DIC(0)=""
+7 DO FILE^DICN
+8 IF Y'=-1
SET MREC=+Y
+9 SET THISDESC="Hazardous Material Spill Containment and Clean-up Equipment and Material."
+10 SET THISDESC=THISDESC_" Includes Secondary Spill Containment Sumps; Liquid Spill Containment Pallets; Spill Containment Basins; Spill Containment Systems; Absorbent, Sorbent and Blotting Materials."
+11 SET (DIC,Y)=""
+12 SET DIE="^PRC(441.2,"
SET DA=MREC
SET DR="1///Hazardous Material Spill;2///^S X=THISDESC;3///42;4///General;5///DLA/DASS"
+13 DO ^DIE
End DoDot:1
+14 KILL DIC,Y,MREC,DA,X
+15 QUIT
