WVRALIN1 ;HCIOFO/FT-RAD/NM-WOMEN'S HEALTH LINK (cont.) ;2/18/00 10:58
Source file <WVRALIN1.m>
| Package | Total | Call Graph |
|---|---|---|
| Womens Health | 2 | $$VET^WVUTL1A $$ELIG^WVUTL9 |
| VA FileMan | 1 | ^DIE |
| 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 |
|---|---|---|
| FIND | ; Try to associate an incoming RAD/NM entry with an existing WH
; procedure that has no link to RAD/NM entry. ; Called from WVRALINK. ; Input variables needed: ; DFN - patient ien ; WVPROC - ien of WV Procedure Type (790.2) ; WVDATE - date portion of date of rad/nm procedure |
|
| LINK | ; Update values in existing entry including day-case # link.
; Input variables needed: ; WVNODE - zero node of a File 790.1 entry. ; WVIEN - File 790.1 ien |
|
| VNVEC() | ; Veteran/Non-Veteran/Eligibility Code check
; DFN must be defined ; Returns 1 - veteran ; include all non-vets flag set to YES ; non-vet patient's eligibility code is on list to track |
| FileNo | Call Tags |
|---|---|
| ^WV(790.1 - [#790.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^WV(790.02 - [#790.02] | VNVEC+7, VNVEC+11 |
| ^WV(790.1 - [#790.1] | FIND+11, FIND+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | LINK+5~, LINK+6* |
| >> DFN | FIND+14, VNVEC+6, VNVEC+9 |
| DIE | LINK+5~, LINK+6* |
| DR | LINK+5~, LINK+8*, LINK+9*, LINK+10*, LINK+11*, LINK+12*, LINK+13*, LINK+14* |
| DUZ(2 | LINK+12, VNVEC+7, VNVEC+11 |
| U | FIND+13, FIND+14, FIND+15, LINK+9, LINK+10, LINK+11, LINK+12, LINK+13, LINK+14, VNVEC+7 |
| WVALL | VNVEC+5~, VNVEC+7*, VNVEC+8 |
| >> WVBWDX | LINK+9 |
| >> WVCASE | LINK+8 |
| >> WVCREDIT | LINK+14 |
| >> WVDATE | FIND+10 |
| WVDTECHK | FIND+9~, FIND+10*, FIND+11 |
| WVFLAG | FIND+9~, FIND+10*, FIND+11, FIND+17* |
| WVIEN | FIND+9~, FIND+11*, FIND+12, LINK+4, LINK+6 |
| >> WVLOC | LINK+13 |
| WVLOOP | FIND+9~, FIND+10*, FIND+11*, VNVEC+5~, VNVEC+9*, VNVEC+10, VNVEC+11 |
| >> WVMOD | LINK+11 |
| WVNODE | FIND+9~, FIND+12*, FIND+13, FIND+14, FIND+15, LINK+4, LINK+9, LINK+10, LINK+11, LINK+12 , LINK+13, LINK+14 |
| >> WVPROC | FIND+15 |
| >> WVPROV | LINK+10 |
| X | VNVEC+5~ |
| Y | VNVEC+5~ |