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 |