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

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

initial load of WorldVistAEHR

File size: 814 bytes
RevLine 
[613]1DGPT101P ;ALB/MTC - Parse 101 record ; 12 NOV 92
2 ;;5.3;Registration;**164,678**;Aug 13, 1993
3 ;;
4SET ; Parse 101 record
5 ;
6 S DGPTDTS=$$FMDT^DGPT101($E(DGPTSTR,15,20))_"."_$E(DGPTSTR,21,24)
7 S DGPTPS=$E(DGPTSTR,5),DGPTSSN=$E(DGPTSTR,6,14),DGPTDTA=$E(DGPTSTR,15,24),DGPTFAC=$E(DGPTSTR,25,30),DGPTLN=$E(DGPTSTR,31,42),DGPTFI=$E(DGPTSTR,43),DGPTMI=$E(DGPTSTR,44)
8 S DGPTSRA=$E(DGPTSTR,45,46),DGPTTF=$E(DGPTSTR,47,52),DGPTSRP=$E(DGPTSTR,53),DGPTPOW=$E(DGPTSTR,54),DGPTMRS=$E(DGPTSTR,55),DGPTGEN=$E(DGPTSTR,56),DGPTDOB=$E(DGPTSTR,57,64),DGPTPOS1=$E(DGPTSTR,65),DGPTPOS2=$E(DGPTSTR,66),DGPTEXA=$E(DGPTSTR,67)
9 S DGPTEXI=$E(DGPTSTR,68),DGPTSTE=$E(DGPTSTR,69,70),DGPTCTY=$E(DGPTSTR,71,73),DGPTZIP=$E(DGPTSTR,74,78),DGPTMTC=$E(DGPTSTR,79,80),DGPTBY=$E(DGPTSTR,61,64)
10 S DGPTINC=$E(DGPTSTR,81,86),DGPTERI=$E(DGPTSTR,96)
11 Q
Note: See TracBrowser for help on using the repository browser.