DGPT501P.m

DGPT501P ;ALB/MTC - Parse 501 Record ; 16 NOV 92

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

 ;

SET ; Set up 501 variables

 S DGPTMSR=$E(DGPTSTR,41,46),DGPTMSC=$E(DGPTSTR,47,48),DGPTMLD=$E(DGPTSTR,49,51),DGPTMPD=$E(DGPTSTR,52,54),DGPTMSI=$E(DGPTSTR,55),(DGPTMD1,DGPTMD11)=$P($E(DGPTSTR,56,62)," ")

 S DGPTMD2=$P($E(DGPTSTR,63,69)," "),DGPTMD3=$P($E(DGPTSTR,70,76)," "),DGPTMD4=$P($E(DGPTSTR,77,83)," "),DGPTMD5=$P($E(DGPTSTR,84,90)," "),DGPTMXX=$E(DGPTSTR,91,99),DGPTMLR=$E(DGPTSTR,100,105)

 S DGPTMLC=$E(DGPTSTR,106,107),DGPTMBS=$E(DGPTSTR,108)

 S DGPTMLG=$E(DGPTSTR,109),DGPTMSU=$E(DGPTSTR,110),DGPTMDG=$E(DGPTSTR,111,114),DGPTMXIV=$E(DGPTSTR,115),DGPTMXV1=$E(DGPTSTR,116,117),DGPTMXV2=$E(DGPTSTR,118,119),DGPT50SR=$E(DGPTSTR,120)

 Q

DGPT501P  ;ALB/MTC - Parse 501 Record ; 16 NOV 92

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

 +2       ;

SET       ; Set up 501 variables

 +1        SET DGPTMSR=$EXTRACT(DGPTSTR,41,46)

           SET DGPTMSC=$EXTRACT(DGPTSTR,47,48)

           SET DGPTMLD=$EXTRACT(DGPTSTR,49,51)

           SET DGPTMPD=$EXTRACT(DGPTSTR,52,54)

           SET DGPTMSI=$EXTRACT(DGPTSTR,55)

           SET (DGPTMD1,DGPTMD11)=$PIECE($EXTRACT(DGPTSTR,56,62)," ")

 +2        SET DGPTMD2=$PIECE($EXTRACT(DGPTSTR,63,69)," ")

           SET DGPTMD3=$PIECE($EXTRACT(DGPTSTR,70,76)," ")

           SET DGPTMD4=$PIECE($EXTRACT(DGPTSTR,77,83)," ")

           SET DGPTMD5=$PIECE($EXTRACT(DGPTSTR,84,90)," ")

           SET DGPTMXX=$EXTRACT(DGPTSTR,91,99)

           SET DGPTMLR=$EXTRACT(DGPTSTR,100,105)

 +3        SET DGPTMLC=$EXTRACT(DGPTSTR,106,107)

           SET DGPTMBS=$EXTRACT(DGPTSTR,108)

 +4        SET DGPTMLG=$EXTRACT(DGPTSTR,109)

           SET DGPTMSU=$EXTRACT(DGPTSTR,110)

           SET DGPTMDG=$EXTRACT(DGPTSTR,111,114)

           SET DGPTMXIV=$EXTRACT(DGPTSTR,115)

           SET DGPTMXV1=$EXTRACT(DGPTSTR,116,117)

           SET DGPTMXV2=$EXTRACT(DGPTSTR,118,119)

           SET DGPT50SR=$EXTRACT(DGPTSTR,120)

 +5        QUIT