30 lines
889 B
Mathematica
30 lines
889 B
Mathematica
MCPOS01 ;HIRMFO/WAA - SEARCH AND DELETE - ;8/6/96 07:25
|
|
;;2.3;Medicine;;09/13/1996
|
|
;
|
|
G EN1^MCPOS01A
|
|
;
|
|
;====================================================================
|
|
;
|
|
; This routine will loop through a file and find all the x-references
|
|
; for that file and delete them.
|
|
;
|
|
; This routine is passed the file number of the file to look through.
|
|
;
|
|
; Input Varables
|
|
; MCFN = File number
|
|
;
|
|
EN1(MCFN) ; Main Entry Point
|
|
Q:MCFN<1
|
|
N MCTXT,MCNAME,DIK
|
|
S MCNAME=$$GET1^DID(MCFN,"","","NAME") ; Get Name of File
|
|
S MCTXT(1)=""
|
|
S MCTXT(2)="File: "_MCNAME_" ("_MCFN_")"
|
|
S MCTXT(3)="Cross references for file "_MCNAME_" have been deleted."
|
|
S MCTXT(4)=" Re-indexing file "_MCNAME_"..."
|
|
D MES^XPDUTL(.MCTXT) ; Printing message to output device.
|
|
K MCTXT
|
|
S DIK="^MCAR("_MCFN_","
|
|
D IXALL^DIK
|
|
D BMES^XPDUTL(" Complete...") ; Printing message to output device.
|
|
Q
|