AZXRQAFX.m

AZXRQAFX ; [ 09/28/93  11:24 AM ]

 ; Written by Lori Butcher (9/28/93)

 ;

 ; Cleans up problems with the QA (printing Top Ten List)

 ; with having bad "B" Cross-ref.s in the Visit file (^AUPNVSIT).

 S LORIV=0 F  S LORIV=$O(^AUPNVSIT(LORIV)) Q:LORIV'=+LORIV  I $P(^AUPNVSIT(LORIV,0),U)[".12.12" D

 .W !,LORIV,"  ",^AUPNVSIT(LORIV,0)

 .S NEWDATE=$P($P(^AUPNVSIT(LORIV,0),U),".")_".12",DIE="^AUPNVSIT(",DR=".01////"_NEWDATE,DA=LORIV

 .D ^DIE

 .W !,^AUPNVSIT(LORIV,0)

 .Q

 Q

AZXRQAFX  ; [ 09/28/93  11:24 AM ]

 +1       ; Written by Lori Butcher (9/28/93)

 +2       ;

 +3       ; Cleans up problems with the QA (printing Top Ten List)

 +4       ; with having bad "B" Cross-ref.s in the Visit file (^AUPNVSIT).

 +5        SET LORIV=0

           FOR 

               SET LORIV=$ORDER(^AUPNVSIT(LORIV))

               IF LORIV'=+LORIV

                   QUIT 

               IF $PIECE(^AUPNVSIT(LORIV,0),U)[".12.12"

                   Begin DoDot:1

 +6                    WRITE !,LORIV,"  ",^AUPNVSIT(LORIV,0)

 +7                    SET NEWDATE=$PIECE($PIECE(^AUPNVSIT(LORIV,0),U),".")_".12"

                       SET DIE="^AUPNVSIT("

                       SET DR=".01////"_NEWDATE

                       SET DA=LORIV

 +8                    DO ^DIE

 +9                    WRITE !,^AUPNVSIT(LORIV,0)

 +10                   QUIT 

                   End DoDot:1

 +11       QUIT