SR166UTL ;BIR/ADM,SJA - SR*3*166 UTILITY ROUTINE ;01/15/08
;;3.0; Surgery ;**166**;24 Jun 93;Build 6
Q
PRE ; add normal ranges to the cardiac test in file 139.2
S $P(^SRO(139.2,21,2),"^",2)="10^90" ;HDL
S $P(^SRO(139.2,23,2),"^",2)="33^250" ;LDL
S $P(^SRO(139.2,24,2),"^",2)="60^330" ;Total Cholesterol
S $P(^SRO(139.2,22,2),"^",2)="20^600" ;Serum Triglyceride
S $P(^SRO(139.2,5,2),"^",2)="1^6" ;Serum Potassium
S $P(^SRO(139.2,14,2),"^",2)="0.1^2" ;Serum Bilirubin
S $P(^SRO(139.2,1,2),"^",2)="8^19" ;Hemoglobin
S $P(^SRO(139.2,7,2),"^",2)="0.5^8" ;Serum Creatinine
S $P(^SRO(139.2,11,2),"^",2)="1^6" ;Serum Albumin
S $P(^SRO(139.2,27,2),"^",2)="3^17" ;Hemoglobin A1c
; delete data from file 136.5 and re-initialize file
K ^SRO(136.5) S ^SRO(136.5,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^^"
; delete SROAMIS as menu item
D DELETE^XPDMENU("SROANES1","SROAMIS")
D DELETE^XPDMENU("SR ANESTH REPORTS","SROAMIS")
; remove 47135 from file 137
S DA=47135,DIK="^SRO(137," D ^DIK K DA,DIK
; delete AE x-ref
K DIK,DA S DIK="^DD(130,513,1,",DA=1,DA(1)=513,DA(2)=130 D ^DIK K DIK,DA
Q
POST ;post-install action for SR*3*166
; set AT x-ref nodes
N SRA,SROP,SRX K ^SRF("AT")
S SROP=0 F S SROP=$O(^SRF(SROP)) Q:'SROP S SRA=$G(^SRF(SROP,"RA")) I SRA'="" D
.S SRX=$P(SRA,"^",8) I SRX S ^SRF("AT",SRX,SROP)="" Q
.S SRX=$P(SRA,"^",4) I SRX S ^SRF("AT",SRX,SROP)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR166UTL 1425 printed Dec 13, 2024@02:38:06 Page 2
SR166UTL ;BIR/ADM,SJA - SR*3*166 UTILITY ROUTINE ;01/15/08
+1 ;;3.0; Surgery ;**166**;24 Jun 93;Build 6
+2 QUIT
PRE ; add normal ranges to the cardiac test in file 139.2
+1 ;HDL
SET $PIECE(^SRO(139.2,21,2),"^",2)="10^90"
+2 ;LDL
SET $PIECE(^SRO(139.2,23,2),"^",2)="33^250"
+3 ;Total Cholesterol
SET $PIECE(^SRO(139.2,24,2),"^",2)="60^330"
+4 ;Serum Triglyceride
SET $PIECE(^SRO(139.2,22,2),"^",2)="20^600"
+5 ;Serum Potassium
SET $PIECE(^SRO(139.2,5,2),"^",2)="1^6"
+6 ;Serum Bilirubin
SET $PIECE(^SRO(139.2,14,2),"^",2)="0.1^2"
+7 ;Hemoglobin
SET $PIECE(^SRO(139.2,1,2),"^",2)="8^19"
+8 ;Serum Creatinine
SET $PIECE(^SRO(139.2,7,2),"^",2)="0.5^8"
+9 ;Serum Albumin
SET $PIECE(^SRO(139.2,11,2),"^",2)="1^6"
+10 ;Hemoglobin A1c
SET $PIECE(^SRO(139.2,27,2),"^",2)="3^17"
+11 ; delete data from file 136.5 and re-initialize file
+12 KILL ^SRO(136.5)
SET ^SRO(136.5,0)="PERIOPERATIVE OCCURRENCE CATEGORY^136.5I^^"
+13 ; delete SROAMIS as menu item
+14 DO DELETE^XPDMENU("SROANES1","SROAMIS")
+15 DO DELETE^XPDMENU("SR ANESTH REPORTS","SROAMIS")
+16 ; remove 47135 from file 137
+17 SET DA=47135
SET DIK="^SRO(137,"
DO ^DIK
KILL DA,DIK
+18 ; delete AE x-ref
+19 KILL DIK,DA
SET DIK="^DD(130,513,1,"
SET DA=1
SET DA(1)=513
SET DA(2)=130
DO ^DIK
KILL DIK,DA
+20 QUIT
POST ;post-install action for SR*3*166
+1 ; set AT x-ref nodes
+2 NEW SRA,SROP,SRX
KILL ^SRF("AT")
+3 SET SROP=0
FOR
SET SROP=$ORDER(^SRF(SROP))
if 'SROP
QUIT
SET SRA=$GET(^SRF(SROP,"RA"))
IF SRA'=""
Begin DoDot:1
+4 SET SRX=$PIECE(SRA,"^",8)
IF SRX
SET ^SRF("AT",SRX,SROP)=""
QUIT
+5 SET SRX=$PIECE(SRA,"^",4)
IF SRX
SET ^SRF("AT",SRX,SROP)=""
End DoDot:1
+6 QUIT
