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

HDISVSFX.m

Go to the documentation of this file. 
  1. HDISVSFX ;CT/GRR ; 24 Jan 2005  10:28 AM
  1.  ;;1.0;HEALTH DATA & INFORMATICS;;Feb 22, 2005
  1. FILE(HDISDOM,HDISFAC,HDISFLFN,HDISARRY) ;
  1.  N HDISQQ,HDISOUT,X,HDIST,HDISY,HDISMD,HDISPROD,HDISFILE,HDISFN,HDISDOMN,HDISSRC,HDERR
  1.  N HDISDA,HDISFIR,HDISTERM,HDISTSD,HDISSTAT,HDISTSDX,HDISVUID,HDISNST,HDISNTLF,HDISTP,Y
  1.  I HDISDOM=""!(HDISFAC="")!(HDISFLFN="")!(HDISARRY="") S HDISOUT=0_"^Parameter Missing" G QUIT
  1.  K @HDISARRY
  1.  ;Lookup VUID XML template to build XML document
  1.  S DIC=7115.3,DIC(0)="Z",X="VUID" D ^DIC K DIC
  1.  I Y<0 S HDISOUT=0_"^VUID Template Missing" G QUIT
  1.  S HDIST=+Y,HDISY=Y,HDISY(0)=Y(0)
  1.  ;
  1.  ;Get Domain name
  1.  S HDISDOMN=$P($G(^HDIS(7115.1,HDISDOM,0)),"^")
  1.  ;
  1.  ;Get Facility Number, MailMan Parameters, and mailMan Domain name
  1.  S X=$$GETFAC^HDISVF07(HDISFAC,,.HDISSRC)
  1.  S HDISMD=$P($G(^HDISF(7118.21,HDISFAC,0)),"^",2)
  1.  S HDISPROD=$P($G(^HDISF(7118.21,HDISFAC,0)),"^",3)
  1.  S HDISFILE=$P($G(^HDIS(7115.6,HDISFLFN,0)),"^",2)
  1.  S HDISFN=$P($G(^HDIS(7115.6,HDISFLFN,0)),"^",4)
  1.  ;
  1.  ;Set XML header in output array
  1.  S @HDISARRY@(1)="<?xml version=""1.0"" encoding=""utf-8"" ?>"
  1.  ;S @HDISARRY@(1)=$$XMLHDR^XOBVLIB()
  1.  S @HDISARRY@(2)="<"_$P(HDISY(0),"^",4)_" "_$G(^HDIS(7115.3,HDIST,1))_">"
  1.  ;
  1.  ;Initialize Z array which will contain input data for XML routine
  1.  N Z K Z D ZINIT
  1.  ;
  1.  ;Store Domain Name, Facility Number, MailMan Domain, File, and Field Number
  1.  ;in output array
  1.  S Z(10)=HDISDOMN
  1.  S Z(20)=HDISSRC
  1.  S Z(22)=HDISPROD
  1.  S Z(25)=HDISMD
  1.  S Z(40)=HDISFILE
  1.  S Z(45)=HDISFN
  1.  ;
  1.  ;
  1.  ;Write out first 5 xml elements to output array
  1.  ;
  1.  D XMLOUT^HDISXML(HDIST,"10,20,22,25,30,40,45,","Z",HDISARRY,.HDERR)
  1.  ;
  1.  ;Get the node and piece position of term to be standardized
  1.  ;(In most cases it is the .01 field)
  1.  ;
  1.  ;Loop through all file entries, create xml entry for each
  1.  N HDISDA S HDISDA=0 F  S HDISDA=$O(^HDISF(7118.22,"AC",HDISFAC,HDISFLFN,HDISDA)) Q:HDISDA'>0  D
  1.  .S HDISY=^HDISF(7118.22,HDISDA,0)
  1.  .S HDISFIR=$P(HDISY,"^",3),HDISTP=$P(HDISY,"^",4)
  1.  .S HDISTERM=$P($G(^HDISV(7118.11,HDISTP,0)),"^")
  1.  .S HDISNTLF=""
  1.  .S HDISNST=$$GETNTLF^HDISVF04(HDISTP,.HDISNTLF)
  1.  .S HDISTSDX=""
  1.  .S HDISVUID=$P($G(^HDISV(7118.11,HDISTP,"VUID")),"^")
  1.  .S Z(60)=HDISTERM
  1.  .S Z(70)=HDISVUID
  1.  .S Z(80)=HDISNTLF
  1.  .S Z(100)=HDISFIR
  1.  .D XMLOUT^HDISXML(HDIST,"50,60,70,80,100,50/,","Z",HDISARRY,.HDERR)
  1.  ;
  1.  ;Set final XML closing elements
  1.  D XMLOUT^HDISXML(HDIST,"30/,5/,","Z",HDISARRY,.HDERR)
  1.  S HDISOUT=1
  1.  ;
  1. QUIT Q HDISOUT
  1.  ;
  1.  ;
  1. ZINIT ;
  1.  S Z(22)="" F Z=5:5:100 S Z(Z)=""
  1.  Q
  1.  ;