source: FOIAVistA/trunk/r/MEDICINE-MC/MCPOS01.m@ 1757

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 
1MCPOS01 ;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 ;
16EN1(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.