| 1 | HLEVX003 ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | REPDINUM ; Create event log entry(s) for DINUM problems. (Use the
|
|---|
| 5 | ; condensed report text instead of making one event for every DINUM
|
|---|
| 6 | ; problem.)
|
|---|
| 7 | ;
|
|---|
| 8 | ; {01/16/04 - Added so wouldn't create thousands of events.}
|
|---|
| 9 | ;
|
|---|
| 10 | N LINK,LN,NO,PROB,QUIT,TAG,TXT,WAY
|
|---|
| 11 | ;
|
|---|
| 12 | KILL ^TMP($J,"HLEVDINUM")
|
|---|
| 13 | ;
|
|---|
| 14 | S LN=0,PROB="",QUIT=0,WAY="",LINK=""
|
|---|
| 15 | F S LN=$O(^TMP($J,"HLEVREP",LN)) Q:'LN!(QUIT) D
|
|---|
| 16 | . S TXT=^TMP($J,"HLEVREP",LN)
|
|---|
| 17 | . I $P(TXT," ")="DINUM" S PROB="DINUM",WAY="",LINK=""
|
|---|
| 18 | . QUIT:PROB'="DINUM" ;-> No DINUMs, or not to them yet...
|
|---|
| 19 | . ; $$RDT returns LINK and WAY...
|
|---|
| 20 | . S TXT=$$RDT(TXT) QUIT:TXT']""!(LINK']"")!(WAY']"") ;->
|
|---|
| 21 | . F NO=1:1:$L(TXT,",") D
|
|---|
| 22 | . . S TXT(1)=$P(TXT,",",NO) QUIT:TXT(1)']"" ;->
|
|---|
| 23 | . . S ^TMP($J,"HLEVDINUM",LINK,WAY,TXT(1))=""
|
|---|
| 24 | ;
|
|---|
| 25 | ; No DINUM problems exist...
|
|---|
| 26 | S LINK=""
|
|---|
| 27 | F S LINK=$O(^TMP($J,"HLEVDINUM",LINK)) Q:LINK']"" D
|
|---|
| 28 | . S WAY=""
|
|---|
| 29 | . F S WAY=$O(^TMP($J,"HLEVDINUM",LINK,WAY)) Q:WAY']"" D
|
|---|
| 30 | . . S MIENS=""
|
|---|
| 31 | . . F S MIENS=$O(^TMP($J,"HLEVDINUM",LINK,WAY,MIENS)) Q:MIENS']"" D
|
|---|
| 32 | . . . S X=$$LOG^HLEVAPI2("870-DINUM","LINK^WAY^MIENS")
|
|---|
| 33 | ;
|
|---|
| 34 | KILL ^TMP($J,"HLEVDINUM")
|
|---|
| 35 | ;
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | RDT(TXT) ; Strip down TXT to include only DINUM report details...
|
|---|
| 39 | ; Returns LINK & WAY...
|
|---|
| 40 | ;
|
|---|
| 41 | ; {01/16/04 - See REPDINUM}
|
|---|
| 42 | ;
|
|---|
| 43 | ; First line of DINUM INCOMING or OUTGOING...
|
|---|
| 44 | I TXT[" INCOMING " D QUIT $P(TXT,"COMING ",2,99) ;->
|
|---|
| 45 | . S LINK=$P($E(TXT,16,99),"]")_"]"
|
|---|
| 46 | . S WAY="INCOMING"
|
|---|
| 47 | .
|
|---|
| 48 | I TXT[" OUTGOING " D QUIT $P(TXT,"GOING ",2,99) ;->
|
|---|
| 49 | . S LINK=$P($E(TXT,16,99),"]")_"]"
|
|---|
| 50 | . S WAY="OUTGOING"
|
|---|
| 51 | ;
|
|---|
| 52 | ; Strip spaces and check pattern match...
|
|---|
| 53 | S TXT=$TR(TXT," ","") QUIT:TXT']"" "" ;->
|
|---|
| 54 | QUIT:TXT'?1.N1":"1.N1"(#"1.N1")".E "" ;->
|
|---|
| 55 | ;
|
|---|
| 56 | Q TXT
|
|---|
| 57 | ;
|
|---|
| 58 | EOR ;HLEVX003 - VistA HL7 Event Monitor Code ;5/30/03 15:25
|
|---|
