Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMEXU3

PXRMEXU3.m

Go to the documentation of this file.
  1. PXRMEXU3 ; SLC/PKR - Reminder exchange XML utilities, #3. ;12/22/2004
  1. ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  1. ;===========================================
  1. DESC(XMLSRC,DESC) ;Find the description in the XML source and load it
  1. ;into DESC.
  1. N DFOUND,DONE,IND,JND,SAVE,TAG,XMLLINE
  1. S (DFOUND,DONE,JND,SAVE)=0
  1. F IND=1:1 Q:DONE D
  1. . S XMLLINE=@XMLSRC@(IND,0)
  1. . I 'DFOUND S TAG=$$GETTAG(XMLLINE)
  1. . I TAG="<DESCRIPTION>" S DFOUND=1,TAG=""
  1. . I DFOUND,'SAVE,XMLLINE["<![CDATA[" S SAVE=1 Q
  1. . I SAVE,XMLLINE["]]>" S SAVE=0
  1. . I 'SAVE,XMLLINE["</DESCRIPTION>" S DONE=1 Q
  1. . I SAVE S JND=JND+1,DESC(1,JND,0)=XMLLINE
  1. S DESC(1,0)=U_U_U_JND
  1. Q
  1. ;
  1. ;===========================================
  1. FROMXML(TEXT) ;If text contains any of the XML predefined entity references
  1. ;convert them to the standard characters.
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"&","&")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"<","<")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,">",">")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,""","""")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"'","'")
  1. Q TEXT
  1. ;
  1. ;===========================================
  1. GETTAG(XMLLINE) ;Return the XML tag.
  1. N END,START,VALUE
  1. S START=$F(XMLLINE,"<",1)-1
  1. S END=$F(XMLLINE,">",START)-1
  1. S VALUE=$E(XMLLINE,START,END)
  1. Q VALUE
  1. ;
  1. ;===========================================
  1. GETTAGV(XMLLINE,TAG,FROMXML) ;Return the value associated with the XML tag.
  1. N END,ENDTAG,START,TAGL,VALUE
  1. S TAGL=$L(TAG)
  1. S ENDTAG="</"_$E(TAG,2,TAGL)
  1. S START=$F(XMLLINE,TAG,1)
  1. S END=$F(XMLLINE,ENDTAG,START)-(TAGL+2)
  1. S VALUE=$E(XMLLINE,START,END)
  1. I $G(FROMXML) S VALUE=$$FROMXML(VALUE)
  1. Q VALUE
  1. ;
  1. ;===========================================
  1. GETATTR(XMLLINE,ATTR) ;Return the value of attribute ATTR from the XML line
  1. ;XMLLINE
  1. N END,START,VALUE
  1. S ATTR=ATTR_"="""
  1. S START=$F(XMLLINE,ATTR,1)
  1. S END=$F(XMLLINE,"""",START)-2
  1. S VALUE=$E(XMLLINE,START,END)
  1. Q VALUE
  1. ;
  1. ;===========================================
  1. KEYWORD(XMLSRC,KEYWORD) ;Find the keywords in the XML source and load it
  1. ;into KEYWORD.
  1. N DONE,IND,JND,TAG,XMLLINE
  1. S (DONE,JND)=0
  1. F IND=1:1 Q:DONE D
  1. . S XMLLINE=@XMLSRC@(IND,0)
  1. . S TAG=$$GETTAG(XMLLINE)
  1. . I TAG="<KEYWORD>" D Q
  1. .. S JND=JND+1
  1. .. S KEYWORD(1,JND,0)=$$GETTAGV(XMLLINE,TAG,1)
  1. . I TAG="</KEYWORDS>" S DONE=1 Q
  1. S KEYWORD(1,0)=U_U_U_JND
  1. Q
  1. ;
  1. ;===========================================
  1. TOXML(TEXT) ;If text contains any of the XML markup characters convert
  1. ;them to the predefined entity reference.
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"&","&")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"<","<")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,">",">")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"""",""")
  1. S TEXT=$$STRREP^PXRMUTIL(TEXT,"'","'")
  1. Q TEXT
  1. ;