| [613] | 1 | DGPT501P ;ALB/MTC - Parse 501 Record ; 16 NOV 92
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | SET ; Set up 501 variables
|
|---|
| 5 | 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)," ")
|
|---|
| 6 | 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)
|
|---|
| 7 | S DGPTMLC=$E(DGPTSTR,106,107),DGPTMBS=$E(DGPTSTR,108)
|
|---|
| 8 | 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)
|
|---|
| 9 | Q
|
|---|
