WVALERTR ;HIOFO/FT - RETURN RADIOLOGY/NM REPORT IN TMP GLOBAL;Oct 24, 2023@15:19:39
Source file <WVALERTR.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Womens Health | 3 | WVALERTF WVHS WVRPCGF1 |
| Clinical Reminders | 2 | PXRMCALT PXRMCWH |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(WVIEN,DIAGNS) | ; Set up radiology report data
|
|
| RADCASE(WVIEN,DIAGNS,WVIENS,WVRPTIEN,WVSECDXS,WVPDX) | ;
|
|
| RADREP(WVIENS,WVRPTIEN,WVSECDXS,WVPDX) | ;
|
|
| AMEND(WVRPTIEN) | ; Check if RAD/NM report is amended.
; WVRPTIEN - File 74 ien |
|
| COMPARE() | ; Compares Clinical 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 |
| ^RA(78.3 - [#78.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RADPT - [#70] | RADCASE+16, RADCASE+18, RADCASE+24, RADCASE+25 |
| ^RADPT("ADC" | RADCASE+8, RADCASE+11, RADCASE+12, RADCASE+14 |
| ^TMP("DIERR" | AMEND+3!, AMEND+6! |
| ^TMP("DILIST" | AMEND+3!, AMEND+5, AMEND+6! |
| ^TMP("WV RPT" | RADREP+4*, RADREP+5*, RADREP+12*, RADREP+13*, RADREP+14*, RADREP+15*, RADREP+16*, RADREP+17*, RADREP+18*, RADREP+19* , RADREP+20*, RADREP+21*, RADREP+22*, RADREP+23*, RADREP+28*, RADREP+29*, RADREP+30*, RADREP+31*, RADREP+32*, RADREP+33* , RADREP+41*, RADREP+45*, RADREP+50*, RADREP+57*, RADREP+61*, RADREP+63*, RADREP+67*, RADREP+70*, RADREP+72*, RADREP+76* |
| ^TMP($J | RADREP+1!, RADREP+12, RADREP+13, RADREP+14, RADREP+15, RADREP+16, RADREP+17, RADREP+18, RADREP+19, RADREP+20 , RADREP+21, RADREP+22, RADREP+23, RADREP+24, RADREP+30, RADREP+31, RADREP+39, RADREP+41, RADREP+48, RADREP+50 , RADREP+55, RADREP+57, RADREP+65, RADREP+67, RADREP+74, RADREP+76, RADREP+78!, COMPARE+5, COMPARE+6, COMPARE+10 , COMPARE+14, COMPARE+19, COMPARE+20, COMPARE+21 |
| ^WV(790.1 - [#790.1] | RADCASE+5, RADCASE+9 |
| Name | Line Occurrences |
|---|---|
| $$AMEND | RADREP+12 |
| $$COMPARE | RADREP+36 |
| RADCASE | EN+3 |
| RADREP | EN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | RADCASE+3~, RADCASE+24*, RADCASE+25, RADREP+10~, RADREP+11*, RADREP+12*, RADREP+13*, RADREP+14*, RADREP+15*, RADREP+16* , RADREP+17*, RADREP+18*, RADREP+19*, RADREP+20*, RADREP+21*, RADREP+22*, RADREP+23*, RADREP+28*, RADREP+29*, RADREP+30* , RADREP+31*, RADREP+32*, RADREP+33*, RADREP+40*, RADREP+41, RADREP+44*, RADREP+45, RADREP+49*, RADREP+50, RADREP+56* , RADREP+57, RADREP+60*, RADREP+61, RADREP+62*, RADREP+63, RADREP+66*, RADREP+67, RADREP+69*, RADREP+70, RADREP+71* , RADREP+72, RADREP+75*, RADREP+76 |
| DIAGNS | EN~, EN+3, RADCASE~ |
| DIAGNS("P" | EN+5* |
| DIAGNS("S" | RADCASE+28* |
| FIRST | RADREP+10~, RADREP+26*, RADREP+28* |
| INC | RADCASE+3~, RADCASE+24*, RADCASE+28* |
| LOOP | RADCASE+1~, RADREP+34*, RADREP+38*, RADREP+39*, RADREP+41, RADREP+47*, RADREP+48*, RADREP+50, RADREP+54*, RADREP+55* , RADREP+57, RADREP+64*, RADREP+65*, RADREP+67, RADREP+73*, RADREP+74*, RADREP+76, COMPARE+2~, COMPARE+3*, COMPARE+10* , COMPARE+13*, COMPARE+14*, COMPARE+18*, COMPARE+19*, COMPARE+20, COMPARE+21 |
| SECDX | RADCASE+3~, RADCASE+26*, RADCASE+27, RADCASE+28 |
| TMP | RADCASE+3~, RADCASE+25*, RADCASE+26 |
| U | RADCASE+5, RADCASE+9, RADCASE+16, RADCASE+18 |
| 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 |
| WVAMEND | AMEND+2~, AMEND+5*, AMEND+7 |
| WVDIANGS | EN+1~, EN+5, RADCASE+2~, RADREP+24* |
| WVDUP | RADCASE+1~, RADREP+36*, RADREP+37, RADREP+53 |
| WVERR | RADCASE+1~, RADREP+8! |
| WVFLAG | COMPARE+2~, COMPARE+3*, COMPARE+5*, COMPARE+6*, COMPARE+7, COMPARE+9, COMPARE+19, COMPARE+22*, COMPARE+24 |
| WVIEN | EN~, EN+3, RADCASE~, RADCASE+5, RADCASE+9 |
| WVIENS | EN+1~, EN+3, EN+4, RADCASE~, RADCASE+4*, RADCASE+29*, RADREP~, RADREP+3, RADREP+6, RADREP+39 , RADREP+41, COMPARE+4 |
| WVJCN | RADCASE+1~ |
| WVJCN1 | RADCASE+1~ |
| WVLCNT | RADCASE+1~ |
| WVNODE70 | COMPARE+2~, COMPARE+20*, COMPARE+22 |
| WVNODE74 | COMPARE+2~, COMPARE+21*, COMPARE+22 |
| WVPDX | EN+1~, EN+2*, EN+3, EN+4, RADCASE~, RADCASE+18*, RADCASE+19, RADCASE+20, RADCASE+21, RADCASE+22* , RADCASE+23*, RADREP~, RADREP+23 |
| WVPDXDT | RADCASE+1~, RADCASE+4*, RADCASE+21*, RADCASE+23 |
| WVPDXNAME | RADCASE+1~, RADCASE+4*, RADCASE+20*, RADCASE+22, RADCASE+23 |
| WVRADCSE | RADCASE+1~, RADCASE+14*, RADCASE+15, RADCASE+16, RADCASE+18, RADCASE+24, RADCASE+25, RADCASE+29 |
| WVRADDFN | RADCASE+1~, RADCASE+9*, RADCASE+10, RADCASE+11, RADCASE+12, RADCASE+14, RADCASE+16, RADCASE+18, RADCASE+24, RADCASE+25 , RADCASE+29 |
| WVRADDTE | RADCASE+2~, RADCASE+12*, RADCASE+13, RADCASE+14, RADCASE+16, RADCASE+18, RADCASE+24, RADCASE+25, RADCASE+29 |
| WVRADIEN | RADCASE+2~, RADCASE+5*, RADCASE+6, RADCASE+7*, RADCASE+8, RADCASE+11, RADCASE+12, RADCASE+14 |
| WVRPTIEN | EN+1~, EN+3, EN+4, RADCASE~, RADCASE+16*, RADCASE+17, RADREP~, RADREP+9, RADREP+12, RADREP+13 , RADREP+14, RADREP+15, RADREP+16, RADREP+17, RADREP+18, RADREP+19, RADREP+20, RADREP+21, RADREP+22, RADREP+23 , RADREP+24, RADREP+30, RADREP+31, RADREP+48, RADREP+50, RADREP+55, RADREP+57, RADREP+65, RADREP+67, RADREP+74 , RADREP+76, AMEND~, AMEND+4, COMPARE+4 |
| WVSECDX | RADREP+10~, RADREP+26*, RADREP+27*, RADREP+28, RADREP+29 |
| WVSECDXS | EN+1~, EN+3, EN+4, RADCASE~, RADREP~, RADREP+25 |
| WVSECDXS( | RADCASE+27*, RADREP+27 |
