Routine: DGPT101P

DGPT101P ;ALB/MTC - Parse 101 record ; 12 NOV 92

 ;;5.3;PIMS;**164,1015,1016**;JUN 30, 2012;Build 20

;;

SET ; Parse 101 record

 S DGPTDTS=$$FMDT^DGPT101($E(DGPTSTR,15,20))_"."_$E(DGPTSTR,21,24)

 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)

 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)

 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)

 S DGPTINC=$E(DGPTSTR,81,86),DGPTERI=$E(DGPTSTR,96),DGPTCTRY=$E(DGPTSTR,97,99)

DGPT101P  ;ALB/MTC - Parse 101 record ; 12 NOV 92

 +1       ;;5.3;PIMS;**164,1015,1016**;JUN 30, 2012;Build 20

 +2       ;;

SET       ; Parse 101 record

 +1       ;

 +2        SET DGPTDTS=$$FMDT^DGPT101($EXTRACT(DGPTSTR,15,20))_"."_$EXTRACT(DGPTSTR,21,24)

 +3        SET DGPTPS=$EXTRACT(DGPTSTR,5)

           SET DGPTSSN=$EXTRACT(DGPTSTR,6,14)

           SET DGPTDTA=$EXTRACT(DGPTSTR,15,24)

           SET DGPTFAC=$EXTRACT(DGPTSTR,25,30)

           SET DGPTLN=$EXTRACT(DGPTSTR,31,42)

           SET DGPTFI=$EXTRACT(DGPTSTR,43)

           SET DGPTMI=$EXTRACT(DGPTSTR,44)

 +4        SET DGPTSRA=$EXTRACT(DGPTSTR,45,46)

           SET DGPTTF=$EXTRACT(DGPTSTR,47,52)

           SET DGPTSRP=$EXTRACT(DGPTSTR,53)

           SET DGPTPOW=$EXTRACT(DGPTSTR,54)

           SET DGPTMRS=$EXTRACT(DGPTSTR,55)

           SET DGPTGEN=$EXTRACT(DGPTSTR,56)

           SET DGPTDOB=$EXTRACT(DGPTSTR,57,64)

           SET DGPTPOS1=$EXTRACT(DGPTSTR,65)

           SET DGPTPOS2=$EXTRACT(DGPTSTR,66)

           SET DGPTEXA=$EXTRACT(DGPTSTR,67)

 +5        SET DGPTEXI=$EXTRACT(DGPTSTR,68)

           SET DGPTSTE=$EXTRACT(DGPTSTR,69,70)

           SET DGPTCTY=$EXTRACT(DGPTSTR,71,73)

           SET DGPTZIP=$EXTRACT(DGPTSTR,74,78)

           SET DGPTMTC=$EXTRACT(DGPTSTR,79,80)

           SET DGPTBY=$EXTRACT(DGPTSTR,61,64)

 +6        SET DGPTINC=$EXTRACT(DGPTSTR,81,86)

           SET DGPTERI=$EXTRACT(DGPTSTR,96)

           SET DGPTCTRY=$EXTRACT(DGPTSTR,97,99)

 +7        QUIT

DGPT101P.m