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 |