|
Last change
on this file since 1336 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.
