Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PRCSEM1

PRCSEM1.m

Go to the documentation of this file.

PRCSEM1 ;WISC/KMB-REINDEX FILE 420.5 ; 6/16/95 12:00

V ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 S DIK="^PRCD(420.5," D IXALL^DIK K DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCSEM1   197     printed  Nov 22, 2024@17:27:44                                                                                                                                                                                                      Page 2

PRCSEM1   ;WISC/KMB-REINDEX FILE 420.5 ; 6/16/95 12:00

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2        SET DIK="^PRCD(420.5,"

           DO IXALL^DIK

           KILL DIK

 +3        QUIT