ADE6P191.m

ADE6P191 ;IHS/OIT/ENM - ADE6.0 PATCH 19 [ 4/23/2009  8:37 AM ]

 ;;6.0;ADE;**19**;MAR 25,1999

 ;

ADDOP ;EP

 S ADEOPS="",ADENO="",NAME="",MNE="",ADERN=""

 F ADEOPS=0:1 S ADENO=$P($T(ADDOPSIT+ADEOPS),";;",2,3) Q:ADENO=""  S NAME=$P(ADENO,";;"),MNE=$P(ADENO,";;",2) D WR

 K ADEOPS,ADENO,NAME,MNE,ADERN

 Q

WR S DIC="^ADEOPS(",DLAGO=9002010.03,DIC(0)="L",X=NAME

 K DD,DO

 D FILE^DICN S ADERN=+Y K DELAGO,X,Y,DIC

 S DIE="^ADEOPS(",DA=ADERN

 S DR="8801////"_MNE D ^DIE

 Q

 ;

ADDOPSIT ;;DECIDUOUS CANINE, MAND LEFT, SUPERNUMERARY;;MS

 ;;DECIDUOUS CANINE, MAND RIGHT, SUPERNUMERARY;;RS

 ;;DECIDUOUS CANINE, MAX LEFT, SUPERNUMERARY;;HS

 ;;DECIDUOUS CANINE, MAX RIGHT , SUPERNUMERARY;;CS

 ;;DECIDUOUS CENTRAL INCISOR, MAND LEFT, SUPERNUMERARY;;OS

 ;;DECIDUOUS CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;PS

 ;;DECIDUOUS CENTRAL INCISOR, MAX LEFT, SUPERNUMERARY;;FS

 ;;DECIDUOUS CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;ES

 ;;DECIDUOUS FIRST MOLAR, MAND LEFT, SUPERNUMERARY;;LS

 ;;DECIDUOUS FIRST MOLAR, MAND RIGHT, SUPERNUMERARY;;SS

 ;;DECIDUOUS FIRST MOLAR, MAX LEFT, SUPERNUMERARY;;IS

 ;;DECIDUOUS FIRST MOLAR, MAX RIGHT, SUPERNUMERARY;;BS

 ;;DECIDUOUS LATERAL INCISOR, MAND LEFT, SUPERNUMERARY;;NS

 ;;DECIDUOUS LATERAL INCISOR, MAND RIGHT, SUPERNUMERARY;;QS

 ;;DECIDUOUS LATERAL INCISOR, MAX LEFT, SUPERNUMERARY;;GS

 ;;DECIDUOUS LATERAL INCISOR, MAX RIGHT, SUPERNUMERARY;;DS

 ;;DECIDUOUS SECOND MOLAR, MAND LEFT, SUPERNUMERARY;;KS

 ;;DECIDUOUS SECOND MOLAR, MAND RIGHT, SUPERNUMERARY;;TS

 ;;DECIDUOUS SECOND MOLAR, MAX RIGHT, SUPERNUMERARY;;AS

 ;;DECIDUOUS SECOND MOLAR, MAX LEFT, SUPERNUMERARY;;JS

 ;;PERMANENT CANINE, MAND LEFT, SUPERNUMERARY;;72

 ;;PERMANENT CANINE, MAND RIGHT, SUPERNUMERARY;;77

 ;;PERMANENT CANINE, MAX LEFT, SUPERNUMERARY;;61

 ;;PERMANENT CANINE, MAX RIGHT , SUPERNUMERARY;;56

 ;;PERMANENT CENTRAL INCISOR, MAND LEFT, SUPERNUMERARY;;74

 ;;PERMANENT CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;75

 ;;PERMANENT CENTRAL INCISOR, MAX LEFT, SUPERNUMERARY;;59

 ;;PERMANENT CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;58

 ;;PERMANENT FIRST BICUSPID, MAND LEFT, SUPERNUMERARY;;71

 ;;PERMANENT FIRST BICUSPID, MAND RIGHT, SUPERNUMERARY;;78

 ;;PERMANENT FIRST BICUSPID, MAX LEFT, SUPERNUMERARY;;62

 ;;PERMANENT FIRST BICUSPID, MAX RIGHT, SUPERNUMERARY;;54

 ;;PERMANENT FIRST MOLAR, MAND LEFT, SUPERNUMERARY;;69

 ;;PERMANENT FIRST MOLAR, MAND RIGHT, SUPERNUMERARY;;80

 ;;PERMANENT FIRST MOLAR, MAX LEFT, SUPERNUMERARY;;64

 ;;PERMANENT FIRST MOLAR, MAX RIGHT, SUPERNUMERARY;;53

 ;;PERMANENT LATERAL INCISOR, MAND LEFT, SUPERNUMERARY;;73

 ;;PERMANENT LATERAL INCISOR, MAND RIGHT, SUPERNUMERARY;;76

 ;;PERMANENT LATERAL INCISOR, MAX LEFT, SUPERNUMERARY;;60

 ;;PERMANENT LATERAL INCISOR, MAX RIGHT, SUPERNUMERARY;;57

 ;;PERMANENT SECOND BICUSPID, MAND LEFT, SUPERNUMERARY;;70

 ;;PERMANENT SECOND BICUSPID, MAND RIGHT, SUPERNUMERARY;;79

 ;;PERMANENT SECOND BICUSPID, MAX LEFT, SUPERNUMERARY;;63

 ;;PERMANENT SECOND BICUSPID, MAX RIGHT, SUPERNUMERARY;;54

 ;;PERMANENT SECOND MOLAR, MAND LEFT, SUPERNUMERARY;;68

 ;;PERMANENT SECOND MOLAR, MAND RIGHT, SUPERNUMERARY;;81

 ;;PERMANENT SECOND MOLAR, MAX RIGHT, SUPERNUMERARY;;52

 ;;PERMANENT SECOND MOLAR, MAX LEFT, SUPERNUMERARY;;65

 ;;PERMANENT THIRD MOLAR, MAND LEFT, SUPERNUMERARY;;67

 ;;PERMANENT THIRD MOLAR, MAND RIGHT, SUPERNUMERARY;;82

 ;;PERMANENT THIRD MOLAR, MAX RIGHT, SUPERNUMERARY;;51

 ;;PERMANENT THIRD MOLAR, MAX LEFT, SUPERNUMERARY;;66

