- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHL7.m
r613 r623 1 TIUHL7 ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05 2 ;;1.0;TEXT INTEGRATION UTILITIES;**200,228**;Jun 20, 1997 3 Q 4 ACTION(ACT) ; 5 N TIUMSG,TIUSEL 6 D FULL^VALM1 7 I VALMCNT=0 W !,"No documents to select." H 3 Q 8 S TIUSEL=$P(XQORNOD(0),"=",2) 9 I TIUSEL="" D Q:'+TIUSEL 10 . I VALMLST=1 S TIUSEL=1 Q 11 . N DIR,X,Y 12 . S DIR("A")=$S(ACT="DELETE":"Select Message(s) to Delete",ACT="VIEW":"Select Message to View")_": (1-"_VALMLST_") " 13 . S DIR("?")=$S(ACT="DELETE":"Select one or more messages to be deleted",ACT="VIEW":"Select one message to view") 14 . S DIR(0)=$S(ACT="DELETE":"L",ACT="VIEW":"N")_"OA^1:"_VALMLST 15 . D ^DIR S TIUSEL=Y 16 I TIUSEL["," S TIUSEL=$E(TIUSEL,1,($L(TIUSEL)-1)) 17 F X=1:1:$L(TIUSEL,",") S TIUMSG($P(TIUSEL,",",X))=$O(@VALMAR@("IDX",$P(TIUSEL,",",X),"")) 18 I ACT="SELECT" S ACT=$S(+$L(TIUSEL,",")=1:"VIEW",1:"DELETE") 19 D @ACT 20 Q 21 DELETE ; 22 D FULL^VALM1 23 W @IOF,"Deleting the following message(s):",! 24 W !," Receiving Sending Message",! 25 W IOUON," Message ID Date/Time Processed Application Application Status ",!,IOUOFF 26 S TIUSEL="" F S TIUSEL=$O(TIUMSG(TIUSEL)) Q:'+TIUSEL W @VALMAR@(TIUSEL,0),! ; TIUSEL," ",TIUMSG(TIUSEL),! 27 I $$READ^TIUU("Y","Delete message(s)") D 28 . S TIUSEL="" F S TIUSEL=$O(TIUMSG(TIUSEL)) Q:'+TIUSEL K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U)) 29 . W !!,"Deleting...finished." 30 W ! I $$READ^TIUU("EA","Press <RETURN> to continue") 31 D CLEAN^VALM10,INIT,RE^VALM4 32 S VALMBG=1 33 Q 34 REFRESH ; 35 D CLEAN^VALM10,INIT,RE^VALM4 36 S VALMBG=1 37 Q 38 VIEW ; 39 D EN^TIUHL7A 40 D CLEAN^VALM10,INIT,RE^VALM4 41 S VALMBG=1 42 Q 43 EN ; main entry point for TIUHL7 MSG MGR 44 N POP 45 D EN^VALM("TIUHL7 MSG MGR") 46 Q 47 HDR ; header code 48 N HDR S HDR="TIUHL7 Received Messages" 49 S VALMHDR(1)=$$SETSTR^VALM1(HDR,"",(IOM-$L(HDR))/2,$L(HDR)) 50 S VALMHDR(2)="" 51 S VALMHDR(3)=" Receiving Sending Message" 52 D XQORM 53 Q 54 INIT ; init variables and list array 55 N TIU,TIUDISP,TIUDT,TIUFS,TIUMID 56 S TIU("CUOFF")=$C(27)_"[?25l",TIU("CUON")=$C(27)_"[?25h" ; cursor values 57 W TIU("CUOFF"),!!,"Searching for messages..." 58 S (TIUDT,VALMCNT)=0,(TIUDISP,TIUMID)="" 59 F S TIUDT=$O(^XTMP("TIUHL7",TIUDT)) Q:'+TIUDT F S TIUMID=$O(^XTMP("TIUHL7",TIUDT,TIUMID)) Q:'+TIUMID D 60 . S VALMCNT=VALMCNT+1 W:VALMCNT#3=0 "." 61 . S TIUFS=$E($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),4) 62 . S TIUDISP=$$SETSTR^VALM1(VALMCNT,"",1,8) 63 . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,3),TIUDISP,"Message ID") 64 . S TIUDISP=$$SETFLD^VALM1($$FMTE^XLFDT(TIUDT),TIUDISP,"Date/Time Processed") 65 . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,4),TIUDISP,"RecApp") 66 . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,5),TIUDISP,"SendApp") 67 . S TIU=$P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),TIUFS,2),TIU=$S(TIU="AR":"Rejected",TIU="AA":"Accepted",1:"Unknown") 68 . S TIUDISP=$$SETFLD^VALM1(TIU,TIUDISP,"Status") 69 . D SET^VALM10(VALMCNT,TIUDISP,TIUMID_U_TIUDT) 70 ; 71 I VALMCNT=0 D 72 . S TIU="No records found to satisfy search criteria." 73 . D SET^VALM10(2,$$SETSTR^VALM1(TIU,"",(IOM-$L(TIU))/2,$L(TIU)),0) 74 Q 75 HELP ; help code 76 I X="?" S POP=1 77 D FULL^VALM1 78 W !!,"The following actions are available:" 79 W !!,"View a Message - View a selected message" 80 W !,"Delete Message(s) - Delete selected message(s)" 81 W !,"Refresh Message List - Refresh display" 82 W !!,"If ONE message is selected, default action is VIEW" 83 W !,"If multiple messages are selected, default action is DELETE",! 84 I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue") 85 S VALMBCK="R",POP=0 86 Q 87 EXIT ; exit code 88 D XQORM 89 Q 90 EXPND ; expand code 91 Q 92 XQORM ; default action for list manager 93 S XQORM("#")=$O(^ORD(101,"B","TIUHL7 MSG MGR SELECT",0))_U_"1:"_VALMCNT 94 Q 1 TIUHL7 ; SLC/AJB - TIUHL7 Msg Mgr ; 10OCT05 2 ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997 3 Q 4 ACTION(ACT) ; 5 N TIUMSG,TIUSEL 6 D FULL^VALM1 7 I VALMCNT=0 W !,"No documents to select." H 3 Q 8 S TIUSEL=$P(XQORNOD(0),"=",2) 9 I TIUSEL="" D Q:'+TIUSEL 10 . I VALMLST=1 S TIUSEL=1 Q 11 . N DIR,X,Y 12 . S DIR("A")=$S(ACT="DELETE":"Select Message(s) to Delete",ACT="VIEW":"Select Message to View")_": (1-"_VALMLST_") " 13 . S DIR("?")=$S(ACT="DELETE":"Select one or more messages to be deleted",ACT="VIEW":"Select one message to view") 14 . S DIR(0)=$S(ACT="DELETE":"L",ACT="VIEW":"N")_"OA^1:"_VALMLST 15 . D ^DIR S TIUSEL=Y 16 I TIUSEL["," S TIUSEL=$E(TIUSEL,1,($L(TIUSEL)-1)) 17 F X=1:1:$L(TIUSEL,",") S TIUMSG($P(TIUSEL,",",X))=$O(@VALMAR@("IDX",$P(TIUSEL,",",X),"")) 18 I ACT="SELECT" S ACT=$S(+$L(TIUSEL,",")=1:"VIEW",1:"DELETE") 19 D @ACT 20 Q 21 DELETE ; 22 D FULL^VALM1 23 W @IOF,"Deleting the following message(s):",! 24 W !," Receiving Sending Message",! 25 W IOUON," Message ID Date/Time Processed Application Application Status ",!,IOUOFF 26 S TIUSEL="" F S TIUSEL=$O(TIUMSG(TIUSEL)) Q:'+TIUSEL W @VALMAR@(TIUSEL,0),! ; TIUSEL," ",TIUMSG(TIUSEL),! 27 I $$READ^TIUU("Y","Delete message(s)") D 28 . S TIUSEL="" F S TIUSEL=$O(TIUMSG(TIUSEL)) Q:'+TIUSEL K ^XTMP("TIUHL7",$P(TIUMSG(TIUSEL),U,2),$P(TIUMSG(TIUSEL),U)) 29 . W !!,"Deleting...finished." 30 W ! I $$READ^TIUU("EA","Press <RETURN> to continue") 31 D CLEAN^VALM10,INIT,RE^VALM4 32 S VALMBG=1 33 Q 34 REFRESH ; 35 D CLEAN^VALM10,INIT,RE^VALM4 36 S VALMBG=1 37 Q 38 VIEW ; 39 D EN^TIUHL7A 40 D CLEAN^VALM10,INIT,RE^VALM4 41 S VALMBG=1 42 Q 43 EN ; main entry point for TIUHL7 MSG MGR 44 N POP 45 D EN^VALM("TIUHL7 MSG MGR") 46 Q 47 HDR ; header code 48 N HDR S HDR="TIUHL7 Received Messages" 49 S VALMHDR(1)=$$SETSTR^VALM1(HDR,"",(IOM-$L(HDR))/2,$L(HDR)) 50 S VALMHDR(2)="" 51 S VALMHDR(3)=" Receiving Sending Message" 52 D XQORM 53 Q 54 INIT ; init variables and list array 55 N TIU,TIUDISP,TIUDT,TIUMID 56 S TIU("CUOFF")=$C(27)_"[?25l",TIU("CUON")=$C(27)_"[?25h" ; cursor values 57 W TIU("CUOFF"),!!,"Searching for messages..." 58 S (TIUDT,VALMCNT)=0,(TIUDISP,TIUMID)="" 59 F S TIUDT=$O(^XTMP("TIUHL7",TIUDT)) Q:'+TIUDT F S TIUMID=$O(^XTMP("TIUHL7",TIUDT,TIUMID)) Q:'+TIUMID D 60 . S VALMCNT=VALMCNT+1 W:VALMCNT#3=0 "." 61 . S TIUDISP=$$SETSTR^VALM1(VALMCNT,"",1,8) 62 . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),U,3),TIUDISP,"Message ID") 63 . S TIUDISP=$$SETFLD^VALM1($$FMTE^XLFDT(TIUDT),TIUDISP,"Date/Time Processed") 64 . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),U,4),TIUDISP,"RecApp") 65 . S TIUDISP=$$SETFLD^VALM1($P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),U,5),TIUDISP,"SendApp") 66 . S TIU=$P($G(^XTMP("TIUHL7",TIUDT,TIUMID,"MSGRESULT",1)),U,2),TIU=$S(TIU="AR":"Rejected",TIU="AA":"Accepted",1:"Unknown") 67 . S TIUDISP=$$SETFLD^VALM1(TIU,TIUDISP,"Status") 68 . D SET^VALM10(VALMCNT,TIUDISP,TIUMID_U_TIUDT) 69 ; 70 I VALMCNT=0 D 71 . S TIU="No records found to satisfy search criteria." 72 . D SET^VALM10(2,$$SETSTR^VALM1(TIU,"",(IOM-$L(TIU))/2,$L(TIU)),0) 73 Q 74 HELP ; help code 75 I X="?" S POP=1 76 D FULL^VALM1 77 W !!,"The following actions are available:" 78 W !!,"View a Message - View a selected message" 79 W !,"Delete Message(s) - Delete selected message(s)" 80 W !,"Refresh Message List - Refresh display" 81 W !!,"If ONE message is selected, default action is VIEW" 82 W !,"If multiple messages are selected, default action is DELETE",! 83 I +$G(POP) I $$READ^TIUU("EA","Press <RETURN> to continue") 84 S VALMBCK="R",POP=0 85 Q 86 EXIT ; exit code 87 D XQORM 88 Q 89 EXPND ; expand code 90 Q 91 XQORM ; default action for list manager 92 S XQORM("#")=$O(^ORD(101,"B","TIUHL7 MSG MGR SELECT",0))_U_"1:"_VALMCNT 93 Q
Note:
See TracChangeset
for help on using the changeset viewer.