HDISVC01 ;BPFO/JRP - PROCESS RECEIVED XML DATA;12/20/2004 ; 10 Mar 2005 11:23 AM
Source file <HDISVC01.m>
| Package | Total | Call Graph | 
|---|---|---|
| Health Data and Informatics | 7 | ADDERR^HDISVC00 ($$SETCODE,TERM)^HDISVC02 $$STATUPD^HDISVCUT ($$FACNUM,$$FACPTR)^HDISVF01 $$GETVFAIL^HDISVF02 ($$GETDIP,$$GETFAC,$$GETTYPE)^HDISVF07 ERTBULL^HDISVF09 | 
| Kernel | 3 | $$NOW^XLFDT $$NS^XUAF4 $$PROD^XUPROD | 
| VA Fileman | 2 | $$GET1^DID ($$VFIELD,$$VFILE)^DILFD | 
| Registration | 1 | $$SITE^VASITE | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FLDXST(FILE) | ;Check for existance of VUID and status fields ; Input : FILE - File number | |
| FILE(DATA,EINDX,AINDX,ERRARR,DOMAIN) | ;Process 'File' portion of XML document ; Input : DATA - Array reference from which the 'File' element ; begins (closed root) ; EINDX - Element index array (closed root) ; AINDX - Attribute index array (closed root) ; ERRARR - Error array (closed root) ; DOMAIN - Value of 'DomainName' element | |
| ELEMENTS | ;List of required elements in XML document | |
| DOMAIN(PRSARR,ERRARR) | ;Process XML data from VUID Server ; Input : PRSARR - Array containing parsed XML document (closed root) ; This is the output of SAX^HDISVM01 ; ERRARR - Array to output errors in (closed root) | 
| Name | Field # of Occurrence | 
|---|---|
| $$GET1^DID | FILE+79, FLDXST+16 | 
| $$VFIELD^DILFD | FILE+33, FLDXST+9, FLDXST+13, FLDXST+21 | 
| $$VFILE^DILFD | FILE+28 | 
| ADDERR^HDISVC00 | DOMAIN+13, DOMAIN+27, DOMAIN+31, DOMAIN+37, DOMAIN+42, DOMAIN+58, DOMAIN+64, DOMAIN+70, FILE+24, FILE+31 , FILE+36, FILE+49 | 
| $$SETCODE^HDISVC02 | FILE+43 | 
| TERM^HDISVC02 | FILE+59 | 
| $$STATUPD^HDISVCUT | FILE+41, FILE+55, FILE+61, FILE+63 | 
| $$FACNUM^HDISVF01 | DOMAIN+61 | 
| $$FACPTR^HDISVF01 | FILE+66 | 
| $$GETVFAIL^HDISVF02 | DOMAIN+9 | 
| $$GETDIP^HDISVF07 | FILE+67 | 
| $$GETFAC^HDISVF07 | FILE+66 | 
| $$GETTYPE^HDISVF07 | FILE+68 | 
| ERTBULL^HDISVF09 | FILE+81 | 
| $$SITE^VASITE | FILE+75 | 
| $$NOW^XLFDT | FILE+81 | 
| $$NS^XUAF4 | FILE+71 | 
| $$PROD^XUPROD | FILE+69 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^XMB("NETNAME" | DOMAIN+67, FILE+67 | 
| Name | Line Occurrences | 
|---|---|
| $$FLDXST | FILE+43 | 
| FILE | DOMAIN+75 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AINDX | DOMAIN+14~, DOMAIN+18*, DOMAIN+75, FILE~, FILE+59 | 
| ASUBS | DOMAIN+14~, DOMAIN+19* | 
| DATA | DOMAIN+14~, DOMAIN+20*, DOMAIN+49, DOMAIN+50, DOMAIN+51, DOMAIN+75, FILE~, FILE+14, FILE+17, FILE+18 , FILE+59 | 
| DOMAIN | DOMAIN+15~, DOMAIN+49*, DOMAIN+75, FILE~ | 
| EINDX | DOMAIN+14~, DOMAIN+16*, DOMAIN+35, DOMAIN+47, DOMAIN+49, DOMAIN+50, DOMAIN+51, DOMAIN+75, FILE~, FILE+12 , FILE+17, FILE+18, FILE+59 | 
| ERRARR | DOMAIN~, DOMAIN+13, DOMAIN+22*, DOMAIN+23, DOMAIN+27, DOMAIN+31, DOMAIN+37, DOMAIN+42, DOMAIN+58, DOMAIN+64 , DOMAIN+70, DOMAIN+75, FILE~, FILE+24, FILE+31, FILE+36, FILE+49, FILE+57, FILE+59, FILE+61 | 
| ESUBS | DOMAIN+14~, DOMAIN+17*, DOMAIN+40 | 
| EXIST | FILE+10~, FILE+43*, FILE+44 | 
| FACNAME | FILE+11~, FILE+72*, FILE+74, FILE+76*, FILE+78*, FILE+81 | 
| FACNUM | FILE+11~, FILE+73*, FILE+74, FILE+77*, FILE+78, FILE+81 | 
| FACPTR | FILE+11~, FILE+65!, FILE+66*, FILE+71 | 
| FIELD | FILE+10~, FILE+18*, FILE+33, FILE+41, FILE+43, FILE+55, FILE+59, FILE+61, FILE+63 | 
| FILE | FILE+10~, FILE+17*, FILE+28, FILE+33, FILE+41, FILE+43, FILE+45, FILE+55, FILE+59, FILE+61 , FILE+63, FILE+79, FILE+80, FILE+81, FLDXST~, FLDXST+9, FLDXST+13, FLDXST+16 | 
| FILENAME | FILE+11~, FILE+79*, FILE+80*, FILE+81 | 
| INDX | DOMAIN+15~, DOMAIN+47*, DOMAIN+49, DOMAIN+50, DOMAIN+51, DOMAIN+75, FILE+10~, FILE+12*, FILE+14, FILE+17 , FILE+18, FILE+59 | 
| IPADD | FILE+11~, FILE+65!, FILE+67*, FILE+78 | 
| LASTERR | FILE+10~, FILE+57*, FILE+61 | 
| MAILMAN | DOMAIN+15~, DOMAIN+51*, DOMAIN+67, DOMAIN+68 | 
| OOPS | DOMAIN+15~, DOMAIN+21*, DOMAIN+28*, DOMAIN+32*, DOMAIN+38*, DOMAIN+43*, DOMAIN+45, DOMAIN+59*, DOMAIN+65*, DOMAIN+71* , DOMAIN+73, FILE+10~, FILE+15*, FILE+25*, FILE+27, FILE+32*, FILE+33, FILE+37*, FILE+39, FILE+51* , FILE+53 | 
| OUTPUT | FLDXST+6~, FLDXST+7*, FLDXST+10*, FLDXST+14*, FLDXST+18*, FLDXST+22*, FLDXST+24*, FLDXST+25 | 
| PRSARR | DOMAIN~, DOMAIN+16, DOMAIN+17, DOMAIN+18, DOMAIN+19, DOMAIN+20, DOMAIN+24*, DOMAIN+25, DOMAIN+29, DOMAIN+30 | 
| REP | FILE+10~, FILE+13*, FILE+14*, FILE+17, FILE+18, FILE+29, FILE+34, FILE+59 | 
| SOURCE | DOMAIN+15~, DOMAIN+50*, DOMAIN+61, DOMAIN+62 | 
| STAT | FLDXST+6~, FLDXST+7*, FLDXST+15*, FLDXST+19*, FLDXST+24 | 
| STDT | FLDXST+6~, FLDXST+7*, FLDXST+15*, FLDXST+19*, FLDXST+23*, FLDXST+24 | 
| SUBFILE | FLDXST+6~, FLDXST+16*, FLDXST+17, FLDXST+21 | 
| SYSTYPE | FILE+11~, FILE+65!, FILE+68, FILE+69*, FILE+70*, FILE+81 | 
| TMP | DOMAIN+10~, DOMAIN+11*, DOMAIN+12*, DOMAIN+13, DOMAIN+14~, DOMAIN+26*, DOMAIN+27, DOMAIN+30*, DOMAIN+31, DOMAIN+34* , DOMAIN+35, DOMAIN+36*, DOMAIN+37, DOMAIN+41*, DOMAIN+42, DOMAIN+53*, DOMAIN+55, DOMAIN+56, DOMAIN+57, DOMAIN+62* , DOMAIN+63*, DOMAIN+64, DOMAIN+68*, DOMAIN+69*, DOMAIN+70, FILE+10~, FILE+20*, FILE+22, FILE+23, FILE+29* , FILE+30*, FILE+31, FILE+34*, FILE+35*, FILE+36, FILE+41*, FILE+44*, FILE+46, FILE+47, FILE+48 , FILE+50*, FILE+55*, FILE+61*, FILE+63*, FILE+71*, FILE+72, FILE+73, FILE+75*, FILE+76, FILE+77 | 
| VUID | FLDXST+6~, FLDXST+7*, FLDXST+11*, FLDXST+24 | 
| X | DOMAIN+14~, DOMAIN+34*, DOMAIN+57*, DOMAIN+58, FILE+10~, FILE+23*, FILE+24, FILE+45*, FILE+46*, FILE+47* , FILE+48*, FILE+49 | 
| Y | DOMAIN+14~, DOMAIN+54*, DOMAIN+55*, DOMAIN+56*, FILE+10~, FILE+21*, FILE+22* | 
| Name | Field # of Occurrence | 
|---|---|
| $T(ELEMENTS+X | DOMAIN+34 |