Routine: MDWCHK

Information

MDWCHK ; HOIFO/NCA - Create CP Studies for Existing Procedures ;12/13/07 15:52

Package	Total	Call Graph
Clinical Procedures	3	$$SUB^MDHL7B CP^MDKUTL $$GINST^MDWORSR
VA FileMan	3	C^%DTC (FILE,UPDATE)^DIE $$GET1^DIQ
Kernel	1	$$NOW^XLFDT
Registration	1	SDA^VADPT
Toolkit	1	GETLST^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Clinical Procedures	1	MDWSETUP

Entry Points

Name	Comments	DBIA/ICR reference
START	; Convert procedure to procedures.
GETAPPT(MDPAT,MDDA)	; Get appointment
CHELP	; Help Message for the Schedule Appointment prompt
PHELP	; Help Message for Procedure prompt

External References

Name	Field # of Occurrence
C^%DTC	GETAPPT+2
FILE^DIE	START+38, START+40
UPDATE^DIE	START+32
$$GET1^DIQ	START+9
$$SUB^MDHL7B	START+35
CP^MDKUTL	START+40
$$GINST^MDWORSR	START+28
SDA^VADPT	GETAPPT+2
$$NOW^XLFDT	START+12, START+13, START+14, START+18, START+19, START+23, START+34
GETLST^XPAR	PHELP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"REQUIRED field for the procedure to have auto CP study check-in." Line Location: CHELP+1
Function Call: WRITE	Prompt: !,"Enter a ""^"" will exit completely." Line Location: CHELP+2
Function Call: WRITE	Prompt: !!,"Enter 0 if you do not schedule appointments." Line Location: CHELP+3
Function Call: WRITE	Prompt: !," 1 if you only schedule appointments for outpatients." Line Location: CHELP+4
Function Call: WRITE	Prompt: !," 2 if you only schedule appointments for inpatients." Line Location: CHELP+5
Function Call: WRITE	Prompt: !," 3 if you schedule appointments for both 1 and 2." Line Location: CHELP+6
Function Call: WRITE	Prompt: !,"Enter a CP Definition for the procedure to" Line Location: PHELP+1
Function Call: WRITE	Prompt: !,"have auto CP study check-in.",! Line Location: PHELP+2
Function Call: WRITE	Prompt: !,$P($G(^MDS(702.01,+MDLST(MDLP),0)),"^",1) Line Location: PHELP+4
Routine Call	DIE Line Location: START+38 START+40
Routine Call	DIE Line Location: START+32

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START+13, START+14
^GMR(123 - [#123]	START+6
^MDD(702 - [#702]	START+8, START+34*
^MDS(702.01 - [#702.01]	START+12, START+13, START+14, START+17, PHELP+4
^TMP("MDPAT"	START+4!, START+7, START+11*, START+42!
^UTILITY("VASD"	GETAPPT+1!, GETAPPT+3, GETAPPT+4!

Label References

Name	Line Occurrences
$$GETAPPT	START+15

Naked Globals

Name	Field # of Occurrence
^(	GETAPPT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	GETAPPT+1~*
DT	START+4, GETAPPT+2
MDALP	GETAPPT+1~, GETAPPT+3*
MDAP	START+1~, START+4, START+11, START+12, START+13, START+14, START+15, START+16, START+18, START+19 , START+20
MDARES	GETAPPT+1~, GETAPPT+3*, GETAPPT+5
>> MDCL	START+15
>> MDCP	START+2, START+4, START+17, START+25, START+28
MDCPR	START+1~
MDDA	GETAPPT~, GETAPPT+2
MDFD	START+1~, START+8*
MDFDA	START+1~, START+21!, START+32!, START+38, START+40!
MDFDA(702	START+22, START+23, START+24, START+25, START+26, START+27, START+29, START+30, START+31, START+36 , START+37, START+40
MDFLG	START+1~, START+4*
MDFR	START+1~
MDHEMO	START+1~, START+17*, START+34, START+40
MDHL7	START+1~, START+35*, START+36, START+37
MDHOLD	START+1~, START+34*, START+40
MDIEN	START+1~, START+4~, START+21!
MDIEN(1	START+34, START+35
MDIENS	START+1~, START+34*, START+36, START+37, START+39, START+40
MDINST	START+1~, START+4~, START+28*, START+30
MDJ1	START+1~, START+6*, START+8, START+9, START+26
MDL	START+1~, START+6*, START+7, START+11, START+13, START+14, START+15, START+22
MDLP	START+1~, PHELP+4*
MDLST	PHELP+3!, PHELP+5!
MDLST(	PHELP+4
MDMAXD	START+1~, START+4*, START+29, START+33
MDNDT	START+1~, START+18*, START+29, START+31, START+33, START+34
MDNOW	START+1~, START+34*
MDNVS	START+1~, START+19*, START+27
MDP	START+1~, START+4*, START+6, START+12, START+13, START+14
MDPAT	GETAPPT~, GETAPPT+1
>> MDSAP	START+5
MDST	START+1~, START+9*, START+10
>> MDUSR	START+3, START+24
MDX	START+1~
MDY	START+1~, START+4~, START+5*, START+12, START+13, START+14
U	START+36
VASD	GETAPPT+4!
VASD("C"	GETAPPT+2*
VASD("F"	GETAPPT+2*
VASD("T"	GETAPPT+2*
VASD("W"	GETAPPT+2*
X	START+4~, GETAPPT+2, GETAPPT+4!
X1	GETAPPT+2*, GETAPPT+4!
X2	GETAPPT+2*, GETAPPT+4!
Y	START+4~

Customize PDF page

Package: Clinical Procedures