©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
VAFCPID ;ALB/MLI,PKE-Create generic PID segment ; 21 Nov 2002 3:13 PM
Source file <VAFCPID.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | (4,KVA)^VADPT (SEQ10,SEQ22)^VAFHLPI1 SEQ11^VAFHLPI2 MAKEIT^VAFHLU |
| Health Level Seven | 1 | ($$HLDATE,$$HLPHONE,$$M10)^HLFNC |
| Kernel | 1 | $$HLNAME^XLFNAME |
| Uncategorized | 1 | $$GETICN^MPIF001 |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| ADDR(VAFADDR,VAFCOUNT) | ;Return HL7 address
; Input - VAFADDR as address in format: ; line1^line2^line3^city^state^zip+4 ; VAFCOUNT as internal value of county (optional) ; Output - HL7 v2.3 formatted Address_HLFS_County Code |
|
| EN(DFN,VAFSTR,VAFNUM) | ; returns PID segment
; Input - DFN as internal entry number of the PATIENT file ; VAFSTR as string of fields requested separated by commas ; VAFNUM as sequential number for SET ID (default=1) |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(11 - [#11] | EN+63 |
| ^DIC(13 - [#13] | EN+65 |
| ^DIC(5 - [#5] | EN+56, ADDR+17, ADDR+23 |
| ^DPT - [#2] | EN+57 |
| Name | Line Occurrences |
|---|---|
| QUIT | EN+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, EN+18*, EN+19, EN+27, EN+29, EN+33, EN+37, EN+57, EN+77, EN+78 |
| DGBC | EN+76~, EN+77*, EN+79 |
| DGBS | EN+76~, EN+78*, EN+79 |
| DGMMN | EN+16~, EN+38 |
| DGMMN("FIELD" | EN+37* |
| DGMMN("FILE" | EN+37* |
| DGMMN("IENS" | EN+37* |
| DGNAME | EN+16~, EN+34 |
| DGNAME("FIELD" | EN+33* |
| DGNAME("FILE" | EN+33* |
| DGNAME("IENS" | EN+33* |
| >> HLECH | EN+34, EN+38, ADDR+9 |
| >> HLFS | ADDR+26 |
| >> HLQ | EN+27, EN+31, EN+34, EN+38, EN+48, EN+54, EN+56, EN+59, EN+61, EN+63 , EN+67, EN+73, ADDR+24 |
| HOW | EN+45~, EN+47*, EN+48, EN+51~, EN+53*, EN+54, EN+70~, EN+72*, EN+73 |
| I | EN+16~ |
| OUTPUT | EN+16~, QUIT+1, QUIT+2 |
| VA | EN+16~ |
| VA("BID" | EN+31 |
| VADM | EN+16~ |
| VADM(10 | EN+63 |
| VADM(2 | EN+67 |
| VADM(3 | EN+40 |
| VADM(5 | EN+42 |
| VADM(6 | EN+81 |
| VADM(9 | EN+65 |
| VAFADDR | ADDR~, ADDR+11, ADDR+13, ADDR+15, ADDR+17, ADDR+19, ADDR+21, ADDR+23 |
| VAFCOUNT | ADDR~, ADDR+23, ADDR+25 |
| VAFNUM | EN~, EN+25 |
| >> VAFPID | QUIT+1 |
| VAFSTR | EN~, EN+17*, EN+22*, EN+25, EN+31, EN+36, EN+40, EN+42, EN+44, EN+46 , EN+47, EN+50, EN+52, EN+53, EN+56, EN+59, EN+61, EN+63, EN+65, EN+67 , EN+69, EN+71, EN+72, EN+75 |
| VAFY | EN+16~, EN+23!, QUIT+1 |
| VAFY(1 | EN+25* |
| VAFY(12 | EN+56* |
| VAFY(13 | EN+59* |
| VAFY(14 | EN+61* |
| VAFY(16 | EN+63* |
| VAFY(17 | EN+65* |
| VAFY(19 | EN+67* |
| VAFY(2 | EN+27* |
| VAFY(23 | EN+79* |
| VAFY(29 | EN+82* |
| VAFY(3 | EN+29* |
| VAFY(30 | EN+83* |
| VAFY(4 | EN+31* |
| VAFY(5 | EN+34* |
| VAFY(6 | EN+38* |
| VAFY(7 | EN+40* |
| VAFY(8 | EN+42* |
| VAPA | EN+16~ |
| VAPA("P" | EN+21* |
| VAPA(5 | EN+56 |
| VAPA(7 | EN+56 |
| X | EN+16~, EN+27*, EN+31*, EN+34*, EN+38*, EN+42*, EN+57*, EN+59, EN+61, EN+63* , EN+65*, EN+67*, EN+81*, EN+82, ADDR+9~*, ADDR+11, ADDR+13, ADDR+15, ADDR+17, ADDR+19 , ADDR+21, ADDR+23, ADDR+24, ADDR+26 |
| X1 | EN+16~, EN+56*, EN+59*, EN+61* |
| Y | EN+16~, EN+46*, EN+47, EN+52*, EN+53, EN+71*, EN+72, ADDR+9~, ADDR+11*, ADDR+13* , ADDR+15*, ADDR+17*, ADDR+19*, ADDR+21*, ADDR+23*, ADDR+24*, ADDR+26*, ADDR+27 |
| Z | ADDR+9~, ADDR+24* |