VAFCDD01 ;ALB/JRP,LTL-DATA DICTIONARY UTILITIES ;05-SEP-1996
Source file <VAFCDD01.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 5 | ($$PROCESS,REGEDIT,TRANSMIT)^VAFCDD01 $$PIVNW^VAFHPIVT $$EN^VAFHREG $$SEND^VAFHUTL KILL^VAFHUTL2 |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PVT4A08(DFN) | ;Create entry in ADT/HL7 PIVOT file for an ADT-A08 event
; and mark it for transmission |
|
| MESSAGE(PIVOTPTR,NUMBER) | ;
|
|
| TRANSMIT(PIVOTNUM) | ;
|
|
| AVAFC(DFN) | ;AVAFC* cross reference for PATIENT file (#2)
|
|
| HL7A08 | ;
|
|
| PROCESS() | ;
|
|
| XMITFLAG(PIVOTPTR,PIVOTNUM,TURNOFF) | ;Turn transmission flag for entry
; in ADT/HL7 PIVOT file on/off |
|
| SETTFLAG(PIVOTPTR,PIVOTNUM,TURNOFF) | ;Turn transmission flag for entry
; in ADT/HL7 PIVOT file on/off |
|
| SECA08(DFN) | ;PUT ENTRY IN PIVOT FILE WHEN USER FLAGS A PT AS SENSITIVE IN
|
|
| REG() | ;
|
|
| REGEDIT(PIVOTNUM,FIELDS) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | REGEDIT+9, TRANSMIT+5, MESSAGE+4, SECA08+11 |
| $$PROCESS^VAFCDD01 | HL7A08+14 |
| REGEDIT^VAFCDD01 | HL7A08+16 |
| TRANSMIT^VAFCDD01 | HL7A08+17, SECA08+13 |
| $$PIVNW^VAFHPIVT | PVT4A08+16, HL7A08+10, SECA08+4 |
| $$EN^VAFHREG | AVAFC+57 |
| $$SEND^VAFHUTL | AVAFC+43, AVAFC+58, PVT4A08+22, PVT4A08+24 |
| KILL^VAFHUTL2 | HL7A08+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(391.71 | XMITFLAG+40, XMITFLAG+42, XMITFLAG+45, SETTFLAG+36, SETTFLAG+38, SETTFLAG+41 |
| ^DPT - [#2] | AVAFC+31, PVT4A08+9 |
| ^VAT(391.71 - [#391.71] | PVT4A08+19*, HL7A08+12, SECA08+6, XMITFLAG+26, XMITFLAG+28, XMITFLAG+35*, XMITFLAG+37*, SETTFLAG+26, SETTFLAG+28, SETTFLAG+33* |
| Name | Line Occurrences |
|---|---|
| $$REG | AVAFC+45 |
| PVT4A08 | AVAFC+49, AVAFC+60 |
| SETTFLAG | AVAFC+63, PVT4A08+24 |
| XMITFLAG | AVAFC+52, PVT4A08+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | REGEDIT+7*, REGEDIT+10!, TRANSMIT+3*, TRANSMIT+6!, MESSAGE+2*, MESSAGE+5!, SECA08+9*, SECA08+12!, XMITFLAG+24~, XMITFLAG+30* , XMITFLAG+35, XMITFLAG+37, SETTFLAG+24~, SETTFLAG+30*, SETTFLAG+33 |
| DFN | AVAFC~, AVAFC+31, AVAFC+49, AVAFC+60, PVT4A08~, PVT4A08+9, PVT4A08+14, PVT4A08+16, HL7A08+1, HL7A08+9 , HL7A08+10, SECA08~, SECA08+3, SECA08+4 |
| DIE | REGEDIT+7*, REGEDIT+10!, TRANSMIT+3*, TRANSMIT+6!, MESSAGE+2*, MESSAGE+5!, SECA08+9*, SECA08+12! |
| >> DIU(0 | AVAFC+34 |
| DR | REGEDIT+8*, REGEDIT+10!, TRANSMIT+4*, TRANSMIT+6!, MESSAGE+3*, MESSAGE+5!, SECA08+10*, SECA08+12! |
| DT | PVT4A08+16, HL7A08+10, SECA08+4 |
| DUZ(2 | PVT4A08+19 |
| FIELDS | REGEDIT~ |
| IEN | HL7A08+8~, HL7A08+12*, HL7A08+13, HL7A08+16, HL7A08+17, SECA08+2~, SECA08+6*, SECA08+7, SECA08+9, SECA08+13 |
| INDEX | PROCESS+4~*, PROCESS+5*, PROCESS+6 |
| NODE | XMITFLAG+24~, XMITFLAG+42*, XMITFLAG+43, XMITFLAG+45*, XMITFLAG+46, SETTFLAG+24~, SETTFLAG+38*, SETTFLAG+39, SETTFLAG+41*, SETTFLAG+42 |
| NUMBER | MESSAGE~ |
| PIVOTNUM | AVAFC+36~, AVAFC+50, AVAFC+52, AVAFC+59, AVAFC+60, AVAFC+61, AVAFC+63, PVT4A08+16*, PVT4A08+17, PVT4A08+19 , PVT4A08+22, PVT4A08+24, REGEDIT~, REGEDIT+7, TRANSMIT~, TRANSMIT+3, HL7A08+8~, HL7A08+10*, HL7A08+11, HL7A08+12 , SECA08+2~, SECA08+4*, SECA08+5, SECA08+6, XMITFLAG~, XMITFLAG+20*, XMITFLAG+21, XMITFLAG+28, SETTFLAG~, SETTFLAG+20* , SETTFLAG+21, SETTFLAG+28 |
| PIVOTPTR | MESSAGE~, MESSAGE+2, XMITFLAG~, XMITFLAG+19*, XMITFLAG+21, XMITFLAG+26, XMITFLAG+28*, XMITFLAG+30, SETTFLAG~, SETTFLAG+19* , SETTFLAG+21, SETTFLAG+26, SETTFLAG+28*, SETTFLAG+30 |
| PTR | HL7A08+8~, HL7A08+9*, HL7A08+10, SECA08+2~, SECA08+3*, SECA08+4 |
| RETURN | PROCESS+4~*, PROCESS+6*, PROCESS+7, PROCESS+8 |
| TURNOFF | XMITFLAG~, XMITFLAG+22*, XMITFLAG+31, SETTFLAG~, SETTFLAG+22*, SETTFLAG+31 |
| U | PVT4A08+19, XMITFLAG+37 |
| >> VAFCA08 | AVAFC+40 |
| VAFCF | AVAFC+38!, AVAFC+46, AVAFC+47, XMITFLAG+37 |
| VAFCFLDS | PROCESS+3, HL7A08+7, HL7A08+14*, HL7A08+15, HL7A08+16, HL7A08+18! |
| VAFCFLDS( | AVAFC+47*, PROCESS+5 |
| >> VAFCFLG | AVAFC+56, AVAFC+57*, PVT4A08+24 |
| >> VAFHBEF | HL7A08+1 |
| >> VAFHCA08 | AVAFC+55 |
| >> VAFHMRG | HL7A08+1 |
| VALUE | XMITFLAG+24~, SETTFLAG+24~ |
| VARPTR | AVAFC+36~, PVT4A08+14*, PVT4A08+16 |
| X | XMITFLAG+24~, XMITFLAG+31*, XMITFLAG+35, SETTFLAG+24~, SETTFLAG+31*, SETTFLAG+33 |
| >> XQY0 | REG+3, REG+4 |
| XREFNUM | XMITFLAG+24~, XMITFLAG+39*, XMITFLAG+40*, XMITFLAG+42, XMITFLAG+45, SETTFLAG+24~, SETTFLAG+35*, SETTFLAG+36*, SETTFLAG+38, SETTFLAG+41 |