DGPT501P ;ALB/MTC - Parse 501 Record ; 16 NOV 92
 ;;5.3;Registration;;Aug 13, 1993
 ;
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