source: smart/trunk/p/C0STBL.m@ 1540

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

Updated routines per the KIDS build

File size: 1.7 KB
Line 
1C0STBL ; GPL - Smart Container CREATE A TABLE OF NHINV VALUES;2/22/12 17:05
2 ;;1.0;VISTA SMART CONTAINER;;Sep 26, 2012;Build 2
3 ;Copyright 2012 George Lilly. Licensed under the terms of the GNU
4 ;General Public License See attached copy of the License.
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 along
17 ;with this program; if not, write to the Free Software Foundation, Inc.,
18 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19 ;
20 Q
21EN(BEGDFN,DFNCNT,ZPART) ; START IS A DFN
22 I '$D(BEGDFN) S BDGDFN=""
23 I '$D(DFNCNT) S DFNCNT=150
24 I '$D(ZPART) S ZPART=""
25 N ZTBL S ZTBL=$NA(^TMP("C0STBL"))
26 N ZI,ZCNT,ZG
27 S ZI=BEGDFN
28 S ZCNT=0
29 F S ZI=$O(^DPT(ZI)) Q:(+ZI=0)!(ZCNT>DFNCNT) D ;
30 . S ZCNT=ZCNT+1
31 . W ZI," "
32 . K ZG
33 . D EN^C0SNHIN(.ZG,ZI,ZPART)
34 . M @ZTBL@(ZI)=ZG
35 . K G
36 . ;D EN^C0SMART(.G,ZI,"med")
37 . ;I $D(G) W !,$$output^C0XGET1("G")
38 . ;k G
39 . ;D EN^C0SMART(.G,ZI,"patient")
40 . ;I $D(G) W !,$$output^C0XGET1("G")
41 . ;K G
42 . ;D EN^C0SMART(.G,ZI,"lab")
43 . ;I $D(G) W !,$$output^C0XGET1("G")
44 . ;K G
45 . D EN^C0SMART(.G,ZI,"problem")
46 . ;I $D(G) W !,$$output^C0XGET1("G")
47 Q
48 ;
49LOADHACK ;
50 N ZI
51 F ZI=2:1:374 D ;
52 . D IMPORT^C0XF2N("hack"_ZI_".xml","/home/vista/hack/")
53 Q
54 ;
Note: See TracBrowser for help on using the repository browser.