23 lines
738 B
Mathematica
23 lines
738 B
Mathematica
|
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
|