source: FOIAVistA/trunk/r/MEDICINE-MC/MCNMDUP.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1MCNMDUP ;WISC/RMP,DAD-Duplicate "NM" node routine for Medicine ;4/22/96 12:19
2 ;;2.3;Medicine;;09/13/1996
3CHECK(COUNT) ;
4 N X,XX,FILE,FIELD,ROOT,FROOT,HOLD,TEMP
5 S COUNT=0
6 F FILE=691.6,691.8,691.9,692,694,699,700 D
7 . S X=$P(^DD(FILE,0),U)
8 . I X'="FIELD" Q
9 . S ROOT=$J(FILE,1,2),FROOT=FILE
10 . F FIELD=0:0 S FIELD=$O(^DD(FILE,FIELD)) Q:'FIELD D FIELD
11 . Q
12 I COUNT>0 D
13 . F TEMP=1:1 S HOLD=$P($T(NOTE+TEMP),";;",2) Q:HOLD="" W !,HOLD,!
14 . Q
15 Q ;COUNT
16FIELD S XX=+$P(^DD(FILE,FIELD,0),U,2)
17 I XX D
18 . D NMCHK(XX)
19 . N FIELD,FILE,SFILE S (FILE,SFILE)=XX
20 . F FIELD=0:0 S FIELD=$O(^DD(SFILE,FIELD)) Q:'FIELD D FIELD
21 . Q
22 Q
23NMCHK(NMFILE) ;
24 N SUBNAME,XTRANAME
25 S SUBNAME="",SUBNAME=$O(^DD(NMFILE,0,"NM",SUBNAME)) Q:SUBNAME=""
26 S XTRANAME=$O(^DD(NMFILE,0,"NM",SUBNAME))
27 I $L(XTRANAME)>0 D
28 . W !,"Duplicate NM Node in file: ",NMFILE,$$MAINF(NMFILE)
29 . S COUNT=COUNT+1
30 . Q
31 Q
32MAINF(SFILE) ;
33 Q $S(SFILE=FILE:"",1:" subfile of: "_FILE)
34NOTE ;
35 ;;The finding of duplicate "NM" nodes within the subfiles of
36 ;;the above listed main files is a direct result of the some of
37 ;;the reorganization which has occurred between versions of the
38 ;;Medicine Package.
39 ;;1) It is necessary at this time for you to record the main files
40 ;; listed above for FM Data Dictionary repairs.
41 ;;2) From programmer mode enter FM and select DATA DICTIONARY UTILITIES.
42 ;;3) Select the CHECK/FIX DD STRUCTURE option and submit each of the
43 ;;4)Then restart the Medicine Installation from the ^MCARINS step.
44 ;;
Note: See TracBrowser for help on using the repository browser.