- 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 Jan 18, 2025@02:44:19 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**