Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGMSTAPI.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/DGMSTAPI.m
r628 r636 1 DGMSTAPI ;ALB/SCK - API's for Military Sexual Trauma ; 2/28/02 4:56pm 2 ;;5.3;Registration;**195,243,308,353,379,443,700**;Aug 13, 1993 1 DGMSTAPI ;ALB/SCK - API's for Military Sexual Trauma ;7:34 PM 30 Jan 2008 2 ;;5.3;Registration;**195,243,308,353,379,443,700,VWEHR1**;WorldVistA 30-Jan-08 3 ; 4 ;Modified from FOIA VISTA, 5 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU 6 ;General Public License See attached copy of the License. 7 ; 8 ;This program is free software; you can redistribute it and/or modify 9 ;it under the terms of the GNU General Public License as published by 10 ;the Free Software Foundation; either version 2 of the License, or 11 ;(at your option) any later version. 12 ; 13 ;This program is distributed in the hope that it will be useful, 14 ;but WITHOUT ANY WARRANTY; without even the implied warranty of 15 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 ;GNU General Public License for more details. 17 ; 18 ;You should have received a copy of the GNU General Public License along 19 ;with this program; if not, write to the Free Software Foundation, Inc., 20 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 21 ; 3 22 Q 4 23 ; … … 43 62 . S DGMST="0^U" 44 63 S DGIEN="" 45 S DGIEN=+$P($Q(^DGMS(29.11,"APDT",DFN,DGDATE,DGIEN),-1),",",5) 64 ; 65 ;WV/EHR REVERSE $Q REPLACEMENT; SO 01/12/08 ;VWEHR1 66 ; 67 ;S DGIEN=+$P($Q(^DGMS(29.11,"APDT",DFN,DGDATE,DGIEN),-1),",",5) 68 S DGIEN=+$P($$Q^VWUTIL($NA(^DGMS(29.11,"APDT",DFN,DGDATE,DGIEN)),-1),",",5) 69 ; 70 ;END CHANGE 46 71 ; 47 72 ; Check for valid ien, if entry missing, return Unknown … … 130 155 NEWQ Q $G(DGRSLT) 131 156 ; 132 DELMST(MSTIEN) ; Deletes the MST HISTORY File (#29.11) entry passed in. 157 DELMST(MSTIEN) ; Deletes the MST HISTORY File (#29.11) entry passed in. 133 158 ; This call is not to be used except from inside the DG MST List 134 ; Manager interface. 159 ; Manager interface. 135 160 ; 136 161 ; Input … … 199 224 ; 200 225 DATE(DFN,DGDT) ;Determine 'current' MST date 201 ; 226 ; 202 227 ; Input 203 228 ; DFN - Patient's DFN
Note:
See TracChangeset
for help on using the changeset viewer.