QARXKILL ; HIRMFO/REL - Remove QARF ;7/20/98 08:56
;;2.0;Credentials Tracking;**13**;May 04, 1993
FIL ; Remove Files
F DIU="^QA(747.1,","^QA(747.11,","^QA(747.12,","^QA(747.13," S DIU(0)="SD" D EN^DIU2
F DIU="^QA(747.25,","^QA(747.3,","^QA(747.4,","^QA(747.5," S DIU(0)="SD" D EN^DIU2
F DIU="^QA(747.7,","^QA(747.8,","^QA(747.9," S DIU(0)="SD" D EN^DIU2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQARXKILL 369 printed Dec 13, 2024@01:45:20 Page 2
QARXKILL ; HIRMFO/REL - Remove QARF ;7/20/98 08:56
+1 ;;2.0;Credentials Tracking;**13**;May 04, 1993
FIL ; Remove Files
+1 FOR DIU="^QA(747.1,","^QA(747.11,","^QA(747.12,","^QA(747.13,"
SET DIU(0)="SD"
DO EN^DIU2
+2 FOR DIU="^QA(747.25,","^QA(747.3,","^QA(747.4,","^QA(747.5,"
SET DIU(0)="SD"
DO EN^DIU2
+3 FOR DIU="^QA(747.7,","^QA(747.8,","^QA(747.9,"
SET DIU(0)="SD"
DO EN^DIU2
+4 QUIT
