SR166UTL.m

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 ---SR166UTL   1425     printed  Apr 09, 2024@21:44: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