source: FOIAVistA/trunk/r/HEALTH_DATA_AND_INFORMATICS-HDI/HDISVCMR.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1HDISVCMR ;CT/GRR Data Standardization ; 06 Oct 2005 2:12 PM
2 ;;1.0;HEALTH DATA & INFORMATICS;**1,2**;Feb 22, 2005
3 ;
4EN(HDISDOM,HDISFILE) ;
5 ;Input parameter:
6 ; HDISDOM - IEN to the HDIS Domain file (Required)
7 ; HDISFILE - Specific file # to be seeded (if not all domain files) (Optional)
8 N HDISNM,HDISDT,HDERR,HDISFILS,HDISOK,HDISFLIS,HDISDA,HDISOUT,HDISSDT
9 S HDISFLIS=""
10 S HDISFN=.01
11 S HDISNM=$G(^XMB("NETNAME"))
12 S HDISDT=$$NOW^XLFDT(),HDISSDT=$$FMTXML^HDISVU01(HDISDT)
13 I $G(HDISDOM)="" S HDISMESS="Required parameter (Domain) empty, File: "_HDISFILE_", Field: "_HDISFN D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q
14 I '$D(^HDIS(7115.1,HDISDOM)) S HDISMESS="Domain ("_HDISDOM_") does not exist. File: "_HDISFILE_", Field: "_HDISFN D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q
15 I $$GETVFAIL^HDISVF02() S HDISMESS="VUID DS processer called but is in failsafe mode" D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) Q
16 S HDISOK=$$GETFILS^HDISVF09(HDISDOM,0,.HDISFILS)
17 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
18 I $G(HDISFILE)]"" D Q
19 .I $D(HDISFILS(HDISFILE)) D CREATE(HDISDOM,HDISFILE,HDISFN) I 1
20 .E D ERR^HDISVF09(HDISNM,HDISDT,"File: "_HDISFILE_" is not awaiting processing")
21 S HDISDA=0 F S HDISDA=$O(HDISFILS(HDISDA)) Q:HDISDA'>0 D CREATE(HDISDOM,HDISDA,.01)
22 Q
23 ;
24CREATE(HDISDOM,HDISFILE,HDISFN) ;
25 N HDISARRY,HDISMESS
26 ;Update local status
27 S HDISOUT=$$STATUPD^HDISVCUT(HDISFILE,HDISFN,1)
28 I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
29 ;
30 ;Create XML doc containing facility data
31 S HDISARRY=$NA(^TMP("HDIS",$J))
32 S HDISOUT=$$FILE^HDISVCFX(HDISDOM,HDISFILE,HDISFN,HDISARRY)
33 I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
34 ;
35 ; Send XML doc to Central Server
36 S HDISOUT=$$SNDXML^HDISVM02(HDISARRY,1,"") ;removed last parameter 8/10/05 p-2
37 I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
38 ;
39 ;Update local status file
40 S HDISOUT=$$STATUPD^HDISVCUT(HDISFILE,HDISFN,2)
41 I 'HDISOUT S HDISMESS=$P(HDISOUT,"^",2) D ERR^HDISVF09(HDISNM,HDISDT,HDISMESS) G CR8OUT
42 ;
43CR8OUT K @HDISARRY
44 Q
Note: See TracBrowser for help on using the repository browser.