LA7VHLU9 ;DALOI/JMC - HL7 segment builder utility ;09/08/15 15:44
Source file <LA7VHLU9.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 7 | $$HLNAME^XLFNAME $$TRIM^XLFSTR ($$IEN,$$STA)^XUAF4 $$KSP^XUPARAM ($$IEN,$$VPID)^XUPS $$ACTIVE^XUSER ($$NPI,$$QI)^XUSNPI |
| Automated Lab Instruments | 2 | $$RETFACID^LA7VHLU2 $$CHKDATA^LA7VHLU3 |
| VA FileMan | 2 | $$GET1^DID ($$GET1,GETS)^DIQ |
| Health Level Seven | 1 | $$FMNAME^HLFNC |
| Registration | 1 | ADD^VADPT |
| 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 |
|---|---|---|
| XCN(LA7DUZ,LA7DIV,LA7FS,LA7ECH,LA7DMT,LA7IDTYP) | ; Build composite ID and name for person
; Call with LA7DUZ = DUZ of person ; If not pointer to #200, then use as literal ; LA7DIV = Institution of user ; LA7FS = HL field separator ; LA7ECH = HL encoding characters ; LA7DMT = flag to indicate delimiters should be demoted ; LA7IDTYP = id type to return (0:DUZ 1:VPID 2:NPI) |
|
| 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 |
|
| XTN(LA7FN,LA7DA,LA7FLDSEQ,LA7MAXREP,LA7DT,LA7FS,LA7ECH) | ; Build extended telecommunication number ;**88
; Call with LA7FN = Source File number ; Presently file #2 (PATIENT), #4 (INSTITUTION) or #200 (NEW PERSON) ; LA7DA = Entry in source file ; LA7FLDSEQ = List of file #200 fields and sequence to build in field separate by ";" e.g. ".138;.137;" ; LA7MAXREP = Maximum # of contact numbers to build in field. ; LA7DT = As of date in FileMan format ; LA7FS = HL field separator ; LA7ECH = HL encoding characters |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | XTN+32 |
| $$GET1^DIQ | XCN+32 |
| GETS^DIQ | XTN+26 |
| $$FMNAME^HLFNC | XCNTFM+35 |
| $$RETFACID^LA7VHLU2 | XCN+30 |
| $$CHKDATA^LA7VHLU3 | XCN+44, XTN+32, XTN+33, XTN+47 |
| ADD^VADPT | XTN+42 |
| $$HLNAME^XLFNAME | XCN+21, XCN+45 |
| $$TRIM^XLFSTR | XCNTFM+37 |
| $$IEN^XUAF4 | XCNTFM+23 |
| $$STA^XUAF4 | XCNTFM+26 |
| $$KSP^XUPARAM | XCN+29, XCNTFM+26 |
| $$IEN^XUPS | XCNTFM+14 |
| $$VPID^XUPS | XCN+26 |
| $$ACTIVE^XUSER | XCNTFM+28, XCNTFM+32 |
| $$NPI^XUSNPI | XCN+23 |
| $$QI^XUSNPI | XCNTFM+19 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DID, GETS^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | XCN+16, XCN+50*, XTN+18, XTN+54* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | XTN+39~, XTN+40* |
| DT | XCN+23, XTN+14 |
| I | XCN+9~, XCN+47* |
| LA7CS | XCN+9~, XCN+13*, XCN+21, XCN+24, XCN+27, XCN+34, XCN+35, XCN+42, XCN+43, XCN+45 , XCN+47 |
| LA7DA | XTN~, XTN+18, XTN+23, XTN+26, XTN+28, XTN+33, XTN+38, XTN+40, XTN+50, XTN+54 |
| LA7DFLTINST | XCNTFM+24~, XCNTFM+26*, XCNTFM+27 |
| LA7DIV | XCN~, XCN+29*, XCN+30, XCN+32 |
| LA7DMT | XCN~, XCN+11*, XCN+13, XCN+16, XCN+50 |
| LA7DT | XTN~, XTN+14*, XTN+41 |
| LA7DUZ | XCN~, XCN+16, XCN+19, XCN+20, XCN+23, XCN+26, XCN+34*, XCN+35, XCN+38, XCN+39 , XCN+40, XCN+41, XCN+50, XCNTFM+6~, XCNTFM+9*, XCNTFM+15*, XCNTFM+20*, XCNTFM+23, XCNTFM+28*, XCNTFM+31 , XCNTFM+33*, XCNTFM+47 |
| LA7ECH | XCN~, XCN+13, XCN+16, XCN+44, XCN+50, XCNTFM~, XCNTFM+12, XCNTFM+13, XCNTFM+18, XCNTFM+35 , XCNTFM+40, XCNTFM+42, XCNTFM+43, XCNTFM+44, XCNTFM+45, XTN~, XTN+18, XTN+30, XTN+31, XTN+32 , XTN+33, XTN+34, XTN+44, XTN+45, XTN+46, XTN+47, XTN+54 |
| LA7ERR | XTN+24~ |
| LA7FLDSEQ | XTN~, XTN+25*, XTN+26, XTN+28 |
| LA7FN | XTN~, XTN+18, XTN+23, XTN+38, XTN+50, XTN+54 |
| LA7FS | XCN~, XCN+16, XCN+44, XCN+50, XTN~, XTN+18, XTN+32, XTN+33, XTN+47, XTN+54 |
| LA7I | XTN+24~, XTN+28*, XTN+30, XTN+31, XTN+32, XTN+33 |
| LA7IDC | XCNTFM+6~, XCNTFM+12*, XCNTFM+14, XCNTFM+19, XCNTFM+47 |
| LA7IDTYP | XCN~, XCN+11*, XCN+16, XCN+22, XCN+25, XCN+50 |
| LA7J | XCNTFM+24~, XTN+24~, XTN+28* |
| LA7K | XCNTFM+24~ |
| LA7MAXREP | XTN~, XTN+15*, XTN+28 |
| LA7NPI | XCN+9~, XCN+22, XCN+23*, XCN+24 |
| LA7REP | XTN+24~, XTN+27*, XTN+28, XTN+29*, XTN+34 |
| LA7SITE | XCN+9~, XCN+30*, XCN+31, XCN+33*, XCN+34 |
| LA7VAF | XCN+9~, XCN+32*, XCN+33 |
| LA7VPID | XCN+9~, XCN+25, XCN+26*, XCN+27 |
| LA7X | XCN+9~, XCNTFM~, XCNTFM+12, XCNTFM+13, XCNTFM+18, XCNTFM+35, XCNTFM+40, XCNTFM+42, XCNTFM+43, XCNTFM+44 , XCNTFM+45, XTN+12~, XTN+29*, XTN+30*, XTN+31*, XTN+32*, XTN+33*, XTN+34, XTN+35 |
| LA7XTN | XTN+24~ |
| LA7XTN( | XTN+28, XTN+33 |
| LA7Y | XCN+9~, XCN+11*, XCN+16*, XCN+19, XCN+24*, XCN+27*, XCN+34*, XCN+35*, XCN+38, XCN+42* , XCN+43*, XCN+47*, XCN+50, XCN+52, XCNTFM+6~, XCNTFM+35*, XCNTFM+37*, XCNTFM+40, XCNTFM+45*, XCNTFM+47 , XTN+12~, XTN+13*, XTN+18*, XTN+23, XTN+34*, XTN+35*, XTN+38, XTN+44*, XTN+45*, XTN+46* , XTN+47*, XTN+50, XTN+54, XTN+56 |
| LA7Z | XCN+9~, XCN+11*, XCN+21*, XCN+45*, XCN+47, XCNTFM+6~, XCNTFM+12*, XCNTFM+23, XCNTFM+25, XCNTFM+31 , XCNTFM+32, XCNTFM+33 |
| LA7Z(1 | XCNTFM+25*, XCNTFM+28 |
| LA7Z(2 | XCNTFM+25*, XCNTFM+27 |
| NAME | XCN+9~, XCN+21, XCN+39*, XCN+41*, XCN+44*, XCN+45 |
| NAME("FIELD" | XCN+20* |
| NAME("FILE" | XCN+20* |
| NAME("IENS" | XCN+20* |
| NAME(1 | XCN+41*, XCN+42, XCN+43 |
| VAERR | XTN+39~, XTN+43 |
| VAHOW | XTN+39~ |
| VAPA | XTN+39~ |
| VAPA(8 | XTN+47 |
| VAROOT | XTN+39~ |
| VATEST | XTN+39~ |
| VATEST("ADD" | XTN+41* |
| X | XCNTFM+6~, XCNTFM+14*, XCNTFM+15, XCNTFM+19*, XCNTFM+20, XCNTFM+32*, XCNTFM+33, XCNTFM+41*, XCNTFM+42*, XCNTFM+43* , XCNTFM+44*, XCNTFM+45 |
