MDOUTOR ; HOIFO/NCA - Post Conversion Routine ; [04-14-2003 10:51]
;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
EN1 ; [Procedure]
; This post conversion routine will place the Medicine Enter/Edit
; options out of order
; Reference IA # 1157 [Supported] Kernel XPDMENU calls.
; IA # 2263 [Supported] XPAR parameter calls
; IA #10075 [Supported] Option File Read.
;
N LP,MDAR,MDFDA,MDLAB,MDPI,MDOPI,MDOPT,MDTXT,MDSEL,MDX
I $$GET^XPAR("SYS","MD MEDICINE CONVERTED",1) W !!,"Options Already Disabled.",! Q
K DIR S DIR(0)="YA",DIR("A")="Place the Medicine options OUT OF ORDER? ",DIR("B")="NO" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)
K DIR S DIR(0)="SO^1:CATH;2:ECG;3:ECHO;4:EP;5:HOLTER;6:ETT;7:SURGICAL RISK;8:CONSULT;9:GI;10:PULMONARY-GI;11:PFT;12:HEMATOLOGY;13:PACEMAKER;14:RHEUMATOLOGY;15:ALL"
S DIR("?")="Enter a code from 1-15."
D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1) S MDSEL=Y
S MDTXT="Medicine Reports Converted to Clinical Procedures - OPTION OUT OF SERVICE"
F MDX=1:1 S MDOPT=$P($T(LABEL+MDX),";;",2) Q:MDOPT="**END**" D
.Q:MDOPT=""
.S MDAR(MDX)=MDOPT
.Q
S MDLAB=$S(MDSEL'=15:$G(MDAR(MDSEL)),1:"")
W !!,"Placing the following Medicine options OUT OF ORDER:",!
I MDSEL=15 F LP=1:1:15 S MDLAB=$G(MDAR(LP)) Q:MDLAB="" D DISABLE
I MDSEL=15 D EN^XPAR("SYS","MD MEDICINE CONVERTED",1,1) Q
D:MDSEL'=15 DISABLE
W !! K DIR S DIR(0)="YA",DIR("A")="Are All Medicine Reports Converted? ",DIR("B")="NO" D ^DIR K DIR Q:$D(DIRUT)!$D(DIROUT)!(Y<1)
D EN^XPAR("SYS","MD MEDICINE CONVERTED",1,1)
Q
DISABLE ; Disabling the options
F MDX=1:1 S MDOPT=$P($T(@MDLAB+MDX),";;",2) Q:MDOPT="**END**" D
.Q:MDOPT=""
.S MDPI=$$FIND1^DIC(19,"","MX",MDOPT) Q:'MDPI
.D OUT^XPDMENU(MDOPT,MDTXT)
.W !,$$GET1^DIQ(19,MDPI_",",1,"E")," [",MDOPT,"]"
Q
;
LABEL ; [Labels]
;;CATH
;;ECG
;;ECHO
;;EP
;;HOLTER
;;ETT
;;SURG
;;CONSULT
;;GI
;;PULM
;;PFT
;;HEM
;;PACE
;;RHEUM
;;SUMM
;;**END**
OPTIONS ; [Data Module] Enter/Edit Medicine options
CATH ;;[Cardiac Catheterization options]
;;MCFSCATH
;;MCFPCATH
;;MCFLCATH
;;MCBLCATH
;;MCBSCATH
;;MCBPCATH
;;MCARCATHIMAGE
;;**END**
ECG ;;[Electrocardiogram options]
;;MCFSECG
;;MCFPECG
;;MCFLECG
;;MCARECGAUTOSUM
;;MCBLECG
;;MCBSECG
;;MCBPECG
;;**END**
ECHO ;;[Echocardiogram options]
;;MCFSECHO
;;MCFPECHO
;;MCFLECHO
;;MCARECHOIMAGE
;;MCBLECHO
;;MCBSECHO
;;MCBPECHO
;;**END**
EP ;;[Electrophysiology options]
;;MCFSEP
;;MCFPEP
;;MCFLEP
;;MCBLEP
;;MCBSEP
;;MCBPEP
;;**END**
HOLTER ;;[Holter options]
;;MCFSHOLTER
;;MCFPHOLTER
;;MCFLHOLTER
;;MCBLHOLTER
;;MCBSHOLTER
;;MCBPHOLTER
;;**END**
ETT ;;[Exercise Tolerance Test options]
;;MCFSETT
;;MCFPETT
;;MCFLETT
;;MCBLETT
;;MCBSETT
;;MCBPETT
;;**END**
SURG ;;[Surgical Risk Assessment options]
;;MCARCATHSRAPRE
;;MCARCATHSRAPOST
;;MCARSRAPRE
;;MCARSRAPOST
;;MCARCATHSRAPRINT
;;**END**
CONSULT ;;[Consult options]
;;MCARGICONSULTEDIT
;;MCCONSULTSCREEN
;;MCARGICONSULTPRINT
;;MCARGICONSULTBRIEF
;;MCCONSULTBRSCR
;;MCCONSULTBRREPORT
;;**END**
GI ;;[GI options]
;;MCFLGI
;;MCFSGI
;;MCFPGI
;;MCARGIDIAG
;;MCARGIRECALLIST
;;MCARGIMAGE
;;MCBLGI
;;MCBSGI
;;MCBPGI
;;MCFLNONENDO
;;MCFSNONENDO
;;MCFPNONENDO
;;MCBLNONENDO
;;MCBSNONENDO
;;MCBPNONENDO
;;**END**
PULM ;;[Pulmonary options]
;;MCFLPULM
;;MCFSPULM
;;MCFPPULM
;;MCARPULMDIAG
;;MCARPULMRECALLIST
;;MCARPULMIMAGE
;;MCBLPULM
;;MCBSPULM
;;MCBPPULM
;;**END**
PFT ;;[Pulmonary Function Test Options]
;;MCFLPFT
;;MCFLPFTI
;;MCFPPFT
;;MCFSPFT
;;MCBLPFT
;;MCBSPFT
;;MCBPPFT
;;**END**
HEM ;;[Hematology options]
;;MCFLHEM
;;MCFSHEM
;;MCFPHEM
;;MCARHEMIMAGE
;;MCBLHEM
;;MCBSHEM
;;MCBPHEM
;;**END**
PACE ;;[Pacemaker options]
;;MCARPACEMULTEDIT
;;MCARPACEGENIMP
;;MCFLALEAD
;;MCFLVLEAD
;;MCFLSURV
;;MCARPACEDIT
;;MCBLGENE
;;MCBLALEAD
;;MCBLVLEAD
;;MCBLSURV
;;MCFSMULTI
;;MCFSGENIMPL.
;;MCFSALEAD
;;MCFSVLEAD
;;MCARPACESCREENSURV
;;MCARPACESCREENDEMO
;;MCBSGENI
;;MCBSALEAD
;;MCBSVLEAD
;;MCPACSURVBRSCR
;;MCARPACEGENPRINT
;;MCFPALEAD
;;MCFPVLEAD
;;MCARPACESURVPRINT
;;MCARPACEPATIENT
;;MCBPGEN.IMPLANT
;;MCBPALEAD
;;MCBPVLEAD
;;MCPACSURVBRREPORT
;;**END**
RHEUM ;;[Rheumatology options]
;;MCRHDIAGF
;;MCRHBACKF
;;MCRHNARRF
;;MCRHLABF
;;MCRHHAQF
;;MCRHPATHISTF
;;MCRHPHYSF
;;MCRHDEATHF
;;MCRHDIAGP
;;MCRHBACKP
;;MCRHNARRP
;;MCRHLABP
;;MCRHHAQP
;;MCRHPATHISTP
;;MCRHPHYSP
;;MCRHDEATHP
;;MCRHALLP
;;MCBPRHEUM
;;MCRHIMAGE
;;MCRHDIAGL
;;MCRHNARRL
;;MCRHHAQL
;;MCRHPATHISTL
;;MCRHPHYSL
;;MCRHDEATHL
;;MCRHBRIEF
;;MCFLGEN
;;MCFSGEN
;;MCGENERICIMAGE
;;MCBLGEN
;;MCBSGEN
;;**END**
SUMM ;;[Procedure Summary option]
;;MCARSUMMARY
;;**END**
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDOUTOR 4902 printed Nov 22, 2024@16:53:17 Page 2
MDOUTOR ; HOIFO/NCA - Post Conversion Routine ; [04-14-2003 10:51]
+1 ;;1.0;CLINICAL PROCEDURES;**5**;Apr 01, 2004;Build 1
EN1 ; [Procedure]
+1 ; This post conversion routine will place the Medicine Enter/Edit
+2 ; options out of order
+3 ; Reference IA # 1157 [Supported] Kernel XPDMENU calls.
+4 ; IA # 2263 [Supported] XPAR parameter calls
+5 ; IA #10075 [Supported] Option File Read.
+6 ;
+7 NEW LP,MDAR,MDFDA,MDLAB,MDPI,MDOPI,MDOPT,MDTXT,MDSEL,MDX
+8 IF $$GET^XPAR("SYS","MD MEDICINE CONVERTED",1)
WRITE !!,"Options Already Disabled.",!
QUIT
+9 KILL DIR
SET DIR(0)="YA"
SET DIR("A")="Place the Medicine options OUT OF ORDER? "
SET DIR("B")="NO"
DO ^DIR
KILL DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<1)
QUIT
+10 KILL DIR
SET DIR(0)="SO^1:CATH;2:ECG;3:ECHO;4:EP;5:HOLTER;6:ETT;7:SURGICAL RISK;8:CONSULT;9:GI;10:PULMONARY-GI;11:PFT;12:HEMATOLOGY;13:PACEMAKER;14:RHEUMATOLOGY;15:ALL"
+11 SET DIR("?")="Enter a code from 1-15."
+12 DO ^DIR
KILL DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<1)
QUIT
SET MDSEL=Y
+13 SET MDTXT="Medicine Reports Converted to Clinical Procedures - OPTION OUT OF SERVICE"
+14 FOR MDX=1:1
SET MDOPT=$PIECE($TEXT(LABEL+MDX),";;",2)
if MDOPT="**END**"
QUIT
Begin DoDot:1
+15 if MDOPT=""
QUIT
+16 SET MDAR(MDX)=MDOPT
+17 QUIT
End DoDot:1
+18 SET MDLAB=$SELECT(MDSEL'=15:$GET(MDAR(MDSEL)),1:"")
+19 WRITE !!,"Placing the following Medicine options OUT OF ORDER:",!
+20 IF MDSEL=15
FOR LP=1:1:15
SET MDLAB=$GET(MDAR(LP))
if MDLAB=""
QUIT
DO DISABLE
+21 IF MDSEL=15
DO EN^XPAR("SYS","MD MEDICINE CONVERTED",1,1)
QUIT
+22 if MDSEL'=15
DO DISABLE
+23 WRITE !!
KILL DIR
SET DIR(0)="YA"
SET DIR("A")="Are All Medicine Reports Converted? "
SET DIR("B")="NO"
DO ^DIR
KILL DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<1)
QUIT
+24 DO EN^XPAR("SYS","MD MEDICINE CONVERTED",1,1)
+25 QUIT
DISABLE ; Disabling the options
+1 FOR MDX=1:1
SET MDOPT=$PIECE($TEXT(@MDLAB+MDX),";;",2)
if MDOPT="**END**"
QUIT
Begin DoDot:1
+2 if MDOPT=""
QUIT
+3 SET MDPI=$$FIND1^DIC(19,"","MX",MDOPT)
if 'MDPI
QUIT
+4 DO OUT^XPDMENU(MDOPT,MDTXT)
+5 WRITE !,$$GET1^DIQ(19,MDPI_",",1,"E")," [",MDOPT,"]"
End DoDot:1
+6 QUIT
+7 ;
LABEL ; [Labels]
+1 ;;CATH
+2 ;;ECG
+3 ;;ECHO
+4 ;;EP
+5 ;;HOLTER
+6 ;;ETT
+7 ;;SURG
+8 ;;CONSULT
+9 ;;GI
+10 ;;PULM
+11 ;;PFT
+12 ;;HEM
+13 ;;PACE
+14 ;;RHEUM
+15 ;;SUMM
+16 ;;**END**
OPTIONS ; [Data Module] Enter/Edit Medicine options
CATH ;;[Cardiac Catheterization options]
+1 ;;MCFSCATH
+2 ;;MCFPCATH
+3 ;;MCFLCATH
+4 ;;MCBLCATH
+5 ;;MCBSCATH
+6 ;;MCBPCATH
+7 ;;MCARCATHIMAGE
+8 ;;**END**
ECG ;;[Electrocardiogram options]
+1 ;;MCFSECG
+2 ;;MCFPECG
+3 ;;MCFLECG
+4 ;;MCARECGAUTOSUM
+5 ;;MCBLECG
+6 ;;MCBSECG
+7 ;;MCBPECG
+8 ;;**END**
ECHO ;;[Echocardiogram options]
+1 ;;MCFSECHO
+2 ;;MCFPECHO
+3 ;;MCFLECHO
+4 ;;MCARECHOIMAGE
+5 ;;MCBLECHO
+6 ;;MCBSECHO
+7 ;;MCBPECHO
+8 ;;**END**
EP ;;[Electrophysiology options]
+1 ;;MCFSEP
+2 ;;MCFPEP
+3 ;;MCFLEP
+4 ;;MCBLEP
+5 ;;MCBSEP
+6 ;;MCBPEP
+7 ;;**END**
HOLTER ;;[Holter options]
+1 ;;MCFSHOLTER
+2 ;;MCFPHOLTER
+3 ;;MCFLHOLTER
+4 ;;MCBLHOLTER
+5 ;;MCBSHOLTER
+6 ;;MCBPHOLTER
+7 ;;**END**
ETT ;;[Exercise Tolerance Test options]
+1 ;;MCFSETT
+2 ;;MCFPETT
+3 ;;MCFLETT
+4 ;;MCBLETT
+5 ;;MCBSETT
+6 ;;MCBPETT
+7 ;;**END**
SURG ;;[Surgical Risk Assessment options]
+1 ;;MCARCATHSRAPRE
+2 ;;MCARCATHSRAPOST
+3 ;;MCARSRAPRE
+4 ;;MCARSRAPOST
+5 ;;MCARCATHSRAPRINT
+6 ;;**END**
CONSULT ;;[Consult options]
+1 ;;MCARGICONSULTEDIT
+2 ;;MCCONSULTSCREEN
+3 ;;MCARGICONSULTPRINT
+4 ;;MCARGICONSULTBRIEF
+5 ;;MCCONSULTBRSCR
+6 ;;MCCONSULTBRREPORT
+7 ;;**END**
GI ;;[GI options]
+1 ;;MCFLGI
+2 ;;MCFSGI
+3 ;;MCFPGI
+4 ;;MCARGIDIAG
+5 ;;MCARGIRECALLIST
+6 ;;MCARGIMAGE
+7 ;;MCBLGI
+8 ;;MCBSGI
+9 ;;MCBPGI
+10 ;;MCFLNONENDO
+11 ;;MCFSNONENDO
+12 ;;MCFPNONENDO
+13 ;;MCBLNONENDO
+14 ;;MCBSNONENDO
+15 ;;MCBPNONENDO
+16 ;;**END**
PULM ;;[Pulmonary options]
+1 ;;MCFLPULM
+2 ;;MCFSPULM
+3 ;;MCFPPULM
+4 ;;MCARPULMDIAG
+5 ;;MCARPULMRECALLIST
+6 ;;MCARPULMIMAGE
+7 ;;MCBLPULM
+8 ;;MCBSPULM
+9 ;;MCBPPULM
+10 ;;**END**
PFT ;;[Pulmonary Function Test Options]
+1 ;;MCFLPFT
+2 ;;MCFLPFTI
+3 ;;MCFPPFT
+4 ;;MCFSPFT
+5 ;;MCBLPFT
+6 ;;MCBSPFT
+7 ;;MCBPPFT
+8 ;;**END**
HEM ;;[Hematology options]
+1 ;;MCFLHEM
+2 ;;MCFSHEM
+3 ;;MCFPHEM
+4 ;;MCARHEMIMAGE
+5 ;;MCBLHEM
+6 ;;MCBSHEM
+7 ;;MCBPHEM
+8 ;;**END**
PACE ;;[Pacemaker options]
+1 ;;MCARPACEMULTEDIT
+2 ;;MCARPACEGENIMP
+3 ;;MCFLALEAD
+4 ;;MCFLVLEAD
+5 ;;MCFLSURV
+6 ;;MCARPACEDIT
+7 ;;MCBLGENE
+8 ;;MCBLALEAD
+9 ;;MCBLVLEAD
+10 ;;MCBLSURV
+11 ;;MCFSMULTI
+12 ;;MCFSGENIMPL.
+13 ;;MCFSALEAD
+14 ;;MCFSVLEAD
+15 ;;MCARPACESCREENSURV
+16 ;;MCARPACESCREENDEMO
+17 ;;MCBSGENI
+18 ;;MCBSALEAD
+19 ;;MCBSVLEAD
+20 ;;MCPACSURVBRSCR
+21 ;;MCARPACEGENPRINT
+22 ;;MCFPALEAD
+23 ;;MCFPVLEAD
+24 ;;MCARPACESURVPRINT
+25 ;;MCARPACEPATIENT
+26 ;;MCBPGEN.IMPLANT
+27 ;;MCBPALEAD
+28 ;;MCBPVLEAD
+29 ;;MCPACSURVBRREPORT
+30 ;;**END**
RHEUM ;;[Rheumatology options]
+1 ;;MCRHDIAGF
+2 ;;MCRHBACKF
+3 ;;MCRHNARRF
+4 ;;MCRHLABF
+5 ;;MCRHHAQF
+6 ;;MCRHPATHISTF
+7 ;;MCRHPHYSF
+8 ;;MCRHDEATHF
+9 ;;MCRHDIAGP
+10 ;;MCRHBACKP
+11 ;;MCRHNARRP
+12 ;;MCRHLABP
+13 ;;MCRHHAQP
+14 ;;MCRHPATHISTP
+15 ;;MCRHPHYSP
+16 ;;MCRHDEATHP
+17 ;;MCRHALLP
+18 ;;MCBPRHEUM
+19 ;;MCRHIMAGE
+20 ;;MCRHDIAGL
+21 ;;MCRHNARRL
+22 ;;MCRHHAQL
+23 ;;MCRHPATHISTL
+24 ;;MCRHPHYSL
+25 ;;MCRHDEATHL
+26 ;;MCRHBRIEF
+27 ;;MCFLGEN
+28 ;;MCFSGEN
+29 ;;MCGENERICIMAGE
+30 ;;MCBLGEN
+31 ;;MCBSGEN
+32 ;;**END**
SUMM ;;[Procedure Summary option]
+1 ;;MCARSUMMARY
+2 ;;**END**