ADE6P191  ;IHS/OIT/ENM - ADE6.0 PATCH 19 [ 4/23/2009  8:37 AM ]

 +1       ;;6.0;ADE;**19**;MAR 25,1999

 +2       ;

ADDOP     ;EP

 +1        SET ADEOPS=""

           SET ADENO=""

           SET NAME=""

           SET MNE=""

           SET ADERN=""

 +2        FOR ADEOPS=0:1

               SET ADENO=$PIECE($TEXT(ADDOPSIT+ADEOPS),";;",2,3)

               IF ADENO=""

                   QUIT 

               SET NAME=$PIECE(ADENO,";;")

               SET MNE=$PIECE(ADENO,";;",2)

               DO WR

 +3        KILL ADEOPS,ADENO,NAME,MNE,ADERN

 +4        QUIT 

WR         SET DIC="^ADEOPS("

           SET DLAGO=9002010.03

           SET DIC(0)="L"

           SET X=NAME

 +1        KILL DD,DO

 +2        DO FILE^DICN

           SET ADERN=+Y

           KILL DELAGO,X,Y,DIC

 +3        SET DIE="^ADEOPS("

           SET DA=ADERN

 +4        SET DR="8801////"_MNE

           DO ^DIE

 +5        QUIT 

 +6       ;

