Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPECE.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPECE.m
r628 r636 1 DGRPECE ;ALB/MRY,ERC - REGISTRATION CATASTROPHIC EDITS ; 10/4/06 2:35pm 2 ;;5.3;Registration;**638,682,700,720,653**;Aug 13, 1993;Build 2 1 DGRPECE ;ALB/MRY - REGISTRATION CATASTROPHIC EDITS ;1/6/07 13:28 2 ;;5.3;Registration;**638,682,700,720,653,634**;Aug 13, 1993;Build 28 3 ; Modified from FOIA VISTA, 4 ; Copyright (C) 2007 WorldVistA 5 ; 6 ; This program is free software; you can redistribute it and/or modify 7 ; it under the terms of the GNU General Public License as published by 8 ; the Free Software Foundation; either version 2 of the License, or 9 ; (at your option) any later version. 10 ; 11 ; This program is distributed in the hope that it will be useful, 12 ; but WITHOUT ANY WARRANTY; without even the implied warranty of 13 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 ; GNU General Public License for more details. 15 ; 16 ; You should have received a copy of the GNU General Public License 17 ; along with this program; if not, write to the Free Software 18 ; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 3 19 ; 4 20 CEDITS(DFN) ;catastrophic edits - buffer values, save after check … … 37 53 S DIR(0)="2,.09^^" 38 54 S DA=DFN D ^DIR 39 I $D(DIRUT) D CECHECK Q 55 I $D(DIRUT),DUZ("AG")="V" D CECHECK Q ; VOE modification, SSN may be null 56 I $D(DTOUT)!$D(DUOUT) D CECHECK Q ; VOE modification 40 57 S BUFFER("SSN")=Y 41 58 ;if SSN is pseudo, Pseudo SSN Reason is req. - DG*5.3*653, ERC … … 62 79 S DIR(0)="2,.03^^" 63 80 S DA=DFN D ^DIR 64 I $D(DIRUT) D CECHECK Q 81 I $D(DIRUT),DUZ("AG")="V" D CECHECK Q 82 I $D(DTOUT)!$D(DUOUT) D CECHECK Q ; VOE modification 65 83 S BUFFER("DOB")=Y 66 84 SEX ;buffer - get sex 67 85 S DIR(0)="2,.02^^" 68 86 S DA=DFN D ^DIR 69 I $D(DIRUT) D CECHECK Q 87 I $D(DIRUT),DUZ("AG")="V" D CECHECK Q 88 I $D(DTOUT)!$D(DUOUT) D CECHECK Q ; VOE modification 70 89 S BUFFER("SEX")=Y 71 90 MBI ; buffer - get MBI (multiple birth indicator)
Note:
See TracChangeset
for help on using the changeset viewer.