Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRP2.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/DGRP2.m
r628 r636 1 DGRP2 ;ALB/MRL,BRM - REGISTRATION SCREEN 2/CONTACT INFORMATION ;06 JUN 88@2300 2 ;;5.3;Registration;**415,545,638,677,760**;Aug 13, 1993;Build 11 1 DGRP2 ;ALB/MRL,BRM - REGISTRATION SCREEN 2/CONTACT INFORMATION ; 1/5/2006 23:54 2 ;;5.3;Registration;**415,545,638,677,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 S DGRPS=2 D H^DGRPU F I=0,.24,57,1010.15 S DGRP(I)=$S($D(^DPT(DFN,I)):^(I),1:"") 4 20 S DGRPX=DGRP(0) … … 9 25 ;S DGRPX=DGRP(0) 10 26 W !?4,"Religion: ",$S($D(^DIC(13,+$P(DGRPX,"^",8),0)):$P(^(0),"^",1),1:DGRPU),?41,"Father: ",$S($P(DGRP(.24),"^",1)]"":$E($P(DGRP(.24),"^",1),1,29),1:DGRPU) 11 S X=$P(DGRP(57),"^",4),X=$S(X']"":DGRPU,X="X":"NOT APPLICABLE",X=1:"PARA,",X=2:"QUAD,",X=3:"PARA,NON",1:"QUAD,NON"),X=$S("Q P"[$E(X):X_"TRAUMATIC",1:X) W !?9,"SCI: ",X27 S X=$P(DGRP(57),"^",4),X=$S(X']"":DGRPU,X="X":"NOT APPLICABLE",X=1:"PARA,",X=2:"QUAD,",X=3:"PARA,NON",1:"QUAD,NON"),X=$S("QD"[$E(X):X_"TRAUMATIC",1:X) W !?9,"SCI: ",X 12 28 W ?41,"Mother: ",$S($P(DGRP(.24),"^",2)]"":$E($P(DGRP(.24),"^",2),1,29),1:DGRPU) 13 29 W !,?35,"Mom's Maiden: ",$S($P(DGRP(.24),"^",3)]"":$E($P(DGRP(.24),"^",3),1,29),1:DGRPU) 14 W ! S Z=2 D WW^DGRPV W " Previous Care Date Location of Previous Care",!?4,"------------------ -------------------------" S DGRPX=DGRP(1010.15) I $P(DGRPX,"^",5)'="Y" S X="NONE INDICATED" W !?4,X,?28,X 15 E F I=1:1:4 S I1=$P(DGRPX,"^",I) X "I I#2 S Y=I1 X:Y]"""" ^DD(""DD"") W !?4,$S(Y]"""":Y,1:DGRPU)" I '(I#2) W ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU) 30 ; 31 ; ** start of VOE change: DAOU,VA/CJS,WV/TOAD 1/5/2006 ** 32 ; 33 ; New VOE Patient fields 34 ; 35 ; insert 7 lines: 36 ; 37 I $G(DUZ("AG"))="E" D 38 . W !?4,"Veteran: ",$$GET1^DIQ(2,DFN,19902) 39 . W !,"Interpreter Language: " 40 . N IL S IL="" 41 . N I F I=1:1 S IL=$O(^DPT(DFN,19901,"B",IL)) Q:IL="" D 42 . . I I'=1 W "," 43 . . W $$GET1^DIQ(.85,IL,1) 44 ; 45 ; next three groups of lines have been conditionalized to only display 46 ; for VA agency code; also, refactored for clarity 47 ; 48 I $G(DUZ("AG"))="V" D 49 . W ! S Z=2 D WW^DGRPV 50 . W " Previous Care Date Location of Previous Care" 51 . W !?4,"------------------ -------------------------" 52 . S DGRPX=DGRP(1010.15) 53 . ; 54 . I $P(DGRPX,"^",5)'="Y" D 55 . . S X="NONE INDICATED" 56 . . W !?4,X,?28,X 57 . ; 58 . E F I=1:1:4 D 59 . . S I1=$P(DGRPX,"^",I) 60 . . X "I I#2 S Y=I1 X:Y]"""" ^DD(""DD"") W !?4,$S(Y]"""":Y,1:DGRPU)" 61 . . I '(I#2) W ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU) 62 ; 63 ; ** end of VOE change ** 64 ; 16 65 W ! S Z=3 D WW^DGRPV W " Ethnicity: " D 17 66 .I '$O(^DPT(DFN,.06,0)) W "UNANSWERED" Q
Note:
See TracChangeset
for help on using the changeset viewer.