MCNMDUP.m

MCNMDUP ;WISC/RMP,DAD-Duplicate "NM" node routine for Medicine ;4/22/96  12:19

 ;;2.3;Medicine;;09/13/1996

CHECK(COUNT) ;

 N X,XX,FILE,FIELD,ROOT,FROOT,HOLD,TEMP

 S COUNT=0

 F FILE=691.6,691.8,691.9,692,694,699,700 D

 . S X=$P(^DD(FILE,0),U)

 . I X'="FIELD" Q

 . S ROOT=$J(FILE,1,2),FROOT=FILE

 . F FIELD=0:0 S FIELD=$O(^DD(FILE,FIELD)) Q:'FIELD  D FIELD

 . Q

 I COUNT>0 D

 . F TEMP=1:1 S HOLD=$P($T(NOTE+TEMP),";;",2) Q:HOLD=""  W !,HOLD,!

 . Q

 Q  ;COUNT

FIELD S XX=+$P(^DD(FILE,FIELD,0),U,2)

 I XX D

 . D NMCHK(XX)

 . N FIELD,FILE,SFILE S (FILE,SFILE)=XX

 . F FIELD=0:0 S FIELD=$O(^DD(SFILE,FIELD)) Q:'FIELD  D FIELD

 . Q

 Q

NMCHK(NMFILE) ;

 N SUBNAME,XTRANAME

 S SUBNAME="",SUBNAME=$O(^DD(NMFILE,0,"NM",SUBNAME)) Q:SUBNAME=""

 S XTRANAME=$O(^DD(NMFILE,0,"NM",SUBNAME))

 I $L(XTRANAME)>0 D

 . W !,"Duplicate NM Node in file: ",NMFILE,$$MAINF(NMFILE)

 . S COUNT=COUNT+1

 . Q

 Q

MAINF(SFILE) ;

 Q $S(SFILE=FILE:"",1:" subfile of: "_FILE)

NOTE ;

 ;;The finding of duplicate "NM" nodes within the subfiles of

 ;;the above listed main files is a direct result of the some of

 ;;the reorganization which has occurred between versions of the

 ;;Medicine Package.

 ;;1) It is necessary at this time for you to record the main files

 ;;   listed above for FM Data Dictionary repairs.

 ;;2) From programmer mode enter FM and select DATA DICTIONARY UTILITIES.

 ;;3) Select the CHECK/FIX DD STRUCTURE option and submit each of the

 ;;4)Then restart the Medicine Installation from the ^MCARINS step.

 ;;

MCNMDUP   ;WISC/RMP,DAD-Duplicate "NM" node routine for Medicine ;4/22/96  12:19

 +1       ;;2.3;Medicine;;09/13/1996

CHECK(COUNT) ;

 +1        NEW X,XX,FILE,FIELD,ROOT,FROOT,HOLD,TEMP

 +2        SET COUNT=0

 +3        FOR FILE=691.6,691.8,691.9,692,694,699,700

               Begin DoDot:1

 +4                SET X=$PIECE(^DD(FILE,0),U)

 +5                IF X'="FIELD"

                       QUIT 

 +6                SET ROOT=$JUSTIFY(FILE,1,2)

                   SET FROOT=FILE

 +7                FOR FIELD=0:0

                       SET FIELD=$ORDER(^DD(FILE,FIELD))

                       IF 'FIELD

                           QUIT 

                       DO FIELD

 +8                QUIT 

               End DoDot:1

 +9        IF COUNT>0

               Begin DoDot:1

 +10               FOR TEMP=1:1

                       SET HOLD=$PIECE($TEXT(NOTE+TEMP),";;",2)

                       IF HOLD=""

                           QUIT 

                       WRITE !,HOLD,!

 +11               QUIT 

               End DoDot:1

 +12      ;COUNT

           QUIT 

FIELD      SET XX=+$PIECE(^DD(FILE,FIELD,0),U,2)

 +1        IF XX

               Begin DoDot:1

 +2                DO NMCHK(XX)

 +3                NEW FIELD,FILE,SFILE

                   SET (FILE,SFILE)=XX

 +4                FOR FIELD=0:0

                       SET FIELD=$ORDER(^DD(SFILE,FIELD))

                       IF 'FIELD

                           QUIT 

                       DO FIELD

 +5                QUIT 

               End DoDot:1

 +6        QUIT 

NMCHK(NMFILE) ;

 +1        NEW SUBNAME,XTRANAME

 +2        SET SUBNAME=""

           SET SUBNAME=$ORDER(^DD(NMFILE,0,"NM",SUBNAME))

           IF SUBNAME=""

               QUIT 

 +3        SET XTRANAME=$ORDER(^DD(NMFILE,0,"NM",SUBNAME))

 +4        IF $LENGTH(XTRANAME)>0

               Begin DoDot:1

 +5                WRITE !,"Duplicate NM Node in file: ",NMFILE,$$MAINF(NMFILE)

 +6                SET COUNT=COUNT+1

 +7                QUIT 

               End DoDot:1

 +8        QUIT 

MAINF(SFILE) ;

 +1        QUIT $SELECT(SFILE=FILE:"",1:" subfile of: "_FILE)

NOTE      ;

 +1       ;;The finding of duplicate "NM" nodes within the subfiles of

 +2       ;;the above listed main files is a direct result of the some of

 +3       ;;the reorganization which has occurred between versions of the

 +4       ;;Medicine Package.

 +5       ;;1) It is necessary at this time for you to record the main files

 +6       ;;   listed above for FM Data Dictionary repairs.

 +7       ;;2) From programmer mode enter FM and select DATA DICTIONARY UTILITIES.

 +8       ;;3) Select the CHECK/FIX DD STRUCTURE option and submit each of the

 +9       ;;4)Then restart the Medicine Installation from the ^MCARINS step.

 +10      ;;