Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUHL7

TIUHL7.m

Go to the documentation of this file.
  1. TIUHL7 ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**200,228**;Jun 20, 1997
  1. Q
  1. ACTION(ACT) ;
  1. N TIUMSG,TIUSEL
  1. D FULL^VALM1
  1. I VALMCNT=0 W !,"No documents to select." H 3 Q
  1. S TIUSEL=$P(XQORNOD(0),"=",2)
  1. I TIUSEL="" D Q:'+TIUSEL
  1. . I VALMLST=1 S TIUSEL=1 Q
  1. . N DIR,X,Y
  1. . S DIR("A")=$S(ACT="DELETE":"Select Message(s) to Delete",ACT="VIEW":"Select Message to View")_": (1-"_VALMLST_") "
  1. . S DIR("?")=$S(ACT="DELETE":"Select one or more messages to be deleted",ACT="VIEW":"Select one message to view")
  1. . S DIR(0)=$S(ACT="DELETE":"L",ACT="VIEW":"N")_"OA^1:"_VALMLST
  1. . D ^DIR S TIUSEL=Y
  1. I TIUSEL["," S TIUSEL=$E(TIUSEL,1,($L(TIUSEL)-1))
  1. F X=1:1:$L(TIUSEL,",") S TIUMSG($P(TIUSEL,",",X))=$O(@VALMAR@("IDX",$P(TIUSEL,",",X),""))
  1. I ACT="SELECT" S ACT=$S(+$L(TIUSEL,",")=1:"VIEW",1:"DELETE")
  1. D @ACT
  1. Q
  1. DELETE ;
  1. D FULL^VALM1
  1. W @IOF,"Deleting the following message(s):",!
  1. W !," Receiving Sending Message",!
  1. W IOUON," Message ID Date/Time Processed Application Application Status ",!,IOUOFF
  1. S TIUSEL="" F S TIUSEL=$O(TIUMSG(TIUSEL)) Q:'+TIUSEL W @VALMAR@(TIUSEL,0),! ; TIUSEL," ",TIUMSG(TIUSEL),!
  1. I $$READ^TIUU("Y","Delete message(s)") D
  1. . S TIUSEL="" F S TIUSEL=$O(TIUMSG(TIUSEL)) Q:'+TIUSEL K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U))
  1. . W !!,"Deleting...finished."
  1. W ! I $$READ^TIUU("EA","Press <RETURN> to continue")
  1. D CLEAN^VALM10,INIT,RE^VALM4
  1. S VALMBG=1
  1. Q
  1. REFRESH ;
  1. D CLEAN^VALM10,INIT,RE^VALM4
  1. S VALMBG=1
  1. Q
  1. VIEW ;
  1. D EN^TIUHL7A
  1. D CLEAN^VALM10,INIT,RE^VALM4
  1. S VALMBG=1
  1. Q
  1. EN ; main entry point for TIUHL7 MSG MGR
  1. N POP
  1. D EN^VALM("TIUHL7 MSG MGR")
  1. Q
  1. HDR ; header code
  1. N HDR S HDR="TIUHL7 Received Messages"
  1. S VALMHDR(1)=$$SETSTR^VALM1(HDR,"",(IOM-$L(HDR))/2,$L(HDR))
  1. S VALMHDR(2)=""
  1. S VALMHDR(3)=" Receiving Sending Message"
  1. D XQORM
  1. Q
  1. INIT ; init variables and list array
  1. N TIU,TIUDISP,TIUDT,TIUFS,TIUMID
  1. S TIU("CUOFF")=$C(27)_"[?25l",TIU("CUON")=$C(27)_"[?25h" ; cursor values
  1. W TIU("CUOFF"),!!,"Searching for messages..."
  1. S (TIUDT,VALMCNT)=0,(TIUDISP,TIUMID)=""
  1. F S TIUDT=$O(^XTMP("TIUHL7",TIUDT)) Q:'+TIUDT F S TIUMID=$O(^XTMP("TIUHL7",TIUDT,TIUMID)) Q:'+TIUMID D
  1. . S VALMCNT=VALMCNT+1 W:VALMCNT#3=0 "."
  1. . S TIUFS=$E($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),4)
  1. . S TIUDISP=$$SETSTR^VALM1(VALMCNT,"",1,8)
  1. . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,3),TIUDISP,"Message ID")
  1. . S TIUDISP=$$SETFLD^VALM1($$FMTE^XLFDT(TIUDT),TIUDISP,"Date/Time Processed")
  1. . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,4),TIUDISP,"RecApp")
  1. . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,5),TIUDISP,"SendApp")
  1. . S TIU=$P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,2),TIU=$S(TIU="AR":"Rejected",TIU="AA":"Accepted",1:"Unknown")
  1. . S TIUDISP=$$SETFLD^VALM1(TIU,TIUDISP,"Status")
  1. . D SET^VALM10(VALMCNT,TIUDISP,TIUMID_U_TIUDT)
  1. ;
  1. I VALMCNT=0 D
  1. . S TIU="No records found to satisfy search criteria."
  1. . D SET^VALM10(2,$$SETSTR^VALM1(TIU,"",(IOM-$L(TIU))/2,$L(TIU)),0)
  1. Q
  1. HELP ; help code
  1. I X="?" S POP=1
  1. D FULL^VALM1
  1. W !!,"The following actions are available:"
  1. W !!,"View a Message - View a selected message"
  1. W !,"Delete Message(s) - Delete selected message(s)"
  1. W !,"Refresh Message List - Refresh display"
  1. W !!,"If ONE message is selected, default action is VIEW"
  1. W !,"If multiple messages are selected, default action is DELETE",!
  1. I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue")
  1. S VALMBCK="R",POP=0
  1. Q
  1. EXIT ; exit code
  1. D XQORM
  1. Q
  1. EXPND ; expand code
  1. Q
  1. XQORM ; default action for list manager
  1. S XQORM("#")=$O(^ORD(101,"B","TIUHL7 MSG MGR SELECT",0))_U_"1:"_VALMCNT
  1. Q