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: MDWSETUP

Package: Clinical Procedures

Routine: MDWSETUP


Information

MDWSETUP ; HOIFO/NCA - Auto Study Check-In Setup ;3/18/08 14:14

Source Information

Source file <MDWSETUP.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
Clinical Procedures 1 PHELP^MDWCHK  
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 AUTO CHECK-IN SETUP  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; [Procedure]
; This post conversion routine will place the Medicine Enter/Edit
; options out of order
; Reference IA # 2263 [Supported] XPAR parameter calls
; 10040 [Supported] Accessing Hospital Location file (#44)
; 10103 [Supported] XLFDT call
; 06/04/2014 KAM MD*1*37 Rem Ticket1007464 Clinical Proc Auto Check-in
; 09/21/2015 KAM MD*1*45 CA/SDM Ticket I5605614FY15 clinic editing
QURY ; Query the procedure parameter list
A1 ; Ask for procedure parameter
E1 ; Edit the procedure
E2 ; Ask whether appointment scheduled
E3 ; Edit the location
A2 ; Ask if site schedule appointments
A3 ; Ask for clinic value
A4 ; Ask for another Clinic
KIL ; Clean Up TMP global arrays and exit
TASK ; Queue a task to process previous requests
GET ; Get existing parameter
CLHELP ; Help Message for Clinic prompt
HDR ; Parameter List Header

External References

Name Field # of Occurrence
^%ZTLOAD TASK+4
^DIC A1+4, A3+5
$$GET1^DIQ EN1+33, GET+8, GET+12
^DIR EN1+18, QURY+6, A1+14, E2+3, A2+2, A4+2
PHELP^MDWCHK A1+2
$$NOW^XLFDT TASK+1
$$GET^XPAR EN1+12
EN^XPAR EN1+20, E1+4, E1+5, E2+5, E2+6, E3+5, A2+5, A3+10, GET+17
GETLST^XPAR EN1+11, EN1+21, EN1+22, GET+2, GET+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E($QS(MDPREC,3),1,25),?27,MDAPT,?55,$E($QS(MDPREC,4),1,25)
  • Line Location: QURY+7
Function Call: WRITE
  • Prompt: !?55,$E($QS(MDPREC,4),1,25)
  • Line Location: QURY+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+12
Function Call: WRITE
  • Prompt: !,MDCT_") ",Y(0,0)," ",MDLP
  • Line Location: A1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+14
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E1+1
Function Call: WRITE
  • Prompt: !,"Hit Return to accept the procedure",!,"Enter ""@"" to delete the procedure.",!,"Enter a ""^"" will exit completely."
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: " ..Procedure deleted"
  • Line Location: E1+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: !,"Hit Return to accept the clinic",!,"Enter ""@"" to delete the clinic from the procedure.",!,"Enter a ""^"" will exit completely."
  • Line Location: E3+2
Function Call: WRITE
  • Prompt: " ..Value deleted"
  • Line Location: E3+9
Function Call: WRITE
  • Prompt: "...Procedure removed"
  • Line Location: A2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A4+1
Function Call: WRITE
  • Prompt: !,"Only required, if appointments are scheduled for the procedure."
  • Line Location: CLHELP+1
Function Call: WRITE
  • Prompt: !,"Enter the clinic used for scheduling the procedure."
  • Line Location: CLHELP+2
Function Call: WRITE
  • Prompt: !,MDLP
  • Line Location: CLHELP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CLHELP+5
Function Call: WRITE
  • Prompt: @IOF,!!,"Procedure",?27,"Schedule Appt.",?55,"Clinic"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"---------",?27,"--------------",?55,"------"
  • Line Location: HDR+2
Routine Call
  • DIC
  • Line Location:
    • A1+4
    • A3+5
Routine Call
  • DIR
  • Line Location:
    • EN1+18
    • QURY+6
    • A1+14
    • E2+3
    • A2+2
    • A4+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls,  GET1^DIQ
^MDS(702.01 - [#702.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MDS(702.01 - [#702.01] EN1+25, EN1+30, TASK+2, GET+6, GET+11, CLHELP+4
^TMP("MDOLD" EN1+10!, GET+9*, GET+13, GET+14*, GET+15, GET+18!
^TMP("MDPARAM" EN1+23!, EN1+35*, EN1+38*, QURY+2, A1+6, A1+7, A1+8, A1+9, A1+10, A1+12
, A1+28, E1+6!, E2+7, E2+9*, E3+7!, E3+8*, A2+6*, A3+7!, A3+8*, KIL+2!
, CLHELP+3, CLHELP+4
^TMP("MDPROC" EN1+23!, EN1+27*, EN1+32, EN1+36, KIL+2!

Label References

Name Line Occurrences
A1 QURY+1, A1+4, E1+3, A2+7, A3+3, A4+4
A2 A1+6, A1+7
A3 E2+10, A3+5, A4+3
A4 E3+3, E3+4, E3+12, A4+2
CLHELP A3+2
E1 A1+10, E1+2
E3 E3+2
GET EN1+11
HDR QURY+2, QURY+6
KIL A1+1, A1+25, E1+1, E2+4, E3+1, A2+3, A3+1
TASK A2+7, A3+3, A3+6

Naked Globals

Name Field # of Occurrence
^( E2+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC A1+3!*, A1+4!, A3+4!*, A3+5!
DIC("S" A1+3*
DIC(0 A1+3*, A3+4*
DIR EN1+13!, EN1+18!, QURY+6!, A1+14!, A1+25!, E2+1!, E2+3!, A2+1!, A2+2!, A4+1!
, A4+2!
DIR("?" EN1+13*, EN1+14*, EN1+15*, EN1+16*, EN1+17*, A1+14*, E2+2*, A2+1*, A4+1*
DIR("A" EN1+13*, A1+14*, E2+1*, A2+1*, A4+1*
DIR("B" EN1+13*, E2+1*, A4+1*
DIR(0 EN1+13*, QURY+6*, A1+14*, E2+1*, A2+1*, A4+1*
DIROUT EN1+18, QURY+6, A1+25, E2+4, A2+3, A4+2, KIL+1!
DIRUT EN1+18, QURY+6, A1+25, E2+4, A2+3, A4+2, KIL+1!
DTIME A1+1, E1+1, E3+1, A3+1
>> DTOUT A1+4, A3+5
DUZ TASK+3
IO("Q" TASK+1!
IOF HDR+1
IOSL QURY+6
MDANS EN1+9~, QURY+2*, QURY+4, QURY+6*
MDAPT EN1+9~, QURY+5*, QURY+7
MDAR EN1+9~
MDAR( A1+13*, A1+27
MDCL EN1+9~, E3+10*, E3+11!, A2+7*, A3+3*, A3+6*, A3+8, A3+9, A3+10, KIL+1!
MDCNOD EN1+9~, EN1+32*, EN1+35
MDCP EN1+9~, A1+5*, TASK+2, CLHELP+3, CLHELP+4
MDCT EN1+9~, EN1+23*, A1+12*, A1+13*, A1+14
MDCTR EN1+9~, EN1+23*, EN1+33*, EN1+38*, QURY+1, GET+15*, GET+16*, GET+17
MDCTR( EN1+34*, E1+7*, E3+6*, A3+9*
MDDEF EN1+9~, EN1+12*, EN1+13
MDDFLT EN1+9~, A1+9*, A1+10*, A1+28*, E1+5, E1+7, E2+1, E2+5, E2+7, E3+5
, E3+6, E3+8*, E3+10
MDERR EN1+9~
MDFLAG EN1+9~, A1+9*, A1+11, A1+15*, A1+25*
MDFRST EN1+9~, A1+7*, A1+8, A1+9, A1+10
MDLAST EN1+9~, EN1+23*, EN1+35*, A3+9*, A3+10
MDLP EN1+9~, EN1+25*, EN1+26, EN1+27, EN1+29*, A1+12*, A1+13, E2+7*, E2+9, GET+5*
, GET+7, GET+11*, GET+12, GET+14, CLHELP+4*
MDLST EN1+9~, EN1+21, EN1+36!
MDLST( EN1+25, EN1+26, EN1+27
MDLST1 EN1+9~, EN1+11, EN1+22, EN1+36!, GET+2
MDLST1( EN1+29, GET+5, GET+7
MDLST2 EN1+9~, GET+3
MDLST2( GET+11, GET+12, GET+14
MDN QURY+2~*, QURY+7*
MDNODE EN1+9~, A1+10*, A1+27*, A1+28, E1+6, E2+10, E3+1, E3+7, E3+10
MDNXT EN1+9~, A1+9*, A1+10, A1+11, E1+4, E3+8
MDPAR GET+1~, GET+15*, GET+16
MDPREC EN1+10~, EN1+36*, EN1+37*, EN1+38, QURY+2*, QURY+3*, QURY+5, QURY+7, QURY+8
MDS EN1+10~, A1+25*, A1+27
MDSAP EN1+10~, A1+15*, E2+4*, E2+6, E2+7, E2+8, A2+4*, A2+5, A2+6, A2+7
, A3+3, A3+8
MDSED EN1+10~, A1+15*, E1+9*, E2+6, E2+7, E2+9
MDSEL EN1+10~, A1+5*, A1+15, A1+28, E1+1, E1+4, E1+6, E1+9, E2+5, E3+7
, E3+8, E3+11!, A2+5, A2+6, A3+7, A3+8, A3+10, KIL+1!
>> MDUSR TASK+3*
MDVAL GET+1~, GET+16*, GET+17
MDX EN1+10~, EN1+25*, EN1+26, EN1+27, EN1+30*, EN1+32, EN1+35, E2+7*, E2+8*, E2+9
, GET+6*, GET+9, GET+11*, GET+13, GET+14
MDX1 EN1+10~, EN1+29*, EN1+30, EN1+32, EN1+35, A1+8*, A1+15, GET+5*, GET+6, GET+9
MDX2 EN1+10~, EN1+29*, EN1+31
MDX3 EN1+10~, EN1+29*, EN1+35
MDY EN1+10~, EN1+26*, EN1+27, EN1+31*, EN1+33, EN1+34, EN1+35, GET+7*, GET+8, GET+9
, GET+12*, GET+14
MDY1 EN1+10~, EN1+33*, EN1+35, GET+8*, GET+9, GET+12*, GET+13, GET+14
U E1+1, E3+1, A3+1
X A1+1*, A1+2, A1+4, A1+15, E1+1*, E1+2, E1+3, E3+1*, E3+2, E3+3
, E3+4, A3+1*, A3+2, A3+3, A3+5, KIL+1!
Y EN1+18, QURY+6, A1+4, A1+5, A1+25, E2+4, A2+3, A2+4, A3+5, A3+6
, A4+2, A4+3, KIL+1!
Y(0 A1+6, A1+7, A1+8, A1+9, A1+10, A1+12, A1+13
>> ZTDESC TASK+2*
ZTDTH TASK+1!*
ZTIO TASK+1!*
>> ZTREQ TASK+1*
>> ZTRTN TASK+1*
ZTSAVE TASK+1!
ZTSAVE("MDCL" TASK+3*
ZTSAVE("MDCP" TASK+3*
ZTSAVE("MDSAP" TASK+3*
ZTSAVE("MDUSR" TASK+3*
ZTSAVE("ZTREQ" TASK+1*
ZTSK TASK+4!
ZTUCI TASK+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