source: WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDHL7U3.m@ 691

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 
1MDHL7U3 ; 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 ;
5PURGE(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.