RAHLEX ;HIRMFO/REL,CRT - RAD/NUC MED HL7 Voice Reporting Exception List; 02/02/99
;;5.0;Radiology/Nuclear Medicine;**12,17,25**;Mar 16, 1998
; Last Edited by CRT
;
S RAHLAPP="^TMP($J,""RAHLAPP"")" K @RAHLAPP ; Sending Apps included
S RAHLEX="^TMP($J,""RAHLEX"")" K @RAHLEX ; List Display
S RAHLSEL="^TMP($J,""RAHLSEL"")" K @RAHLSEL ; X-ref Display to ^DIZ
S RAHLUSR="^TMP($J,""RAHLUSR"")" K @RAHLUSR ; Rad Users included
S RAHLSRT="^TMP($J,""RAHLSRT"")" K @RAHLSRT ; Sorted records from #79.3
S VALMCNT=0
;
W @IOF
;
D EN^DDIOL("Rad/Nuc Med HL7 Voice Reporting Exception List","","!?5")
;
I ('$O(^RA(79.3,0))) D G EXIT
.S RACLR=1
.W $C(7)
.D EN^DDIOL("No Voice Reporting Exceptions currently recorded","","!?5")
.D END
;
APPS ; 1st prompt for Sending Applications to print
; skip prompt if there is only one Sending App.
;
S RAHLAIEN="" F I=1:1:2 S RAHLAIEN=$O(^RA(79.3,"AA",RAHLAIEN))
I RAHLAIEN="" D G STDT
.S RAHLAIEN=$O(^RA(79.3,"AA",RAHLAIEN))
.S RAHLA=$$GET1^DIQ(771,RAHLAIEN,.01)
.S @RAHLAPP@(RAHLA,RAHLAIEN)=""
.K RAHLAIEN,RAHLA
;
K RAHLAIEN
S RAINPUT=""
S RADIC="^HL(771,"
S RADIC(0)="ABEQSZ"
S RADIC("A")="Select Voice Reporting Application: "
S RADIC("B")="ALL"
S RADIC("S")="I $D(^RA(79.3,""AA"",Y))"
S RAUTIL="RAHLAPP"
D EN1^RASELCT(.RADIC,RAUTIL,"",RAINPUT)
K RADIC,RAUTIL,RAINPUT
I '$D(@RAHLAPP)!$G(RAQUIT) D G EXIT
.W $C(7)
.D EN^DDIOL("No Voice Reporting Applications selected for reporting","","!?5")
.D END
;
STDT ; Prompt for Start From Date
;
D EN^DDIOL(" ","","!")
K %DT
S %DT="AEPST"
S %DT("A")="Exception starting date/time: "
S %DT(0)="-NOW" ; Must be in the past
D ^%DT K %DT
I X']"" D EN^DDIOL("You must enter a start date, or '^' to exit","","!?5") G STDT
S RAHL7SDT=Y
I $D(DTOUT)!(U[X) D END G EXIT
;
ETDT ; Prompt for End Date (Must be after Start Date.. obviously!)
;
D EN^DDIOL(" ","","!")
S %DT="AEPST"
S %DT("A")="Exception ending date/time: "
S %DT(0)=RAHL7SDT
S %DT("B")="NOW" ; Default of current date/time
D ^%DT K %DT
I $D(DTOUT)!(U[X) D END G EXIT
S RAHL7EDT=Y
I $P(RAHL7EDT,".",2)="" S RAHL7EDT=+RAHL7EDT+1
;
USER ; Prompt for Users to include
; skip prompt if there is only one User on file.
; also there may be entries with no user!!
;
S RAHLUIEN=$O(^RA(79.3,"AB","")) G:RAHLUIEN="" LISTMAN
S RAHLUIEN=$O(^RA(79.3,"AB",RAHLUIEN))
I RAHLUIEN="" D G LISTMAN
.S RAHLUIEN=$O(^RA(79.3,"AB",RAHLUIEN))
.S RAHLU=$$GET1^DIQ(200,RAHLUIEN,.01)
.S @RAHLUSR@(RAHLU,RAHLUIEN)=""
.K RAHLUIEN,RAHLU
;
K RAHLUIEN
S RAINPUT=""
S RADIC="^VA(200,"
S RADIC(0)="ABEQZ"
S RADIC("A")="Select Radiology User: "
S RADIC("B")="ALL"
;S RADIC("S")="I $D(^RA(79.3,""AB"",Y))"
S RAUTIL="RAHLUSR"
D EN1^RASELCT(.RADIC,RAUTIL,"",RAINPUT)
K RADIC,RAUTIL,RAINPUT
I '$D(@RAHLUSR)!$G(RAQUIT) D G EXIT
.W $C(7)
.D EN^DDIOL("No Radiology User selected for reporting","","!?5")
.D END
;
LISTMAN ; Call List Manager
D EN^VALM("RA HL7 VOICE REPORTING ERRORS")
Q
;
;
S VALMHDR(1)=""
Q
;
SETTMP ;Create ^TMP workfile with sorted records on...
;
S RAPPX="" F S RAPPX=$O(@RAHLAPP@(RAPPX)) Q:RAPPX="" D
.S RAPPI=0 F S RAPPI=$O(@RAHLAPP@(RAPPX,RAPPI)) Q:RAPPI'>0 D
..S RAXIEN="" F S RAXIEN=$O(^RA(79.3,"AA",RAPPI,RAXIEN)) Q:RAXIEN'>0 D
...S RAX=$G(^RA(79.3,RAXIEN,0)) Q:RAX=""
...;
...S RASEND=$$GET1^DIQ(771,RAPPI,3)
...;
...S RADATE=$P(RAX,U,1) Q:RADATE=""
...I (RAHL7SDT]RADATE)!(RADATE]RAHL7EDT) Q
...;
...S RAUSER=$P(RAX,U,6)
...I RAUSER'="" S RAUSER=$$GET1^DIQ(200,RAUSER,.01) Q:'$D(@RAHLUSR@(RAUSER))
...S:RAUSER="" RAUSER="Not Known"
...;
...S RADPT=$P(RAX,U,3)
...S:RADPT'="" RADPT=$$GET1^DIQ(70,RADPT,.01)
...S:RADPT="" RADPT="Not known"
...;
...S RACN=$P(RAX,U,4)
...S:RACN="" RACN="?????"
...;
...S RAEXCP=$$GET1^DIQ(79.3,RAXIEN,1)
...;
...S @RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER)=RAXIEN
...S @RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER,"ERR")=RAEXCP
...Q
K RAPPI,RAPPX,RAX,RAXIEN,RASEND,RADATE,Y,RAUSER,RADPT,RACN,RAEXCP
Q
;
ENTRY ; List Manager Entry Point
;
D SETTMP^RAHLEX
S (HL7EX,VALMCNT)=0
;
I '$D(@RAHLSRT) D G END
.W $C(7)
.S VALMSG="Nothing to Report for selection criteria"
;
;
DISPLAY ; Create ARRAY for List Manager display on ^TMP($J,"RAHLEX")
;
S SPACES=" "
S (RAOLD,RASEND)="" F S RASEND=$O(@RAHLSRT@(RASEND)) Q:RASEND="" D
.; Blank line
.S VALMCNT=VALMCNT+1,@RAHLEX@(VALMCNT,0)=""
.; Sending Application Sub-Heading
.I RAOLD'=RASEND D
..S VALMCNT=VALMCNT+1
..S LINE=" HL7 Voice Reporting Application: "_$E(RASEND_$$REPEAT^XLFSTR(" ",30),1,30)_" "
..S @RAHLEX@(VALMCNT,0)=LINE
..D CNTRL^VALM10(VALMCNT,6,33+$L(RASEND),IORVON,IORVOFF,0)
..S RAOLD=RASEND
.;
.S RADATE="" F S RADATE=$O(@RAHLSRT@(RASEND,RADATE)) Q:RADATE="" D
..S RADPT="" F S RADPT=$O(@RAHLSRT@(RASEND,RADATE,RADPT)) Q:RADPT="" D
...S RACN="" F S RACN=$O(@RAHLSRT@(RASEND,RADATE,RADPT,RACN)) Q:RACN="" D
....S RAUSER="" F S RAUSER=$O(@RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER)) Q:RAUSER="" D
.....S RAEXCP=@RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER,"ERR")
.....S VALMCNT=VALMCNT+1 S @RAHLEX@(VALMCNT,0)="" ; Blank line
.....S VALMCNT=VALMCNT+1,HL7EX=$G(HL7EX)+1
.....S @RAHLSEL@(VALMCNT)=@RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER)
.....S LINE=$E(HL7EX_"."_$E(SPACES,1,5),1,5)
.....D DISDATE(" ")
.....S LINE=LINE_$E(XRADATE_$E(SPACES,1,22),1,22)
.....S LINE=LINE_$E($E(RADPT,1,25)_$E(SPACES,1,27),1,27)
.....S LINE=LINE_$E(RACN_$E(SPACES,1,7),1,7)
.....S LINE=LINE_$E(RAUSER,1,19)
.....S @RAHLEX@(VALMCNT,0)=LINE
.....S VALMCNT=VALMCNT+1
.....S LINE=" Error: "_RAEXCP
.....S @RAHLEX@(VALMCNT,0)=LINE
;
END ; Tidy up variables after ENTRY call only
K XRADATE,RAQUIT,RASEND,RADPT,RACN,RAEXCP,RADATE,RAUSER,LINE,RAOLD,SPACES
;
Q
;
EXIT ; Tidy variables after function (including ListMan IO* and VALM*)
K VALMCNT,HL7EX,HL,RAHL7SDT,RAHL7EDT,Y,X,POP,PAGE,DTOUT
K @RAHLEX,RAHLEX,@RAHLSRT,RAHLSRT,@RAHLSEL,RAHLSEL,TITLE,DISYS
K @RAHLAPP,RAHLAPP,@RAHLUSR,RAHLUSR
;
D:'$G(RACLR) CLEAR^VALM1
;
K VALM,VALMAR,VALMBCK,VALMBG,VALMCAP,VALMCC,VALMCNT
K VALMDDF,VALMDN,VALMHDR,VALMIOXY,VALMKEY,VALMLFT,VALMLST
K VALMMENU,VALMMSGR,VALMUP,VALMSG,RACLR
;
K IOBOFF,IOBON,IOINORM,IOINHI,IORVON,IORVOFF,IOUOFF,IOUON
Q
;
DISDATE(SEP) ; Display date in external form
; SEP is the separator between date and time - eg " " or "@" or " at "
S Y=$P(RADATE,".") D D^RAUTL
S XRADATE=Y_SEP_$E(RADATE_0,9,10)_":"_$E(RADATE_000,11,12)_":"_$E(RADATE_00000,13,14)
K Y
Q
;
HELP ; The '??' help ListMan Call:
I X="?" D Q
.D EN^DDIOL("Choose one of the options listed","","!?5")
.D EN^DDIOL("Or '??' to list More Options","","!?5")
.D WAIT^RAHLEX1
D CLEAR^VALM1
K RAH
S RAH(1)=" Rad/Nuc Med HL7 Voice Reporting Exception List"
S RAH(1,"F")=""
S RAH(2)="=============================================="
S RAH(3)="This utility lists all the Errors that have been reported from HL7"
S RAH(4)="Voice Reporting applications for Radiology/Nuclear Medicine."
S RAH(5)="It provides some additional facilities:"
S RAH(6)="1. PL - The list can be printed to screen or to a printer, prints"
S RAH(7)=" can be queued or printed immediately."
S RAH(8)="2. RS - Any rejected message listed can be re-submitted. To re-send"
S RAH(9)=" a message via HL7, first try to resolve the reported"
S RAH(10)=" problem, then return to this list and select the error. Once"
S RAH(11)=" successfully re-submitted the reported error will be purged."
S RAH(12)=" Note however, that successful re-submission does not guarantee"
S RAH(13)=" the problem has been resolved and that Radiology will be updated"
S RAH(14)="3. DE - To purge a reported error without re-submitting first."
S RAH(15)=""
F RAHI=2:1:15 S RAH(RAHI,"F")="!?5"
S RAH(5,"F")="!!"
S (RAH(3,"F"),RAH(4,"F"))="!"
D EN^DDIOL(.RAH)
S VALMBCK="R"
K RAHI,RAH
Q
RAHLEX ;HIRMFO/REL,CRT - RAD/NUC MED HL7 Voice Reporting Exception List; 02/02/99
+1 ;;5.0;Radiology/Nuclear Medicine;**12,17,25**;Mar 16, 1998
+2 ; Last Edited by CRT
+3 ;
+4 ; Sending Apps included
SET RAHLAPP="^TMP($J,""RAHLAPP"")"
KILL @RAHLAPP
+5 ; List Display
SET RAHLEX="^TMP($J,""RAHLEX"")"
KILL @RAHLEX
+6 ; X-ref Display to ^DIZ
SET RAHLSEL="^TMP($J,""RAHLSEL"")"
KILL @RAHLSEL
+7 ; Rad Users included
SET RAHLUSR="^TMP($J,""RAHLUSR"")"
KILL @RAHLUSR
+8 ; Sorted records from #79.3
SET RAHLSRT="^TMP($J,""RAHLSRT"")"
KILL @RAHLSRT
+9 SET VALMCNT=0
+10 ;
+11 WRITE @IOF
+12 ;
+13 DO EN^DDIOL("Rad/Nuc Med HL7 Voice Reporting Exception List","","!?5")
+14 ;
+15 IF ('$ORDER(^RA(79.3,0)))
Begin DoDot:1
+16 SET RACLR=1
+17 WRITE $CHAR(7)
+18 DO EN^DDIOL("No Voice Reporting Exceptions currently recorded","","!?5")
+19 DO END
End DoDot:1
GOTO EXIT
+20 ;
APPS ; 1st prompt for Sending Applications to print
+1 ; skip prompt if there is only one Sending App.
+2 ;
+3 SET RAHLAIEN=""
FOR I=1:1:2
SET RAHLAIEN=$ORDER(^RA(79.3,"AA",RAHLAIEN))
+4 IF RAHLAIEN=""
Begin DoDot:1
+5 SET RAHLAIEN=$ORDER(^RA(79.3,"AA",RAHLAIEN))
+6 SET RAHLA=$$GET1^DIQ(771,RAHLAIEN,.01)
+7 SET @RAHLAPP@(RAHLA,RAHLAIEN)=""
+8 KILL RAHLAIEN,RAHLA
End DoDot:1
GOTO STDT
+9 ;
+10 KILL RAHLAIEN
+11 SET RAINPUT=""
+12 SET RADIC="^HL(771,"
+13 SET RADIC(0)="ABEQSZ"
+14 SET RADIC("A")="Select Voice Reporting Application: "
+15 SET RADIC("B")="ALL"
+16 SET RADIC("S")="I $D(^RA(79.3,""AA"",Y))"
+17 SET RAUTIL="RAHLAPP"
+18 DO EN1^RASELCT(.RADIC,RAUTIL,"",RAINPUT)
+19 KILL RADIC,RAUTIL,RAINPUT
+20 IF '$DATA(@RAHLAPP)!$GET(RAQUIT)
Begin DoDot:1
+21 WRITE $CHAR(7)
+22 DO EN^DDIOL("No Voice Reporting Applications selected for reporting","","!?5")
+23 DO END
End DoDot:1
GOTO EXIT
+24 ;
STDT ; Prompt for Start From Date
+1 ;
+2 DO EN^DDIOL(" ","","!")
+3 KILL %DT
+4 SET %DT="AEPST"
+5 SET %DT("A")="Exception starting date/time: "
+6 ; Must be in the past
SET %DT(0)="-NOW"
+7 DO ^%DT
KILL %DT
+8 IF X']""
DO EN^DDIOL("You must enter a start date, or '^' to exit","","!?5")
GOTO STDT
+9 SET RAHL7SDT=Y
+10 IF $DATA(DTOUT)!(U[X)
DO END
GOTO EXIT
+11 ;
ETDT ; Prompt for End Date (Must be after Start Date.. obviously!)
+1 ;
+2 DO EN^DDIOL(" ","","!")
+3 SET %DT="AEPST"
+4 SET %DT("A")="Exception ending date/time: "
+5 SET %DT(0)=RAHL7SDT
+6 ; Default of current date/time
SET %DT("B")="NOW"
+7 DO ^%DT
KILL %DT
+8 IF $DATA(DTOUT)!(U[X)
DO END
GOTO EXIT
+9 SET RAHL7EDT=Y
+10 IF $PIECE(RAHL7EDT,".",2)=""
SET RAHL7EDT=+RAHL7EDT+1
+11 ;
USER ; Prompt for Users to include
+1 ; skip prompt if there is only one User on file.
+2 ; also there may be entries with no user!!
+3 ;
+4 SET RAHLUIEN=$ORDER(^RA(79.3,"AB",""))
IF RAHLUIEN=""
GOTO LISTMAN
+5 SET RAHLUIEN=$ORDER(^RA(79.3,"AB",RAHLUIEN))
+6 IF RAHLUIEN=""
Begin DoDot:1
+7 SET RAHLUIEN=$ORDER(^RA(79.3,"AB",RAHLUIEN))
+8 SET RAHLU=$$GET1^DIQ(200,RAHLUIEN,.01)
+9 SET @RAHLUSR@(RAHLU,RAHLUIEN)=""
+10 KILL RAHLUIEN,RAHLU
End DoDot:1
GOTO LISTMAN
+11 ;
+12 KILL RAHLUIEN
+13 SET RAINPUT=""
+14 SET RADIC="^VA(200,"
+15 SET RADIC(0)="ABEQZ"
+16 SET RADIC("A")="Select Radiology User: "
+17 SET RADIC("B")="ALL"
+18 ;S RADIC("S")="I $D(^RA(79.3,""AB"",Y))"
+19 SET RAUTIL="RAHLUSR"
+20 DO EN1^RASELCT(.RADIC,RAUTIL,"",RAINPUT)
+21 KILL RADIC,RAUTIL,RAINPUT
+22 IF '$DATA(@RAHLUSR)!$GET(RAQUIT)
Begin DoDot:1
+23 WRITE $CHAR(7)
+24 DO EN^DDIOL("No Radiology User selected for reporting","","!?5")
+25 DO END
End DoDot:1
GOTO EXIT
+26 ;
LISTMAN ; Call List Manager
+1 DO EN^VALM("RA HL7 VOICE REPORTING ERRORS")
+2 QUIT
+3 ;
+1 ;
+2 SET VALMHDR(1)=""
+3 QUIT
+4 ;
SETTMP ;Create ^TMP workfile with sorted records on...
+1 ;
+2 SET RAPPX=""
FOR
SET RAPPX=$ORDER(@RAHLAPP@(RAPPX))
IF RAPPX=""
QUIT
Begin DoDot:1
+3 SET RAPPI=0
FOR
SET RAPPI=$ORDER(@RAHLAPP@(RAPPX,RAPPI))
IF RAPPI'>0
QUIT
Begin DoDot:2
+4 SET RAXIEN=""
FOR
SET RAXIEN=$ORDER(^RA(79.3,"AA",RAPPI,RAXIEN))
IF RAXIEN'>0
QUIT
Begin DoDot:3
+5 SET RAX=$GET(^RA(79.3,RAXIEN,0))
IF RAX=""
QUIT
+6 ;
+7 SET RASEND=$$GET1^DIQ(771,RAPPI,3)
+8 ;
+9 SET RADATE=$PIECE(RAX,U,1)
IF RADATE=""
QUIT
+10 IF (RAHL7SDT]RADATE)!(RADATE]RAHL7EDT)
QUIT
+11 ;
+12 SET RAUSER=$PIECE(RAX,U,6)
+13 IF RAUSER'=""
SET RAUSER=$$GET1^DIQ(200,RAUSER,.01)
IF '$DATA(@RAHLUSR@(RAUSER))
QUIT
+14 IF RAUSER=""
SET RAUSER="Not Known"
+15 ;
+16 SET RADPT=$PIECE(RAX,U,3)
+17 IF RADPT'=""
SET RADPT=$$GET1^DIQ(70,RADPT,.01)
+18 IF RADPT=""
SET RADPT="Not known"
+19 ;
+20 SET RACN=$PIECE(RAX,U,4)
+21 IF RACN=""
SET RACN="?????"
+22 ;
+23 SET RAEXCP=$$GET1^DIQ(79.3,RAXIEN,1)
+24 ;
+25 SET @RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER)=RAXIEN
+26 SET @RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER,"ERR")=RAEXCP
+27 QUIT
End DoDot:3
End DoDot:2
End DoDot:1
+28 KILL RAPPI,RAPPX,RAX,RAXIEN,RASEND,RADATE,Y,RAUSER,RADPT,RACN,RAEXCP
+29 QUIT
+30 ;
ENTRY ; List Manager Entry Point
+1 ;
+2 DO SETTMP^RAHLEX
+3 SET (HL7EX,VALMCNT)=0
+4 ;
+5 IF '$DATA(@RAHLSRT)
Begin DoDot:1
+6 WRITE $CHAR(7)
+7 SET VALMSG="Nothing to Report for selection criteria"
End DoDot:1
GOTO END
+8 ;
+9 ;
DISPLAY ; Create ARRAY for List Manager display on ^TMP($J,"RAHLEX")
+1 ;
+2 SET SPACES=" "
+3 SET (RAOLD,RASEND)=""
FOR
SET RASEND=$ORDER(@RAHLSRT@(RASEND))
IF RASEND=""
QUIT
Begin DoDot:1
+4 ; Blank line
+5 SET VALMCNT=VALMCNT+1
SET @RAHLEX@(VALMCNT,0)=""
+6 ; Sending Application Sub-Heading
+7 IF RAOLD'=RASEND
Begin DoDot:2
+8 SET VALMCNT=VALMCNT+1
+9 SET LINE=" HL7 Voice Reporting Application: "_$EXTRACT(RASEND_$$REPEAT^XLFSTR(" ",30),1,30)_" "
+10 SET @RAHLEX@(VALMCNT,0)=LINE
+11 DO CNTRL^VALM10(VALMCNT,6,33+$LENGTH(RASEND),IORVON,IORVOFF,0)
+12 SET RAOLD=RASEND
End DoDot:2
+13 ;
+14 SET RADATE=""
FOR
SET RADATE=$ORDER(@RAHLSRT@(RASEND,RADATE))
IF RADATE=""
QUIT
Begin DoDot:2
+15 SET RADPT=""
FOR
SET RADPT=$ORDER(@RAHLSRT@(RASEND,RADATE,RADPT))
IF RADPT=""
QUIT
Begin DoDot:3
+16 SET RACN=""
FOR
SET RACN=$ORDER(@RAHLSRT@(RASEND,RADATE,RADPT,RACN))
IF RACN=""
QUIT
Begin DoDot:4
+17 SET RAUSER=""
FOR
SET RAUSER=$ORDER(@RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER))
IF RAUSER=""
QUIT
Begin DoDot:5
+18 SET RAEXCP=@RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER,"ERR")
+19 ; Blank line
SET VALMCNT=VALMCNT+1
SET @RAHLEX@(VALMCNT,0)=""
+20 SET VALMCNT=VALMCNT+1
SET HL7EX=$GET(HL7EX)+1
+21 SET @RAHLSEL@(VALMCNT)=@RAHLSRT@(RASEND,RADATE,RADPT,RACN,RAUSER)
+22 SET LINE=$EXTRACT(HL7EX_"."_$EXTRACT(SPACES,1,5),1,5)
+23 DO DISDATE(" ")
+24 SET LINE=LINE_$EXTRACT(XRADATE_$EXTRACT(SPACES,1,22),1,22)
+25 SET LINE=LINE_$EXTRACT($EXTRACT(RADPT,1,25)_$EXTRACT(SPACES,1,27),1,27)
+26 SET LINE=LINE_$EXTRACT(RACN_$EXTRACT(SPACES,1,7),1,7)
+27 SET LINE=LINE_$EXTRACT(RAUSER,1,19)
+28 SET @RAHLEX@(VALMCNT,0)=LINE
+29 SET VALMCNT=VALMCNT+1
+30 SET LINE=" Error: "_RAEXCP
+31 SET @RAHLEX@(VALMCNT,0)=LINE
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+32 ;
END ; Tidy up variables after ENTRY call only
+1 KILL XRADATE,RAQUIT,RASEND,RADPT,RACN,RAEXCP,RADATE,RAUSER,LINE,RAOLD,SPACES
+2 ;
+3 QUIT
+4 ;
EXIT ; Tidy variables after function (including ListMan IO* and VALM*)
+1 KILL VALMCNT,HL7EX,HL,RAHL7SDT,RAHL7EDT,Y,X,POP,PAGE,DTOUT
+2 KILL @RAHLEX,RAHLEX,@RAHLSRT,RAHLSRT,@RAHLSEL,RAHLSEL,TITLE,DISYS
+3 KILL @RAHLAPP,RAHLAPP,@RAHLUSR,RAHLUSR
+4 ;
+5 IF '$GET(RACLR)
DO CLEAR^VALM1
+6 ;
+7 KILL VALM,VALMAR,VALMBCK,VALMBG,VALMCAP,VALMCC,VALMCNT
+8 KILL VALMDDF,VALMDN,VALMHDR,VALMIOXY,VALMKEY,VALMLFT,VALMLST
+9 KILL VALMMENU,VALMMSGR,VALMUP,VALMSG,RACLR
+10 ;
+11 KILL IOBOFF,IOBON,IOINORM,IOINHI,IORVON,IORVOFF,IOUOFF,IOUON
+12 QUIT
+13 ;
DISDATE(SEP) ; Display date in external form
+1 ; SEP is the separator between date and time - eg " " or "@" or " at "
+2 SET Y=$PIECE(RADATE,".")
DO D^RAUTL
+3 SET XRADATE=Y_SEP_$EXTRACT(RADATE_0,9,10)_":"_$EXTRACT(RADATE_000,11,12)_":"_$EXTRACT(RADATE_00000,13,14)
+4 KILL Y
+5 QUIT
+6 ;
HELP ; The '??' help ListMan Call:
+1 IF X="?"
Begin DoDot:1
+2 DO EN^DDIOL("Choose one of the options listed","","!?5")
+3 DO EN^DDIOL("Or '??' to list More Options","","!?5")
+4 DO WAIT^RAHLEX1
End DoDot:1
QUIT
+5 DO CLEAR^VALM1
+6 KILL RAH
+7 SET RAH(1)=" Rad/Nuc Med HL7 Voice Reporting Exception List"
+8 SET RAH(1,"F")=""
+9 SET RAH(2)="=============================================="
+10 SET RAH(3)="This utility lists all the Errors that have been reported from HL7"
+11 SET RAH(4)="Voice Reporting applications for Radiology/Nuclear Medicine."
+12 SET RAH(5)="It provides some additional facilities:"
+13 SET RAH(6)="1. PL - The list can be printed to screen or to a printer, prints"
+14 SET RAH(7)=" can be queued or printed immediately."
+15 SET RAH(8)="2. RS - Any rejected message listed can be re-submitted. To re-send"
+16 SET RAH(9)=" a message via HL7, first try to resolve the reported"
+17 SET RAH(10)=" problem, then return to this list and select the error. Once"
+18 SET RAH(11)=" successfully re-submitted the reported error will be purged."
+19 SET RAH(12)=" Note however, that successful re-submission does not guarantee"
+20 SET RAH(13)=" the problem has been resolved and that Radiology will be updated"
+21 SET RAH(14)="3. DE - To purge a reported error without re-submitting first."
+22 SET RAH(15)=""
+23 FOR RAHI=2:1:15
SET RAH(RAHI,"F")="!?5"
+24 SET RAH(5,"F")="!!"
+25 SET (RAH(3,"F"),RAH(4,"F"))="!"
+26 DO EN^DDIOL(.RAH)
+27 SET VALMBCK="R"
+28 KILL RAHI,RAH
+29 QUIT
