IVMPTRNA ;ALB/CKN,BRM,TDM,LBD,KUM - HL7 FULL DATA TRANSMISSION (Z07) BUILDER(CONTINUED) ;7/18/24 9:13AM
Source file <IVMPTRNA.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ |
| Kernel | 1 | $$FMTHL7^XLFDT |
| 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 |
|---|---|---|
| NTROBX(DGNTARR) | ;
|
|
| RF1(DFN,RF1TYP) | ; create RF1 segment
; Input: ; DFN - Patient IEN ; RF1TYP - RF1 Type ; SAD = Street Address Change (Default) ; CAD = Confidential Address Change ; CPH = Cell Phone Number Change ; PNO = Pager Number Change ; EAD = E-Mail Address Change ; PHH = Home Phone Number Change ; RAD Residential Address Change ; PHC = Confidential Phone Number Change |
|
| ZUD(DFN,IVMZTYP,IVMZCNT) | ; create ZUD segment
; IVM*2.0*201 - Send Originating Source and User information to ES ; Input: ; DFN - Patient IEN ; IVMZTYP - ZUD Type ; SAD = Street Address Change (Default) ; CAD = Confidential Address Change ; CPH = Cell Phone Number Change ; EAD = E-Mail Address Change ; PHH = Home Phone Number Change ; RAD Residential Address Change ; PHB Business Phone Number Change ; PHC Confidential Phone Number Change ; IVMZCNT - Sequence number of ZUD segment |
|
| ADDRCNV(ADDRSRC) | ;convert Address Source to HL7 format
|
|
| RF1LOAD(RF1TYP) | ;
|
|
| ZUDLOAD(IVMZTYP,IVMERR) | ;
; IVM*2.0*201 - Create ZUD segment ; Input ; IVMZTYP - ZUD Type ; IVMERR - Error message on failure (optional, pass by reference) |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | EXTERNAL^DILFD, GETS^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | NTROBX+27, NTROBX+30 |
| Name | Line Occurrences |
|---|---|
| $$ADDRCNV | RF1LOAD+23 |
| RF1LOAD | RF1+24 |
| ZUDLOAD | ZUD+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDRSRC | RF1+15~, ADDRCNV~, ADDRCNV+1, ADDRCNV+2, ADDRCNV+3, ADDRCNV+4, ADDRCNV+5, ADDRCNV+6, ADDRCNV+7, ADDRCNV+8 , ADDRCNV+9, ADDRCNV+10, ADDRCNV+12 |
| ADRDT | RF1+25, RF1+34, RF1LOAD+2!, RF1LOAD+17* |
| ADRSIT | RF1+15~, RF1+31, RF1LOAD+2!, RF1LOAD+21*, RF1LOAD+22* |
| ADRSRC | RF1+15~, RF1+32, RF1LOAD+2!, RF1LOAD+18*, RF1LOAD+20, RF1LOAD+23* |
| ADTDT | RF1+15~ |
| CS | NTROBX+1~, NTROBX+4*, NTROBX+5, NTROBX+6, NTROBX+7, NTROBX+8, NTROBX+9, NTROBX+10, NTROBX+11, NTROBX+12 , NTROBX+13, NTROBX+14, NTROBX+15, NTROBX+16, NTROBX+17, NTROBX+30, RF1+15~, RF1+18*, RF1+32 |
| DFN | RF1~, RF1+22, ZUD~, ZUD+23, RF1LOAD+16, RF1LOAD+17, RF1LOAD+18, RF1LOAD+21, ZUDLOAD+17, ZUDLOAD+18 , ZUDLOAD+19 |
| DGNTARR | NTROBX~ |
| DGNTARR( | NTROBX+20, NTROBX+22 |
| DGNTARR("HDT" | NTROBX+24 |
| DGNTARR("HSIT" | NTROBX+29, NTROBX+30 |
| DGNTARR("VDT" | NTROBX+25 |
| DGNTARR("VER" | NTROBX+31 |
| DGNTARR("VSIT" | NTROBX+26, NTROBX+27 |
| ERR | RF1+15~, RF1+24, RF1LOAD+1~, RF1LOAD+16 |
| GETFLDS | RF1LOAD+1~, RF1LOAD+15*, RF1LOAD+16 |
| HLECH | NTROBX+2~*, NTROBX+4, RF1+16~*, RF1+18, ZUD+18~* |
| HLFS | NTROBX+3~*, RF1+17~*, RF1+21, RF1+28, RF1+31, RF1+32, RF1+34, ZUD+19~*, ZUD+22, ZUD+30 , ZUD+31, ZUD+32 |
| HLQ | RF1+15~, RF1+18* |
| I | NTROBX+1~, NTROBX+19*, NTROBX+20, NTROBX+22, RF1+15~ |
| IVMADDT | ZUD+17~, ZUD+27, ZUD+30, ZUDLOAD+7*, ZUDLOAD+18* |
| IVMADIEN | ZUD+17~, ZUD+32, ZUDLOAD+7*, ZUDLOAD+19*, ZUDLOAD+20, ZUDLOAD+23* |
| IVMADUSR | ZUD+17~, ZUD+29, ZUD+31, ZUDLOAD+7*, ZUDLOAD+20*, ZUDLOAD+22, ZUDLOAD+23*, ZUDLOAD+25*, ZUDLOAD+26* |
| IVMERR | ZUD+17~, ZUD+24*, ZUD+25, ZUDLOAD~, ZUDLOAD+17 |
| IVMGFLDS | ZUDLOAD+6~, ZUDLOAD+16*, ZUDLOAD+17 |
| IVMRTN | ZUD+17~, ZUD+22*, ZUD+23, ZUD+25, ZUD+30*, ZUD+31*, ZUD+32*, ZUD+34 |
| IVMZCNT | ZUD~, ZUD+22 |
| IVMZDAT | ZUDLOAD+6~ |
| IVMZDAT(2 | ZUDLOAD+18, ZUDLOAD+19 |
| IVMZDT | ZUDLOAD+6~, ZUDLOAD+8*, ZUDLOAD+9*, ZUDLOAD+10*, ZUDLOAD+11*, ZUDLOAD+12*, ZUDLOAD+13*, ZUDLOAD+14*, ZUDLOAD+15*, ZUDLOAD+16 , ZUDLOAD+18 |
| IVMZTYP | ZUD~, ZUD+20*, ZUD+22, ZUD+25, ZUDLOAD~, ZUDLOAD+8, ZUDLOAD+9, ZUDLOAD+10, ZUDLOAD+11, ZUDLOAD+12 , ZUDLOAD+13, ZUDLOAD+14, ZUDLOAD+15 |
| IVMZUSR | ZUDLOAD+6~, ZUDLOAD+8*, ZUDLOAD+9*, ZUDLOAD+10*, ZUDLOAD+11*, ZUDLOAD+12*, ZUDLOAD+13*, ZUDLOAD+14*, ZUDLOAD+15*, ZUDLOAD+16 , ZUDLOAD+19, ZUDLOAD+20 |
| >> NTROBX(11 | NTROBX+23* |
| >> NTROBX(12 | NTROBX+24* |
| >> NTROBX(14 | NTROBX+25* |
| >> NTROBX(15 | NTROBX+27* |
| >> NTROBX(16 | NTROBX+28*, NTROBX+30* |
| >> NTROBX(17 | NTROBX+31* |
| >> NTROBX(2 | NTROBX+17* |
| >> NTROBX(3 | NTROBX+17* |
| >> NTROBX(5 | NTROBX+18*, NTROBX+21*, NTROBX+22* |
| NTRTEMP | NTROBX+1~ |
| NTRTEMP( | NTROBX+22 |
| NTRTEMP("AVI" | NTROBX+6*, NTROBX+10* |
| NTRTEMP("HNC" | NTROBX+8*, NTROBX+12* |
| NTRTEMP("NTR" | NTROBX+5*, NTROBX+9*, NTROBX+13* |
| NTRTEMP("SUB" | NTROBX+7*, NTROBX+11* |
| NTRTEMP("VER" | NTROBX+14*, NTROBX+15*, NTROBX+16*, NTROBX+31 |
| RETURN | RF1+15~, RF1+21*, RF1+22, RF1+24, RF1+28*, RF1+31*, RF1+32*, RF1+34*, RF1+37 |
| RF1TYP | RF1~, RF1+19*, RF1+21, RF1+24, RF1+25, RF1+28, RF1LOAD~, RF1LOAD+3, RF1LOAD+6, RF1LOAD+7 , RF1LOAD+8, RF1LOAD+9, RF1LOAD+10, RF1LOAD+12, RF1LOAD+14 |
| RFDAT | RF1+15~, RF1LOAD+1~ |
| RFDAT(2 | RF1LOAD+17, RF1LOAD+18, RF1LOAD+21 |
| RFDT | RF1LOAD+1~, RF1LOAD+3*, RF1LOAD+6*, RF1LOAD+7*, RF1LOAD+8*, RF1LOAD+9*, RF1LOAD+10*, RF1LOAD+12*, RF1LOAD+14*, RF1LOAD+15 , RF1LOAD+17 |
| RFSIT | RF1LOAD+1~, RF1LOAD+3*, RF1LOAD+6*, RF1LOAD+7*, RF1LOAD+8*, RF1LOAD+9*, RF1LOAD+10*, RF1LOAD+12*, RF1LOAD+14*, RF1LOAD+15 , RF1LOAD+21 |
| RFSRC | RF1LOAD+1~, RF1LOAD+3*, RF1LOAD+6*, RF1LOAD+7*, RF1LOAD+8*, RF1LOAD+9*, RF1LOAD+10*, RF1LOAD+12*, RF1LOAD+14*, RF1LOAD+15 , RF1LOAD+18, RF1LOAD+20 |
| RS | NTROBX+1~, NTROBX+4*, NTROBX+21, RF1+15~, RF1+18* |
| SS | NTROBX+1~, NTROBX+4*, NTROBX+30, RF1+15~, RF1+18* |
| X | RF1+15~ |
| Y | RF1+15~ |