Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
889 bytes
|
Rev | Line | |
---|
[613] | 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.