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 |
---|---|---|
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) |
|
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 |
|
FLDXST(FILE) | ;Check for existance of VUID and status fields
; Input : FILE - File number |
|
ELEMENTS | ;List of required elements in XML document
|
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 |