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 ---[H[J[2J[HRGHLEXC1 760 printed Dec 13, 2024@01:41:54 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
