source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPT701P.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 720 bytes
Line 
1DGPT701P ;ALB/MTC - Parse 701 Record String ; 13 NOV 92
2 ;;5.3;Registration;**164,415**;Aug 13, 1993
3 ;
4EN ;
5PARSE ; 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
Note: See TracBrowser for help on using the repository browser.