MPIFXMLP ;OAK/ELZ - MPIF PROBLISTIC SEARCH ;21 May 2020 1:20 PM
Source file <MPIFXMLP.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ($$FMTHL7,$$HL7TFM,$$NOW)^XLFDT STDNAME^XLFNAME |
Health Level Seven | 1 | $$PARAM^HLCS2 |
M XML Parser | 1 | EN^MXMLPRSE |
Master Patient Index VistA | 1 | POST^MPIFHWSC |
Registration | 1 | $$SITE^VASITE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 4 | DPTLK DPTLK1 DPTLK2 DPTLK7 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PATIENT(RETURN,MPIARR) | ; - query for patients based on traits
; MPIARR("")="" |
|
XMLBLD(MPIARR) | ; setup xml to search
; MPIARR - Array of traits for seach ; Returns XML for the search |
|
IFADD(MPIVAR,MPIARR,MPIXML,MPIXMLN) | ;check if there, if so add it to the XML
; MPIVAR is the MPIARR variable name ; MPIXMLN is the name of the XML to encase ; modifies MPIXML to add if it is there |
|
CONV(FIELD) | ;check for &, ', > and <
|
|
CONVA(FIELD,ENCHAR) | ;handle <<pob city>>
|
|
PARSE(MPIDATA,MPIXML) | ; - parse the data
|
|
SE(MPIN,MPIA) | ; - used for the parser to call back with STARTELEMENT
|
|
VALUE(MPIT) | ; - used by the parser to call back with CHARACTERS
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP($J | PARSE+4!, PARSE+9*, PARSE+10, PARSE+11! |
^VA(200 - [#200] | XMLBLD+11 |
Name | Line Occurrences |
---|---|
$$CONV | XMLBLD+69, XMLBLD+79, XMLBLD+81, XMLBLD+83, XMLBLD+85, XMLBLD+96 |
$$CONVA | CONV+3, CONV+4 |
$$XMLBLD | PATIENT+6 |
IFADD | XMLBLD+44, XMLBLD+45, XMLBLD+46, XMLBLD+47, XMLBLD+72, XMLBLD+73, XMLBLD+80, XMLBLD+82, XMLBLD+84, XMLBLD+86 , XMLBLD+87, XMLBLD+88, XMLBLD+89, XMLBLD+90, XMLBLD+91 |
PARSE | PATIENT+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DUZ | XMLBLD+11, XMLBLD+37 |
ENCHAR | CONVA~, CONVA+2 |
FIELD | CONV~, CONV+1*, CONV+2*, CONV+3*, CONV+4*, CONV+5, CONVA~, CONVA+2 |
I | CONVA+1~, CONVA+2* |
MPIA | SE~ |
MPIA("name" | SE+6*, SE+22 |
MPIA("subtype" | SE+5*, SE+12, SE+18, SE+42, SE+44, SE+46 |
MPIA("type" | SE+4*, SE+12, SE+18, SE+19, SE+27, SE+42, SE+43, SE+44, SE+46, SE+61 , SE+62, SE+63, SE+64, SE+66, SE+68, SE+72, SE+73, SE+74, SE+76, SE+77 , SE+82, SE+84, SE+85 |
MPIA("value" | SE+7*, SE+22 |
MPIALIAS | PARSE+5~, SE+25*, SE+28*, SE+35, SE+36, SE+37, SE+38, SE+39, SE+50 |
MPIARR | PATIENT~, PATIENT+6, XMLBLD~, XMLBLD+44, XMLBLD+45, XMLBLD+46, XMLBLD+47, XMLBLD+72, XMLBLD+73, XMLBLD+80 , XMLBLD+82, XMLBLD+84, XMLBLD+86, XMLBLD+87, XMLBLD+88, XMLBLD+89, XMLBLD+90, XMLBLD+91, IFADD~ |
MPIARR( | IFADD+4, IFADD+5 |
MPIARR("DOB" | XMLBLD+55, XMLBLD+57 |
MPIARR("DOD" | XMLBLD+102, XMLBLD+104 |
MPIARR("Gender" | XMLBLD+58, XMLBLD+60 |
MPIARR("MBI" | XMLBLD+64, XMLBLD+66 |
MPIARR("MMN" | XMLBLD+61, XMLBLD+63 |
MPIARR("MPIVar" | XMLBLD+69*, XMLBLD+70, XMLBLD+79*, XMLBLD+81*, XMLBLD+83*, XMLBLD+85*, XMLBLD+96*, XMLBLD+97, XMLBLD+99, XMLBLD+108! |
MPIARR("POBCity" | XMLBLD+69 |
MPIARR("POBState" | XMLBLD+70 |
MPIARR("ResAddCity" | XMLBLD+77, XMLBLD+85 |
MPIARR("ResAddL1" | XMLBLD+77, XMLBLD+79 |
MPIARR("ResAddL2" | XMLBLD+77, XMLBLD+81 |
MPIARR("ResAddL3" | XMLBLD+77, XMLBLD+83 |
MPIARR("ResAddState" | XMLBLD+77 |
MPIARR("ResAddZip4" | XMLBLD+77 |
MPIARR("ResPhone" | XMLBLD+95, XMLBLD+96 |
MPIARR("SSN" | XMLBLD+51, XMLBLD+53 |
MPICB | PARSE+5~, PARSE+10 |
MPICB("CHARACTERS" | PARSE+8* |
MPICB("STARTELEMENT" | PARSE+7* |
MPID | PATIENT+4~ |
MPIDATA | PARSE~ |
MPIDATA( | SE+22* |
MPIDATA("Result" | SE+12* |
MPIDT | XMLBLD+6~, XMLBLD+10*, XMLBLD+34, XMLBLD+39 |
MPIDUZ | XMLBLD+6~, XMLBLD+11* |
MPIDUZ("FAMILY" | XMLBLD+38 |
MPIDUZ("GIVEN" | XMLBLD+38 |
MPIIDS | PARSE+5~, PARSE+6*, SE+25*, SE+46*, SE+54, SE+56, SE+58, SE+59 |
MPIIGNID | PARSE+5~, SE+41!, SE+48*, SE+56 |
MPILOC | PARSE+5~, SE+25*, SE+46, VALUE+1 |
MPIN | SE~, SE+3*, SE+12, SE+14, SE+16, SE+17, SE+18, SE+19, SE+22, SE+25 , SE+26, SE+29, SE+30, SE+31, SE+32, SE+33, SE+34, SE+35, SE+36, SE+37 , SE+38, SE+39, SE+40, SE+49, SE+56, SE+58, SE+59, SE+60, SE+69, SE+71 , SE+78, SE+79, SE+80, SE+81, SE+82, SE+84, SE+85, SE+86, SE+87, SE+88 , SE+89, SE+90, SE+91 |
MPIPAT | PATIENT+4~, PATIENT+13*, PARSE+5~, PARSE+6*, SE+25* |
MPIPRID | XMLBLD+6~, XMLBLD+9*, XMLBLD+28, XMLBLD+35 |
MPISITE | XMLBLD+6~, XMLBLD+8*, XMLBLD+17, XMLBLD+37 |
MPIT | VALUE~, VALUE+1 |
MPITHRES | XMLBLD+6~, XMLBLD+12*, XMLBLD+22 |
MPIUSE | PARSE+5~, SE+9*, SE+27*, SE+28, SE+29, SE+30, SE+31, SE+32, SE+33, SE+34 , SE+35, SE+36, SE+37, SE+38, SE+39, SE+42*, SE+43*, SE+44*, SE+46*, SE+48* , SE+50, SE+51!, SE+52!, SE+53!, SE+54, SE+58, SE+59, SE+61*, SE+62*, SE+63* , SE+64*, SE+66*, SE+68*, SE+69!, SE+70, SE+72*, SE+73*, SE+74*, SE+76*, SE+77* , SE+78, SE+79, SE+80, SE+81, SE+82*, SE+84*, SE+85*, SE+86, SE+87, SE+88 , SE+89, SE+90, SE+91 |
MPIVAR | IFADD~, IFADD+4, IFADD+5, PARSE+5~, SE+29*, SE+30*, SE+31*, SE+32*, SE+33*, SE+34* , SE+35*, SE+36*, SE+37*, SE+38*, SE+39*, SE+48!, SE+50*, SE+51*, SE+52*, SE+53* , SE+54*, SE+56*, SE+58*, SE+59*, SE+70*, SE+78*, SE+79*, SE+80*, SE+81*, SE+86* , SE+87*, SE+88*, SE+89*, SE+90*, SE+91*, VALUE+1! |
MPIXML | PATIENT+4~, PATIENT+6*, PATIENT+7, XMLBLD+6~, XMLBLD+15*, XMLBLD+16*, XMLBLD+17*, XMLBLD+18*, XMLBLD+19*, XMLBLD+20* , XMLBLD+21*, XMLBLD+22*, XMLBLD+23*, XMLBLD+24*, XMLBLD+25*, XMLBLD+26*, XMLBLD+27*, XMLBLD+28*, XMLBLD+30*, XMLBLD+31* , XMLBLD+32*, XMLBLD+33*, XMLBLD+34*, XMLBLD+35*, XMLBLD+36*, XMLBLD+37*, XMLBLD+38*, XMLBLD+39*, XMLBLD+40*, XMLBLD+43* , XMLBLD+44, XMLBLD+45, XMLBLD+46, XMLBLD+47, XMLBLD+48*, XMLBLD+52*, XMLBLD+53*, XMLBLD+54*, XMLBLD+56*, XMLBLD+57* , XMLBLD+59*, XMLBLD+60*, XMLBLD+62*, XMLBLD+63*, XMLBLD+65*, XMLBLD+66*, XMLBLD+71*, XMLBLD+72, XMLBLD+73, XMLBLD+74* , XMLBLD+78*, XMLBLD+80, XMLBLD+82, XMLBLD+84, XMLBLD+86, XMLBLD+87, XMLBLD+88, XMLBLD+89, XMLBLD+90, XMLBLD+91 , XMLBLD+92*, XMLBLD+98*, XMLBLD+99*, XMLBLD+103*, XMLBLD+104*, XMLBLD+107*, XMLBLD+109, IFADD~, IFADD+5*, PARSE~ , PARSE+9 |
MPIXMLN | IFADD~, IFADD+5 |
MPIXMLR | PATIENT+4~, PATIENT+7, PATIENT+8, PATIENT+9 |
QUOTE | XMLBLD+6~, XMLBLD+7*, XMLBLD+15, XMLBLD+16, XMLBLD+17, XMLBLD+18, XMLBLD+19, XMLBLD+20, XMLBLD+21, XMLBLD+22 , XMLBLD+23, XMLBLD+24, XMLBLD+25, XMLBLD+26, XMLBLD+27, XMLBLD+28, XMLBLD+31, XMLBLD+32, XMLBLD+43, XMLBLD+52 , XMLBLD+53, XMLBLD+56, XMLBLD+59, XMLBLD+62, XMLBLD+65, XMLBLD+71, XMLBLD+78, XMLBLD+98, XMLBLD+103 |
RETURN | PATIENT~, PATIENT+5!, PATIENT+8*, PATIENT+9 |
RETURN( | PATIENT+13* |
VAL | CONVA+1~, CONVA+2*, CONVA+3 |
X | CONVA+1~, CONVA+2* |