AZXZLEE1.m

TESTER  ;[ 05/01/95   1:25 PM ]

 ;TRYING TO FIX ADEPCD

 S DFN=0

LOOP F  S DFN=$O(^ADEPCD("B",DFN))  Q:'DFN  D TEST

 Q

TEST S DFN2=253

 S DFN2=$O(^ADEPCD("B",DFN,DFN2)) 

 I DFN=254 W "^ADEPCD(""B""",",",DFN,",",DFN2

 Q

TESTER    ;[ 05/01/95   1:25 PM ]

 +1       ;TRYING TO FIX ADEPCD

 +2        SET DFN=0

LOOP       FOR 

               SET DFN=$ORDER(^ADEPCD("B",DFN))

               IF 'DFN

                   QUIT 

               DO TEST

 +1        QUIT 

TEST       SET DFN2=253

 +1        SET DFN2=$ORDER(^ADEPCD("B",DFN,DFN2))

 +2        IF DFN=254

               WRITE "^ADEPCD(""B""",",",DFN,",",DFN2

 +3        QUIT