| 1 | DGPT701P ;ALB/MTC - Parse 701 Record String ; 13 NOV 92
|
|---|
| 2 | ;;5.3;Registration;**164,415**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;
|
|---|
| 5 | PARSE ; Parse record string
|
|---|
| 6 | S DGPTDDTD=$E(DGPTSTR,31,40),DGPTDDS=$$FMDT^DGPT101($E(DGPTDDTD,1,6))_"."_$E(DGPTDDTD,7,10)
|
|---|
| 7 | S DGPTDSP=$E(DGPTSTR,41,42),DGPTDTY=$E(DGPTSTR,43)
|
|---|
| 8 | 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)
|
|---|
| 9 | S DGPTDLR=$E(DGPTSTR,66,71),DGPTDLC=$E(DGPTSTR,72,73),DGPTDSC=$E(DGPTSTR,74,76)
|
|---|
| 10 | 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)
|
|---|
| 11 | Q
|
|---|
