|
Last change
on this file since 691 was 623, checked in by George Lilly, 15 years ago |
|
revised back to 6/30/08 version
|
|
File size:
503 bytes
|
| Line | |
|---|
| 1 | MDHL7U3 ; HOIFO/WAA -Utilities for CP to process HL7 messages ; 7/26/00
|
|---|
| 2 | ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
|
|---|
| 3 | ; Reference DBIA #4262 [Supported] for HL7 call.
|
|---|
| 4 | ;
|
|---|
| 5 | PURGE(MDD7031) ;
|
|---|
| 6 | ; This sub-routine will delete HL7 772 Message text after a message
|
|---|
| 7 | ; been processed by Imaging.
|
|---|
| 8 | Q:'$D(^MDD(703.1,MDD7031,0)) ; No entry found
|
|---|
| 9 | S MDD772=$P(^MDD(703.1,MDD7031,0),U,6) Q:MDD772=""
|
|---|
| 10 | D DELBODY^HLUOPT2(MDD772,"CLINICAL PROCEDURES message purge","^TMP($J,""IN"")")
|
|---|
| 11 | S $P(^MDD(703.1,MDD7031,0),U,6)=""
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
