Last change
on this file since 1407 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
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.