QARXKILL.m

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 ---QARXKILL   369     printed  Apr 09, 2024@20:50:33                                                                                                                                                                                                     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