GMRCPURG.m

GMRCPURG ;SLC/DLT,DCM - Purge orders from the Order File 100 ;10/21/98  09:07

 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

CPRSPURG(GMRCO) ;Purge File 100 record number from file 123 upon request from ORDER ENTRY/RESULTS REPORTING

 ;Called from GMRCHL7A when HL-7 control code is GMRCTRLC="Z@"

 ;GMRCO=IEN from file 123 which is to have file 100 pointer deleted

 ;

 Q  ; This functionality will be introduced with a later patch

 ;

GMRCPURG  ;SLC/DLT,DCM - Purge orders from the Order File 100 ;10/21/98  09:07

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997

CPRSPURG(GMRCO) ;Purge File 100 record number from file 123 upon request from ORDER ENTRY/RESULTS REPORTING

 +1       ;Called from GMRCHL7A when HL-7 control code is GMRCTRLC="Z@"

 +2       ;GMRCO=IEN from file 123 which is to have file 100 pointer deleted

 +3       ;

 +4       ; This functionality will be introduced with a later patch

           QUIT 

 +5       ;