source: ccr/trunk/p/CCRDPTT.m@ 129

Last change on this file since 129 was 122, checked in by George Lilly, 16 years ago

XINDEX fixes. almost clean except for long var names and big files

File size: 2.1 KB
Line 
1CCRDPTT ; Unit Tester...
2 ;;0.1;CCRCCD;;Jun 15, 2008;
3 ;
4 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
5 ;General Public License See attached copy of the License.
6 ;
7 ;This program is free software; you can redistribute it and/or modify
8 ;it under the terms of the GNU General Public License as published by
9 ;the Free Software Foundation; either version 2 of the License, or
10 ;(at your option) any later version.
11 ;
12 ;This program is distributed in the hope that it will be useful,
13 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;GNU General Public License for more details.
16 ;
17 ;You should have received a copy of the GNU General Public License along
18 ;with this program; if not, write to the Free Software Foundation, Inc.,
19 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 ; Get the functions in the routine using Rick's routine
21 ; STATS(0)="CCRDPT^3080626.190908^396^14094^6414499860"
22 ; STATS(1,0)="CCRDPT ;CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08"
23 ; STATS(2,0)=" ;;0.1;CCRCCD;;Jun 15, 2008;"
24 ; STATS(84,0)="INIT(DFN) ; Copy DFN global to a local variable; PUBLIC"
25 ; STATS(93,0)="DESTROY ; Kill local variable; PUBLIC"
26 ; STATS(99,0)="FAMILY() ; Family Name; PUBLIC; Extrinsic"
27 ; STATS(105,0)="GIVEN() ; Given Name; PUBLIC; Extrinsic"
28 ; STATS(111,0)="MIDDLE() ; Middle Name; PUBLIC; Extrinsic "
29 ; etc.
30 ;
31 ; Load Routine Entry points; We get a sweeeeeet array
32 D ANALYZE^ARJTXRD("CCRDPT",.OUT) ; Analyze a routine in the directory
33 N X,Y
34 ; Select Patient
35 S DIC=2,DIC(0)="AEMQ" D ^DIC
36 ;
37 W "You have selected patient "_Y,!!
38 D INIT^CCRDPT($P(Y,"^"))
39 ; ZWR PT
40 N I S I=165 F S I=$O(OUT(I)) Q:I="" D
41 . W "OUT("_I_",0)"_" is "_$P(OUT(I,0)," ")_" "
42 . W "valued at "
43 . W @("$$"_$P(OUT(I,0),"()")_"^"_"CCRDPT"_"()")
44 . W !
45 Q
Note: See TracBrowser for help on using the repository browser.