source: WorldVistAEHR/trunk/r/SURGERY-SR/SR166UTL.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1SR166UTL ;BIR/ADM,SJA - SR*3*166 UTILITY ROUTINE ;3:15 PM 1 Jan 2009
2 ;;3.0; Surgery ;**166**;24 Jun 93;Build 7;WorldVistA 30-Jan-08
3 ;
4 ;Modified from FOIA VISTA,
5 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
6 ;General Public License See attached copy of the License.
7 ;
8 ;This program is free software; you can redistribute it and/or modify
9 ;it under the terms of the GNU General Public License as published by
10 ;the Free Software Foundation; either version 2 of the License, or
11 ;(at your option) any later version.
12 ;
13 ;This program is distributed in the hope that it will be useful,
14 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;GNU General Public License for more details.
17 ;
18 ;You should have received a copy of the GNU General Public License along
19 ;with this program; if not, write to the Free Software Foundation, Inc.,
20 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 ;
22 Q
23PRE ; add normal ranges to the cardiac test in file 139.2
24 S $P(^SRO(139.2,21,2),"^",2)="10^90" ;HDL
25 S $P(^SRO(139.2,23,2),"^",2)="33^250" ;LDL
26 S $P(^SRO(139.2,24,2),"^",2)="60^330" ;Total Cholesterol
27 S $P(^SRO(139.2,22,2),"^",2)="20^600" ;Serum Triglyceride
28 S $P(^SRO(139.2,5,2),"^",2)="1^6" ;Serum Potassium
29 S $P(^SRO(139.2,14,2),"^",2)="0.1^2" ;Serum Bilirubin
30 S $P(^SRO(139.2,1,2),"^",2)="8^19" ;Hemoglobin
31 S $P(^SRO(139.2,7,2),"^",2)="0.5^8" ;Serum Creatinine
32 S $P(^SRO(139.2,11,2),"^",2)="1^6" ;Serum Albumin
33 S $P(^SRO(139.2,27,2),"^",2)="3^17" ;Hemoglobin A1c
34 ; delete data from file 136.5 and re-initialize file
35 K ^SRO(136.5) S ^SRO(136.5,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^^"
36 ; delete SROAMIS as menu item
37 ;WVEHR ;begin wv ehr change ;so 01/01/2008
38 ;D DELETE^XPDMENU("SROANES1","SROAMIS")
39 ;D DELETE^XPDMENU("SR ANESTH REPORTS","SROAMIS")
40 N WVEHR
41 S WVEHR=$$DELETE^XPDMENU("SROANES1","SROAMIS")
42 S WVEHR=$$DELETE^XPDMENU("SR ANESTH REPORTS","SROAMIS")
43 ;WVEHR ;end wv ehr change ;so 01/01/2008
44 ; remove 47135 from file 137
45 S DA=47135,DIK="^SRO(137," D ^DIK K DA,DIK
46 ; delete AE x-ref
47 K DIK,DA S DIK="^DD(130,513,1,",DA=1,DA(1)=513,DA(2)=130 D ^DIK K DIK,DA
48 Q
49POST ;post-install action for SR*3*166
50 ; set AT x-ref nodes
51 N SRA,SROP,SRX K ^SRF("AT")
52 S SROP=0 F S SROP=$O(^SRF(SROP)) Q:'SROP S SRA=$G(^SRF(SROP,"RA")) I SRA'="" D
53 .S SRX=$P(SRA,"^",8) I SRX S ^SRF("AT",SRX,SROP)="" Q
54 .S SRX=$P(SRA,"^",4) I SRX S ^SRF("AT",SRX,SROP)=""
55 Q
Note: See TracBrowser for help on using the repository browser.