ADDOPSIT  ;;DECIDUOUS CANINE, MAND LEFT, SUPERNUMERARY;;MS

 +1       ;;DECIDUOUS CANINE, MAND RIGHT, SUPERNUMERARY;;RS

 +2       ;;DECIDUOUS CANINE, MAX LEFT, SUPERNUMERARY;;HS

 +3       ;;DECIDUOUS CANINE, MAX RIGHT , SUPERNUMERARY;;CS

 +4       ;;DECIDUOUS CENTRAL INCISOR, MAND LEFT, SUPERNUMERARY;;OS

 +5       ;;DECIDUOUS CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;PS

 +6       ;;DECIDUOUS CENTRAL INCISOR, MAX LEFT, SUPERNUMERARY;;FS

 +7       ;;DECIDUOUS CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;ES

 +8       ;;DECIDUOUS FIRST MOLAR, MAND LEFT, SUPERNUMERARY;;LS

 +9       ;;DECIDUOUS FIRST MOLAR, MAND RIGHT, SUPERNUMERARY;;SS

 +10      ;;DECIDUOUS FIRST MOLAR, MAX LEFT, SUPERNUMERARY;;IS

 +11      ;;DECIDUOUS FIRST MOLAR, MAX RIGHT, SUPERNUMERARY;;BS

 +12      ;;DECIDUOUS LATERAL INCISOR, MAND LEFT, SUPERNUMERARY;;NS

 +13      ;;DECIDUOUS LATERAL INCISOR, MAND RIGHT, SUPERNUMERARY;;QS

 +14      ;;DECIDUOUS LATERAL INCISOR, MAX LEFT, SUPERNUMERARY;;GS

 +15      ;;DECIDUOUS LATERAL INCISOR, MAX RIGHT, SUPERNUMERARY;;DS

 +16      ;;DECIDUOUS SECOND MOLAR, MAND LEFT, SUPERNUMERARY;;KS

 +17      ;;DECIDUOUS SECOND MOLAR, MAND RIGHT, SUPERNUMERARY;;TS

 +18      ;;DECIDUOUS SECOND MOLAR, MAX RIGHT, SUPERNUMERARY;;AS

 +19      ;;DECIDUOUS SECOND MOLAR, MAX LEFT, SUPERNUMERARY;;JS

 +20      ;;PERMANENT CANINE, MAND LEFT, SUPERNUMERARY;;72

 +21      ;;PERMANENT CANINE, MAND RIGHT, SUPERNUMERARY;;77

 +22      ;;PERMANENT CANINE, MAX LEFT, SUPERNUMERARY;;61

 +23      ;;PERMANENT CANINE, MAX RIGHT , SUPERNUMERARY;;56

 +24      ;;PERMANENT CENTRAL INCISOR, MAND LEFT, SUPERNUMERARY;;74

 +25      ;;PERMANENT CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;75

 +26      ;;PERMANENT CENTRAL INCISOR, MAX LEFT, SUPERNUMERARY;;59

 +27      ;;PERMANENT CENTRAL INCISOR, MAND RIGHT, SUPERNUMERARY;;58

 +28      ;;PERMANENT FIRST BICUSPID, MAND LEFT, SUPERNUMERARY;;71

 +29      ;;PERMANENT FIRST BICUSPID, MAND RIGHT, SUPERNUMERARY;;78

 +30      ;;PERMANENT FIRST BICUSPID, MAX LEFT, SUPERNUMERARY;;62

 +31      ;;PERMANENT FIRST BICUSPID, MAX RIGHT, SUPERNUMERARY;;54

 +32      ;;PERMANENT FIRST MOLAR, MAND LEFT, SUPERNUMERARY;;69

 +33      ;;PERMANENT FIRST MOLAR, MAND RIGHT, SUPERNUMERARY;;80

 +34      ;;PERMANENT FIRST MOLAR, MAX LEFT, SUPERNUMERARY;;64

 +35      ;;PERMANENT FIRST MOLAR, MAX RIGHT, SUPERNUMERARY;;53

 +36      ;;PERMANENT LATERAL INCISOR, MAND LEFT, SUPERNUMERARY;;73

 +37      ;;PERMANENT LATERAL INCISOR, MAND RIGHT, SUPERNUMERARY;;76

 +38      ;;PERMANENT LATERAL INCISOR, MAX LEFT, SUPERNUMERARY;;60

 +39      ;;PERMANENT LATERAL INCISOR, MAX RIGHT, SUPERNUMERARY;;57

 +40      ;;PERMANENT SECOND BICUSPID, MAND LEFT, SUPERNUMERARY;;70

 +41      ;;PERMANENT SECOND BICUSPID, MAND RIGHT, SUPERNUMERARY;;79

 +42      ;;PERMANENT SECOND BICUSPID, MAX LEFT, SUPERNUMERARY;;63

 +43      ;;PERMANENT SECOND BICUSPID, MAX RIGHT, SUPERNUMERARY;;54

 +44      ;;PERMANENT SECOND MOLAR, MAND LEFT, SUPERNUMERARY;;68

 +45      ;;PERMANENT SECOND MOLAR, MAND RIGHT, SUPERNUMERARY;;81

 +46      ;;PERMANENT SECOND MOLAR, MAX RIGHT, SUPERNUMERARY;;52

 +47      ;;PERMANENT SECOND MOLAR, MAX LEFT, SUPERNUMERARY;;65

 +48      ;;PERMANENT THIRD MOLAR, MAND LEFT, SUPERNUMERARY;;67

 +49      ;;PERMANENT THIRD MOLAR, MAND RIGHT, SUPERNUMERARY;;82

 +50      ;;PERMANENT THIRD MOLAR, MAX RIGHT, SUPERNUMERARY;;51

 +51      ;;PERMANENT THIRD MOLAR, MAX LEFT, SUPERNUMERARY;;66