Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 $$UP^XLFSTR  
Toolkit 1 ($$GET,EN,GETLST)^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Procedures 1 MD HIGH VOLUME PROCEDURE SETUP  

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

External References

Name Field # of Occurrence
^DIC A1+6
FILE^DIE TIU1+18
$$GET1^DIQ TIU1+1, MUSE+4, CHKTL+2
GETS^DIQ CHKTL+3
^DIR A11+3, A2+4, A3+4, A4+4, TIU+7
$$UP^XLFSTR MUSE+4
$$GET^XPAR EN1+4, PHELP+2, PHELP+3
EN^XPAR A11+4, A2+6, A3+5, A3+6, SET+1, TIU1+8
GETLST^XPAR EN1+2

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
Routine Call
  • DIC
  • Line Location:
    • A1+6
Routine Call
  • DIE
  • Line Location:
    • TIU1+18
Routine Call
  • DIR
  • Line Location:
    • A11+3
    • A2+4
    • A3+4
    • A4+4
    • TIU+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MDS(702.01 - [#702.01] A11+4, TIU1+8, MUSE+3, PHELP+6
^TIU(8925.1 - [#8925.1] TIU1+17, TIU1+23

Label References

Name Line Occurrences
$$MUSE A1+8, PHELP+5
A1 A1+6, A1+7, SET+4, TIU+2, TIU+8, TIU1+2, TIU1+26
A2 A1+10
A4 A2+7
CHKTL A1+7
KIL A1+3, A11+3, A2+4, A3+4, A4+4
PHELP A1+4
SET A2+6
TIU A11+4, A3+6
TIU1 TIU+4
XIT TIU1+17, TIU1+19

Naked Globals

Name Field # of Occurrence
^( MUSE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC A1+5!*, A1+6!, KIL+1!
DIC("S" A1+5*
DIC(0 A1+5*
DIR A11+1!, A11+3!, A2+1!, A2+4!, A3+1!, A3+4!, A4+1!, A4+4!, TIU+6!, TIU1+25!
, KIL+1!, XIT+1!
DIR("?" A11+1*, A11+2*, A2+1*, A2+2*, A2+3*, A3+1*, A3+2*, A3+3*, A4+1*, A4+2*
, A4+3*, TIU+6*
DIR("??" TIU+7*
DIR("A" A11+1*, A2+1*, A3+1*, A4+1*
DIR("B" A11+1*, A2+1*, A3+1*, A4+1*, TIU+6*
DIR(0 A11+1*, A2+1*, A3+1*, A4+1*, TIU+6*
DIROUT A11+3, A2+4, A3+4, A4+4, KIL+1!
DIRUT A11+3, A2+4, A3+4, A4+4, KIL+1!
DTIME A1+3
DTOUT A1+6, KIL+1!
MD01 TIU+5, TIU1+25!, CHKTL+4*, CHKTL+8, CHKTL+15, XIT+1!
MD07 CHKTL+7*, CHKTL+10, CHKTL+16!
MD41 TIU1+2!, TIU1+5, TIU1+25!, CHKTL+5*, CHKTL+11, CHKTL+12
MD49 TIU1+2!, TIU1+5, TIU1+25!, CHKTL+6*, CHKTL+12
MDACN PHELP+1~, PHELP+3*, PHELP+7
MDAPT EN1+1~
MDAR EN1+1~, EN1+4*, A3+1
MDCH PHELP+1~, PHELP+5*, PHELP+7
MDCP EN1+1~, A1+7*, A1+8, A1+9, A1+10, A11+4, A11+5, A3+6, A3+7, A3+8
, SET+1, SET+2, SET+3, TIU1+8, TIU1+9, CHKTL+1, CHKTL+2
MDCP1 EN1+1~, A1+2*, A1+9*, A4+1, A4+5*, SET+4
MDCT EN1+1~*, EN1+3*, A3+7*, SET+2*
MDDEF EN1+1~, A1+2*, A1+9*, A2+1, A2+5*, A2+6, A3+6, A4+5
MDERR EN1+1~, TIU1+19, TIU1+25!, XIT+1!
MDERR("DIERR" TIU1+21
MDFDA TIU1+25!, XIT+1!
MDFDA( TIU1+15*, TIU1+16*
MDI TIU1+21*, XIT+1!
MDIENS TIU+1~, TIU+3*, TIU1+15, TIU1+16, CHKTL+2~, CHKTL+3*, CHKTL+4, CHKTL+5, CHKTL+6, CHKTL+7
, XIT+1!
MDINL MUSE+1~, MUSE+3*, MUSE+4
MDKK EN1+1~, EN1+3*, PHELP+4*
MDLL MUSE+1~, MUSE+3*
MDLST EN1+1~, EN1+2
MDLST( EN1+3, A11+5!, A3+7*, A3+8*, SET+2*, SET+3*, TIU1+9!, PHELP+4
MDLST1 EN1+1~
MDLST1( EN1+3*, A1+9, A1+10, A11+5!, A3+7*, A3+8*, SET+2*, SET+3*, TIU1+9!
MDM MUSE+1~*, MUSE+3, MUSE+4*, MUSE+5
MDMF EN1+1~*, A1+8*, A11+4, A2+6, A2+7, TIU1+8
MDNAU PHELP+1~, PHELP+2*, PHELP+7
MDNOD EN1+1~, A1+7*, A11+5*, A3+7*, A3+8*, SET+2*, SET+3*, TIU1+9*
MDP MUSE~, MUSE+2, MUSE+3
MDR A11+4*, TIU+4, TIU+5, TIU1+2!, TIU1+3, TIU1+4, TIU1+15, TIU1+16, TIU1+25!, TLH2+1
, XIT+1!
MDROOT CHKTL+16!
MDROOT( CHKTL+4, CHKTL+5, CHKTL+6, CHKTL+7
MDTIU A1+1~, A1+7, TIU+2, TIU+3, TIU1+1, TIU1+17, TIU1+23, CHKTL+2*, CHKTL+3, XIT+1!
MDTS TIU+1~, TIU1+1*, TIU1+2, XIT+1!
MDVAL EN1+1~, A2+6*, A3+6*, A3+7, A3+8, A4+5*, SET+1, SET+2, SET+3
MDX EN1+1~, EN1+3*, PHELP+4*, PHELP+5, PHELP+6
MDX1 EN1+1~, PHELP+4*, PHELP+6, PHELP+7
X EN1+1~, A1+3*, A1+4, A1+6
Y EN1+1~, A1+6, A1+7, A11+3, A11+4, A2+4, A2+5, A3+4, A3+5, A3+6
, A4+4, A4+5, TIU+6!, TIU+8, TIU1+25!, XIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All