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

Last change on this file since 28 was 26, checked in by Sam Habiel, 16 years ago

Updated the patient demographics extraction routine (CCRDPT), fixing bugs and improving documentation. Most bugs consisted of undefined errors; thus $Get was added to everything.

Run the unit tester by "D CCRDPTT".

File size: 1010 bytes
Line 
1CCRDPTT; Unit Tester...
2
3 ; Get the functions in the routine using Rick's routine
4 ; STATS(0)="CCRDPT^3080626.190908^396^14094^6414499860"
5 ; STATS(1,0)="CCRDPT ;CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08"
6 ; STATS(2,0)=" ;;0.1;CCRCCD;;Jun 15, 2008;"
7 ; STATS(84,0)="INIT(DFN) ; Copy DFN global to a local variable; PUBLIC"
8 ; STATS(93,0)="DESTROY ; Kill local variable; PUBLIC"
9 ; STATS(99,0)="FAMILY() ; Family Name; PUBLIC; Extrinsic"
10 ; STATS(105,0)="GIVEN() ; Given Name; PUBLIC; Extrinsic"
11 ; STATS(111,0)="MIDDLE() ; Middle Name; PUBLIC; Extrinsic "
12 ; etc.
13
14 ; Load Routine Entry points; We get a sweeeeeet array
15 D ANALYZE^ARJTXRD("CCRDPT",.OUT) ; Analyze a routine in the directory
16 N X,Y
17 ; Select Patient
18 S DIC=2,DIC(0)="AEMQ" D ^DIC
19
20 W "You have selected patient "_Y,!!
21 D INIT^CCRDPT($P(Y,"^"))
22 ZWR PT
23 N I S I=165 F S I=$O(OUT(I)) Q:I="" D
24 . W "OUT("_I_",0)"_" is "_$P(OUT(I,0)," ")_" "
25 . W "valued at "
26 . W @("$$"_$P(OUT(I,0),"()")_"^"_"CCRDPT"_"()")
27 . W !
28 Q
Note: See TracBrowser for help on using the repository browser.