Changeset 623 for WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHL7A.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHL7A.m (modified) (1 diff)

WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHL7A.m

@@ -1 @@
-TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
-        ;;1.0;TEXT INTEGRATION UTILITIES;**200,228**;Jun 20, 1997
-        Q
-DELETE  ;
-        D FULL^VALM1
-        W ! I $$READ^TIUU("Y","Are you sure you wish to delete this message") D
-        . K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U))
-        . W !!,"Message deleted."
-        W ! I $$READ^TIUU("EA","Press <RETURN> to continue")
-        Q
-REPROC  ;
-        N HL771RF,HL771SF,HLCS,HLDOM,HLINSTN,HLPARAM,HLPID,HLREC,HLRFREQ,HLSFREQ
-        D FULL^VALM1
-        W !!,"Reprocessing message..."
-        I '$$REPROC^HLUTIL($P(TIUMSG(TIUSEL),U),"PROCMSG^TIUHL7P1") W !,"finished.",! I $$READ^TIUU("EA","Press <RETURN> to continue") Q
-        W "ERROR.  Unable to reprocess this message.",!
-        I $$READ^TIUU("EA","Press <RETURN> to continue")
-        Q
-EN      ; main entry point for TIUHL7 MSG VIEW
-        N TIULVL
-        D EN^VALM("TIUHL7 MSG VIEW")
-        K ^TMP("VALMAR",$J,TIULVL)
-        Q
-HDR     ;
-        Q
-INIT    ;
-        N TIULINE,TIUX
-        S TIULVL=VALMEVL,VALMCNT=0
-        F TIUX="MSGRESULT","MSG" D
-        . N TIUCNT,TIUTEXT,TIUVAL S TIUVAL=80 ; TIUVAL is column width for display in LM - each line will be <=TIUVAL
-        . S TIULINE="" F  S TIULINE=$O(^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)) Q:'+TIULINE  D
-        . . S TIUTEXT=^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)
-        . . F TIUCNT=1:1:(($L(TIUTEXT)\TIUVAL)+1) S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,$E(TIUTEXT,(TIUVAL*(TIUCNT-1)+1),(TIUVAL*TIUCNT)))
-        . S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,"")
-        Q
-HELP    ; help code
-        I X="?" S POP=1
-        D FULL^VALM1
-        W !!,"The following actions are available:"
-        W !!,"Delete Message    - Delete the current message"
-        W !,"Reprocess Message - Reprocess the current message",!
-        I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue")
-        S VALMBCK="R",POP=0
-        Q
-EXIT    ; exit code
-        Q
-EXPND   ; expand code
-        Q
+TIUHL7A ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
+ ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
+ Q
+DELETE ;
+ D FULL^VALM1
+ W ! I $$READ^TIUU("Y","Are you sure you wish to delete this message") D
+ . K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U))
+ . W !!,"Message deleted."
+ W ! I $$READ^TIUU("EA","Press <RETURN> to continue")
+ Q
+REPROC ;
+ N HL771RF,HL771SF,HLCS,HLDOM,HLINSTN,HLPARAM,HLPID,HLREC,HLRFREQ,HLSFREQ
+ D FULL^VALM1
+ W !!,"Reprocessing message..."
+ I '$$REPROC^HLUTIL($P(TIUMSG(TIUSEL),U),"PROCMSG^TIUHL7P1") W !,"finished.",! I $$READ^TIUU("EA","Press <RETURN> to continue") Q
+ W "ERROR.  Unable to reprocess this message.",!
+ I $$READ^TIUU("EA","Press <RETURN> to continue")
+ Q
+EN ; main entry point for TIUHL7 MSG VIEW
+ N TIULVL
+ D EN^VALM("TIUHL7 MSG VIEW")
+ K ^XTMP("VALMAR",$J,TIULVL)
+ Q
+HDR ;
+ Q
+INIT ;
+ N TIULINE,TIUX
+ S TIULVL=VALMEVL,VALMCNT=0
+ F TIUX="MSGRESULT","MSG" D
+ . N TIUCNT,TIUTEXT,TIUVAL S TIUVAL=80 ; TIUVAL is column width for display in LM - each line will be <=TIUVAL
+ . S TIULINE="" F  S TIULINE=$O(^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)) Q:'+TIULINE  D
+ . . S TIUTEXT=^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U),TIUX,TIULINE)
+ . . F TIUCNT=1:1:(($L(TIUTEXT)\TIUVAL)+1) S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,$E(TIUTEXT,(TIUVAL*(TIUCNT-1)+1),(TIUVAL*TIUCNT)))
+ . S VALMCNT=VALMCNT+1 D SET^VALM10(VALMCNT,"")
+ Q
+HELP ; help code
+ I X="?" S POP=1
+ D FULL^VALM1
+ W !!,"The following actions are available:"
+ W !!,"Delete Message    - Delete the current message"
+ W !,"Reprocess Message - Reprocess the current message",!
+ I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue")
+ S VALMBCK="R",POP=0
+ Q
+EXIT ; exit code
+ Q
+EXPND ; expand code
+ Q