| 1 | MCNMDUP ;WISC/RMP,DAD-Duplicate "NM" node routine for Medicine ;4/22/96 12:19
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | CHECK(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
|
|---|
| 16 | FIELD 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
|
|---|
| 23 | NMCHK(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
|
|---|
| 32 | MAINF(SFILE) ;
|
|---|
| 33 | Q $S(SFILE=FILE:"",1:" subfile of: "_FILE)
|
|---|
| 34 | NOTE ;
|
|---|
| 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 | ;;
|
|---|
