Routine: MCESCONV

Package	Total	Call Graph
VA Fileman	4	DD^%DT NOW^%DTC ^DIC ^DIR
Medicine	2	MCEPROC^MCARE MCPPROC^MCARP
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMD

Package	Total	Caller Graph
Medicine	23	MCARCATHCONV MCARECGCONV MCARECHOCONV MCAREPCONV MCARETTCONV MCARGICONV MCARHEMCONV MCARHOLTERCONV MCARPFTCONV MCESTONCATH MCESTONECG MCESTONECHO MCESTONEP MCESTONETT MCESTONGEN MCESTONGIENDO MCESTONHEM MCESTONHOLTER MCESTONPFT MCESTONPULM MCESTONRHEUM MCGICONV MCPFTCONV

Entry Points

Name	Comments	DBIA/ICR reference
PERSON(MCESKEY)	; Get a person with the right key.
STATUS	; Current status of the record
CONV	;
ESTOON	; Turn ES to ON.
START	;
EXIT	;
SETESON(PROC,PIECE)	; Set ES ON ALL PULM AND GI PROC

External References

Name	Field # of Occurrence
DD^%DT	STATUS+1
NOW^%DTC	CONV+24
^DIC	PERSON+5
^DIR	CONV+23
MCEPROC^MCARE	CONV+4
MCPPROC^MCARP	ESTOON+2
$$FMTE^XLFDT	CONV+32
^XMD	CONV+46

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not have '"_MCESKEY_"' KEY for "_MCROUT_"." Line Location: CONV+15
Function Call: WRITE	Prompt: !,"You do not have the Manager key" Line Location: CONV+16
Function Call: WRITE	Prompt: ! Line Location: CONV+23
Function Call: WRITE	Prompt: ! Line Location: CONV+24
Function Call: WRITE	Prompt: !!,"Your records are being converted. Please wait!" Line Location: CONV+36
Function Call: WRITE	Prompt: !,"A mail message will be sent to you with records that are converted." Line Location: CONV+37
Function Call: WRITE	Prompt: !,"A dot is equal to 5 records." Line Location: CONV+38
Function Call: WRITE	Prompt: !,"Electronic Signature is already on!" Line Location: ESTOON+3
Function Call: WRITE	Prompt: !,"You do not have '"_MCESKEY_"' KEY for "_MCROUT_"." Line Location: ESTOON+4
Function Call: WRITE	Prompt: !,"You do not have the Manager key" Line Location: ESTOON+5
Function Call: WRITE	Prompt: !,"Electronic Signature is now turned on!" Line Location: ESTOON+12
Function Call: WRITE	Prompt: "." Line Location: START+14
Function Call: WRITE	Prompt: !,"In order to do the conversion, you must select a provider that" Line Location: PERSON+1
Function Call: WRITE	Prompt: !,"has the key to ",MCROUT,!!!! Line Location: PERSON+2
Routine Call	DIC Line Location: PERSON+5
Routine Call	DIR Line Location: CONV+23

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CONV+25, CONV+26
^DIC(9.4 - [#9.4]	CONV+11, CONV+12
^MCAR(	START+1, START+3, START+4, START+5, START+6, START+7, START+8, START+12, START+13, STATUS+1
^MCAR(697.2 - [#697.2]	ESTOON+6, ESTOON+11, SETESON+2, SETESON+3, START+9
^MCAR(699 - [#699]	START+9
^MCAR(699.5 - [#699.5]	START+10
^TMP("MCAR"	CONV+28, CONV+29, CONV+30, CONV+31, CONV+32, CONV+33, CONV+34, CONV+35, CONV+40, CONV+41 , CONV+42, CONV+47!, STATUS+5, STATUS+8*
^XUSEC(	CONV+6, ESTOON+4, PERSON+4
^XUSEC("MCMANAGER"	CONV+16, ESTOON+5

Label References

Name	Line Occurrences
$$PERSON	CONV+25
EXIT	CONV+15, CONV+16, ESTOON+4, ESTOON+5, ESTOON+13
SETESON	ESTOON+7, ESTOON+8, ESTOON+9, ESTOON+10
START	CONV+39
STATUS	START+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CONV+25
CHECK	CONV+1~, CONV+12*, CONV+13
CODE2	CONV+1~
DIC	PERSON+3*, PERSON+5!
DIC("A"	PERSON+3*
DIC("B"	PERSON+4*
DIC("S"	PERSON+3*
DIC(0	PERSON+3*
DIR	CONV+18~
DIR("?"	CONV+20, CONV+21, CONV+22*
DIR("A"	CONV+19*
DIR(0	CONV+18*
>> DIRUT	CONV+23
DRAFT	CONV+1~, START+6*, STATUS+7
DT	CONV+18
DUZ	CONV+6, CONV+16, CONV+44, CONV+45, ESTOON+4, ESTOON+5, PERSON+4
DUZ(2	CONV+25
INFO2	CONV+1~
>> LOC	CONV+25, CONV+26
LOCATION	CONV+1~
LOOP	CONV+1~, CONV+39*, START+14
MCAR	EXIT+1!
MCARCK	CONV+2~, START+9*
>> MCARCODE	CONV+14*, START+9
MCARDOB	EXIT+1!
MCARDTM	EXIT+1!
MCARGDA	CONV+1~, CONV+25, CONV+39, START+1, START+2*, START+3, START+4, START+5, START+6, START+7 , START+8, START+9, START+10, START+12, START+13, STATUS+1, STATUS+5, STATUS+8
MCARHDR	EXIT+1!
MCARP	ESTOON+6, ESTOON+11, START+10, EXIT+2!
MCARRB	EXIT+1!
MCARWARD	EXIT+1!
MCBS	EXIT+3!
MCEBRIEF	EXIT+3!
MCEFULL	EXIT+3!
MCESKEY	CONV+5, CONV+6, CONV+14, CONV+15, CONV+25, ESTOON+4, PERSON~, PERSON+4, EXIT+2!
MCESON	ESTOON+3, ESTOON+12, EXIT+2!
>> MCESSEC	CONV+6*, CONV+15
MCFILE	CONV+7, CONV+8, CONV+10, CONV+14, START+1, START+3, START+4, START+5, START+6, START+7 , START+8, START+9, START+10, START+12, START+13, STATUS+1, EXIT+2!
>> MCNODE	CONV+7, CONV+13, START+8, STATUS+2
MCOUNT	CONV+2~, CONV+25, CONV+40, CONV+41, CONV+42, STATUS+5, STATUS+8, STATUS+9
MCPBRIEF	EXIT+3!
MCPFULL	EXIT+3!
>> MCPIECE	CONV+8, CONV+13, START+8
>> MCPRO	ESTOON+1*
MCPRTRTN	EXIT+3!
MCREL	CONV+1~, START+8, STATUS+2, STATUS+3
MCRHR	EXIT+1!
MCROUT	CONV+5*, CONV+15, CONV+31, ESTOON+4, PERSON+2, PERSON+3, EXIT+2!
MCTYPE	EXIT+2!
MCUTOFDT	CONV+3~, CONV+23*, CONV+32, START+3
>> NOW	CONV+25*, START+6, START+7
ORDER	SETESON+1~, SETESON+2, SETESON+3
PDUZ	CONV+1~, CONV+25*, CONV+27, CONV+44, START+6, START+7
PIECE	SETESON~, SETESON+3
PROC	CONV+2~, SETESON~, SETESON+2
REC	CONV+2~, CONV+11, CONV+12, CONV+25, CONV+26
RELEASE	CONV+1~, START+7*, STATUS+4
SDRAFT	CONV+2~, CONV+25, CONV+41, STATUS+7
SRELEASE	CONV+2~, CONV+25, CONV+42, STATUS+4
>> STATUS	START+12, STATUS+4, STATUS+7
STATUS2	CONV+3~, START+13, STATUS+4, STATUS+7
>> TYPE	ESTOON+6*, ESTOON+7, ESTOON+8, ESTOON+9, ESTOON+10
U	CONV+26, ESTOON+1, ESTOON+6, ESTOON+11, SETESON+3, START+3, START+5, START+6, START+7, START+8 , START+9, START+10, STATUS+1
VADM	EXIT+1!
VAIN	EXIT+1!
XMDUZ	CONV+2~, CONV+43*
XMSUB	CONV+2~, CONV+43*
XMTEXT	CONV+2~, CONV+43*
XMY	CONV+2~
XMY(	CONV+44, CONV+45
>> XQY0	ESTOON+1
Y	CONV+23, START+3~, PERSON+6, STATUS+1, STATUS+5, STATUS+8
Y(0	CONV+28

Customize PDF page

Package: Medicine

Routine: MCESCONV

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 23

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: