source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P574.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 416 bytes
Line 
1DG53P574 ; BAY/JAT- Patch DG*5.3*574 Install Utility Routine ; 12/9/03 3:13pm
2 ;;5.3;Registration;**574**;AUG 13, 1993
3 ;
4 ;
5 ;
6POST ;Main entry point for Post-install items.
7 ;
8 D POST1
9 Q
10POST1 ; Refine Kill logic on "BS" crossreference on Patient file
11 ; NOIS CALL PUG-0999-50739
12 D MES^XPDUTL("Refining the Kill logic of 'BS' crossreference")
13 S ^DD(2,.09,1,1,2)="K:$E(X,6,9)'="""" ^DPT(""BS"",$E(X,6,9),DA)"
14 Q
Note: See TracBrowser for help on using the repository browser.