Routine: MDCLIO

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC ($$FIND1,FIND)^DIC $$GET1^DID (CHK,FILE,UPDATE,VAL)^DIE $$OREF^DILF ($$FLDNUM,$$ROOT)^DILFD $$GET1^DIQ
Registration	2	PTSEC^DGSEC4 $$SITE^VASITE
Kernel	1	$$PROD^XUPROD
MailMan	1	^XMD
Master Patient Index VistA	1	$$GETICN^MPIF001
Toolkit	1	($$GET,GETWP)^XPAR

Package	Total	Caller Graph
Clinical Procedures	6	MD CLIO MDCLIO1 MDCLIOV MDCPHL7C MDCPSIGN MDCPURG

Entry Points

Name	Comments	DBIA/ICR reference
RPC(RESULTS,OPTION,P1,P2,P3,P4,P5,P6,P7,P8,P9)	; Generic RPC tag
EXECUTE	; Executes the command in P1
FLDS(MDTXT)	; Builds MDFLD() from a command wp-text
IENLIST	; Builds MDROOT from P2(0..n) as IEN list
IMPORT	; Import a record for the TDBConnection_Vista object
GETIEN	; Returns the ien of a record for generic updates pk only
QUERY	; Executes a standard query
STPROC	; Place holder for no routine entered into a stored procedure type
ROLES	; Temporary Role Based Query
XQUERY	; Runs the standard query after a pre-process routine has prepared the entries into @MDXROOT@(ien...)
INSERT	; Performs an insert
UPDATE	; Performs an update ; Must find an EXACT match - Need to re-evaluate later for an update where like SQL statement
DELETE	; Performs standard Delete command ; Will find records like the update but can return multiple entries
DELALL	; Used to purge entire file XML Import calls ONLY!!!!
XMLREC(DD,IEN)	; Builds an XML Record based on DD, IEN & values in MDFLD(1..n)
SETACL	; Sets the ACL for an Item ; P2(0)=Item ; P2(1)=User ID (DUZ) ; P2(2)=Access Level
DELACL	; Removes and item from ACL ; P2(0)=Item ; P2(1)=User ID (DUZ) - if blank or undefined deletes all record for P2(0)
SENDMAIL	; Sends an EMail Message ; Example of the P2(0..n) array ; P2(0)="SUB:Message Subject" ; P2(1)="TEXT:THIS IS LINE 1" ; P2(2)="TEXT:THIS IS LINE 2" ; P2(3)="TO:user.one@domain.ext;user.two@domain.ext"
ID()
ROWID()
ICN()
NAME()
SNSTV()
CCOW()
VITALSID()
VSTATUS()
XMLCMT(COMMENT)	; Add a comment to a document
XMLHDR(TAG)	; Add a header tag to the global
XMLFTR(TAG)	; Add a footer tag to the global
XMLDATA(TAG,X)	; Add a data element to the global
XMLFLDS(FLDLST,DD,FLDS)	; Build FLDS into an array of FLDS
XMLDT(TAG,X)	; Add date or date/time to the global
XMLIDS(TAG,IDS,CLOSE)	; Add a data element to the global with ids
XMLADD(X)	; Add to the global
XMLSAFE(X)	; Transform X into XML safe data ; Strip off the spaces and make life easier
TAGSAFE(X)	; Transform X into XML tag
STRIP(X)	; Strip off leading and trailing spaces
NEWDOC(ROOT,COMMENT)	; Start a new document
ENDDOC(ROOT)	; End this document
QUICKDOC(TAG,VALUE)	; Builds a single record, single field document
SRVRDT	; Returns Server Date/Time
TRNSLT(X,X1,X2)	; Translate every Y to Z in X
FDA(DD,IEN)	; Construct a standard FDA ; Returns ^TMP("MDCLIO",$J,{DD},{IEN:+1})
SQLDATE(X)	; Returns SQL standard XML Date/Time string from FM
FMDT(X)	; Returns FM standard date/time from SQL style
NOW()	; Returns Date/Time
TABLE(X)	; Return file number from the name

