source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIPR103.m@ 841

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1DIPR103 ;SFISC/SO-PRE INSTALL ROUTINE FOR PATCH DI*22.0*103 ;1:18 PM 28 Feb 2002
2 ;;22.0;VA FileMan;**103**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;Check for field whose type are WP and missing the 'W'
5 ;whose $P#2 was has been corrupted and report them out for maunal
6 ;correction.
7 S X="Check for corrupted Type: Word Processing."
8 D MES^XPDUTL(X)
9 S X="Checking..."
10 D MES^XPDUTL(X)
11 ;
12S ; Start testing
13 N DDFILE,NOERR
14 S NOERR=0
15 S DDFILE=1.99999
16 F S DDFILE=$O(^DD(DDFILE)) Q:'DDFILE D
17 . N DDFIELD
18 . S DDFIELD=0
19 . F S DDFIELD=$O(^DD(DDFILE,DDFIELD)) Q:'DDFIELD D
20 . . I '$D(^DD(DDFILE,0,"UP")) Q ;Not a sub-file
21 . . I DDFIELD'=.01 Q ;Not a field we are interested in
22 . . N NODE
23 . . S NODE=$G(^DD(DDFILE,DDFIELD,0))
24 . . I $P(NODE,U,2)]"" Q ;No corruption here
25 . . ;Piece #2 of the DD node is Null
26 . . S NOERR=1
27 . . N X
28 . . S X=">>Subfile: "_DDFILE
29 . . D MES^XPDUTL(X)
30 . . S X=" Field: #"_DDFIELD_"("_$P(NODE,U)_")"
31 . . D MES^XPDUTL(X)
32 . . S X=" Node="_NODE
33 . . D MES^XPDUTL(X)
34 I 'NOERR S X="No problems found" D MES^XPDUTL(X)
35 Q
Note: See TracBrowser for help on using the repository browser.