Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MDOUTOR

MDOUTOR.m

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