RGHLEXC1.m

RGHLEXC1 ;CAIRO/DKM-Generate exception statistics report ;02-Jul-97 11:27

 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99

 ;=================================================================

 D TITLE^RGRSUTL2("HL7 Message Exception Report")

 D ^%ZIS

 G:POP DONE

 U IO

 N RGZ,RGZ1,RGZ2,RGP,RGL

 S RGZ="",RGL=IOSL-5,RGP=0,$Y=999999

 K ^TMP($J)

 F  S RGZ=$O(^RGHL7(991.1,"AC",RGZ)) Q:RGZ=""  S ^TMP($J,+$G(^(RGZ)),RGZ)=""

 F  S RGZ=$O(^TMP($J,RGZ),-1),RGZ1="" Q:'RGZ  D

 .F  S RGZ1=$O(^TMP($J,RGZ,RGZ1)) Q:RGZ1=""  D

 ..D:$Y'<RGL PAUSE,TITLE^RGRSUTL2("HL7 Message Exception Report","Page "_RGP)

 ..W $J(RGZ,8),?10,RGZ1,!

 D PAUSE:$Y,^%ZISC

DONE K ^TMP($J)

 W:IO'=IO(0) @IOF

 Q

PAUSE I IO=IO(0),$Y=RGL,$$PAUSE^RGRSUTL2

 S $Y=0,RGP=RGP+1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RGHLEXC1   760     printed  Apr 09, 2024@20:47:22                                                                                                                                                                                                     Page 2

RGHLEXC1  ;CAIRO/DKM-Generate exception statistics report ;02-Jul-97 11:27

 +1       ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99

 +2       ;=================================================================

 +3        DO TITLE^RGRSUTL2("HL7 Message Exception Report")

 +4        DO ^%ZIS

 +5        if POP

               GOTO DONE

 +6        USE IO

 +7        NEW RGZ,RGZ1,RGZ2,RGP,RGL

 +8        SET RGZ=""

           SET RGL=IOSL-5

           SET RGP=0

           SET $Y=999999

 +9        KILL ^TMP($JOB)

 +10       FOR 

               SET RGZ=$ORDER(^RGHL7(991.1,"AC",RGZ))

               if RGZ=""

                   QUIT 

               SET ^TMP($JOB,+$GET(^(RGZ)),RGZ)=""

 +11       FOR 

               SET RGZ=$ORDER(^TMP($JOB,RGZ),-1)

               SET RGZ1=""

               if 'RGZ

                   QUIT 

               Begin DoDot:1

 +12               FOR 

                       SET RGZ1=$ORDER(^TMP($JOB,RGZ,RGZ1))

                       if RGZ1=""

                           QUIT 

                       Begin DoDot:2

 +13                       if $Y'<RGL

                               DO PAUSE

                               DO TITLE^RGRSUTL2("HL7 Message Exception Report","Page "_RGP)

 +14                       WRITE $JUSTIFY(RGZ,8),?10,RGZ1,!

                       End DoDot:2

               End DoDot:1

 +15       if $Y

               DO PAUSE

           DO ^%ZISC

DONE       KILL ^TMP($JOB)

 +1        if IO'=IO(0)

               WRITE @IOF

 +2        QUIT 

PAUSE      IF IO=IO(0)

               IF $Y=RGL

                   IF $$PAUSE^RGRSUTL2

 +1        SET $Y=0

           SET RGP=RGP+1

 +2        QUIT