VAFCQRY ;BIR/DLR-Query for patient demographics ;1/27/23 14:07
Source file <VAFCQRY.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 6 | BLDPID^VAFCQRY1 (BLDEVN,BLDPD1,CHKID)^VAFCQRY2 ($$DODD,$$DODF,$$DODNTPRV,$$DODOPT,$$LABE,$$NAMEOBX,$$PD1,$$PHARA,$$PV1,$$PV2,$$RADE,$$SECLOG,$$SIG,PRON,PROND,SEXOR,SEXORD)^VAFCSB $$EN^VAFHLZEL $$EN1^VAFHLZPD $$EN^VAFHLZSP |
| Health Level Seven | 2 | GENACK^HLMA1 LINK^HLUTIL3 |
| Kernel | 1 | $$LKUP^XUAF4 |
| Master Patient Index VistA | 1 | $$GETICN^MPIF001 |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IN | ;process in the patient query
|
|
| RESP | ;Response processing initiated from the MPI.
|
|
| ROUTE | ;Routine logic initiated from the MPI.
|
|
| BLDRSP(DFN,VAFCCNT) | ;
|
|
| MSH | ;process MSH segment
|
|
| QRD | ;process QRD segment
|
|
| BLDEVN(DFN,SEQ,EVN,HL,EVR,ERR) | ;build EVN for TF last treatment date and event reason
; At this point only sequence one and two are supported ; Variable list ; DFN - internal PATIENT (#2) number ; SEQ - variable consisting of sequence numbers delimited by commas ; that will be used to build the message ; EVN (passed by reference) - array location to place EVN segment result, the array can have existing values when passed. ; HL - array that contains the necessary HL variables (init^hlsub) ; EVR - event reason that triggered this message ; ERR - array that is used to return an error |
|
| BLDPD1(DFN,SEQ,PD1,HL,ERR) | ;
; At this point only sequence 3 is supported ; Variable list ; DFN - internal PATIENT (#2) number ; SEQ - variable consisting of sequence numbers delimited by commas ; that will be used to build the message ; PD1 (passed by reference) - array location to place PD1 segment result, the array can have existing values when passed. ; HL - array that contains the necessary HL variables (init^hlsub) ; ERR - array that is used to return an error |
|
| BLDPID(DFN,CNT,SEQ,PID,HL,ERR) | ;build PID from File #2
|
|
| OLD(DFN) | ; **902 MVI_4634 (ckn) Return OBX segment to flag a record as "old"
|
| Name | Field # of Occurrence |
|---|---|
| GENACK^HLMA1 | IN+17 |
| LINK^HLUTIL3 | IN+16 |
| $$GETICN^MPIF001 | IN+10 |
| BLDPID^VAFCQRY1 | BLDPID+18 |
| BLDEVN^VAFCQRY2 | BLDEVN+11 |
| BLDPD1^VAFCQRY2 | BLDPD1+10 |
| CHKID^VAFCQRY2 | IN+5 |
| $$DODD^VAFCSB | BLDRSP+21 |
| $$DODF^VAFCSB | BLDRSP+19 |
| $$DODNTPRV^VAFCSB | BLDRSP+23 |
| $$DODOPT^VAFCSB | BLDRSP+22 |
| $$LABE^VAFCSB | BLDRSP+14 |
| $$NAMEOBX^VAFCSB | BLDRSP+17 |
| $$PD1^VAFCSB | BLDRSP+10 |
| $$PHARA^VAFCSB | BLDRSP+13 |
| $$PV1^VAFCSB | BLDRSP+11 |
| $$PV2^VAFCSB | BLDRSP+12 |
| $$RADE^VAFCSB | BLDRSP+15 |
| $$SECLOG^VAFCSB | BLDRSP+25 |
| $$SIG^VAFCSB | BLDRSP+16 |
| PRON^VAFCSB | BLDRSP+32 |
| PROND^VAFCSB | BLDRSP+33 |
| SEXOR^VAFCSB | BLDRSP+26 |
| SEXORD^VAFCSB | BLDRSP+27 |
| $$EN^VAFHLZEL | BLDRSP+44 |
| $$EN1^VAFHLZPD | BLDRSP+40 |
| $$EN^VAFHLZSP | BLDRSP+43 |
| $$LKUP^XUAF4 | MSH+7 |
| HL7 Protocol Name | Call Tags |
|---|---|
| VAFC QRY-A19 SERVER | RESP |
| VAFC ADR-A19 CLIENT | IN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | IN+8, IN+10 |
| ^TMP("HLA" | IN+13*, IN+14*, IN+18!, BLDRSP+4*, BLDRSP+6*, BLDRSP+10*, BLDRSP+11*, BLDRSP+12*, BLDRSP+13*, BLDRSP+14* , BLDRSP+15*, BLDRSP+16*, BLDRSP+17*, BLDRSP+18*, BLDRSP+19*, BLDRSP+21*, BLDRSP+22*, BLDRSP+23*, BLDRSP+25*, BLDRSP+26* , BLDRSP+30*, BLDRSP+31*, BLDRSP+32*, BLDRSP+36*, BLDRSP+37*, BLDRSP+40*, BLDRSP+43*, BLDRSP+44* |
| ^XTMP("MPIF OLD RECORDS" | OLD+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CITY | IN+1~ |
| CLAIM | IN+1~ |
| CNT | BLDRSP+1~, BLDRSP+6*, BLDRSP+26~*, BLDRSP+28~, BLDRSP+29*, BLDRSP+30, BLDRSP+31, BLDRSP+32~*, BLDRSP+34~, BLDRSP+35* , BLDRSP+36, BLDRSP+37, BLDPID~, BLDPID+18 |
| COMP | IN+1~, IN+18!, MSH+4*, MSH+7, QRD+7 |
| DFN | IN+1~, IN+4, IN+5, IN+6, IN+9~, IN+10*, IN+11, IN+15, BLDRSP~, BLDRSP+4 , BLDRSP+6, BLDRSP+16, BLDRSP+17, BLDRSP+18, BLDRSP+19, BLDRSP+21, BLDRSP+22, BLDRSP+23, BLDRSP+25, BLDRSP+26 , BLDRSP+27, BLDRSP+32, BLDRSP+33, BLDRSP+40, BLDRSP+43, BLDRSP+44, QRD+11*, BLDEVN~, BLDEVN+11, BLDPD1~ , BLDPD1+10, BLDPID~, BLDPID+18, OLD~, OLD+1 |
| DODD | BLDRSP+2~, BLDRSP+21* |
| DODDISDT | BLDRSP+2~ |
| DODF | BLDRSP+2~, BLDRSP+19* |
| DODNP | BLDRSP+2~, BLDRSP+23* |
| DODOPT | BLDRSP+2~, BLDRSP+22* |
| ERR | BLDRSP+1~, BLDRSP+4, BLDRSP+6, BLDEVN~, BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~, BLDPID+18 |
| EVN | BLDRSP+1~, BLDRSP+4, BLDEVN~, BLDEVN+11 |
| EVN(1 | BLDRSP+4 |
| EVR | BLDEVN~, BLDEVN+11 |
| HL | IN+17, BLDRSP+4, BLDRSP+6, BLDEVN~, BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~, BLDPID+18 |
| HL("ECH" | MSH+2, MSH+4, MSH+5, MSH+6 |
| HL("EID" | IN+17 |
| HL("EIDS" | IN+17 |
| HL("FS" | IN+13, MSH+1, MSH+2, MSH+7, QRD+3, QRD+4, OLD+1 |
| HL("MID" | IN+13, MSH+3 |
| HL("Q" | MSH+2 |
| HLA | IN+1~ |
| >> HLECH | MSH+2* |
| >> HLFS | MSH+2* |
| >> HLL("LINKS" | IN+16* |
| >> HLMTIENS | IN+17 |
| >> HLNEXT | IN+3 |
| >> HLNODE | IN+3, MSH+7, QRD+2 |
| >> HLQ | MSH+2* |
| >> HLQUIT | IN+3 |
| >> HLRESLTA | IN+17 |
| ICN | IN+1~, IN+5, IN+9~, IN+10*, IN+11, IN+12, QRD+10* |
| ID | QRD+1~, QRD+7*, QRD+10, QRD+11, QRD+13 |
| IDS | QRD+1~, QRD+4*, QRD+5 |
| IEN | IN+1~, IN+16* |
| LABE | BLDRSP+1~, BLDRSP+14* |
| LVL | IN+1~, BLDRSP+28~, BLDRSP+29*, BLDRSP+31*, BLDRSP+34~, BLDRSP+35*, BLDRSP+37* |
| LVL2 | IN+1~ |
| NAMECOMP | BLDRSP+2~, BLDRSP+17* |
| OLD | BLDRSP+2~, BLDRSP+18* |
| PD1 | BLDRSP+1~, BLDRSP+10*, BLDPD1~, BLDPD1+10 |
| PID | BLDRSP+1~, BLDRSP+6, BLDPID~, BLDPID+18 |
| PID( | BLDRSP+6 |
| PID(1 | BLDRSP+6 |
| PRES | BLDRSP+1~, BLDRSP+13* |
| PRON | BLDRSP+2~, BLDRSP+32 |
| PRON( | BLDRSP+32 |
| PRON(0 | BLDRSP+32 |
| PROND | BLDRSP+2~, BLDRSP+33 |
| PROND( | BLDRSP+35, BLDRSP+36, BLDRSP+37 |
| PROND(0 | BLDRSP+33 |
| PV1 | BLDRSP+2~, BLDRSP+11* |
| PV2 | BLDRSP+1~, BLDRSP+12* |
| QRD | QRD+1~ |
| QRDAA | QRD+1~, QRD+7*, QRD+9, QRD+12 |
| QRDNTC | QRD+1~, QRD+7*, QRD+10, QRD+11, QRD+13 |
| RADE | BLDRSP+1~, BLDRSP+15* |
| REP | IN+1~, MSH+5*, QRD+5 |
| SAVEDFN | IN+1~, IN+4*, IN+8, IN+10 |
| SECLVL | BLDRSP+2~, BLDRSP+25* |
| SEQ | BLDRSP+1~, BLDRSP+4*, BLDRSP+6*, BLDRSP+39*, BLDRSP+40, BLDEVN~, BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~ , BLDPID+18 |
| SEXOR | BLDRSP+2~, BLDRSP+26 |
| SEXOR( | BLDRSP+26 |
| SEXOR(0 | BLDRSP+26 |
| SEXORD | BLDRSP+2~, BLDRSP+27 |
| SEXORD( | BLDRSP+29, BLDRSP+30, BLDRSP+31 |
| SEXORD(0 | BLDRSP+27 |
| SG | IN+1~, IN+3* |
| SIDG | BLDRSP+2~, BLDRSP+16* |
| SITE | IN+16, IN+18!, MSH+7* |
| SSN | IN+1~, IN+5, IN+12, QRD+13* |
| STATE | IN+1~ |
| SUBCOMP | IN+1~, MSH+6*, QRD+7 |
| VAFC | IN+1~, IN+3*, IN+16 |
| VAFC( | IN+16 |
| VAFC(0 | IN+16 |
| VAFCCNT | IN+1~, IN+2*, IN+13*, IN+14*, IN+15, BLDRSP~, BLDRSP+4*, BLDRSP+6, BLDRSP+7*, BLDRSP+10* , BLDRSP+11*, BLDRSP+12*, BLDRSP+13*, BLDRSP+14*, BLDRSP+15*, BLDRSP+16*, BLDRSP+17*, BLDRSP+18*, BLDRSP+19*, BLDRSP+21* , BLDRSP+22*, BLDRSP+23*, BLDRSP+25*, BLDRSP+26*, BLDRSP+27*, BLDRSP+30, BLDRSP+31, BLDRSP+32*, BLDRSP+33*, BLDRSP+36 , BLDRSP+37, BLDRSP+40, BLDRSP+41*, BLDRSP+43*, BLDRSP+44* |
| VAFCER | IN+1~, IN+2*, IN+11*, IN+12*, IN+13, IN+15, IN+18! |
| VAFCFS | IN+18!, MSH+1* |
| VAFCID | IN+18!, MSH+3* |
| VAFCQRD | IN+14, IN+18!, QRD+2*, QRD+3, QRD+4 |
| VAFCRCV | IN+18!, QRD+3* |
| WSF | QRD+1~, QRD+5*, QRD+7 |
| X | BLDRSP+1~, BLDRSP+6*, QRD+1~, QRD+5* |
| ZEL | BLDRSP+2~, BLDRSP+44* |
| ZSP | BLDRSP+2~, BLDRSP+43* |
| Name | Field # of Occurrence |
|---|---|
| $T(@SG | IN+3 |