| 1 | HDISVCMR ;CT/GRR Data Standardization ; 06 Oct 2005 2:12 PM
|
|---|
| 2 | ;;1.0;HEALTH DATA & INFORMATICS;**1,2**;Feb 22, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | EN(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 | ;
|
|---|
| 24 | CREATE(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 | ;
|
|---|
| 43 | CR8OUT K @HDISARRY
|
|---|
| 44 | Q
|
|---|
