- 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 Mar 13, 2025@20:46:34 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