Name	Field # of Occurrence
NOW^%DTC	NOW+1
PTSEC^DGSEC4	SNSTV
$$FIND1^DIC	GETIEN+2, UPDATE+2, TABLE+1
FIND^DIC	QUERY+12, DELETE+3
$$GET1^DID	XMLFLDS+3, XMLFLDS+4
CHK^DIE	INSERT+6
FILE^DIE	IMPORT+10, UPDATE+12, DELETE+6, DELALL+3
UPDATE^DIE	IMPORT+9, INSERT+10, SETACL+11, DELACL+13
VAL^DIE	IMPORT+5, UPDATE+8
$$OREF^DILF	QUERY+14
$$FLDNUM^DILFD	IMPORT+4
$$ROOT^DILFD	QUERY+6, DELALL+1
$$GET1^DIQ	XMLREC+11, XMLREC+12, NAME, VSTATUS
$$GETICN^MPIF001	ICN
$$SITE^VASITE	CCOW
^XMD	SENDMAIL+17
$$GET^XPAR	EXECUTE+3
GETWP^XPAR	EXECUTE+1
$$PROD^XUPROD	CCOW

RPC Name	Call Tags
MD CLIO	RPC

FileNo	Call Tags
^DIC - [#1]	FIND1^DIC
^GMR(120.5 - [#120.5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^MDC(704.001 - [#704.001]	SETACL+5, DELACL+5, DELACL+10, DELACL+11
^TMP("DILIST"	QUERY+12, QUERY+13, DELETE+4, DELETE+5
^TMP("MDCLIO"	RPC+2!, RPC+7!, IENLIST+1, FDA+2
^TMP($J	RPC+3
^XTMP(	QUERY+2, QUERY+3, QUERY+4
^XUSEC(	ROLES+2

Name	Line Occurrences
$$FDA	INSERT+4, INSERT+5, INSERT+8, INSERT+10, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+10, UPDATE+12, DELETE+5 , DELETE+6, DELALL+2, DELALL+3
$$FMDT	QUERY+10, INSERT+4, UPDATE+6
$$NOW	SRVRDT+1
$$SQLDATE	NOW+2
$$TABLE	IMPORT+2, GETIEN+2
$$TAGSAFE	XMLHDR+1, XMLDATA+1, XMLDT+1, XMLIDS+2
$$TRNSLT	XMLSAFE+3, XMLSAFE+4, XMLSAFE+5, XMLSAFE+6, XMLSAFE+7, XMLSAFE+8
$$XMLSAFE	XMLDATA+2, XMLIDS+5
@(	RPC+5, EXECUTE+6, EXECUTE+7, XMLREC+9
ENDDOC	QUERY+6, QUERY+17, STPROC+3, ROLES+4, XQUERY+4, QUICKDOC+5
FLDS	EXECUTE+4, FLDS+4
NEWDOC	QUERY+5, STPROC+1, ROLES+1, XQUERY+1, QUICKDOC+1
QUICKDOC	SRVRDT+1
STRIP	XMLSAFE+2
XMLADD	STPROC+2, XMLCMT+1, XMLHDR+2, XMLDATA+4, XMLDT+2, XMLIDS+8, NEWDOC+2
XMLCMT	NEWDOC+3, NEWDOC+4, NEWDOC+5, NEWDOC+6, NEWDOC+7
XMLDATA	ROLES+3, XMLREC+12, XMLDT+7, QUICKDOC+3
XMLDT	XMLREC+11
XMLFTR	ROLES+3, XMLREC+13, ENDDOC+1, QUICKDOC+4
XMLHDR	ROLES+3, XMLREC+2, XMLFTR+1, NEWDOC+8, QUICKDOC+2
XMLREC	QUERY+8, QUERY+13, QUERY+16, XQUERY+2

Name	Field # of Occurrence
^(	QUERY+13, DELETE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+2
CLOSE	XMLIDS~, XMLIDS+6
COMMENT	XMLCMT~, XMLCMT+1, NEWDOC~, NEWDOC+4
DD	XMLREC~, XMLREC+11, XMLREC+12, XMLFLDS~, XMLFLDS+3, XMLFLDS+4, FDA~, FDA+2
DT	SENDMAIL+16
DUZ	ROLES+2
FLDLST	XMLFLDS~, XMLFLDS+1!
FLDLST(	XMLFLDS+3, XMLFLDS+4
FLDS	XMLFLDS~, XMLFLDS+2, XMLFLDS+3, XMLFLDS+4
IDS	XMLIDS~
IDS(	XMLIDS+3, XMLIDS+4, XMLIDS+5
IEN	XMLREC~, XMLREC+3, ID, ROWID, ICN, NAME, SNSTV, VITALSID, VSTATUS, FDA~ , FDA+2
MD	RPC+1~, XQUERY+2, XMLREC+1~, XMLREC+4, XMLREC+5, XMLREC+6, XMLREC+7, XMLREC+8
MDCACHED	RPC+1~, EXECUTE+3*, QUERY+2
MDCMD	RPC+1~, EXECUTE+1, EXECUTE+2*, EXECUTE+4, EXECUTE+5
MDCMD(1	EXECUTE+2
MDCMT	RPC+1~, XQUERY+1
MDD	RPC+1~
MDERR	RPC+1~, EXECUTE+1, IMPORT+11, INSERT+1!, INSERT+7!, INSERT+11, UPDATE+8!, UPDATE+12!, UPDATE+13, DELETE+7 , DELALL+4
MDERR(""	UPDATE+13, DELETE+7, DELALL+4
MDERR("DIERR"	INSERT+7, INSERT+12, UPDATE+9
MDFDA	IMPORT+1~, SETACL+4~, DELACL+3~, DELACL+13
MDFDA(	SETACL+7, SETACL+8, SETACL+10, DELACL+7, DELACL+12*
MDFILE	EXECUTE+2, IMPORT+1~, IMPORT+2, IMPORT+4, IMPORT+5, QUERY+6, QUERY+8, QUERY+12, QUERY+13, QUERY+16 , XQUERY+1, XQUERY+2, INSERT+4, INSERT+5, INSERT+6, INSERT+8, UPDATE+2, UPDATE+5, UPDATE+6, UPDATE+7 , UPDATE+8, UPDATE+10, DELETE+3, DELETE+5, DELALL+1, DELALL+2, ICN, NAME
MDFLAG	RPC+1~
MDFLD	RPC+1~, IMPORT+4, IMPORT+5, XMLREC+5, XMLREC+9, XMLREC+10, XMLREC+11, XMLREC+12
MDFLD(	FLDS+5*, INSERT+2, INSERT+4, INSERT+5, INSERT+6, INSERT+8, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7 , UPDATE+8, UPDATE+10, XMLREC+4, XMLREC+5, XMLREC+6, XMLREC+7, XMLREC+8
MDFLD(""	FLDS+5
MDFMT	XMLREC+1~, XMLREC+7*, XMLREC+12
MDHELP	UPDATE+8!
MDIDX	RPC+1~, EXECUTE+2, QUERY+12, QUERY+14, QUERY+15, DELETE+3
MDIEN	RPC+1~, IENLIST+2, IENLIST+3, UPDATE+2, UPDATE+3, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10 , DELETE+5, SETACL+4~, SETACL+5, SETACL+6, SETACL+9, SETACL+10, DELACL+3~, DELACL+5, DELACL+6, DELACL+7 , DELACL+11, DELACL+12
MDIENS	RPC+1~, IMPORT+1~, IMPORT+2, IMPORT+5, IMPORT+9, IMPORT+10, XMLREC+1~, XMLREC+3, XMLREC+11, XMLREC+12
MDLIST	RPC+1~
MDNAME	RPC+1~, EXECUTE+2*, QUERY+1
MDOBS	RPC+1~
MDQRY	RPC+1~
MDREC	QUERY+8, QUERY+13, QUERY+16*, QUERY+18!
MDRET	RPC+1~, IMPORT+1~, IMPORT+5, SNSTV~
MDRET(1	SNSTV
MDROOT	RPC+1~, EXECUTE+2, IENLIST+1, IENLIST+3, QUERY+6, QUERY+8, QUERY+14, QUERY+15, QUERY+16, DELALL+1* , DELALL+2
MDRTN	RPC+1~, EXECUTE+2, EXECUTE+5, EXECUTE+7
MDTAG	XMLREC+1~, XMLREC+6*, XMLREC+11, XMLREC+12
MDTEXT	SENDMAIL+6~
MDTEXT(	SENDMAIL+15*
MDTEXT(""	SENDMAIL+15, SENDMAIL+16
MDTEXT(0	SENDMAIL+16*
MDTMP	RPC+1~
MDTO	SENDMAIL+6~, SENDMAIL+12*, SENDMAIL+13
MDTXT	FLDS~
MDTXT(	FLDS+1, FLDS+2
MDTYP	XMLREC+1~, XMLREC+8*, XMLREC+11
MDUSER	DELACL+3~, DELACL+9, DELACL+10, DELACL+11
MDVAL	RPC+1~, IMPORT+1~, IMPORT+5, GETIEN+1~, GETIEN+2, QUERY+9*, QUERY+12, INSERT+6, INSERT+7!, INSERT+8 , UPDATE+8!, UPDATE+9, UPDATE+10, DELETE+3
MDVAL(	GETIEN+1, QUERY+11, DELETE+2*
MDVAL(""	DELETE+2
MDVUID	RPC+1~
MDWHERE	EXECUTE+2*, EXECUTE+6, EXECUTE+8!
MDX	IMPORT+1~, IMPORT+3*, IMPORT+4, IMPORT+5
MDXROOT	RPC+1~, XQUERY+2, XQUERY+3
MDXTMP	QUERY+1~*, QUERY+2, QUERY+3, QUERY+4
OPTION	RPC~, RPC+4, RPC+5, NEWDOC+3
P1	RPC~, EXECUTE+1, EXECUTE+2, IMPORT+2, GETIEN+2, NEWDOC+5
P2	RPC~, EXECUTE+3, IMPORT+2, NEWDOC+6
P2(	IENLIST+3, GETIEN+1, QUERY+9, QUERY+10*, QUERY+11, INSERT+3, INSERT+4, INSERT+5, INSERT+6, UPDATE+5 , UPDATE+6, UPDATE+7, UPDATE+8, DELETE+2, SENDMAIL+9, SENDMAIL+10, SENDMAIL+11, SENDMAIL+12, SENDMAIL+14, SENDMAIL+15 , NEWDOC+7
P2(0	QUERY+7, QUERY+9, UPDATE+2, UPDATE+3, SETACL+5, SETACL+7, DELACL+5, DELACL+10, DELACL+11
P2(1	SETACL+5, SETACL+8, DELACL+4, DELACL+5, DELACL+8
P2(2	SETACL+10
P3	RPC~
P3(	IMPORT+3, IMPORT+4, IMPORT+5
P4	RPC~
P5	RPC~
P6	RPC~
P7	RPC~
P8	RPC~
P9	RPC~
RESULTS	RPC~, RPC+3*, RPC+4, RPC+6, IMPORT+7, IMPORT+8, IMPORT+11, IMPORT+12, IMPORT+14, IMPORT+15 , GETIEN+2, QUERY+3, INSERT+7, INSERT+9, INSERT+12, INSERT+13, INSERT+14, UPDATE+3, UPDATE+9, UPDATE+11 , UPDATE+13, UPDATE+14, DELETE+4, DELETE+7, DELETE+8, DELALL+4, DELALL+5, SETACL+12, DELACL+14, SENDMAIL+18 , XMLADD+1, NEWDOC+1
ROOT	NEWDOC~, NEWDOC+8, ENDDOC~, ENDDOC+1
TAG	XMLHDR~, XMLHDR+1, XMLHDR+2, XMLFTR~, XMLFTR+1, XMLDATA~, XMLDATA+1, XMLDATA+4, XMLDT~, XMLDT+1* , XMLDT+2, XMLDT+7, XMLIDS~, XMLIDS+2, XMLIDS+5, XMLIDS+6, XMLIDS+7, XMLIDS+8, QUICKDOC~, QUICKDOC+3
U	SENDMAIL+16, CCOW
VALUE	QUICKDOC~, QUICKDOC+3
X	FLDS+2, FLDS+3, FLDS+4, FLDS+5, IMPORT+6, IMPORT+8, IMPORT+12, IMPORT+13, IMPORT+15, GETIEN+1* , QUERY+9, QUERY+10, QUERY+11, ROLES+2, ROLES+3, DELETE+2, DELETE+5, DELALL+2, XMLREC+1~, SENDMAIL+9 , SENDMAIL+10, SENDMAIL+11, SENDMAIL+12, SENDMAIL+14, SENDMAIL+15, CCOW, XMLDATA~, XMLDATA+2, XMLDATA+3, XMLDATA+4 , XMLFLDS+2, XMLFLDS+3, XMLFLDS+4, XMLDT~, XMLDT+2, XMLDT+3, XMLDT+4, XMLDT+5, XMLDT+6, XMLIDS+1~ , XMLIDS+3, XMLIDS+4, XMLIDS+5, XMLADD~, XMLADD+1, XMLSAFE~, XMLSAFE+2, XMLSAFE+3, XMLSAFE+4, XMLSAFE+5 , XMLSAFE+6, XMLSAFE+7, XMLSAFE+8, XMLSAFE+9, TAGSAFE~, TAGSAFE+1, TAGSAFE+2, STRIP~, STRIP+1, STRIP+2 , NEWDOC+7, TRNSLT~, TRNSLT+2, TRNSLT+3, TRNSLT+4, TRNSLT+5, SQLDATE~, SQLDATE+1, SQLDATE+2, FMDT~ , FMDT+1, FMDT+2*, FMDT+3, TABLE~, TABLE+1
X1	TRNSLT~, TRNSLT+2, TRNSLT+4
X2	TRNSLT~, TRNSLT+4
XMDUZ	SENDMAIL+6~, SENDMAIL+7*
XMSUB	SENDMAIL+6~, SENDMAIL+10*
XMTEXT	SENDMAIL+6~, SENDMAIL+8*
XMY	SENDMAIL+6~
XMY(	SENDMAIL+13*
Y	EXECUTE+2, EXECUTE+3, FLDS+1, FLDS+2, IMPORT+7, IMPORT+8, IMPORT+14, IMPORT+15, INSERT+2, INSERT+3 , INSERT+4, INSERT+5, INSERT+6, INSERT+7, INSERT+8, INSERT+12, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7 , UPDATE+8, UPDATE+9, UPDATE+10, XMLREC+1~, XMLREC+11, SENDMAIL+13, SENDMAIL+15, XMLDT+3, XMLDT+6, XMLDT+7 , XMLIDS+1~, XMLIDS+4, XMLIDS+5, TRNSLT+1~, TRNSLT+3, TRNSLT+4, TRNSLT+5, TRNSLT+6, FMDT+1~*

Customize PDF page

Package: Clinical Procedures

Routine: MDCLIO

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	RPC+4
$T(@OPTION	RPC+4