| 1 | SR166UTL ;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
|
|---|
| 23 | PRE ; 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
|
|---|
| 49 | POST ;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
|
|---|
