- 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 Feb 18, 2025@23:38:33 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