WVRADWP ;HCIOFO/FT-Display Report Data from Related Packages ;9/29/04 14:35
Source file <WVRADWP.m>
| 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 |
|---|---|---|
| EN | ; Determine which report to show (i.e., radiology/nuclear medicine)
; Called from Edit a Procedure option screen form. |
|
| EN1 | ; Set up radiology report data and call FM Browser
|
|
| EX | ; delete existing radiology report text stored in WH
|
|
| MAIL(DFN,WVACCESS,WVPROC,WVPROV) | ; Send mail message to case manager when
; Radiology procedure is added to WH Procedure file (#790.1). ; Called from WVRALINK ; DFN -> Patient ien ; WVACCESS -> File 790.1 ien (procedure entry) ; WVPROC -> File 790.2 ien (procedure type) ; WVPROV -> File 200 IEN (provider/requestor) |
|
| AMEND(WVRPTIEN) | ; Check if RAD/NM report is amended.
; WVRPTIEN - File 74 ien |
|
| COMPARE() | ; Compares Clincal History fields in files 70 & 74
; Returns 1 (different) or 0 (same) |
| FileNo | Call Tags |
|---|---|
| 70.03 | GETS^DIQ |
| ^RARPT - [#74] | GETS^DIQ |
| 74.06 | LIST^DIC |
| ^WV(790 - [#790] | GET1^DIQ |
| ^WV(790.02 - [#790.02] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MAIL+20 |
| ^RADPT - [#70] | EN1+11 |
| ^RADPT("ADC" | EN1+7, EN1+9 |
| ^TMP("DIERR" | AMEND+3!, AMEND+6! |
| ^TMP("DILIST" | AMEND+3!, AMEND+5, AMEND+6! |
| ^TMP("WV RADRPT" | EN1+13!, EN1+19*, EN1+20*, EN1+21*, EN1+22*, EN1+23*, EN1+24*, EN1+25*, EN1+26*, EN1+27* , EN1+28*, EN1+29*, EN1+30*, EN1+31*, EN1+32*, EN1+33*, EN1+34*, EN1+41*, EN1+45*, EN1+50* , EN1+57*, EN1+61*, EN1+63*, EN1+67*, EN1+70*, EN1+72*, EN1+76*, EN1+79, EN1+80, EN1+82! |
| ^TMP($J | EN1+13!, EN1+19, EN1+20, EN1+21, EN1+22, EN1+23, EN1+24, EN1+25, EN1+26, EN1+27 , EN1+28, EN1+29, EN1+30, EN1+31, EN1+32, EN1+39, EN1+41, EN1+48, EN1+50, EN1+55 , EN1+57, EN1+65, EN1+67, EN1+74, EN1+76, EN1+78!, EN1+82!, COMPARE+5, COMPARE+6, COMPARE+10 , COMPARE+14, COMPARE+19, COMPARE+20, COMPARE+21 |
| ^WV(790.02 - [#790.02] | MAIL+12 |
| ^WV(790.1 - [#790.1] | EN+4, EN+6, EN1+3, EN1+5, EN1+78!, EN1+80*, EN1+81*, EX+1!, MAIL+21 |
| ^WV(790.2 - [#790.2] | MAIL+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | EN+3, EN+4, EN+6, EN1+3, EN1+5, EN1+78, EN1+80, EN1+81, EX+1 |
| DFN | MAIL~, MAIL+7, MAIL+9, MAIL+20 |
| LOOP | EN1+1~, EN1+35*, EN1+38*, EN1+39*, EN1+41, EN1+47*, EN1+48*, EN1+50, EN1+54*, EN1+55* , EN1+57, EN1+64*, EN1+65*, EN1+67, EN1+73*, EN1+74*, EN1+76, COMPARE+2~, COMPARE+3*, COMPARE+10* , COMPARE+13*, COMPARE+14*, COMPARE+18*, COMPARE+19*, COMPARE+20, COMPARE+21 |
| U | EN1+3, EN1+5, EN1+11, MAIL+20, MAIL+21, MAIL+22 |
| WV70CNT | COMPARE+2~, COMPARE+3*, COMPARE+11*, COMPARE+17 |
| WV70IEN | COMPARE+2~, COMPARE+4*, COMPARE+5, COMPARE+10, COMPARE+19, COMPARE+20 |
| WV74CNT | COMPARE+2~, COMPARE+3*, COMPARE+15*, COMPARE+17 |
| WV74IEN | COMPARE+2~, COMPARE+4*, COMPARE+6, COMPARE+14, COMPARE+21 |
| WV7901 | EN+5~, EN+6*, EN+7, EN+8 |
| WVACCESS | MAIL~, MAIL+7, MAIL+21 |
| WVAMEND | AMEND+2~, AMEND+5*, AMEND+7 |
| WVCMGR | MAIL+8~, MAIL+9*, MAIL+10, MAIL+12, MAIL+13*, MAIL+14 |
| WVDUP | EN1+1~, EN1+36*, EN1+37, EN1+53 |
| WVFLAG | COMPARE+2~, COMPARE+3*, COMPARE+5*, COMPARE+6*, COMPARE+7, COMPARE+9, COMPARE+19, COMPARE+22*, COMPARE+24 |
| WVIENS | EN1+1~, EN1+14*, EN1+16, EN1+39, EN1+41, COMPARE+4 |
| WVJCN | EN1+2~, EN1+79*, EN1+80 |
| WVJCN1 | EN1+2~, EN1+80*, EN1+81 |
| WVLCNT | EN1+1~, EN1+35*, EN1+40*, EN1+41, EN1+43, EN1+44*, EN1+45, EN1+49*, EN1+50, EN1+56* , EN1+57, EN1+60*, EN1+61, EN1+62*, EN1+63, EN1+66*, EN1+67, EN1+69*, EN1+70, EN1+71* , EN1+72, EN1+75*, EN1+76, EN1+78! |
| WVLOOP | MAIL+8~, MAIL+12*, MAIL+13 |
| WVMSG | MAIL+8~ |
| WVMSG(1 | MAIL+20* |
| WVMSG(2 | MAIL+21*, MAIL+26 |
| WVMSG(3 | MAIL+22* |
| WVMSG(4 | MAIL+23* |
| WVMSG(5 | MAIL+24*, MAIL+27* |
| WVMSG(6 | MAIL+25*, MAIL+28* |
| WVNODE70 | COMPARE+2~, COMPARE+20*, COMPARE+22 |
| WVNODE74 | COMPARE+2~, COMPARE+21*, COMPARE+22 |
| WVPROC | MAIL~, MAIL+7, MAIL+22 |
| WVPROV | MAIL~ |
| WVRADCSE | EN1+1~, EN1+9*, EN1+10, EN1+11, EN1+14 |
| WVRADDFN | EN1+1~, EN1+5*, EN1+6, EN1+7, EN1+9, EN1+11, EN1+14 |
| WVRADDTE | EN1+1~, EN1+7*, EN1+8, EN1+9, EN1+11, EN1+14 |
| WVRADIEN | EN1+1~, EN1+3*, EN1+4, EN1+7, EN1+9 |
| WVRPTIEN | EN1+1~, EN1+11*, EN1+12, EN1+18, EN1+19, EN1+20, EN1+21, EN1+22, EN1+23, EN1+24 , EN1+25, EN1+26, EN1+27, EN1+28, EN1+29, EN1+30, EN1+31, EN1+32, EN1+48, EN1+50 , EN1+55, EN1+57, EN1+65, EN1+67, EN1+74, EN1+76, AMEND~, AMEND+4, COMPARE+4 |
| XMDUZ | MAIL+8~, MAIL+18* |
| XMSUB | MAIL+8~, MAIL+19* |
| XMTEXT | MAIL+8~, MAIL+30* |
| XMY | MAIL+8~ |
| XMY( | MAIL+10*, MAIL+14* |
| XMY(0 | MAIL+16 |
