Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SR166UTL

SR166UTL.m

Go to the documentation of this file.
  1. SR166UTL ;BIR/ADM,SJA - SR*3*166 UTILITY ROUTINE ;01/15/08
  1. ;;3.0; Surgery ;**166**;24 Jun 93;Build 6
  1. Q
  1. PRE ; add normal ranges to the cardiac test in file 139.2
  1. S $P(^SRO(139.2,21,2),"^",2)="10^90" ;HDL
  1. S $P(^SRO(139.2,23,2),"^",2)="33^250" ;LDL
  1. S $P(^SRO(139.2,24,2),"^",2)="60^330" ;Total Cholesterol
  1. S $P(^SRO(139.2,22,2),"^",2)="20^600" ;Serum Triglyceride
  1. S $P(^SRO(139.2,5,2),"^",2)="1^6" ;Serum Potassium
  1. S $P(^SRO(139.2,14,2),"^",2)="0.1^2" ;Serum Bilirubin
  1. S $P(^SRO(139.2,1,2),"^",2)="8^19" ;Hemoglobin
  1. S $P(^SRO(139.2,7,2),"^",2)="0.5^8" ;Serum Creatinine
  1. S $P(^SRO(139.2,11,2),"^",2)="1^6" ;Serum Albumin
  1. S $P(^SRO(139.2,27,2),"^",2)="3^17" ;Hemoglobin A1c
  1. ; delete data from file 136.5 and re-initialize file
  1. K ^SRO(136.5) S ^SRO(136.5,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^^"
  1. ; delete SROAMIS as menu item
  1. D DELETE^XPDMENU("SROANES1","SROAMIS")
  1. D DELETE^XPDMENU("SR ANESTH REPORTS","SROAMIS")
  1. ; remove 47135 from file 137
  1. S DA=47135,DIK="^SRO(137," D ^DIK K DA,DIK
  1. ; delete AE x-ref
  1. K DIK,DA S DIK="^DD(130,513,1,",DA=1,DA(1)=513,DA(2)=130 D ^DIK K DIK,DA
  1. Q
  1. POST ;post-install action for SR*3*166
  1. ; set AT x-ref nodes
  1. N SRA,SROP,SRX K ^SRF("AT")
  1. S SROP=0 F S SROP=$O(^SRF(SROP)) Q:'SROP S SRA=$G(^SRF(SROP,"RA")) I SRA'="" D
  1. .S SRX=$P(SRA,"^",8) I SRX S ^SRF("AT",SRX,SROP)="" Q
  1. .S SRX=$P(SRA,"^",4) I SRX S ^SRF("AT",SRX,SROP)=""
  1. Q