DGPT701P ;ALB/MTC - Parse 701 Record String ; 13 NOV 92
 ;;5.3;Registration;**164,415**;Aug 13, 1993
 ;
EN ;
PARSE ; Parse record string
 S DGPTDDTD=$E(DGPTSTR,31,40),DGPTDDS=$$FMDT^DGPT101($E(DGPTDDTD,1,6))_"."_$E(DGPTDDTD,7,10)
 S DGPTDSP=$E(DGPTSTR,41,42),DGPTDTY=$E(DGPTSTR,43)
 S DGPTDOP=$E(DGPTSTR,44),DGPTDVA=$E(DGPTSTR,45),DGPTDPD=$E(DGPTSTR,46),DGPTDRF=$E(DGPTSTR,47,52),DGPTDAS=$E(DGPTSTR,53,55),DGPTDCP=$E(DGPTSTR,57),DGPTDDXE=$E(DGPTSTR,58,64),DGPTDDXO=$E(DGPTSTR,65)
 S DGPTDLR=$E(DGPTSTR,66,71),DGPTDLC=$E(DGPTSTR,72,73),DGPTDSC=$E(DGPTSTR,74,76)
 S DGPT70LG=$E(DGPTSTR,77),DGPT70SU=$E(DGPTSTR,78),DGPT70DR=$E(DGPTSTR,79,82),DGPT70X4=$E(DGPTSTR,83),DGPTDXV1=$E(DGPTSTR,84,85),DGPTDXV2=$E(DGPTSTR,86,87)
 Q