PRCOSRV9 ;WISC/DJM-Special Transaction Interface ;8/22/94 1:37 PM
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
START ;This routine will delete the following transactions coming from ISMS
;from file 423.6.
;
; IFC-834 IFC-839 IFC-840 IFC-841 IFC-836 IFC-843
; IFC-844 IFC-845
;
N DA,DIK
S DIK="^PRCF(423.6,",DA=PRCDA D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCOSRV9 403 printed Dec 13, 2024@02:12:11 Page 2
PRCOSRV9 ;WISC/DJM-Special Transaction Interface ;8/22/94 1:37 PM
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
START ;This routine will delete the following transactions coming from ISMS
+1 ;from file 423.6.
+2 ;
+3 ; IFC-834 IFC-839 IFC-840 IFC-841 IFC-836 IFC-843
+4 ; IFC-844 IFC-845
+5 ;
+6 NEW DA,DIK
+7 SET DIK="^PRCF(423.6,"
SET DA=PRCDA
DO ^DIK
+8 QUIT
