©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
VAFCQRY ;BIR/DLR-Query for patient demographics ;10/18/2000
Source file <VAFCQRY.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | BLDPID^VAFCQRY1 (BLDEVN,BLDPD1,CHKID)^VAFCQRY2 ($$LABE,$$PD1,$$PHARA,$$PV1,$$PV2,$$RADE)^VAFCSB $$EN1^VAFHLZPD |
| Health Level Seven | 2 | GENACK^HLMA1 LINK^HLUTIL3 |
| Kernel | 1 | $$LKUP^XUAF4 |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | PSOHLDS1 PSORELD1 PSOVDF1 |
| Adverse Reaction Tracking | 2 | GMRAIAD1 GMRAIAL1 |
| Automated Lab Instruments | 1 | LA7QRY1 |
| General Medical Record - Vitals | 1 | GMVVDEF1 |
| Pharmacy Benefits Management | 1 | PSULRHL1 |
| Registration | 1 | DGHTHL7 |
| Scheduling | 1 | SCDXMSG1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| QRD | ;process QRD segment
|
|
| BLDPID(DFN,CNT,SEQ,PID,HL,ERR) | ;build PID from File #2
|
|
| RESP | ;Response processing initiated from the MPI.
|
|
| IN | ;process in the patient query
|
|
| BLDRSP(DFN,VAFCCNT) | ;
|
|
| MSH | ;process MSH 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 |
|
| ROUTE | ;Routine logic initiated from the MPI.
|
| Name | Field # of Occurrence |
|---|---|
| GENACK^HLMA1 | IN+10 |
| LINK^HLUTIL3 | IN+9 |
| BLDPID^VAFCQRY1 | BLDPID+18 |
| BLDEVN^VAFCQRY2 | BLDEVN+11 |
| BLDPD1^VAFCQRY2 | BLDPD1+10 |
| CHKID^VAFCQRY2 | IN+4 |
| $$LABE^VAFCSB | BLDRSP+13 |
| $$PD1^VAFCSB | BLDRSP+9 |
| $$PHARA^VAFCSB | BLDRSP+12 |
| $$PV1^VAFCSB | BLDRSP+10 |
| $$PV2^VAFCSB | BLDRSP+11 |
| $$RADE^VAFCSB | BLDRSP+14 |
| $$EN1^VAFHLZPD | BLDRSP+18 |
| $$LKUP^XUAF4 | MSH+7 |
| HL7 Protocol Name | Call Tags |
|---|---|
| VAFC QRY-A19 SERVER | RESP |
| VAFC ADR-A19 CLIENT | IN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("HLA" | IN+6*, IN+7*, IN+11!, BLDRSP+3*, BLDRSP+5*, BLDRSP+9*, BLDRSP+10*, BLDRSP+11*, BLDRSP+12*, BLDRSP+13* , BLDRSP+14*, BLDRSP+18* |
| Name | Line Occurrences |
|---|---|
| @( | IN+3 |
| BLDEVN | BLDRSP+3 |
| BLDPID | BLDRSP+5 |
| BLDRSP | IN+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CITY | IN+1~ |
| CLAIM | IN+1~ |
| CNT | BLDRSP+1~, BLDRSP+5*, BLDPID~, BLDPID+18 |
| COMP | IN+1~, IN+11!, MSH+4*, MSH+7, QRD+7 |
| DFN | IN+1~, IN+4, IN+5, IN+8, BLDRSP~, BLDRSP+3, BLDRSP+5, BLDRSP+18, QRD+11*, BLDEVN~ , BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~, BLDPID+18 |
| ERR | BLDRSP+1~, BLDRSP+3, BLDRSP+5, BLDEVN~, BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~, BLDPID+18 |
| EVN | BLDRSP+1~, BLDRSP+3, BLDEVN~, BLDEVN+11 |
| EVN(1 | BLDRSP+3 |
| EVR | BLDEVN~, BLDEVN+11 |
| HL | IN+10, BLDRSP+3, BLDRSP+5, BLDEVN~, BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~, BLDPID+18 |
| HL("ECH" | MSH+2, MSH+4, MSH+5, MSH+6 |
| HL("EID" | IN+10 |
| HL("EIDS" | IN+10 |
| HL("FS" | IN+6, MSH+1, MSH+2, MSH+7, QRD+3, QRD+4 |
| HL("MID" | IN+6, MSH+3 |
| HL("Q" | MSH+2 |
| HLA | IN+1~ |
| >> HLECH | MSH+2* |
| >> HLFS | MSH+2* |
| >> HLL("LINKS" | IN+9* |
| >> HLMTIENS | IN+10 |
| >> HLNEXT | IN+3 |
| >> HLNODE | IN+3, MSH+7, QRD+2 |
| >> HLQ | MSH+2* |
| >> HLQUIT | IN+3 |
| >> HLRESLTA | IN+10 |
| ICN | IN+1~, IN+4, IN+5, QRD+10* |
| ID | QRD+1~, QRD+7*, QRD+10, QRD+11, QRD+13 |
| IDS | QRD+1~, QRD+4*, QRD+5 |
| IEN | IN+1~, IN+9* |
| LABE | BLDRSP+1~, BLDRSP+13* |
| LVL | IN+1~ |
| LVL2 | IN+1~ |
| PD1 | BLDRSP+1~, BLDRSP+9*, BLDPD1~, BLDPD1+10 |
| PID | BLDRSP+1~, BLDRSP+5, BLDPID~, BLDPID+18 |
| PID( | BLDRSP+5 |
| PID(1 | BLDRSP+5 |
| PRES | BLDRSP+1~, BLDRSP+12* |
| >> PV1 | BLDRSP+10* |
| PV2 | BLDRSP+1~, BLDRSP+11* |
| 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+14* |
| REP | IN+1~, MSH+5*, QRD+5 |
| SEQ | BLDRSP+1~, BLDRSP+3*, BLDRSP+5*, BLDRSP+17*, BLDRSP+18, BLDEVN~, BLDEVN+11, BLDPD1~, BLDPD1+10, BLDPID~ , BLDPID+18 |
| SG | IN+1~, IN+3* |
| SITE | IN+9, IN+11!, MSH+7* |
| SSN | IN+1~, IN+4, IN+5, QRD+13* |
| STATE | IN+1~ |
| SUBCOMP | IN+1~, MSH+6*, QRD+7 |
| VAFC | IN+1~, IN+3*, IN+9 |
| VAFC( | IN+9 |
| VAFC(0 | IN+9 |
| VAFCCNT | IN+1~, IN+2*, IN+6*, IN+7*, IN+8, BLDRSP~, BLDRSP+3*, BLDRSP+5, BLDRSP+6*, BLDRSP+9* , BLDRSP+10*, BLDRSP+11*, BLDRSP+12*, BLDRSP+13*, BLDRSP+14*, BLDRSP+18, BLDRSP+19* |
| VAFCER | IN+1~, IN+2*, IN+5*, IN+6, IN+8, IN+11! |
| VAFCFS | IN+11!, MSH+1* |
| VAFCID | IN+11!, MSH+3* |
| VAFCQRD | IN+7, IN+11!, QRD+2*, QRD+3, QRD+4 |
| VAFCRCV | IN+11!, QRD+3* |
| WSF | QRD+1~, QRD+5*, QRD+7 |
| X | BLDRSP+1~, BLDRSP+5*, QRD+1~, QRD+5* |
| Name | Field # of Occurrence |
|---|---|
| $T(@SG | IN+3 |