VAFCQRY1 ;BIR/DLR-Query for patient demographics ;7/19/21 10:44
Source file <VAFCQRY1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDPID(DFN,CNT,SEQ,PID,HL,ERR) | ;build PID from File #2
; Variable list ; DFN - internal PATIENT (#2) number ; CNT - value to be place in PID seq#1 (SET ID) ; SEQ - variable consisting of sequence numbers delimited by commas ; that will be used to build the message (default is ALL) ; PID (passed by reference) - array location to place PID 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 |
|
| ALTID | ;**874 MVI_3035 (elz) alternate ID
|
|
| NAMEPID | ;patient name (last^first^middle^suffix^prefix^^"L" for legal)
|
|
| PREFNAME | ||
| ALIAS | ||
| MOTHER | ;mother's maiden name (last^first^middle^suffix^prefix^^"M" for maiden name)
|
|
| HL7TXT(HL7STRG,HL,HLES) | ; Replace occurrences of embedded HL7 delimiters with
; HL7 escape sequence |
|
| ADDLINE(NXT,LVL,REF,REP) | ; Prepend REP to NXT and add it to the @REF
; array, starting at subscript LVL. If appending NXT causes the node ; to exceed 245 chars in length, add as much of NXT as possible to the ; current level, and the remaining at the next level. ; In: ; NXT = string to add to the @REF array ; .LVL = current subscript level (passed by referenced) ; REF = array reference string ; REP = repetition character (e.g., |) ; **837,MVI_879: Created this subroutine to aid in adding TIN and FIN to PID-3. |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
