RARTE7 ;HISC/SM continuation - Delete a Report, Outside Rpt misc;10/10/08 16:05
Source file <RARTE7.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 |
|---|---|---|
| Radiology Nuclear Medicine | 2 | RARTE1 RARTE5 |
| Imaging | 1 | MAGVIMRA |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MARKDEL | ; set field 5 to "X" to mark rpt as deleted
; also update activity log, send report deletion bulletin, store then delete ; associated DX, Staff, Resident data |
|
| PSET | ;delete primary and secondary data
|
|
| KILSEC(RAF2,RAC1) | ;kill secondary data
|
|
| SET7401(X) | ; use this for DX, Staff, Resident secondaries
; set activity log's subfiles to store any secondaries |
|
| ANYDX(ARRAY) | ; called from RARTE5
; input ARRAY name to store all DXs for this case ; output: ; =1 if one or more diag codes ; =0 if no diag code ; ARRAY() stores diag codes as merged from case |
|
| ALERT | ; for Outside Report, ck if new/changed diags require alert
; this is called from RARTE5 each time an outside report is edited |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | SET7401+19, SET7401+29 |
| FILE^DIE | MARKDEL+11, MARKDEL+54, PSET+7 |
| UPDATE^DIE | MARKDEL+25, SET7401+28 |
| ^DIK | KILSEC+12 |
| DA^DILF | KILSEC+9 |
| $$ROOT^DILFD | KILSEC+6, KILSEC+10, SET7401+15 |
| $$GET1^DIQ | SET7401+29 |
| CLOAK^RABUL3 | MARKDEL+36 |
| OENOTE^RAUTL00 | ALERT+25 |
| EN2^RAUTL20 | MARKDEL+45 |
| $$NOW^XLFDT | MARKDEL+18 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(78.3 - [#78.3] | ALERT+16 |
| ^RADPT - [#70] | MARKDEL+16, ANYDX+8, ANYDX+9, ALERT+23 |
| ^RARPT - [#74] | MARKDEL+9 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ALERT+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ANYDX~, ANYDX+7!, ANYDX+8* |
| ARRAY(0 | ANYDX+10 |
| ARRAY(9999 | ANYDX+9* |
| DA | MARKDEL+3~, KILSEC+4!, KILSEC+9, KILSEC+12* |
| DIK | MARKDEL+3~, KILSEC+4!, KILSEC+10*, KILSEC+13! |
| DUZ | MARKDEL+20 |
| I | ALERT+7~, ALERT+9*, ALERT+11*, ALERT+15*, ALERT+16 |
| RA1 | MARKDEL+3~, PSET+1*, PSET+2*, PSET+4, PSET+5, PSET+6, PSET+9, SET7401+24*, SET7401+26* |
| RA2 | MARKDEL+3~, KILSEC+11*, KILSEC+12* |
| RA7003 | MARKDEL+4~, MARKDEL+16*, MARKDEL+22, MARKDEL+23, MARKDEL+24 |
| RAA | MARKDEL+3~, KILSEC+3~, KILSEC+7*, SET7401+2!, SET7401+16* |
| RAA( | KILSEC+12, SET7401+26 |
| RAA(0 | KILSEC+8, SET7401+17 |
| >> RAA1( | ALERT+11 |
| >> RAA2( | ALERT+11!, ALERT+15, ALERT+16 |
| RAAB | ALERT+14!, ALERT+16*, ALERT+22 |
| RAC1 | KILSEC~, KILSEC+5 |
| RACLOAK | MARKDEL+3~ |
| >> RACNI | MARKDEL+16, MARKDEL+51, MARKDEL+52, MARKDEL+53, MARKDEL+58, SET7401+14, ANYDX+6, ANYDX+8, ANYDX+9, ALERT+2 , ALERT+5, ALERT+23 |
| >> RADFN | MARKDEL+16, MARKDEL+51, MARKDEL+52, MARKDEL+53, PSET+4, PSET+5, PSET+6, KILSEC+5, SET7401+14, ANYDX+6 , ANYDX+8, ANYDX+9, ALERT+2, ALERT+5, ALERT+23 |
| >> RADTI | MARKDEL+16, MARKDEL+51, MARKDEL+52, MARKDEL+53, PSET+4, PSET+5, PSET+6, KILSEC+5, SET7401+14, ANYDX+6 , ANYDX+8, ANYDX+9, ALERT+2, ALERT+5, ALERT+23 |
| RAF1 | MARKDEL+5~, SET7401+12*, SET7401+27 |
| RAF2 | MARKDEL+5~, KILSEC~, KILSEC+6, KILSEC+10, SET7401+13*, SET7401+15, SET7401+19, SET7401+29 |
| RAF3 | MARKDEL+5~, SET7401+19*, SET7401+21*, SET7401+29 |
| RAFDA | MARKDEL+3~, MARKDEL+12!, MARKDEL+27!, MARKDEL+55!, PSET+8!, SET7401+2!, SET7401+30! |
| RAFDA( | MARKDEL+18*, MARKDEL+19*, MARKDEL+20*, MARKDEL+21*, MARKDEL+22*, MARKDEL+23*, MARKDEL+24*, MARKDEL+51*, MARKDEL+52*, MARKDEL+53* , PSET+4*, PSET+5*, PSET+6*, SET7401+27* |
| RAFDA(74 | MARKDEL+10* |
| >> RAFIRST | ALERT+22 |
| >> RAFLD | MARKDEL+41* |
| >> RAIEN | MARKDEL+9, MARKDEL+10, MARKDEL+17, SET7401+25 |
| RAIEN2 | MARKDEL+3~, MARKDEL+32*, SET7401+25 |
| RAIENDX | MARKDEL+3~, SET7401+25*, SET7401+27 |
| RAIENL | MARKDEL+3~, MARKDEL+17*, MARKDEL+18, MARKDEL+19, MARKDEL+20, MARKDEL+21, MARKDEL+22, MARKDEL+23, MARKDEL+24 |
| RAIENS | MARKDEL+5~, KILSEC+5*, KILSEC+6, KILSEC+9, KILSEC+10, SET7401+14*, SET7401+15 |
| RAMEMARR | MARKDEL+4~, MARKDEL+45 |
| RAMEMARR( | PSET+2 |
| RAMSG | MARKDEL+4~, SET7401+2!, SET7401+30! |
| RAMSG("DIERR" | MARKDEL+26, SET7401+29 |
| >> RANY1 | ALERT+8 |
| >> RANY2 | ALERT+8 |
| RAOUT | MARKDEL+4~ |
| RAOUT(1 | MARKDEL+31, MARKDEL+32 |
| RAPRTSET | MARKDEL+4~, MARKDEL+46 |
| RAROOT | KILSEC+3~, KILSEC+6*, KILSEC+7, SET7401+15*, SET7401+16 |
| RASAVE | MARKDEL+4~, MARKDEL+9*, MARKDEL+21, ALERT+3~ |
| RASAVE("RACNI" | ALERT+5* |
| RASAVE("RADFN" | ALERT+5* |
| RASAVE("RADTI" | ALERT+5* |
| >> RASUB | MARKDEL+58*, PSET+9* |
| RAX | MARKDEL+4~, SET7401+26*, SET7401+27, SET7401+29 |
| RAY3 | ALERT+3~, ALERT+23*, ALERT+24 |
| U | MARKDEL+9, MARKDEL+22, MARKDEL+23, MARKDEL+24, ANYDX+9, ALERT+16 |
| X | SET7401~, SET7401+12, SET7401+13, ALERT+3~, ALERT+24* |
