Routine: MDCVT1

Information

MDCVT1 ; HOIFO/NCA - Medicine Package Conversion (Cont.) ;1/6/05 15:12

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC (FILE,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIR
Clinical Procedures	4	(LOGERR,SKIP,SYNC)^MDCVT $$CVTCONS^MDCVT1 $$EN1^MDPCE ($$HOSP,$$LOCATN,$$LOCATP)^MDSTATU
Text Integration Utility	2	(DELETE,MAKE,UPDATE)^TIUSRVP ADMNCLOS^TIUSRVPT
Consult Request Tracking	1	$$MCCNVT^GMRCCP
Imaging	1	$$TIU^MAGMC2CP
Kernel	1	^%ZTLOAD
MailMan	1	SENDMSG^XMXAPI

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

Package	Total	Caller Graph
Clinical Procedures	3	MDCVT MDCVT BUILD CONVERSION LIST MDCVT1
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
CONVERT(MDNOD,MDGLB)	; [Function] Convert Medicine Report to TIU Document ; Input parameters ; 1. MDNOD [Literal/Required] ; 2. MDGLB [Reference/Required]
NEWTIU(MDFILE,MDPAT,MDFIEN,MDPROC,MDTITL,MDU,MDGLB)	; [Function] Create New TIU Note for Medicine Reports ; Input parameters ; 1. MDFILE [Literal/Required] ; 2. MDPAT [Literal/Required] ; 3. MDFIEN [Literal/Required] ; 4. MDPROC [Literal/Required] ; 5. MDTITL [Literal/Required] ; 6. MDGLB [Reference/Required]
UPD(MDGB,MDNOD,MDTI,MDT)	; Do consults and Imaging update and log response
PROC(MDX5,MDX6)	; Get Medicine Procedure Name
CVTIMG(MDTST,MDN,MDTIU,MDIMAGES)	; Call Imaging API
CVTCONS(MDTST,MDN,MDTIU)	; Call Consults API
CHKINT(MDFL,MDMREC)	; Check to see if record from Medical Device ; Returns 1 or 0
BLD()	; Build the list of reports to convert
QBLD	; Queued entry point for re-build
DELETE(MDIN)	; Delete study upon unsuccessful Note Creation
TOTALS(MDSTAT)	; Count by Status

External References

Name	Field # of Occurrence
NOW^%DTC	NEWTIU+25
^%ZTLOAD	BLD+15
FILE^DIE	NEWTIU+38, UPD+20, UPD+30, DELETE+3
UPDATE^DIE	NEWTIU+31
^DIK	DELETE+4
$$GET1^DIQ	CONVERT+16, CONVERT+17, NEWTIU+12, NEWTIU+14, NEWTIU+17, UPD+8, UPD+23
^DIR	BLD+3, BLD+8
$$MCCNVT^GMRCCP	CVTCONS+1
$$TIU^MAGMC2CP	CVTIMG+1
LOGERR^MDCVT	CONVERT+33, UPD+15, UPD+19, UPD+29, UPD+34
SKIP^MDCVT	CONVERT+22
SYNC^MDCVT	QBLD+9
$$CVTCONS^MDCVT1	UPD+14
$$EN1^MDPCE	NEWTIU+32
$$HOSP^MDSTATU	NEWTIU+11
$$LOCATN^MDSTATU	CONVERT+23
$$LOCATP^MDSTATU	CONVERT+25
DELETE^TIUSRVP	UPD+34
MAKE^TIUSRVP	NEWTIU+35
UPDATE^TIUSRVP	UPD+18
ADMNCLOS^TIUSRVPT	UPD+34
SENDMSG^XMXAPI	QBLD+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: UPD+30
Function Call: WRITE	Prompt: ! Line Location: BLD+1
Function Call: WRITE	Prompt: "Task Queued" Line Location: BLD+16
Function Call: WRITE	Prompt: "Task Cancelled" Line Location: BLD+17
Function Call: WRITE	Prompt: @IOF,!,"Conversion Totals",!,$TR($J("",35)," ","-") Line Location: TOTALS+3
Function Call: WRITE	Prompt: !,"Converted REAL Mode: ",$J(+$G(MDSTAT("CR")),9) Line Location: TOTALS+4
Function Call: WRITE	Prompt: !,"Converted TEST Mode: ",$J(+$G(MDSTAT("CT")),9) Line Location: TOTALS+5
Function Call: WRITE	Prompt: !,"Skipped: ",$J(+$G(MDSTAT("S")),9) Line Location: TOTALS+6
Function Call: WRITE	Prompt: !,"Error: ",$J(+$G(MDSTAT("E")),9) Line Location: TOTALS+7
Routine Call	DIE Line Location: NEWTIU+38 UPD+20 UPD+30 DELETE+3
Routine Call	DIE Line Location: NEWTIU+31
Routine Call	DIR Line Location: BLD+3 BLD+8

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	CHKINT+17, QBLD+7
^MCAR(691 - [#691]	CHKINT+3
^MCAR(691.1 - [#691.1]	CHKINT+4
^MCAR(691.5 - [#691.5]	CHKINT+5
^MCAR(691.6 - [#691.6]	CHKINT+6
^MCAR(691.8 - [#691.8]	CHKINT+7
^MCAR(694 - [#694]	PROC+6
^MCAR(697.2 - [#697.2]	PROC+2, PROC+5, PROC+6, PROC+7
^MCAR(698.3 - [#698.3]	CHKINT+8
^MCAR(699 - [#699]	PROC+2, CHKINT+9
^MCAR(699.5 - [#699.5]	PROC+4, PROC+5
^MCAR(700 - [#700]	CHKINT+11, CHKINT+13, CHKINT+15
^MDD(702 - [#702]	CONVERT+15, UPD+4
^MDD(703.9 - [#703.9]	CONVERT+20, CONVERT+27, CONVERT+29, CONVERT+30, UPD+12, QBLD+1, QBLD+3, QBLD+10

Label References

Name	Line Occurrences
$$CHKINT	NEWTIU+16
$$CVTIMG	UPD+28
$$NEWTIU	CONVERT+33
DELETE	NEWTIU+34, NEWTIU+39
QBLD	BLD+9

Naked Globals

Name	Field # of Occurrence
^(	QBLD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEWTIU+25!
DA	DELETE+4~*
DIK	DELETE+4~*
DIR	BLD+1!, BLD+3!, BLD+8!
DIR("A"	BLD+1, BLD+2, BLD+3, BLD+8
DIR("B"	BLD+3, BLD+8
DIR(0	BLD+1, BLD+8
>> DIROUT	BLD+6
>> DIRUT	BLD+6
DUZ	NEWTIU+28, BLD+13, QBLD+17
IOF	TOTALS+3
LL	PROC+1~, PROC+2, PROC+5, PROC+6, PROC+7, PROC+8
LL6	PROC+1~, PROC+4*
LL8	PROC+1~, PROC+4*
MDADD	NEWTIU+9~
MDCHKI	NEWTIU+9~, NEWTIU+16*
MDCODE	NEWTIU+9~, NEWTIU+14, NEWTIU+15, NEWTIU+16*, NEWTIU+23
MDCONS	UPD+1~, UPD+14*, UPD+15, UPD+16, UPD+17, UPD+20
MDCONV	CONVERT+10~, CONVERT+22*
MDD	NEWTIU+9~, NEWTIU+25*, NEWTIU+27
MDDT	NEWTIU+9~, NEWTIU+17*, NEWTIU+23, NEWTIU+32
MDDUZ	BLD+13*, QBLD+14, QBLD+18!
MDECON	UPD+1~, UPD+8*
MDEFLG	UPD+1~, UPD+16, UPD+19
MDERR	NEWTIU+9~, NEWTIU+31
MDEX	CONVERT+10~, CONVERT+12, CONVERT+31
MDF	CHKINT+2~, CHKINT+10, CHKINT+12, CHKINT+14, CHKINT+16
MDFDA	NEWTIU+9~, UPD+30!, QBLD+2~, DELETE+1~
MDFDA(702	NEWTIU+26, NEWTIU+27, NEWTIU+28, NEWTIU+29, NEWTIU+30, NEWTIU+38, UPD+20, UPD+30, DELETE+2*
MDFIEN	CONVERT+10~, CONVERT+13*, CONVERT+15, CONVERT+16, CONVERT+17, CONVERT+33, NEWTIU~, NEWTIU+11, NEWTIU+14, NEWTIU+16 , NEWTIU+17
MDFILE	CONVERT+10~, CONVERT+14*, CONVERT+15, CONVERT+16, CONVERT+17, CONVERT+20, CONVERT+33, NEWTIU~, NEWTIU+11, NEWTIU+14 , NEWTIU+16, NEWTIU+17
MDFL	CHKINT~, CHKINT+3, CHKINT+4, CHKINT+5, CHKINT+6, CHKINT+7, CHKINT+8, CHKINT+9, CHKINT+10, CHKINT+17 , QBLD+2~, QBLD+5*, QBLD+7, QBLD+8
MDFLG	CONVERT+10~, CONVERT+12*
MDGB	UPD~, UPD+24, UPD+26, UPD+27
MDGBL	QBLD+2~, QBLD+5, QBLD+6, QBLD+7, QBLD+8
MDGLB	CONVERT~, CONVERT+33, NEWTIU~, NEWTIU+24
MDGN	CONVERT+10~, CONVERT+11*, CONVERT+23, CONVERT+25
MDIEN	NEWTIU+9~, QBLD+2~
MDIEN(1	NEWTIU+32, NEWTIU+34, NEWTIU+37, NEWTIU+39
MDIENS	NEWTIU+9~, NEWTIU+37*, NEWTIU+38
MDIMAGES	CVTIMG~, CVTIMG+1
MDIMG	UPD+1~, UPD+25, UPD+27, UPD+28
MDIN	DELETE~, DELETE+2, DELETE+4
MDK	NEWTIU+9~, NEWTIU+24*
MDLOC	NEWTIU+9~, NEWTIU+11, NEWTIU+12, NEWTIU+13, NEWTIU+32, NEWTIU+35
MDMREC	CHKINT~, CHKINT+3, CHKINT+4, CHKINT+5, CHKINT+6, CHKINT+7, CHKINT+8, CHKINT+9, CHKINT+11, CHKINT+13 , CHKINT+15, CHKINT+17
MDN	CVTIMG~, CVTIMG+1, CVTCONS~, CVTCONS+1
MDN1	CHKINT+2~, CHKINT+3, CHKINT+4, CHKINT+5, CHKINT+6, CHKINT+7, CHKINT+8, CHKINT+9, CHKINT+11, CHKINT+12 , CHKINT+13, CHKINT+14, CHKINT+15, CHKINT+16
MDNOD	CONVERT~, CONVERT+11, UPD~, UPD+14, UPD+15, UPD+19, UPD+28, UPD+29, UPD+30, UPD+34
MDNOTE	NEWTIU+9~, NEWTIU+35*, NEWTIU+38, NEWTIU+39, NEWTIU+40, UPD+1~, UPD+18, UPD+19
MDP	CONVERT+10~, CONVERT+11*, CONVERT+13, CONVERT+14, CONVERT+22, CONVERT+26, CONVERT+29, CONVERT+33
MDPAT	CONVERT+16, CONVERT+17, CONVERT+18, CONVERT+33, NEWTIU~, NEWTIU+26, NEWTIU+35
MDPROC	CONVERT+10~, CONVERT+20, CONVERT+22, CONVERT+23, CONVERT+25, CONVERT+26, CONVERT+33, NEWTIU~, NEWTIU+12, NEWTIU+29 , NEWTIU+32
MDPTR	QBLD+2~, QBLD+8*, QBLD+9
MDQUE	BLD+13*, QBLD+11, QBLD+18!
MDR	UPD+1~, UPD+33*, UPD+34
MDR1	UPD+1~, UPD+33*, UPD+34
MDRES	CONVERT+10~, CONVERT+12, CONVERT+33, CONVERT+34
MDRET	NEWTIU+9~, NEWTIU+32, NEWTIU+33, NEWTIU+34, UPD+1~, UPD+24, UPD+26, UPD+28*, UPD+29, UPD+30
MDSSTR	NEWTIU+9~, NEWTIU+33*
MDSTAT	TOTALS~
MDSTAT("CR"	TOTALS+2, TOTALS+4
MDSTAT("CT"	TOTALS+2, TOTALS+5
MDSTAT("E"	TOTALS+1, TOTALS+2, TOTALS+7
MDSTAT("S"	TOTALS+2, TOTALS+6
MDSTAT("TOT"	TOTALS+2
MDSTUD	UPD+1~, UPD+4*, UPD+8, UPD+20, UPD+23, UPD+30
MDT	UPD~, UPD+13
MDTI	UPD~, UPD+4, UPD+14, UPD+18, UPD+28, UPD+34
MDTITL	CONVERT+10~, CONVERT+23*, CONVERT+24, CONVERT+33, NEWTIU~, NEWTIU+35
MDTIU	CVTIMG~, CVTIMG+1, CVTCONS~, CVTCONS+1
MDTST	CVTIMG~, CVTIMG+1, CVTCONS~, CVTCONS+1
MDTT	UPD+1~, UPD+13*, UPD+14, UPD+28
MDU	NEWTIU~
MDUSER	CONVERT+10~, CONVERT+27*, CONVERT+33
MDUSR	UPD+1~, UPD+12*, UPD+34
MDVST	NEWTIU+9~, NEWTIU+33*, NEWTIU+35
MDVSTR	NEWTIU+9~, NEWTIU+33*, NEWTIU+35
MDWP	NEWTIU+9~, NEWTIU+35, UPD+1~, UPD+16!, UPD+18
MDWP("TEXT"	NEWTIU+24*
MDWP(1405	UPD+17*
MDWP(70201	NEWTIU+23*
MDWP(70202	NEWTIU+23*
MDX	CONVERT+10~, CONVERT+29, CONVERT+30, CONVERT+31
MDX1	UPD+1~, UPD+25, UPD+26, UPD+27
MDX5	PROC~, PROC+2, PROC+3, PROC+6, PROC+7
MDX6	PROC~, PROC+2, PROC+4, PROC+5, PROC+6
MDY	QBLD+2~, QBLD+3*, QBLD+4, QBLD+5
TXT	QBLD+12~
TXT(1	QBLD+15*
TXT(2	QBLD+16*
U	CONVERT+27, UPD+12, UPD+15, UPD+16, UPD+17, UPD+20, UPD+29, PROC+2, PROC+4, PROC+5 , PROC+6, PROC+7, CHKINT+3, CHKINT+4, CHKINT+5, CHKINT+6, CHKINT+7, CHKINT+8, CHKINT+9, CHKINT+12 , CHKINT+14, CHKINT+16, CHKINT+17, QBLD+4, QBLD+5, QBLD+7
X2	QBLD+2~, QBLD+3*
XMBODY	QBLD+12~, QBLD+16*, QBLD+17
XMDUZ	QBLD+12~
>> XMINSTR	QBLD+17
>> XMINSTR("FROM"	QBLD+13*
XMSUBJ	QBLD+12~, QBLD+13*, QBLD+17
XMTO	QBLD+12~, QBLD+14*, QBLD+17
>> Y	BLD+5, BLD+6, BLD+9, BLD+10
>> ZTDESC	BLD+12*
>> ZTDTH	BLD+14*
>> ZTIO	BLD+14*
>> ZTREQ	BLD+13*
>> ZTRTN	BLD+11*
>> ZTSAVE("MDDUZ"	BLD+13*
>> ZTSAVE("MDQUE"	BLD+13*
>> ZTSAVE("ZTREQ"	BLD+13*
>> ZTSK	BLD+16

Customize PDF page

Package: Clinical Procedures