Routine: XHDLXM

Information

XHDLXM ; SLC/JER - XML Library calls for CM ; 25 Jul 2003 9:42 AM

Package	Total	Call Graph
Kernel	1	($$LOW,$$REPLACE,$$UP)^XLFSTR
VA Fileman	1	GETS^DIQ

Package	Total	Caller Graph
HealtheVet Desktop	6	XHDAUTH XHDPDEF XHDPEDIT XHDPMUT XHDPTREE XHDTST

Name	Comments	DBIA/ICR reference
FLDS(FLDS)
ESCAPE(DATA)	; Escapes XML special characters in data
XMLHDR(XHDY,ROOTEL,XHDI)	; Create XML Header for Mresult pass root element ; as ROOTEL
XMLFOOT(XHDY,ROOTEL,XHDI)	; Appends XML closing tags
MIXED(X)	; Return Mixed Case X
FILENTRY(XHDY,FILE,IENS,FLDS,INCID,XHDI)
FLDNAME(XHDFN,FILENUM)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FLDNAME+1

Name	Field # of Occurrence
DATA	ESCAPE~, ESCAPE+4
FILE	FILENTRY~, FILENTRY+4, FILENTRY+5, FILENTRY+7, FILENTRY+8, FILENTRY+10
FILENUM	FLDNAME~, FLDNAME+1
FLDS	FILENTRY~, FILENTRY+4, FLDS~
FLDS(	FILENTRY+8, FLDS+2
IENS	FILENTRY~, FILENTRY+3, FILENTRY+4, FILENTRY+5, FILENTRY+8
INCID	FILENTRY~, FILENTRY+2
PCATAG	FILENTRY+1~
ROOTEL	XMLHDR~, XMLHDR+5, XMLFOOT~, XMLFOOT+1
SPEC	ESCAPE+1~, ESCAPE+4
SPEC(""""	ESCAPE+2*
SPEC("&"	ESCAPE+3*
SPEC("'"	ESCAPE+3*
SPEC("<"	ESCAPE+2*
SPEC(">"	ESCAPE+2*
TAG	FILENTRY+6~, FILENTRY+7*, FILENTRY+9
TMP	MIXED+1~, MIXED+2*, MIXED+3
U	FILENTRY+8, FLDNAME+1
VAL	FILENTRY+6~, FILENTRY+8*, FILENTRY+9
WORD	MIXED+1~, MIXED+2*
X	MIXED~, MIXED+2
XHDF	FILENTRY+1~, FILENTRY+5, FILENTRY+7, FILENTRY+8
XHDFN	FLDNAME~, FLDNAME+1
XHDI	XMLHDR~, XMLHDR+2, XMLHDR+3, XMLHDR+4, XMLHDR+5, XMLFOOT~, XMLFOOT+1, FILENTRY~, FILENTRY+1, FILENTRY+3* , FILENTRY+9, FLDS+1~, FLDS+2, FLDS+3, MIXED+1~, MIXED+2
XHDKI	FILENTRY+1~
XHDY	XMLHDR~, XMLHDR+3, XMLHDR+5, XMLFOOT~, XMLFOOT+1, FILENTRY~, FILENTRY+3, FILENTRY+4, FILENTRY+5, FILENTRY+8 , FILENTRY+9, FILENTRY+10, FLDS+1~, FLDS+3, FLDS+4