MDARSET ; HOIFO/NCA,WOIFO/KLM - High Volume Check-In Setup ;31 Oct 2018 10:02 AM
;;1.0;CLINICAL PROCEDURES;**21,65,73**;Apr 01, 2004;Build 2
; Reference IA # 2263 [Supported] XPAR parameter calls
; 10104 [Supported] XLFSTR call
; 6924 [Private ] ^TIU(8925.1
;
EN1 ; Entry Point for the setup option
N MDAPT,MDAR,MDCP,MDCP1,MDCT,MDDEF,MDERR,MDKK,MDLST,MDLST1,MDMF,MDNOD,MDVAL,MDX,MDX1,X,Y S (MDMF,MDCT)=0
D GETLST^XPAR(.MDLST,"SYS","MD GET HIGH VOLUME")
F MDKK=0:0 S MDKK=$O(MDLST(MDKK)) Q:MDKK<1 S MDX=$G(MDLST(MDKK)),MDLST1(+MDX)=MDKK_"^"_$P(MDX,"^",2),MDCT=MDCT+1
S MDAR=$$GET^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1)
A1 ; Ask for procedure parameter
N MDTIU
S (MDCP1,MDDEF)="",MDCP1="NO"
W !!,"Procedure: " R X:DTIME G:'$T!("^"[X) KIL
I X["?" D PHELP
K DIC S DIC="^MDS(702.01,",DIC(0)="EQMZ",DIC("S")="I +$P(^(0),U,9)>0&(+$P(^(0),U,6)'=2)&(+$P(^(0),U,11)'=2)"
D ^DIC K DIC G A1:"^"[X!$D(DTOUT),A1:Y<1
S MDCP=+Y,MDNOD="" D CHKTL I MDTIU']"" G A1 ;KLM/p65 -note title information. /p73 If no title, can't proceed
S MDMF=$$MUSE(MDCP)
I $G(MDLST1(MDCP))'="" S MDDEF=+$P($G(MDLST1(MDCP)),"^",2),MDCP1=+$P($P($G(MDLST1(MDCP)),"^",2),";",2)
I $G(MDLST1(MDCP))="" G A2
A11 ; Ask to delete an existing entry
K DIR S DIR(0)="YA",DIR("A")="Delete current procedure setup? ",DIR("B")="NO",DIR("?")="Enter either 'Y' or 'N'."
S DIR("?",1)="Enter Yes or No, if you want to delete the setup for the procedure."
D ^DIR G:$D(DIRUT)!$D(DIROUT)!(Y<0) KIL K DIR
I +Y D EN^XPAR("SYS","MD GET HIGH VOLUME",$P($G(^MDS(702.01,+MDCP,0)),"^",1),"@") D:+MDMF EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,0) W "...Procedure deleted" D S MDR=1 G TIU
.S MDNOD=+MDLST1(MDCP) K MDLST1(MDCP),MDLST(+MDNOD) Q
A2 ; Get Text
K DIR S DIR(0)="YA",DIR("A")="Get Text? " S:MDDEF'="" DIR("B")=$S(+MDDEF:"Yes",1:"No") S DIR("?")="Enter either 'Y' or 'N'."
S DIR("?",1)="Indicate whether the text from the result should or should not"
S DIR("?",2)="be obtained."
D ^DIR G:$D(DIRUT)!$D(DIROUT)!(Y<0) KIL K DIR
S MDDEF=Y
I '+MDDEF S MDVAL=MDDEF_";"_0 D:+MDMF EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,0) G SET
I '+MDMF G A4
A3 ; Use Interpreter to close the note
K DIR S DIR(0)="YA",DIR("A")="Use Interpreter to close note? " S:MDAR'="" DIR("B")=$S(+MDAR:"Yes",1:"No") S DIR("?")="Enter either 'Y' or 'N'."
S DIR("?",1)="If 'YES', the interpreter of the result will be used to close"
S DIR("?",2)="the note. If 'NO', the Proxy service will be used."
D ^DIR G:$D(DIRUT)!$D(DIROUT)!(Y<0) KIL K DIR
D EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,Y)
I +Y S MDVAL=MDDEF_";"_0 D EN^XPAR("SYS","MD GET HIGH VOLUME","`"_+MDCP,MDVAL) D G TIU ;P73
.S MDNOD=$G(MDLST1(MDCP)) I MDNOD="" S MDCT=MDCT+1,MDLST1(MDCP)=MDCT_"^"_MDVAL,MDLST(MDCT)=MDCP_"^"_MDVAL Q
.I MDNOD'="" S $P(MDNOD,"^",2)=MDVAL,MDLST1(MDCP)=MDNOD,$P(MDLST(+MDNOD),"^",2)=MDVAL Q
.Q
A4 ; Use CP Method
K DIR S DIR(0)="YA",DIR("A")="Do Not Auto Close Note? " S:MDCP1'="" DIR("B")=$S(+MDCP1:"Yes",1:"No") S DIR("?")="Enter either 'Y' or 'N'."
S DIR("?",1)="If 'YES', the text of the result will be in the significant finding of the procedure."
S DIR("?",2)="If 'NO', the default auto closure will be used."
D ^DIR G:$D(DIRUT)!$D(DIROUT)!(Y<0) KIL K DIR
S MDCP1=Y,MDVAL=MDDEF_";"_MDCP1
SET ; Set parameter
D EN^XPAR("SYS","MD GET HIGH VOLUME","`"_+MDCP,MDVAL)
S MDNOD=$G(MDLST1(MDCP)) I MDNOD="" S MDCT=MDCT+1,MDLST1(MDCP)=MDCT_"^"_MDVAL,MDLST(MDCT)=MDCP_"^"_MDVAL
I MDNOD'="" S $P(MDNOD,"^",2)=MDVAL,MDLST1(MDCP)=MDNOD,$P(MDLST(+MDNOD),"^",2)=MDVAL
I $G(MDCP1)=1 G A1 ;p73 -If SIG FINDINGS do not set tech fields
TIU ;KLM/P65 -Set tech fields COMMIT ACTION and POST-SIGNATURE CODE for note title
N MDIENS,MDTS
I MDTIU']"" W !,"Note title not found!" G A1
S MDIENS=MDTIU_","
I $D(MDR)=0 G TIU1 ;p73 - Skip asking for SET action.
W !,"Do you want to "_$S($D(MDR):"delete",1:"set")_" the technical fields for the "_MD01_" title?"
K Y,DIR S DIR(0)="Y",DIR("B")="Yes",DIR("?")="Enter 'Yes' to update the technical fields or 'No' to bypass this step"
S DIR("??")="^D TLH2^MDARSET" D ^DIR
I +Y=0 G A1
TIU1 ;Check title's status (#.07), it must be inactive to continue
S MDTS=$$GET1^DIQ(8925.1,MDTIU,.07)
I MDTS'="INACTIVE" D K MDR,MD41,MD49 G A1 ;p73
.W:$D(MDR)=1 !!,"Cannot update technical fields - Please INACTIVATE the note title first"
.I $D(MDR)=0 D
..I (MD41="")&(MD49="") D
...W !!,"Cannot update technical fields - Please INACTIVATE the note title first"
...W !!,"** Deleting procedure from High Volume Setup **"
...D EN^XPAR("SYS","MD GET HIGH VOLUME",$P($G(^MDS(702.01,+MDCP,0)),"^",1),"@") D:+MDMF EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,0)
...S MDNOD=+MDLST1(MDCP) K MDLST1(MDCP),MDLST(+MDNOD)
...Q
..E W !!,"Technical fields already set to 'QUIT', Procedure setup OK"
..Q
.Q
;MDR set if procedure's HV setup is deleted...
S MDFDA(8925.1,MDIENS,4.1)=$S($D(MDR):"",1:"Q") ;COMMIT ACTION
S MDFDA(8925.1,MDIENS,4.9)=$S($D(MDR):"",1:"Q") ;POST-SIGNATURE CODE
L +^TIU(8925.1,MDTIU):1 I '$T W !,"Record is locked." G XIT
D FILE^DIE("E","MDFDA","MDERR")
I $D(MDERR) D G XIT
.W !,"Update failed due to the following reason: "
.S MDI="" F S MDI=$O(MDERR("DIERR",1,"TEXT",MDI)) Q:MDI="" W !,?5,$G(MDERR("DIERR",1,"TEXT",MDI))
.Q
L -^TIU(8925.1,MDTIU)
W !!,"Update successful! Don't forget to REACTIVATE the title."
K MDFDA,MDR,MD01,MDERR,Y,DIR,MD41,MD49
G A1
KIL ; kill DIR variables
K DIC,DIR,DIROUT,DIRUT,DTOUT
Q
MUSE(MDP) ; Check if procedure has Muse as a device
N MDM,MDLL,MDINL S MDM=0
Q:'$G(MDP)
S MDLL=0 F S MDLL=$O(^MDS(702.01,+MDP,.1,MDLL)) Q:MDLL<1 S MDINL=+$G(^(MDLL,0)) D Q:+MDM
.S:$$UP^XLFSTR($$GET1^DIQ(702.09,MDINL_",",".01","E"))["MUSE" MDM=1
Q MDM
PHELP ; Procedure list
N MDCH,MDACN,MDNAU
S MDNAU=+$$GET^XPAR("SYS","MD USE NOTE",1)
S MDACN=$$GET^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1)
W ! F MDKK=0:0 S MDKK=$O(MDLST(MDKK)) Q:MDKK<1 S MDX=$G(MDLST(MDKK)),MDX1=$P(MDX,"^",2) D
.S MDCH=0 S:+$$MUSE(+MDX) MDCH=1
.W !,$P($G(^MDS(702.01,+MDX,0)),"^"),?45,$S(+$P(MDX1,";"):"Text",1:"No Text")
.W ?55,$S((+$P(MDX1,";",2)&'+MDNAU):"SF",(+MDCH&+MDACN):"Muse Interpreter",(+$P(MDX1,";",2)&+MDNAU):"Not Auto",1:"Auto")
W !
Q
CHKTL ;KLM/P65 -Display the associated note title information
Q:'MDCP
N MDIENS S MDTIU=$$GET1^DIQ(702.01,MDCP,.04,"I") I MDTIU']"" W !,"Note title not found!" Q
S MDIENS=MDTIU_"," D GETS^DIQ(8925.1,MDIENS,".01;.07;4.1;4.9","","MDROOT")
S MD01=$G(MDROOT(8925.1,MDIENS,.01)) ;TITLE
S MD41=$G(MDROOT(8925.1,MDIENS,4.1)) ;COMMIT ACTION
S MD49=$G(MDROOT(8925.1,MDIENS,4.9)) ;POST-SIGNATURE CODE
S MD07=$G(MDROOT(8925.1,MDIENS,.07)) ;STATUS
W !!,?5,"This procedure has note title "_MD01_" associated with it."
W !!,?5,"The current setup is as follows:"
W !,?10,"STATUS:",?32,MD07
W !,?10,"COMMIT ACTION:",?32,$S(MD41]"":MD41,1:"<NULL>")
W !,?10,"POST-SIGNATURE CODE:",?32,$S(MD49]"":MD41,1:"<NULL>")
W !!,?5,"When a procedure is setup for High Volume, the COMMIT ACTION and"
W !,?5,"POST-SIGNATURE CODE fields must contain a 'Q'. If you need to update"
W !,?5,"these fields, the title ("_MD01_") must be inactivated first.",!!
K MDROOT,MD07
Q
TLH2 ;Help for ?? on update title prompt
W !!,"Select 'Yes' to "_$S($D(MDR):"delete",1:"set")_" the COMMIT ACTION and POST-SIGNATURE CODE"
W !,"technical fields of the associated note title. Note that if you"
W !,"are deleting a procedure from the High Volume setup, but the note"
W !,"title is shared with other procedures still configured for High"
W !,"Volume, then you should not delete these fields, but instead"
W !,"create a new title to be used separately (unless the procedure"
W !,"is being decommissioned)."
Q
XIT ;clean up and go
K MDFDA,MDIENS,MDR,MD01,MDTS,MDERR,MDI,MDTIU,Y,DIR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDARSET 7902 printed Oct 16, 2024@17:43:03 Page 2
MDARSET ; HOIFO/NCA,WOIFO/KLM - High Volume Check-In Setup ;31 Oct 2018 10:02 AM
+1 ;;1.0;CLINICAL PROCEDURES;**21,65,73**;Apr 01, 2004;Build 2
+2 ; Reference IA # 2263 [Supported] XPAR parameter calls
+3 ; 10104 [Supported] XLFSTR call
+4 ; 6924 [Private ] ^TIU(8925.1
+5 ;
EN1 ; Entry Point for the setup option
+1 NEW MDAPT,MDAR,MDCP,MDCP1,MDCT,MDDEF,MDERR,MDKK,MDLST,MDLST1,MDMF,MDNOD,MDVAL,MDX,MDX1,X,Y
SET (MDMF,MDCT)=0
+2 DO GETLST^XPAR(.MDLST,"SYS","MD GET HIGH VOLUME")
+3 FOR MDKK=0:0
SET MDKK=$ORDER(MDLST(MDKK))
if MDKK<1
QUIT
SET MDX=$GET(MDLST(MDKK))
SET MDLST1(+MDX)=MDKK_"^"_$PIECE(MDX,"^",2)
SET MDCT=MDCT+1
+4 SET MDAR=$$GET^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1)
A1 ; Ask for procedure parameter
+1 NEW MDTIU
+2 SET (MDCP1,MDDEF)=""
SET MDCP1="NO"
+3 WRITE !!,"Procedure: "
READ X:DTIME
if '$TEST!("^"[X)
GOTO KIL
+4 IF X["?"
DO PHELP
+5 KILL DIC
SET DIC="^MDS(702.01,"
SET DIC(0)="EQMZ"
SET DIC("S")="I +$P(^(0),U,9)>0&(+$P(^(0),U,6)'=2)&(+$P(^(0),U,11)'=2)"
+6 DO ^DIC
KILL DIC
if "^"[X!$DATA(DTOUT)
GOTO A1
if Y<1
GOTO A1
+7 ;KLM/p65 -note title information. /p73 If no title, can't proceed
SET MDCP=+Y
SET MDNOD=""
DO CHKTL
IF MDTIU']""
GOTO A1
+8 SET MDMF=$$MUSE(MDCP)
+9 IF $GET(MDLST1(MDCP))'=""
SET MDDEF=+$PIECE($GET(MDLST1(MDCP)),"^",2)
SET MDCP1=+$PIECE($PIECE($GET(MDLST1(MDCP)),"^",2),";",2)
+10 IF $GET(MDLST1(MDCP))=""
GOTO A2
A11 ; Ask to delete an existing entry
+1 KILL DIR
SET DIR(0)="YA"
SET DIR("A")="Delete current procedure setup? "
SET DIR("B")="NO"
SET DIR("?")="Enter either 'Y' or 'N'."
+2 SET DIR("?",1)="Enter Yes or No, if you want to delete the setup for the procedure."
+3 DO ^DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<0)
GOTO KIL
KILL DIR
+4 IF +Y
DO EN^XPAR("SYS","MD GET HIGH VOLUME",$PIECE($GET(^MDS(702.01,+MDCP,0)),"^",1),"@")
if +MDMF
DO EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,0)
WRITE "...Procedure deleted"
Begin DoDot:1
+5 SET MDNOD=+MDLST1(MDCP)
KILL MDLST1(MDCP),MDLST(+MDNOD)
QUIT
End DoDot:1
SET MDR=1
GOTO TIU
A2 ; Get Text
+1 KILL DIR
SET DIR(0)="YA"
SET DIR("A")="Get Text? "
if MDDEF'=""
SET DIR("B")=$SELECT(+MDDEF:"Yes",1:"No")
SET DIR("?")="Enter either 'Y' or 'N'."
+2 SET DIR("?",1)="Indicate whether the text from the result should or should not"
+3 SET DIR("?",2)="be obtained."
+4 DO ^DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<0)
GOTO KIL
KILL DIR
+5 SET MDDEF=Y
+6 IF '+MDDEF
SET MDVAL=MDDEF_";"_0
if +MDMF
DO EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,0)
GOTO SET
+7 IF '+MDMF
GOTO A4
A3 ; Use Interpreter to close the note
+1 KILL DIR
SET DIR(0)="YA"
SET DIR("A")="Use Interpreter to close note? "
if MDAR'=""
SET DIR("B")=$SELECT(+MDAR:"Yes",1:"No")
SET DIR("?")="Enter either 'Y' or 'N'."
+2 SET DIR("?",1)="If 'YES', the interpreter of the result will be used to close"
+3 SET DIR("?",2)="the note. If 'NO', the Proxy service will be used."
+4 DO ^DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<0)
GOTO KIL
KILL DIR
+5 DO EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,Y)
+6 ;P73
IF +Y
SET MDVAL=MDDEF_";"_0
DO EN^XPAR("SYS","MD GET HIGH VOLUME","`"_+MDCP,MDVAL)
Begin DoDot:1
+7 SET MDNOD=$GET(MDLST1(MDCP))
IF MDNOD=""
SET MDCT=MDCT+1
SET MDLST1(MDCP)=MDCT_"^"_MDVAL
SET MDLST(MDCT)=MDCP_"^"_MDVAL
QUIT
+8 IF MDNOD'=""
SET $PIECE(MDNOD,"^",2)=MDVAL
SET MDLST1(MDCP)=MDNOD
SET $PIECE(MDLST(+MDNOD),"^",2)=MDVAL
QUIT
+9 QUIT
End DoDot:1
GOTO TIU
A4 ; Use CP Method
+1 KILL DIR
SET DIR(0)="YA"
SET DIR("A")="Do Not Auto Close Note? "
if MDCP1'=""
SET DIR("B")=$SELECT(+MDCP1:"Yes",1:"No")
SET DIR("?")="Enter either 'Y' or 'N'."
+2 SET DIR("?",1)="If 'YES', the text of the result will be in the significant finding of the procedure."
+3 SET DIR("?",2)="If 'NO', the default auto closure will be used."
+4 DO ^DIR
if $DATA(DIRUT)!$DATA(DIROUT)!(Y<0)
GOTO KIL
KILL DIR
+5 SET MDCP1=Y
SET MDVAL=MDDEF_";"_MDCP1
SET ; Set parameter
+1 DO EN^XPAR("SYS","MD GET HIGH VOLUME","`"_+MDCP,MDVAL)
+2 SET MDNOD=$GET(MDLST1(MDCP))
IF MDNOD=""
SET MDCT=MDCT+1
SET MDLST1(MDCP)=MDCT_"^"_MDVAL
SET MDLST(MDCT)=MDCP_"^"_MDVAL
+3 IF MDNOD'=""
SET $PIECE(MDNOD,"^",2)=MDVAL
SET MDLST1(MDCP)=MDNOD
SET $PIECE(MDLST(+MDNOD),"^",2)=MDVAL
+4 ;p73 -If SIG FINDINGS do not set tech fields
IF $GET(MDCP1)=1
GOTO A1
TIU ;KLM/P65 -Set tech fields COMMIT ACTION and POST-SIGNATURE CODE for note title
+1 NEW MDIENS,MDTS
+2 IF MDTIU']""
WRITE !,"Note title not found!"
GOTO A1
+3 SET MDIENS=MDTIU_","
+4 ;p73 - Skip asking for SET action.
IF $DATA(MDR)=0
GOTO TIU1
+5 WRITE !,"Do you want to "_$SELECT($DATA(MDR):"delete",1:"set")_" the technical fields for the "_MD01_" title?"
+6 KILL Y,DIR
SET DIR(0)="Y"
SET DIR("B")="Yes"
SET DIR("?")="Enter 'Yes' to update the technical fields or 'No' to bypass this step"
+7 SET DIR("??")="^D TLH2^MDARSET"
DO ^DIR
+8 IF +Y=0
GOTO A1
TIU1 ;Check title's status (#.07), it must be inactive to continue
+1 SET MDTS=$$GET1^DIQ(8925.1,MDTIU,.07)
+2 ;p73
IF MDTS'="INACTIVE"
Begin DoDot:1
+3 if $DATA(MDR)=1
WRITE !!,"Cannot update technical fields - Please INACTIVATE the note title first"
+4 IF $DATA(MDR)=0
Begin DoDot:2
+5 IF (MD41="")&(MD49="")
Begin DoDot:3
+6 WRITE !!,"Cannot update technical fields - Please INACTIVATE the note title first"
+7 WRITE !!,"** Deleting procedure from High Volume Setup **"
+8 DO EN^XPAR("SYS","MD GET HIGH VOLUME",$PIECE($GET(^MDS(702.01,+MDCP,0)),"^",1),"@")
if +MDMF
DO EN^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1,0)
+9 SET MDNOD=+MDLST1(MDCP)
KILL MDLST1(MDCP),MDLST(+MDNOD)
+10 QUIT
End DoDot:3
+11 IF '$TEST
WRITE !!,"Technical fields already set to 'QUIT', Procedure setup OK"
+12 QUIT
End DoDot:2
+13 QUIT
End DoDot:1
KILL MDR,MD41,MD49
GOTO A1
+14 ;MDR set if procedure's HV setup is deleted...
+15 ;COMMIT ACTION
SET MDFDA(8925.1,MDIENS,4.1)=$SELECT($DATA(MDR):"",1:"Q")
+16 ;POST-SIGNATURE CODE
SET MDFDA(8925.1,MDIENS,4.9)=$SELECT($DATA(MDR):"",1:"Q")
+17 LOCK +^TIU(8925.1,MDTIU):1
IF '$TEST
WRITE !,"Record is locked."
GOTO XIT
+18 DO FILE^DIE("E","MDFDA","MDERR")
+19 IF $DATA(MDERR)
Begin DoDot:1
+20 WRITE !,"Update failed due to the following reason: "
+21 SET MDI=""
FOR
SET MDI=$ORDER(MDERR("DIERR",1,"TEXT",MDI))
if MDI=""
QUIT
WRITE !,?5,$GET(MDERR("DIERR",1,"TEXT",MDI))
+22 QUIT
End DoDot:1
GOTO XIT
+23 LOCK -^TIU(8925.1,MDTIU)
+24 WRITE !!,"Update successful! Don't forget to REACTIVATE the title."
+25 KILL MDFDA,MDR,MD01,MDERR,Y,DIR,MD41,MD49
+26 GOTO A1
KIL ; kill DIR variables
+1 KILL DIC,DIR,DIROUT,DIRUT,DTOUT
+2 QUIT
MUSE(MDP) ; Check if procedure has Muse as a device
+1 NEW MDM,MDLL,MDINL
SET MDM=0
+2 if '$GET(MDP)
QUIT
+3 SET MDLL=0
FOR
SET MDLL=$ORDER(^MDS(702.01,+MDP,.1,MDLL))
if MDLL<1
QUIT
SET MDINL=+$GET(^(MDLL,0))
Begin DoDot:1
+4 if $$UP^XLFSTR($$GET1^DIQ(702.09,MDINL_",",".01","E"))["MUSE"
SET MDM=1
End DoDot:1
if +MDM
QUIT
+5 QUIT MDM
PHELP ; Procedure list
+1 NEW MDCH,MDACN,MDNAU
+2 SET MDNAU=+$$GET^XPAR("SYS","MD USE NOTE",1)
+3 SET MDACN=$$GET^XPAR("SYS","MD NOT ADMN CLOSE MUSE NOTE",1)
+4 WRITE !
FOR MDKK=0:0
SET MDKK=$ORDER(MDLST(MDKK))
if MDKK<1
QUIT
SET MDX=$GET(MDLST(MDKK))
SET MDX1=$PIECE(MDX,"^",2)
Begin DoDot:1
+5 SET MDCH=0
if +$$MUSE(+MDX)
SET MDCH=1
+6 WRITE !,$PIECE($GET(^MDS(702.01,+MDX,0)),"^"),?45,$SELECT(+$PIECE(MDX1,";"):"Text",1:"No Text")
+7 WRITE ?55,$SELECT((+$PIECE(MDX1,";",2)&'+MDNAU):"SF",(+MDCH&+MDACN):"Muse Interpreter",(+$PIECE(MDX1,";",2)&+MDNAU):"Not Auto",1:"Auto")
End DoDot:1
+8 WRITE !
+9 QUIT
CHKTL ;KLM/P65 -Display the associated note title information
+1 if 'MDCP
QUIT
+2 NEW MDIENS
SET MDTIU=$$GET1^DIQ(702.01,MDCP,.04,"I")
IF MDTIU']""
WRITE !,"Note title not found!"
QUIT
+3 SET MDIENS=MDTIU_","
DO GETS^DIQ(8925.1,MDIENS,".01;.07;4.1;4.9","","MDROOT")
+4 ;TITLE
SET MD01=$GET(MDROOT(8925.1,MDIENS,.01))
+5 ;COMMIT ACTION
SET MD41=$GET(MDROOT(8925.1,MDIENS,4.1))
+6 ;POST-SIGNATURE CODE
SET MD49=$GET(MDROOT(8925.1,MDIENS,4.9))
+7 ;STATUS
SET MD07=$GET(MDROOT(8925.1,MDIENS,.07))
+8 WRITE !!,?5,"This procedure has note title "_MD01_" associated with it."
+9 WRITE !!,?5,"The current setup is as follows:"
+10 WRITE !,?10,"STATUS:",?32,MD07
+11 WRITE !,?10,"COMMIT ACTION:",?32,$SELECT(MD41]"":MD41,1:"<NULL>")
+12 WRITE !,?10,"POST-SIGNATURE CODE:",?32,$SELECT(MD49]"":MD41,1:"<NULL>")
+13 WRITE !!,?5,"When a procedure is setup for High Volume, the COMMIT ACTION and"
+14 WRITE !,?5,"POST-SIGNATURE CODE fields must contain a 'Q'. If you need to update"
+15 WRITE !,?5,"these fields, the title ("_MD01_") must be inactivated first.",!!
+16 KILL MDROOT,MD07
+17 QUIT
TLH2 ;Help for ?? on update title prompt
+1 WRITE !!,"Select 'Yes' to "_$SELECT($DATA(MDR):"delete",1:"set")_" the COMMIT ACTION and POST-SIGNATURE CODE"
+2 WRITE !,"technical fields of the associated note title. Note that if you"
+3 WRITE !,"are deleting a procedure from the High Volume setup, but the note"
+4 WRITE !,"title is shared with other procedures still configured for High"
+5 WRITE !,"Volume, then you should not delete these fields, but instead"
+6 WRITE !,"create a new title to be used separately (unless the procedure"
+7 WRITE !,"is being decommissioned)."
+8 QUIT
XIT ;clean up and go
+1 KILL MDFDA,MDIENS,MDR,MD01,MDTS,MDERR,MDI,MDTIU,Y,DIR
+2 QUIT
