[1540] | 1 | C0STBL ; 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
|
---|
| 21 | EN(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 | ;
|
---|
| 49 | LOADHACK ;
|
---|
| 50 | N ZI
|
---|
| 51 | F ZI=2:1:374 D ;
|
---|
| 52 | . D IMPORT^C0XF2N("hack"_ZI_".xml","/home/vista/hack/")
|
---|
| 53 | Q
|
---|
| 54 | ;
|
---|