Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG10.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/DG10.m
r628 r636 1 DG10 ;ALB/MRL,DAK,AEG,PHH-LOAD/EDIT PATIENT DATA ; 8/24/05 1:47pm 2 ;;5.3;Registration;**32,109,139,149,182,326,513,425,574,642,658**;Aug 13, 1993 1 DG10 ;ALB/MRL,DAK,AEG,PHH-LOAD/EDIT PATIENT DATA ; 1/5/2006 21:46 2 ;;5.3;Registration;**32,109,139,149,182,326,513,425,574,642,658,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 START ; 4 20 D LO^DGUTL … … 7 23 . D EN^DGRPD 8 24 . Q:$G(DGRPOUT) 9 . D REG^IVMCQ($G(DFN)) 25 . ; 26 . ; ** start of VOE change 1 of 3: DAOU/WCJ,VA/CJS,WV/TOAD 1/5/2006 ** 27 . ; 28 . ; HEC query call only wanted/needed for VA agency code 29 . ; 30 . I $G(DUZ("AG"))="V" D REG^IVMCQ($G(DFN)) 31 . ; 32 . ; ** end of VOE change 1 ** 33 . ; 10 34 . D HINQ 11 35 ; … … 17 41 N X S X="MPIFAPI" X ^%ZOSF("TEST") G:'$T SKIP 18 42 K MPIFRTN 19 D MPIQ^MPIFAPI(DFN) 43 ; 44 ; ** start of VOE change 2 of 3: DAOU/WCJ,VA/CJS,WV/TOAD 1/5/2006 ** 45 ; 46 ; MPI query call only wanted/needed for VA agency code 47 ; 48 I $G(DUZ("AG"))="V"!$$GET^XPAR("SYS","DG MPI") D MPIQ^MPIFAPI(DFN) 49 ; 50 ; ** end of VOE change 2 ** 51 ; 20 52 K MPIFRTN 21 53 ; … … 27 59 SKIP ; 28 60 S DGELVER=0 D EN^DGRPD I $D(DGRPOUT) K DGRPOUT G A 29 D HINQ,REG^IVMCQ($G(DFN)) G A1 61 ; 62 ; ** start of VOE change 3 of 3: DAOU/WCJ,VA/CJS,WV/TOAD 1/5/2006 ** 63 ; 64 ; these query calls only wanted/needed for VA agency code 65 ; 66 I $G(DUZ("AG"))="V" D HINQ,REG^IVMCQ($G(DFN)) 67 G A1 68 ; 69 ; ** end of VOE change 3 ** 70 ; 30 71 ; 31 72 HINQ ;
Note:
See TracChangeset
for help on using the changeset viewer.