source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGHLEXC1.m@ 1111

Last change on this file since 1111 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 738 bytes
RevLine 
[613]1RGHLEXC1 ;CAIRO/DKM-Generate exception statistics report ;02-Jul-97 11:27
2 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
3 ;=================================================================
4 D TITLE^RGRSUTL2("HL7 Message Exception Report")
5 D ^%ZIS
6 G:POP DONE
7 U IO
8 N RGZ,RGZ1,RGZ2,RGP,RGL
9 S RGZ="",RGL=IOSL-5,RGP=0,$Y=999999
10 K ^TMP($J)
11 F S RGZ=$O(^RGHL7(991.1,"AC",RGZ)) Q:RGZ="" S ^TMP($J,+$G(^(RGZ)),RGZ)=""
12 F S RGZ=$O(^TMP($J,RGZ),-1),RGZ1="" Q:'RGZ D
13 .F S RGZ1=$O(^TMP($J,RGZ,RGZ1)) Q:RGZ1="" D
14 ..D:$Y'<RGL PAUSE,TITLE^RGRSUTL2("HL7 Message Exception Report","Page "_RGP)
15 ..W $J(RGZ,8),?10,RGZ1,!
16 D PAUSE:$Y,^%ZISC
17DONE K ^TMP($J)
18 W:IO'=IO(0) @IOF
19 Q
20PAUSE I IO=IO(0),$Y=RGL,$$PAUSE^RGRSUTL2
21 S $Y=0,RGP=RGP+1
22 Q
Note: See TracBrowser for help on using the repository browser.