Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: MDARSET

Package: Clinical Procedures

Routine: MDARSET


Information

MDARSET ; HOIFO/NCA,WOIFO/KLM - High Volume Check-In Setup ;31 Oct 2018 10:02 AM

Source Information

Source file <MDARSET.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry Point for the setup option
A1 ; Ask for procedure parameter
A11 ; Ask to delete an existing entry
A2 ; Get Text
A3 ; Use Interpreter to close the note
A4 ; Use CP Method
SET ; Set parameter
TIU ;KLM/P65 -Set tech fields COMMIT ACTION and POST-SIGNATURE CODE for note title
TIU1 ;Check title's status (#.07), it must be inactive to continue
KIL ; kill DIR variables
MUSE(MDP) ; Check if procedure has Muse as a device
PHELP ; Procedure list
CHKTL ;KLM/P65 -Display the associated note title information
TLH2 ;Help for ?? on update title prompt
XIT ;clean up and go

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: "...Procedure deleted"
  • Line Location: A11+4
Function Call: WRITE
  • Prompt: !,"Note title not found!"
  • Line Location: TIU+2
Function Call: WRITE
  • Prompt: !,"Do you want to "_$S($D(MDR):"delete",1:"set")_" the technical fields for the "_MD01_" title?"
  • Line Location: TIU+5
Function Call: WRITE
  • Prompt: !!,"Technical fields already set to 'QUIT', Procedure setup OK"
  • Line Location: TIU1+11
Function Call: WRITE
  • Prompt: !,"Record is locked."
  • Line Location: TIU1+17
Function Call: WRITE
  • Prompt: !,?5,$G(MDERR("DIERR",1,"TEXT",MDI))
  • Line Location: TIU1+21
Function Call: WRITE
  • Prompt: !!,"Update successful! Don't forget to REACTIVATE the title."
  • Line Location: TIU1+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PHELP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PHELP+8
Function Call: WRITE
  • Prompt: !,"Note title not found!"
  • Line Location: CHKTL+2
Function Call: WRITE
  • Prompt: !!,?5,"This procedure has note title "_MD01_" associated with it."
  • Line Location: CHKTL+8
Function Call: WRITE
  • Prompt: !!,?5,"The current setup is as follows:"
  • Line Location: CHKTL+9
Function Call: WRITE
  • Prompt: !,?10,"STATUS:",?32,MD07
  • Line Location: CHKTL+10
Function Call: WRITE
  • Prompt: !,?10,"COMMIT ACTION:",?32,$S(MD41]"":MD41,1:"<NULL>")
  • Line Location: CHKTL+11
Function Call: WRITE
  • Prompt: !,?10,"POST-SIGNATURE CODE:",?32,$S(MD49]"":MD41,1:"<NULL>")
  • Line Location: CHKTL+12
Function Call: WRITE
  • Prompt: !!,?5,"When a procedure is setup for High Volume, the COMMIT ACTION and"
  • Line Location: CHKTL+13
Function Call: WRITE
  • Prompt: !,?5,"POST-SIGNATURE CODE fields must contain a 'Q'. If you need to update"
  • Line Location: CHKTL+14
Function Call: WRITE
  • Prompt: !,?5,"these fields, the title ("_MD01_") must be inactivated first.",!!
  • Line Location: CHKTL+15
Function Call: WRITE
  • Prompt: !!,"Select 'Yes' to "_$S($D(MDR):"delete",1:"set")_" the COMMIT ACTION and POST-SIGNATURE CODE"
  • Line Location: TLH2+1
Function Call: WRITE
  • Prompt: !,"technical fields of the associated note title. Note that if you"
  • Line Location: TLH2+2
Function Call: WRITE
  • Prompt: !,"are deleting a procedure from the High Volume setup, but the note"
  • Line Location: TLH2+3
Function Call: WRITE
  • Prompt: !,"title is shared with other procedures still configured for High"
  • Line Location: TLH2+4
Function Call: WRITE
  • Prompt: !,"Volume, then you should not delete these fields, but instead"
  • Line Location: TLH2+5
Function Call: WRITE
  • Prompt: !,"create a new title to be used separately (unless the procedure"
  • Line Location: TLH2+6
Function Call: WRITE
  • Prompt: !,"is being decommissioned)."
  • Line Location: TLH2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MDS(702.01 - [#702.01] Classic Fileman Calls,  GET1^DIQ
^MDS(702.09 - [#702.09] GET1^DIQ
^TIU(8925.1 - [#8925.1] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call