Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
889 bytes
|
Line | |
---|
1 | MCPOS01 ;HIRMFO/WAA - SEARCH AND DELETE - ;8/6/96 07:25
|
---|
2 | ;;2.3;Medicine;;09/13/1996
|
---|
3 | ;
|
---|
4 | G EN1^MCPOS01A
|
---|
5 | ;
|
---|
6 | ;====================================================================
|
---|
7 | ;
|
---|
8 | ; This routine will loop through a file and find all the x-references
|
---|
9 | ; for that file and delete them.
|
---|
10 | ;
|
---|
11 | ; This routine is passed the file number of the file to look through.
|
---|
12 | ;
|
---|
13 | ; Input Varables
|
---|
14 | ; MCFN = File number
|
---|
15 | ;
|
---|
16 | EN1(MCFN) ; Main Entry Point
|
---|
17 | Q:MCFN<1
|
---|
18 | N MCTXT,MCNAME,DIK
|
---|
19 | S MCNAME=$$GET1^DID(MCFN,"","","NAME") ; Get Name of File
|
---|
20 | S MCTXT(1)=""
|
---|
21 | S MCTXT(2)="File: "_MCNAME_" ("_MCFN_")"
|
---|
22 | S MCTXT(3)="Cross references for file "_MCNAME_" have been deleted."
|
---|
23 | S MCTXT(4)=" Re-indexing file "_MCNAME_"..."
|
---|
24 | D MES^XPDUTL(.MCTXT) ; Printing message to output device.
|
---|
25 | K MCTXT
|
---|
26 | S DIK="^MCAR("_MCFN_","
|
---|
27 | D IXALL^DIK
|
---|
28 | D BMES^XPDUTL(" Complete...") ; Printing message to output device.
|
---|
29 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.