AZHZCL2.m

AZHZCL2 ;DSD/PDW - print patients with ()&/ edits : tests active patients  ; AUGUST 14, 1992

 ;;1.0;AZHZ;;AUG 14, 1992

 ;---------------------------------------------------------------------

PUNPRT ;

 ;---------------------------------------------------------------------

ACTIVE ;ENTRY POINT for testing to see if patient is active

 ;SETS AZHZAAP=1 if patient has active HRN records

 S AZHZAAP=0 I $D(^AUPNPAT(DFN,41,0)),+$O(^(0)) S AZHZAS=0 F  S AZHZAS=$O(^AUPNPAT(DFN,41,AZHZAS)) Q:'+AZHZAS  S:$P(^(AZHZAS,0),U,3)="" AZHZAAP=1

EACT K AZHZAS Q  ;----

 ;---------------------------------------------------------------------

AZHZCL2   ;DSD/PDW - print patients with ()&/ edits : tests active patients  ; AUGUST 14, 1992

 +1       ;;1.0;AZHZ;;AUG 14, 1992

 +2       ;---------------------------------------------------------------------

PUNPRT    ;

 +1       ;---------------------------------------------------------------------

ACTIVE    ;ENTRY POINT for testing to see if patient is active

 +1       ;SETS AZHZAAP=1 if patient has active HRN records

 +2        SET AZHZAAP=0

           IF $DATA(^AUPNPAT(DFN,41,0))

               IF +$ORDER(^(0))

                   SET AZHZAS=0

                   FOR 

                       SET AZHZAS=$ORDER(^AUPNPAT(DFN,41,AZHZAS))

                       IF '+AZHZAS

                           QUIT 

                       IF $PIECE(^(AZHZAS,0),U,3)=""

                           SET AZHZAAP=1

EACT      ;----

           KILL AZHZAS

           QUIT 

 +1       ;---------------------------------------------------------------------