ORY391 ; ISL/JER - Anticoagulation Management Installation ;11/26/14 08:59
;;3.0;ORDER ENTRY/RESULTS REPORTING;**391**;Dec 17, 1997;Build 11
;;Per VHA Directive 2004-038, this routine should not be modified
Q
PRE ; Pre-install routine
N DA,DIK
; find/delete ORAM SITE PARAMETERS template
D BMES^XPDUTL(" Executing Pre-Install Routine...")
S DA=$$FIND1^DIC(8989.52,"","X","ORAM SITE PARAMETERS","","","")
S DIK="^XTV(8989.52,"
D ^DIK
Q
POST ; Post-install routine
D REGRPCS
D PARAM
Q
;
REGRPCS ; Register RPCS
D BMES^XPDUTL(" Registering RPCs with Context Menu ORAM ANTICOAGULATION CONTEXT...")
D REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWLEX GETFREQ")
D REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWLEX GETI10DX")
D REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWPCE LEXCODE")
D REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWPCE4 LEX")
Q
;
REGISTER(OPTION,RPC) ; Call FM Updater to register each RPC
; Input -- OPTION Option file (#19) Name field (#.01)
; RPC RPC sub-file (#19.05) RPC field (#.01)
; Output -- None
N FDA,FDAIEN,ERR,DIERR
S FDA(19,"?1,",.01)=OPTION
S FDA(19.05,"?+2,?1,",.01)=RPC
D UPDATE^DIE("E","FDA","FDAIEN","ERR")
Q
;
PARAM ; main (initial) parameter transport routine
N ORENT,IDX,ROOT,REF,ORVAL,I
D BMES^XPDUTL(" Installing List of Indications for Care...")
S ROOT=$NAME(^TMP("ORAMY",$J)) K @ROOT
D LOAD(ROOT)
S IDX=0,ORENT="PKG.ORDER ENTRY/RESULTS REPORTING"
F S IDX=$O(@ROOT@(IDX)) Q:'IDX D
. N ORPAR,ORINST,ORIVAL,OREVAL,ORERR
. S ORPAR=$P(@ROOT@(IDX,"KEY"),U),ORINST=$P(^("KEY"),U,2)
. S ORIVAL=$P(@ROOT@(IDX,"VAL"),U),OREVAL=$P(^("VAL"),U,2)
. D BMES^XPDUTL(" Installing "_ORINST_" = "_OREVAL)
. D EN^XPAR(ORENT,ORPAR,ORINST,ORIVAL,.ORERR)
. I +$G(ORERR)>0 D BMES^XPDUTL(" Error Occurred for "_ORINST_" = "_OREVAL_": "_$P(ORERR,U,2))
K @ROOT
Q
;
LOAD(ROOT) ; load data into ^TMP (expects ROOT to be defined)
N I,REF
S I=1,ROOT=$E(ROOT,1,$L(ROOT)-1)_","
F S REF=$P($T(DATA+I),";",3,999) Q:REF="" D
. N ORVAL
. S ORVAL=$P($T(DATA+I+1),";",3,999)
. S @(ROOT_REF)=ORVAL,I=I+2
Q
;
DATA ; parameter data
;;1,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^A Fib
;;1,"VAL")
;;`508208^I48.91
;;2,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^A Flutter
;;2,"VAL")
;;`508209^I48.92
;;3,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Act Prot C Res
;;3,"VAL")
;;`502779^D68.51
;;4,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Acute MI (within 4 weeks)
;;4,"VAL")
;;`508039^I21.3
;;5,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Antiphospholipid Synd
;;5,"VAL")
;;`502782^D68.61
;;6,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^CVA (unspecified sequela)
;;6,"VAL")
;;`508495^I69.30
;;7,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Cerebrovascular Disease
;;7,"VAL")
;;`508391^I67.89
;;8,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^DVT Bilat LE Unspec Veins
;;8,"VAL")
;;`508955^I82.403
;;9,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^DVT LLE Unspecified Veins
;;9,"VAL")
;;`508954^I82.402
;;10,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^DVT RLE Unspecified Veins
;;10,"VAL")
;;`508953^I82.401
;;11,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^DVT Uspec veins, unspec LE
;;11,"VAL")
;;`508956^I82.409
;;12,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^DVT oth spec veins not in LE
;;12,"VAL")
;;`509045^I82.890
;;13,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Enctr for Tx Drug Monitoring
;;13,"VAL")
;;`569128^Z51.81
;;14,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Hypercoag State
;;14,"VAL")
;;`502781^D68.59
;;15,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^L/T (Current) Anticoag Tx
;;15,"VAL")
;;`569395^Z79.01
;;16,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Lupus Anticoag Synd
;;16,"VAL")
;;`502783^D68.62
;;17,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Old MI (> 4 wks, no curr symp)
;;17,"VAL")
;;`508064^I25.2
;;18,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Oth Prim Thrombophilia
;;18,"VAL")
;;`502781^D68.59
;;19,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^PE
;;19,"VAL")
;;`508111^I26.99
;;20,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Prothrombin Gene Mut
;;20,"VAL")
;;`502780^D68.52
;;21,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^TIA
;;21,"VAL")
;;`504577^G45.9
;;22,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Valve-Mech
;;22,"VAL")
;;`569742^Z95.2
;;23,"KEY")
;;ORAM I10 INDICATIONS FOR CARE^Valve-Tissue
;;23,"VAL")
;;`569743^Z95.3
;;24,"KEY")
;;ORAM INDICATIONS FOR CARE^A Fib
;;24,"VAL")
;;`2557^427.31
;;25,"KEY")
;;ORAM INDICATIONS FOR CARE^A Flutter
;;25,"VAL")
;;`2558^427.32
;;26,"KEY")
;;ORAM INDICATIONS FOR CARE^Antiphospholipid Antibodies
;;26,"VAL")
;;`1052^286.9
;;27,"KEY")
;;ORAM INDICATIONS FOR CARE^Antithrombin III Deficiency
;;27,"VAL")
;;`1052^286.9
;;28,"KEY")
;;ORAM INDICATIONS FOR CARE^Apical Thrombus
;;28,"VAL")
;;`12480^429.79
;;29,"KEY")
;;ORAM INDICATIONS FOR CARE^Arterial Thrombosis
;;29,"VAL")
;;`2628^444.9
;;30,"KEY")
;;ORAM INDICATIONS FOR CARE^CAD (Coronary Art Dis)
;;30,"VAL")
;;`12989^414.00
;;31,"KEY")
;;ORAM INDICATIONS FOR CARE^CHF (Cong Heart Fail)
;;31,"VAL")
;;`9061^428.0
;;32,"KEY")
;;ORAM INDICATIONS FOR CARE^CVA
;;32,"VAL")
;;`2599^437.9
;;33,"KEY")
;;ORAM INDICATIONS FOR CARE^Cardiomyopathy
;;33,"VAL")
;;`2535^425.4
;;34,"KEY")
;;ORAM INDICATIONS FOR CARE^Carotid Stenosis - Plaque
;;34,"VAL")
;;`12857^433.10
;;35,"KEY")
;;ORAM INDICATIONS FOR CARE^Cerebrovascular Disease
;;35,"VAL")
;;`9069^436.
;;36,"KEY")
;;ORAM INDICATIONS FOR CARE^Clotted Graft
;;36,"VAL")
;;`12511^996.74
;;37,"KEY")
;;ORAM INDICATIONS FOR CARE^DVT
;;37,"VAL")
;;`15011^453.89
;;38,"KEY")
;;ORAM INDICATIONS FOR CARE^Enctr for Tx Drug Monitoring
;;38,"VAL")
;;`13529^V58.83
;;39,"KEY")
;;ORAM INDICATIONS FOR CARE^Hypercoag State
;;39,"VAL")
;;`13798^289.81
;;40,"KEY")
;;ORAM INDICATIONS FOR CARE^L/T (Current) Anticoag Use
;;40,"VAL")
;;`13194^V58.61
;;41,"KEY")
;;ORAM INDICATIONS FOR CARE^LV Thrombus
;;41,"VAL")
;;`12480^429.79
;;42,"KEY")
;;ORAM INDICATIONS FOR CARE^Mesenteric Thrombosis
;;42,"VAL")
;;`9212^557.0
;;43,"KEY")
;;ORAM INDICATIONS FOR CARE^PAD (Peripheral Art Dis)
;;43,"VAL")
;;`2622^443.9
;;44,"KEY")
;;ORAM INDICATIONS FOR CARE^PE
;;44,"VAL")
;;`13157^415.19
;;45,"KEY")
;;ORAM INDICATIONS FOR CARE^Prophylaxis S/P Ortho Surgery
;;45,"VAL")
;;`13755^V54.89
;;46,"KEY")
;;ORAM INDICATIONS FOR CARE^Recurrent DVT
;;46,"VAL")
;;`15003^453.79
;;47,"KEY")
;;ORAM INDICATIONS FOR CARE^Recurrent PE
;;47,"VAL")
;;`14990^416.2
;;48,"KEY")
;;ORAM INDICATIONS FOR CARE^TIA
;;48,"VAL")
;;`2591^435.9
;;49,"KEY")
;;ORAM INDICATIONS FOR CARE^Valve-Mech
;;49,"VAL")
;;`11527^V43.3
;;50,"KEY")
;;ORAM INDICATIONS FOR CARE^Valve-Tissue
;;50,"VAL")
;;`11516^V42.2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY391 6949 printed Dec 13, 2024@02:41:42 Page 2
ORY391 ; ISL/JER - Anticoagulation Management Installation ;11/26/14 08:59
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**391**;Dec 17, 1997;Build 11
+2 ;;Per VHA Directive 2004-038, this routine should not be modified
+3 QUIT
PRE ; Pre-install routine
+1 NEW DA,DIK
+2 ; find/delete ORAM SITE PARAMETERS template
+3 DO BMES^XPDUTL(" Executing Pre-Install Routine...")
+4 SET DA=$$FIND1^DIC(8989.52,"","X","ORAM SITE PARAMETERS","","","")
+5 SET DIK="^XTV(8989.52,"
+6 DO ^DIK
+7 QUIT
POST ; Post-install routine
+1 DO REGRPCS
+2 DO PARAM
+3 QUIT
+4 ;
REGRPCS ; Register RPCS
+1 DO BMES^XPDUTL(" Registering RPCs with Context Menu ORAM ANTICOAGULATION CONTEXT...")
+2 DO REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWLEX GETFREQ")
+3 DO REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWLEX GETI10DX")
+4 DO REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWPCE LEXCODE")
+5 DO REGISTER("ORAM ANTICOAGULATION CONTEXT","ORWPCE4 LEX")
+6 QUIT
+7 ;
REGISTER(OPTION,RPC) ; Call FM Updater to register each RPC
+1 ; Input -- OPTION Option file (#19) Name field (#.01)
+2 ; RPC RPC sub-file (#19.05) RPC field (#.01)
+3 ; Output -- None
+4 NEW FDA,FDAIEN,ERR,DIERR
+5 SET FDA(19,"?1,",.01)=OPTION
+6 SET FDA(19.05,"?+2,?1,",.01)=RPC
+7 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
+8 QUIT
+9 ;
PARAM ; main (initial) parameter transport routine
+1 NEW ORENT,IDX,ROOT,REF,ORVAL,I
+2 DO BMES^XPDUTL(" Installing List of Indications for Care...")
+3 SET ROOT=$NAME(^TMP("ORAMY",$JOB))
KILL @ROOT
+4 DO LOAD(ROOT)
+5 SET IDX=0
SET ORENT="PKG.ORDER ENTRY/RESULTS REPORTING"
+6 FOR
SET IDX=$ORDER(@ROOT@(IDX))
if 'IDX
QUIT
Begin DoDot:1
+7 NEW ORPAR,ORINST,ORIVAL,OREVAL,ORERR
+8 SET ORPAR=$PIECE(@ROOT@(IDX,"KEY"),U)
SET ORINST=$PIECE(^("KEY"),U,2)
+9 SET ORIVAL=$PIECE(@ROOT@(IDX,"VAL"),U)
SET OREVAL=$PIECE(^("VAL"),U,2)
+10 DO BMES^XPDUTL(" Installing "_ORINST_" = "_OREVAL)
+11 DO EN^XPAR(ORENT,ORPAR,ORINST,ORIVAL,.ORERR)
+12 IF +$GET(ORERR)>0
DO BMES^XPDUTL(" Error Occurred for "_ORINST_" = "_OREVAL_": "_$PIECE(ORERR,U,2))
End DoDot:1
+13 KILL @ROOT
+14 QUIT
+15 ;
LOAD(ROOT) ; load data into ^TMP (expects ROOT to be defined)
+1 NEW I,REF
+2 SET I=1
SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","
+3 FOR
SET REF=$PIECE($TEXT(DATA+I),";",3,999)
if REF=""
QUIT
Begin DoDot:1
+4 NEW ORVAL
+5 SET ORVAL=$PIECE($TEXT(DATA+I+1),";",3,999)
+6 SET @(ROOT_REF)=ORVAL
SET I=I+2
End DoDot:1
+7 QUIT
+8 ;
DATA ; parameter data
+1 ;;1,"KEY")
+2 ;;ORAM I10 INDICATIONS FOR CARE^A Fib
+3 ;;1,"VAL")
+4 ;;`508208^I48.91
+5 ;;2,"KEY")
+6 ;;ORAM I10 INDICATIONS FOR CARE^A Flutter
+7 ;;2,"VAL")
+8 ;;`508209^I48.92
+9 ;;3,"KEY")
+10 ;;ORAM I10 INDICATIONS FOR CARE^Act Prot C Res
+11 ;;3,"VAL")
+12 ;;`502779^D68.51
+13 ;;4,"KEY")
+14 ;;ORAM I10 INDICATIONS FOR CARE^Acute MI (within 4 weeks)
+15 ;;4,"VAL")
+16 ;;`508039^I21.3
+17 ;;5,"KEY")
+18 ;;ORAM I10 INDICATIONS FOR CARE^Antiphospholipid Synd
+19 ;;5,"VAL")
+20 ;;`502782^D68.61
+21 ;;6,"KEY")
+22 ;;ORAM I10 INDICATIONS FOR CARE^CVA (unspecified sequela)
+23 ;;6,"VAL")
+24 ;;`508495^I69.30
+25 ;;7,"KEY")
+26 ;;ORAM I10 INDICATIONS FOR CARE^Cerebrovascular Disease
+27 ;;7,"VAL")
+28 ;;`508391^I67.89
+29 ;;8,"KEY")
+30 ;;ORAM I10 INDICATIONS FOR CARE^DVT Bilat LE Unspec Veins
+31 ;;8,"VAL")
+32 ;;`508955^I82.403
+33 ;;9,"KEY")
+34 ;;ORAM I10 INDICATIONS FOR CARE^DVT LLE Unspecified Veins
+35 ;;9,"VAL")
+36 ;;`508954^I82.402
+37 ;;10,"KEY")
+38 ;;ORAM I10 INDICATIONS FOR CARE^DVT RLE Unspecified Veins
+39 ;;10,"VAL")
+40 ;;`508953^I82.401
+41 ;;11,"KEY")
+42 ;;ORAM I10 INDICATIONS FOR CARE^DVT Uspec veins, unspec LE
+43 ;;11,"VAL")
+44 ;;`508956^I82.409
+45 ;;12,"KEY")
+46 ;;ORAM I10 INDICATIONS FOR CARE^DVT oth spec veins not in LE
+47 ;;12,"VAL")
+48 ;;`509045^I82.890
+49 ;;13,"KEY")
+50 ;;ORAM I10 INDICATIONS FOR CARE^Enctr for Tx Drug Monitoring
+51 ;;13,"VAL")
+52 ;;`569128^Z51.81
+53 ;;14,"KEY")
+54 ;;ORAM I10 INDICATIONS FOR CARE^Hypercoag State
+55 ;;14,"VAL")
+56 ;;`502781^D68.59
+57 ;;15,"KEY")
+58 ;;ORAM I10 INDICATIONS FOR CARE^L/T (Current) Anticoag Tx
+59 ;;15,"VAL")
+60 ;;`569395^Z79.01
+61 ;;16,"KEY")
+62 ;;ORAM I10 INDICATIONS FOR CARE^Lupus Anticoag Synd
+63 ;;16,"VAL")
+64 ;;`502783^D68.62
+65 ;;17,"KEY")
+66 ;;ORAM I10 INDICATIONS FOR CARE^Old MI (> 4 wks, no curr symp)
+67 ;;17,"VAL")
+68 ;;`508064^I25.2
+69 ;;18,"KEY")
+70 ;;ORAM I10 INDICATIONS FOR CARE^Oth Prim Thrombophilia
+71 ;;18,"VAL")
+72 ;;`502781^D68.59
+73 ;;19,"KEY")
+74 ;;ORAM I10 INDICATIONS FOR CARE^PE
+75 ;;19,"VAL")
+76 ;;`508111^I26.99
+77 ;;20,"KEY")
+78 ;;ORAM I10 INDICATIONS FOR CARE^Prothrombin Gene Mut
+79 ;;20,"VAL")
+80 ;;`502780^D68.52
+81 ;;21,"KEY")
+82 ;;ORAM I10 INDICATIONS FOR CARE^TIA
+83 ;;21,"VAL")
+84 ;;`504577^G45.9
+85 ;;22,"KEY")
+86 ;;ORAM I10 INDICATIONS FOR CARE^Valve-Mech
+87 ;;22,"VAL")
+88 ;;`569742^Z95.2
+89 ;;23,"KEY")
+90 ;;ORAM I10 INDICATIONS FOR CARE^Valve-Tissue
+91 ;;23,"VAL")
+92 ;;`569743^Z95.3
+93 ;;24,"KEY")
+94 ;;ORAM INDICATIONS FOR CARE^A Fib
+95 ;;24,"VAL")
+96 ;;`2557^427.31
+97 ;;25,"KEY")
+98 ;;ORAM INDICATIONS FOR CARE^A Flutter
+99 ;;25,"VAL")
+100 ;;`2558^427.32
+101 ;;26,"KEY")
+102 ;;ORAM INDICATIONS FOR CARE^Antiphospholipid Antibodies
+103 ;;26,"VAL")
+104 ;;`1052^286.9
+105 ;;27,"KEY")
+106 ;;ORAM INDICATIONS FOR CARE^Antithrombin III Deficiency
+107 ;;27,"VAL")
+108 ;;`1052^286.9
+109 ;;28,"KEY")
+110 ;;ORAM INDICATIONS FOR CARE^Apical Thrombus
+111 ;;28,"VAL")
+112 ;;`12480^429.79
+113 ;;29,"KEY")
+114 ;;ORAM INDICATIONS FOR CARE^Arterial Thrombosis
+115 ;;29,"VAL")
+116 ;;`2628^444.9
+117 ;;30,"KEY")
+118 ;;ORAM INDICATIONS FOR CARE^CAD (Coronary Art Dis)
+119 ;;30,"VAL")
+120 ;;`12989^414.00
+121 ;;31,"KEY")
+122 ;;ORAM INDICATIONS FOR CARE^CHF (Cong Heart Fail)
+123 ;;31,"VAL")
+124 ;;`9061^428.0
+125 ;;32,"KEY")
+126 ;;ORAM INDICATIONS FOR CARE^CVA
+127 ;;32,"VAL")
+128 ;;`2599^437.9
+129 ;;33,"KEY")
+130 ;;ORAM INDICATIONS FOR CARE^Cardiomyopathy
+131 ;;33,"VAL")
+132 ;;`2535^425.4
+133 ;;34,"KEY")
+134 ;;ORAM INDICATIONS FOR CARE^Carotid Stenosis - Plaque
+135 ;;34,"VAL")
+136 ;;`12857^433.10
+137 ;;35,"KEY")
+138 ;;ORAM INDICATIONS FOR CARE^Cerebrovascular Disease
+139 ;;35,"VAL")
+140 ;;`9069^436.
+141 ;;36,"KEY")
+142 ;;ORAM INDICATIONS FOR CARE^Clotted Graft
+143 ;;36,"VAL")
+144 ;;`12511^996.74
+145 ;;37,"KEY")
+146 ;;ORAM INDICATIONS FOR CARE^DVT
+147 ;;37,"VAL")
+148 ;;`15011^453.89
+149 ;;38,"KEY")
+150 ;;ORAM INDICATIONS FOR CARE^Enctr for Tx Drug Monitoring
+151 ;;38,"VAL")
+152 ;;`13529^V58.83
+153 ;;39,"KEY")
+154 ;;ORAM INDICATIONS FOR CARE^Hypercoag State
+155 ;;39,"VAL")
+156 ;;`13798^289.81
+157 ;;40,"KEY")
+158 ;;ORAM INDICATIONS FOR CARE^L/T (Current) Anticoag Use
+159 ;;40,"VAL")
+160 ;;`13194^V58.61
+161 ;;41,"KEY")
+162 ;;ORAM INDICATIONS FOR CARE^LV Thrombus
+163 ;;41,"VAL")
+164 ;;`12480^429.79
+165 ;;42,"KEY")
+166 ;;ORAM INDICATIONS FOR CARE^Mesenteric Thrombosis
+167 ;;42,"VAL")
+168 ;;`9212^557.0
+169 ;;43,"KEY")
+170 ;;ORAM INDICATIONS FOR CARE^PAD (Peripheral Art Dis)
+171 ;;43,"VAL")
+172 ;;`2622^443.9
+173 ;;44,"KEY")
+174 ;;ORAM INDICATIONS FOR CARE^PE
+175 ;;44,"VAL")
+176 ;;`13157^415.19
+177 ;;45,"KEY")
+178 ;;ORAM INDICATIONS FOR CARE^Prophylaxis S/P Ortho Surgery
+179 ;;45,"VAL")
+180 ;;`13755^V54.89
+181 ;;46,"KEY")
+182 ;;ORAM INDICATIONS FOR CARE^Recurrent DVT
+183 ;;46,"VAL")
+184 ;;`15003^453.79
+185 ;;47,"KEY")
+186 ;;ORAM INDICATIONS FOR CARE^Recurrent PE
+187 ;;47,"VAL")
+188 ;;`14990^416.2
+189 ;;48,"KEY")
+190 ;;ORAM INDICATIONS FOR CARE^TIA
+191 ;;48,"VAL")
+192 ;;`2591^435.9
+193 ;;49,"KEY")
+194 ;;ORAM INDICATIONS FOR CARE^Valve-Mech
+195 ;;49,"VAL")
+196 ;;`11527^V43.3
+197 ;;50,"KEY")
+198 ;;ORAM INDICATIONS FOR CARE^Valve-Tissue
+199 ;;50,"VAL")
+200 ;;`11516^V42.2
