DGPT701P.m

DGPT701P ;ALB/MTC - Parse 701 Record String ; 13 NOV 92

 ;;5.3;Registration;**164,415,1015**;Aug 13, 1993;Build 21

 ;

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

DGPT701P  ;ALB/MTC - Parse 701 Record String ; 13 NOV 92

 +1       ;;5.3;Registration;**164,415,1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ;

PARSE     ; Parse record string

 +1        SET DGPTDDTD=$EXTRACT(DGPTSTR,31,40)

           SET DGPTDDS=$$FMDT^DGPT101($EXTRACT(DGPTDDTD,1,6))_"."_$EXTRACT(DGPTDDTD,7,10)

 +2        SET DGPTDSP=$EXTRACT(DGPTSTR,41,42)

           SET DGPTDTY=$EXTRACT(DGPTSTR,43)

 +3        SET DGPTDOP=$EXTRACT(DGPTSTR,44)

           SET DGPTDVA=$EXTRACT(DGPTSTR,45)

           SET DGPTDPD=$EXTRACT(DGPTSTR,46)

           SET DGPTDRF=$EXTRACT(DGPTSTR,47,52)

           SET DGPTDAS=$EXTRACT(DGPTSTR,53,55)

           SET DGPTDCP=$EXTRACT(DGPTSTR,57)

           SET DGPTDDXE=$EXTRACT(DGPTSTR,58,64)

           SET DGPTDDXO=$EXTRACT(DGPTSTR,65)

 +4        SET DGPTDLR=$EXTRACT(DGPTSTR,66,71)

           SET DGPTDLC=$EXTRACT(DGPTSTR,72,73)

           SET DGPTDSC=$EXTRACT(DGPTSTR,74,76)

 +5        SET DGPT70LG=$EXTRACT(DGPTSTR,77)

           SET DGPT70SU=$EXTRACT(DGPTSTR,78)

           SET DGPT70DR=$EXTRACT(DGPTSTR,79,82)

           SET DGPT70X4=$EXTRACT(DGPTSTR,83)

           SET DGPTDXV1=$EXTRACT(DGPTSTR,84,85)

           SET DGPTDXV2=$EXTRACT(DGPTSTR,86,87)

 +6        QUIT