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

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

initial load of FOIAVistA 6/30/08 version

File size: 726 bytes
Line 
1DGPT501P ;ALB/MTC - Parse 501 Record ; 16 NOV 92
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4SET ; 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
Note: See TracBrowser for help on using the repository browser.