source: smart/trunk/p/C0SMART.m@ 1659

Last change on this file since 1659 was 1591, checked in by Sam Habiel, 12 years ago

Updated license for routines

File size: 1.7 KB
Line 
1C0SMART ; GPL - Smart Container Entry Points;2/22/12 17:05
2 ;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 5
3 ;Copyright 2012 George Lilly.
4 ;
5 ; This program is free software: you can redistribute it and/or modify
6 ; it under the terms of the GNU Affero General Public License as
7 ; published by the Free Software Foundation, either version 3 of the
8 ; License, or (at your option) any later version.
9 ;
10 ; This program is distributed in the hope that it will be useful,
11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ; GNU Affero General Public License for more details.
14 ;
15 ; You should have received a copy of the GNU Affero General Public License
16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
17 ;
18 Q
19EN(ZRTN,ZPATID,ZTYP,ZFORM,DEBUG) ; return a Smart RDF file section ZTYP
20 ; for patient ZPATID; ZFORM defaults to rdf
21 ; ZRTN is passed by reference
22 ; For now, ZPATID is the DFN
23 ;
24 I '$D(ZFORM) S ZFORM="rdf"
25 K ZRTN ; CLEAN RETURN
26 N C0SARY
27 I ZTYP="patient" D EN^C0SNHIN(.C0SARY,ZPATID,"patient")
28 E D EN^C0SNHIN(.C0SARY,ZPATID,"patient;"_ZTYP)
29 I $G(C0SARY("patient",1,"id@value"))'=ZPATID D Q ;
30 . W !,"Error Retreiving Patient Record"
31 ;
32 K C0XFDA
33 ;
34 N C0SGR ; graph
35 ;
36 ; processing table
37 ;
38 N C0SCTRL
39 S C0SCTRL("med")="D MED^C0SMED(.C0SGR,.C0SARY)"
40 S C0SCTRL("patient")="D PATIENT^C0SDEM(.C0SGR,.C0SARY)"
41 S C0SCTRL("lab")="D LAB^C0SLAB(.C0SGR,.C0SARY)"
42 S C0SCTRL("problem")="D PROB^C0SPROB2(.C0SGR,.C0SARY)"
43 ;
44 I '$D(C0SCTRL(ZTYP)) W !,ZTYP," ","Not Supported" Q ;
45 N ZX
46 S ZX=C0SCTRL(ZTYP)
47 X ZX ;
48 ;
49 I '$D(C0SGR) Q ;
50 ;
51 D getGraph^C0XGET1(.ZRTN,C0SGR,ZFORM)
52 ;
53 Q
54 ;
Note: See TracBrowser for help on using the repository browser.