- 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 Feb 18, 2025@23:37:51 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