MPIFXMLI ;ALB/CKN - MPIF IMPLICIT/EXPLICIT ADD ; 9/6/19 5:05pm
Source file <MPIFXMLI.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ($$FMTHL7,$$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 |
|---|---|---|
| Consult Request Tracking | 1 | GMRCIEVT |
| Master Patient Index VistA | 1 | MPIFRES |
| Registration | 1 | DPTLK7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETICN(MPIDATA,MPIARR) | ; Explicit add for user traits - ICN is returned
|
|
| XMLBLD(MPIARR) | ; setup xml for explicit Add
; MPIARR - Array contains traits for ADD ; Returns XML for explicit ADD |
|
| IFADD(MPIVAR,PATARR,MPIXML,MPIXMLN) | ;check if there, if so add it to the XML
; MPIVAR is the PATARR 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 XML for results
|
|
| SE(MPIN,MPIA) | ; - used for the parser to call back with STARTELEMENT
; just to protect the process |
|
| VALUE(MPIT) | ;used by the parser to call back with CHARACTERS
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | PARSE+4!, PARSE+8*, PARSE+9, PARSE+10! |
| ^VA(200 - [#200] | XMLBLD+13 |
| Name | Line Occurrences |
|---|---|
| $$CONV | XMLBLD+68, XMLBLD+79, XMLBLD+81, XMLBLD+83, XMLBLD+85, XMLBLD+95 |
| $$CONVA | CONV+3, CONV+4 |
| $$XMLBLD | GETICN+3 |
| IFADD | XMLBLD+42, XMLBLD+43, XMLBLD+44, XMLBLD+45, XMLBLD+71, XMLBLD+72, XMLBLD+80, XMLBLD+82, XMLBLD+84, XMLBLD+86 , XMLBLD+87, XMLBLD+88, XMLBLD+89, XMLBLD+90, XMLBLD+91 |
| PARSE | GETICN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDTYPE | XMLBLD+3~, XMLBLD+5*, XMLBLD+16, XMLBLD+19, XMLBLD+38, XMLBLD+39, XMLBLD+49, XMLBLD+50, XMLBLD+105, XMLBLD+106 |
| DUZ | XMLBLD+13, XMLBLD+33 |
| 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("type" | SE+3* |
| MPIARR | GETICN~, GETICN+3, XMLBLD~ |
| MPIARR("AddType" | XMLBLD+4*, XMLBLD+5 |
| MPIARR("SelIdentifier" | XMLBLD+29 |
| MPIARR("mcid" | XMLBLD+24, XMLBLD+26 |
| MPIARR(1 | XMLBLD+4, XMLBLD+7 |
| MPICB | PARSE+5~, PARSE+9 |
| MPICB("CHARACTERS" | PARSE+7* |
| MPICB("STARTELEMENT" | PARSE+6* |
| MPIDATA | GETICN~, GETICN+2!, GETICN+6, PARSE~ |
| MPIDATA("ERRTXT" | GETICN+5* |
| MPIDATA("ICN" | GETICN+5*, SE+8* |
| MPIDT | XMLBLD+3~, XMLBLD+12* |
| MPIDUZ | XMLBLD+3~, XMLBLD+13* |
| MPIDUZ("FAMILY" | XMLBLD+35 |
| MPIDUZ("GIVEN" | XMLBLD+36 |
| MPIIDN | PARSE+5~ |
| MPILOC | PARSE+5~, SE+6*, VALUE+1 |
| MPIN | SE~, SE+2*, SE+5, SE+7, SE+9 |
| MPIPRID | XMLBLD+3~, XMLBLD+11*, XMLBLD+21, XMLBLD+31 |
| MPISITE | XMLBLD+3~, XMLBLD+10*, XMLBLD+22, XMLBLD+30, XMLBLD+33, XMLBLD+50 |
| MPIT | VALUE~, VALUE+1 |
| MPITHRES | XMLBLD+3~, XMLBLD+14* |
| MPIUSE | PARSE+5~ |
| MPIVAR | IFADD~, IFADD+4, IFADD+5, PARSE+5~, SE+8*, SE+9*, VALUE+1! |
| MPIXML | GETICN+1~, GETICN+3*, GETICN+4, XMLBLD+3~, XMLBLD+17*, XMLBLD+18*, XMLBLD+19*, XMLBLD+20*, XMLBLD+21*, XMLBLD+22* , XMLBLD+23*, XMLBLD+25*, XMLBLD+26*, XMLBLD+28*, XMLBLD+29*, XMLBLD+30*, XMLBLD+31*, XMLBLD+32*, XMLBLD+33*, XMLBLD+34* , XMLBLD+35*, XMLBLD+36*, XMLBLD+37*, XMLBLD+38*, XMLBLD+39*, XMLBLD+41*, XMLBLD+42, XMLBLD+43, XMLBLD+44, XMLBLD+45 , XMLBLD+46*, XMLBLD+48*, XMLBLD+49*, XMLBLD+50*, XMLBLD+52*, XMLBLD+53*, XMLBLD+54*, XMLBLD+56*, XMLBLD+57*, XMLBLD+59* , XMLBLD+60*, XMLBLD+62*, XMLBLD+63*, XMLBLD+65*, XMLBLD+66*, XMLBLD+70*, XMLBLD+71, XMLBLD+72, XMLBLD+73*, XMLBLD+78* , XMLBLD+80, XMLBLD+82, XMLBLD+84, XMLBLD+86, XMLBLD+87, XMLBLD+88, XMLBLD+89, XMLBLD+90, XMLBLD+91, XMLBLD+92* , XMLBLD+97*, XMLBLD+98*, XMLBLD+101*, XMLBLD+102*, XMLBLD+103*, XMLBLD+104*, XMLBLD+105*, XMLBLD+107*, XMLBLD+108*, XMLBLD+109* , XMLBLD+110*, XMLBLD+111*, XMLBLD+112, IFADD~, IFADD+5*, PARSE~, PARSE+8 |
| MPIXMLN | IFADD~, IFADD+5 |
| MPIXMLR | GETICN+1~, GETICN+4, GETICN+5, GETICN+6 |
| PATARR | XMLBLD+3~, XMLBLD+7*, XMLBLD+42, XMLBLD+43, XMLBLD+44, XMLBLD+45, XMLBLD+71, XMLBLD+72, XMLBLD+80, XMLBLD+82 , XMLBLD+84, XMLBLD+86, XMLBLD+87, XMLBLD+88, XMLBLD+89, XMLBLD+90, XMLBLD+91, IFADD~ |
| PATARR( | IFADD+4, IFADD+5 |
| PATARR("AddType" | XMLBLD+9, XMLBLD+18 |
| PATARR("DFN" | XMLBLD+9*, XMLBLD+48 |
| PATARR("DOB" | XMLBLD+55, XMLBLD+56 |
| PATARR("DOD" | XMLBLD+100, XMLBLD+102 |
| PATARR("Gender" | XMLBLD+58, XMLBLD+60 |
| PATARR("ICN" | XMLBLD+39 |
| PATARR("MBI" | XMLBLD+64, XMLBLD+66 |
| PATARR("MMN" | XMLBLD+61, XMLBLD+63 |
| PATARR("MPIVar" | XMLBLD+68*, XMLBLD+69, XMLBLD+79*, XMLBLD+81*, XMLBLD+83*, XMLBLD+85*, XMLBLD+95*, XMLBLD+96, XMLBLD+98 |
| PATARR("POBCity" | XMLBLD+68 |
| PATARR("POBState" | XMLBLD+69 |
| PATARR("ResAddCity" | XMLBLD+77, XMLBLD+85 |
| PATARR("ResAddL1" | XMLBLD+77, XMLBLD+79 |
| PATARR("ResAddL2" | XMLBLD+77, XMLBLD+81 |
| PATARR("ResAddL3" | XMLBLD+77, XMLBLD+83 |
| PATARR("ResAddPCode" | XMLBLD+76 |
| PATARR("ResAddProvince" | XMLBLD+76 |
| PATARR("ResAddState" | XMLBLD+77 |
| PATARR("ResAddZip4" | XMLBLD+77 |
| PATARR("ResPhone" | XMLBLD+94, XMLBLD+95 |
| PATARR("SSN" | XMLBLD+51, XMLBLD+53 |
| PATARR("patientServiceConnected" | XMLBLD+109 |
| PATARR("patientType" | XMLBLD+110 |
| PATARR("patientVeteran" | XMLBLD+108 |
| PATARR("preferredFacilityNumber" | XMLBLD+49, XMLBLD+107 |
| PCODE | XMLBLD+75~, XMLBLD+76*, XMLBLD+77 |
| PROVINCE | XMLBLD+75~, XMLBLD+76*, XMLBLD+77 |
| QUOTE | XMLBLD+3~, XMLBLD+5*, XMLBLD+17, XMLBLD+19, XMLBLD+20, XMLBLD+21, XMLBLD+22, XMLBLD+23, XMLBLD+25, XMLBLD+26 , XMLBLD+28, XMLBLD+29, XMLBLD+38, XMLBLD+39, XMLBLD+41, XMLBLD+104, XMLBLD+107, XMLBLD+108, XMLBLD+109, XMLBLD+110 |
| VAL | CONVA+1~, CONVA+2*, CONVA+3 |
| X | CONVA+1~, CONVA+2* |