LA7VHLU4 ;VA/DALOI/JMC - HL7 segment builder utility ; 13-Aug-2013 09:09 ; MKK
Source file <LA7VHLU4.m>
Package | Total | Call Graph |
---|---|---|
Automated Lab Instruments | 3 | ($$FINDSITE,$$NVAF,$$RETFACID)^LA7VHLU2 $$CHKDATA^LA7VHLU3 $$XCNTFM^LA7VHLU9 |
Kernel | 2 | ($$ID,$$NAME,$$NS,$$PADD,$$WHAT)^XUAF4 $$KSP^XUPARAM |
VA Fileman | 2 | $$FIND1^DIC $$GET1^DIQ |
Health Level Seven | 1 | $$HLADDR^HLFNC |
Registration | 1 | ADD^VADPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
XCNTFM(LA7X,LA7ECH) | ; Resolve XCN data type to FileMan (last name, first name, mi [id])
; Call with LA7X = HL7 field containing name ; LA7ECH = HL7 encoding characters |
|
PLTFM(LA7PL,LA7ECH) | ; Resolve location from PL (person location) data type.
; Call with LA7PL = HL7 field containing person location ; LA7ECH = HL7 encoding characters |
|
XAD(LA7FN,LA7DA,LA7DT,LA7FS,LA7ECH) | ; Build extended address
; Call with LA7FN = Source File number ; Presently file #2 (PATIENT), #4 (INSTITUTION) or #200 (NEW PERSON) ; LA7DA = Entry in source file ; LA7DT = As of date in FileMan format ; LA7FS = HL field separator ; LA7ECH = HL encoding characters |
|
XON(LA7FN,LA7DA,LA7TYP,LA7FS,LA7ECH) | ; Build extended composite name/id for organization
; Call with LA7FN = Source File number ; Presently #4 (INSTITUTION) ; LA7DA = Entry in source file ; LA7TYP = type of identifer (0/null=station #, 1=CLIA) ; LA7FS = HL field separator ; LA7ECH = HL encoding characters ; |
|
INST(LA74,LA7FS,LA7ECH) | ; Build institution field
; Call with LA74 = ien of institution in file #4 ; if null/undefined then use Kernel Site file. ; LA7FS = HL field separator ; LA7ECH = HL encoding characters |
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | PLTFM+11 |
$$GET1^DIQ | XAD+39, PLTFM+8 |
$$HLADDR^HLFNC | XAD+41 |
$$FINDSITE^LA7VHLU2 | PLTFM+20 |
$$NVAF^LA7VHLU2 | INST+23 |
$$RETFACID^LA7VHLU2 | XON+22 |
$$CHKDATA^LA7VHLU3 | INST+20, INST+28, XAD+24, XAD+25, XAD+26, XAD+27, XAD+28, XAD+31, XAD+38, XAD+40 , XON+20, XON+30 |
$$XCNTFM^LA7VHLU9 | XCNTFM+7 |
ADD^VADPT | XAD+22 |
$$ID^XUAF4 | INST+25, XON+33 |
$$NAME^XUAF4 | INST+27 |
$$NS^XUAF4 | XON+19 |
$$PADD^XUAF4 | XAD+36 |
$$WHAT^XUAF4 | XAD+37, XON+19 |
$$KSP^XUPARAM | INST+13 |
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GET1^DIQ |
^SC - [#44] | FIND1^DIC, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP($J | INST+16, INST+33*, XAD+47*, XON+14, XON+40* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | XAD+19~, XAD+20* |
>> I | XAD+38* |
LA74 | INST~, INST+10*, INST+13*, INST+16, INST+19, INST+20, INST+22, INST+23, INST+25, INST+27 , INST+33 |
LA7DA | XAD~, XAD+18, XAD+20, XAD+35, XAD+36, XAD+37, XAD+39, XAD+43, XAD+47, XON~ , XON+14, XON+18, XON+19, XON+22, XON+33, XON+40 |
LA7DT | XAD~, XAD+21 |
LA7ECH | INST~, INST+10*, INST+16, INST+20, INST+28, INST+30, INST+33, XAD~, XAD+24, XAD+25 , XAD+26, XAD+27, XAD+28, XAD+29, XAD+30, XAD+31, XAD+38, XAD+40, XAD+41, XAD+47 , XON~, XON+14, XON+20, XON+21, XON+24, XON+25, XON+26, XON+27, XON+28, XON+30 , XON+31, XON+34, XON+35, XON+36, XON+37, XON+40, XCNTFM~, XCNTFM+7, PLTFM~, PLTFM+7 , PLTFM+14, PLTFM+17, PLTFM+18 |
LA7FN | XAD~, XAD+18, XAD+35, XAD+43, XAD+47, XON~, XON+14, XON+18, XON+40 |
LA7FS | INST~, INST+16, INST+20, INST+28, INST+33, XAD~, XAD+24, XAD+25, XAD+26, XAD+27 , XAD+28, XAD+31, XAD+38, XAD+40, XAD+47, XON~, XON+14, XON+20, XON+30, XON+40 |
LA7NVAF | INST+8~, INST+23*, INST+25 |
LA7PL | PLTFM~, PLTFM+7, PLTFM+14, PLTFM+17 |
LA7TYP | XON~, XON+11*, XON+14, XON+32, XON+40 |
LA7X | INST+8~, XAD+10~, XAD+37*, XAD+38*, XAD+41, XON+9~, XON+22*, XON+23, XON+24, XON+25 , XON+33*, XON+37, XCNTFM~, XCNTFM+7, PLTFM+6~, PLTFM+7*, PLTFM+8, PLTFM+11, PLTFM+12*, PLTFM+13 , PLTFM+17*, PLTFM+18*, PLTFM+20 |
LA7Y | INST+8~, INST+10*, INST+16*, INST+19, INST+20*, INST+22, INST+25*, INST+28*, INST+30*, INST+33 , INST+35, XAD+10~, XAD+12*, XAD+18, XAD+24*, XAD+25*, XAD+26*, XAD+27*, XAD+28*, XAD+29* , XAD+30*, XAD+31*, XAD+35, XAD+41*, XAD+43, XAD+47, XAD+49, XON+9~, XON+11*, XON+14* , XON+18, XON+20*, XON+21*, XON+24*, XON+25*, XON+26*, XON+27*, XON+28*, XON+30*, XON+31* , XON+34*, XON+35*, XON+36*, XON+37*, XON+40, XON+42, PLTFM+6~, PLTFM+7*, PLTFM+13*, PLTFM+14* , PLTFM+21*, PLTFM+23 |
LA7Z | INST+8~, INST+27*, INST+28, XAD+10~, XAD+36*, XAD+37, XAD+39*, XAD+40*, XAD+41, XON+9~ |
LA7Z(1 | XON+19*, XON+20 |
LA7Z(2 | XON+19*, XON+29, XON+30 |
VAERR | XAD+19~, XAD+23 |
VAHOW | XAD+19~ |
VAPA | XAD+19~ |
VAPA(1 | XAD+24 |
VAPA(11 | XAD+28 |
VAPA(2 | XAD+25 |
VAPA(4 | XAD+26 |
VAPA(5 | XAD+27 |
VAPA(7 | XAD+31 |
VAPA(9 | XAD+29 |
VAROOT | XAD+19~ |
VATEST | XAD+19~ |
VATEST("ADD" | XAD+21* |
X | PLTFM+6~, PLTFM+11*, PLTFM+12 |
Y | PLTFM+6~, PLTFM+7*, PLTFM+8*, PLTFM+10, PLTFM+12*, PLTFM+13, PLTFM+19*, PLTFM+20*, PLTFM+21 |