DPTDZMDH.m

DPTDZMDH ; IHS/TUCSON/JCM - input tx on merge direction field ;

 ;;1.0;PATIENT MERGE;;FEB 02, 1994

 Q:$D(ZTQUEUED)

 W !!,"In the input transform routine"

 Q

DPTDZMDH  ; IHS/TUCSON/JCM - input tx on merge direction field ;

 +1       ;;1.0;PATIENT MERGE;;FEB 02, 1994

 +2        IF $DATA(ZTQUEUED)

               QUIT 

 +3        WRITE !!,"In the input transform routine"

 +4        QUIT