AZHAFIX.m

AZHAFIX ;FIX ROUTINE [ 08/13/2003  12:27 PM ]

 ;;

START ;start

 W !!,"Checking Private Insurance Eligible File",!!

 S I=0

BY ;bypass with I set

 F  S I=$O(^AUPNPRVT(I)) Q:'I  D

 .I '(I#100) W "."

 .S J=0

 .F  S J=$O(^AUPNPRVT(I,11,J)) Q:'J  D

 ..D ONE

 W !!,"Done",!!

 Q

ONE ;one entry

 Q:+$G(^AUPNPRVT(I,11,J,0))

 W !," bad entry at ien: ",I,"  ^AUPNPRVT(",I,",11,",J,",0)=",^AUPNPRVT(I,11,J,0),!

 K ^AUPNPRVT(I,11,J,0) W "fixed"

 Q

AZHAFIX   ;FIX ROUTINE [ 08/13/2003  12:27 PM ]

 +1       ;;

START     ;start

 +1        WRITE !!,"Checking Private Insurance Eligible File",!!

 +2        SET I=0

BY        ;bypass with I set

 +1        FOR 

               SET I=$ORDER(^AUPNPRVT(I))

               IF 'I

                   QUIT 

               Begin DoDot:1

 +2                IF '(I#100)

                       WRITE "."

 +3                SET J=0

 +4                FOR 

                       SET J=$ORDER(^AUPNPRVT(I,11,J))

                       IF 'J

                           QUIT 

                       Begin DoDot:2

 +5                        DO ONE

                       End DoDot:2

               End DoDot:1

 +6        WRITE !!,"Done",!!

 +7        QUIT 

ONE       ;one entry

 +1        IF +$GET(^AUPNPRVT(I,11,J,0))

               QUIT 

 +2        WRITE !," bad entry at ien: ",I,"  ^AUPNPRVT(",I,",11,",J,",0)=",^AUPNPRVT(I,11,J,0),!

 +3        KILL ^AUPNPRVT(I,11,J,0)

           WRITE "fixed"

 +4        QUIT