- 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/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXTTU1.m
r628 r636 1 PXTTU1 ;ISL/JVS/ESW - Utility Routine-calls from input transforms ;5/20/96 17:14 2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**106**;Aug 12, 1996 1 PXTTU1 ;ISL/JVS/ESW - Utility Routine-calls from input transforms ;10/10/06 19:07 2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**106,167**;Aug 12, 1996;Build 22 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 Q 4 20 ; This routines purpose is to hold utilities used by the supporting … … 24 40 Q 25 41 ; 26 GETSITE S PXTDUZ= +$P($$SITE^VASITE,U,3)42 GETSITE S PXTDUZ=$P($$SITE^VASITE,U,3) S:$G(DUZ("AG"))="V" PXTDUZ=+PXTDUZ 27 43 I $L(PXTDUZ)'=3 W !,"Primary site is not 3 character station number! See IRM for setup." Q 28 44 Q
Note:
See TracChangeset
for help on using the changeset viewer.