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

HDISVCMR.m

Go to the documentation of this file.
  1. HDISVCMR ;CT/GRR Data Standardization ; 06 Oct 2005 2:12 PM
  1. ;;1.0;HEALTH DATA & INFORMATICS;**1,2,18**;Feb 22, 2005;Build 4
  1. ;
  1. EN(HDISDOM,HDISFILE) ;
  1. ;Input parameter:
  1. ; HDISDOM - IEN to the HDIS Domain file (Required)
  1. ; HDISFILE - Specific file # to be seeded (if not all domain files) (Optional)
  1. N HDISNM,HDISDT,HDERR,HDISFILS,HDISOK,HDISFLIS,HDISDA,HDISOUT,HDISSDT
  1. S HDISFLIS=""
  1. S HDISFN=.01
  1. S HDISNM=$G(^XMB("NETNAME"))
  1. S HDISDT=$$NOW^XLFDT(),HDISSDT=$$FMTXML^HDISVU01(HDISDT)
  1. I $G(HDISDOM)="" S HDISMESS="Required parameter (Domain) empty, File: "_HDISFILE_", Field: "_HDISFN D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q
  1. I '$D(^HDIS(7115.1,HDISDOM)) S HDISMESS="Domain ("_HDISDOM_") does not exist. File: "_HDISFILE_", Field: "_HDISFN D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q
  1. I $$GETVFAIL^HDISVF02() S HDISMESS="VUID DS processer called but is in failsafe mode" D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q
  1. S HDISOK=$$GETFILS^HDISVF09(HDISDOM,0,.HDISFILS)
  1. I 'HDISOK S HDISMESS="No files are pending VUID processing in Domain "_$P(^HDIS(7115.1,HDISDOM,0),"^",1) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q ;modified 5/16/05 p-1
  1. I $G(HDISFILE)]"" D Q
  1. .I $D(HDISFILS(HDISFILE)) D CREATE(HDISDOM,HDISFILE,HDISFN) I 1
  1. .E D ERR^HDISVF09(HDISNM,HDISDT,"File: "_HDISFILE_" is not awaiting processing")
  1. S HDISDA=0 F S HDISDA=$O(HDISFILS(HDISDA)) Q:HDISDA'>0 D CREATE(HDISDOM,HDISDA,.01)
  1. Q
  1. ;
  1. CREATE(HDISDOM,HDISFILE,HDISFN) ;
  1. N HDISARRY,HDISMESS
  1. ;Update local status
  1. S HDISOUT=$$STATUPD^HDISVCUT(HDISFILE,HDISFN,1)
  1. S HDISARRY=$NA(^TMP("HDIS",$J)) ;Pavel fix the error if this variable is not defined.
  1. ;I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
  1. I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D G CR8OUT
  1. . D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS)
  1. . Q:'$D(XPD)
  1. . D BMES^XPDUTL("Local Status update of file: "_HDISFILE_" Failed - INSTALLATION ABORTED Reason: "_HDISMESS)
  1. . S XPDABORT=1
  1. ;
  1. ;Create XML doc containing facility data
  1. ;S HDISARRY=$NA(^TMP("HDIS",$J)) ;Pavel fix the error if this variable is not defined.
  1. S HDISOUT=$$FILE^HDISVCFX(HDISDOM,HDISFILE,HDISFN,HDISARRY)
  1. I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
  1. ;
  1. ; Send XML doc to Central Server
  1. S HDISOUT=$$SNDXML^HDISVM02(HDISARRY,1,"") ;removed last parameter 8/10/05 p-2
  1. I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
  1. ;
  1. ;Update local status file
  1. S HDISOUT=$$STATUPD^HDISVCUT(HDISFILE,HDISFN,2)
  1. I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
  1. ;
  1. CR8OUT K @HDISARRY
  1. Q