ONCOU0A ;WISC/MLH - ONCOLOGY PATIENT FILE UTILITIES - Fix follow ups for expired patients ;6/21/93 09:18
Source file <ONCOU0A.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 |
|---|---|---|
| FIXFOR(ONCOWRT) | ; correct erroneous 'foreign resident' status for exp pats
; ONCOWRT defined if output desired |
|
| INITSYA() | ; find level of ^TMP on which to put SYA and initialize
|
|
| CHKSTAT(ONCOP,ONCOF,ONCOLVL,ONCOWRT) | ; look at follow-up record for patient ONCOP, follow-up ONCOF
; if we need to change and ONCOLVL defined, back up on ^TMP("ONCOFIXFOR",ONCOLVL) ; ONCOWRT is defined if we want dots for the user |
|
| WRT(ONCORES) | ; output results array
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | CHKSTAT+10 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ONCO(160 - [#160] | FIXFOR+5, FIXFOR+7, CHKSTAT+3 |
| ^TMP("ONCOFIXFOR" | INITSYA+1 |
| Name | Line Occurrences |
|---|---|
| $$CHKSTAT | FIXFOR+7 |
| $$INITSYA | FIXFOR+2 |
| WRT | FIXFOR+12 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | INITSYA+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | CHKSTAT+9~* |
| DA(1 | CHKSTAT+9* |
| DIE | CHKSTAT+9~* |
| >> DR | CHKSTAT+9* |
| ONCOCHG | CHKSTAT+4~*, CHKSTAT+13*, CHKSTAT+17 |
| ONCOF | CHKSTAT~, CHKSTAT+3, CHKSTAT+6, CHKSTAT+9 |
| ONCOFI | FIXFOR+6~*, FIXFOR+7* |
| ONCOI | INITSYA+1~*, INITSYA+2, WRT+1~* |
| ONCOKC | FIXFOR+3~*, FIXFOR+7*, FIXFOR+11 |
| ONCOKF | FIXFOR+3~*, FIXFOR+7*, FIXFOR+11 |
| ONCOKP | FIXFOR+3~*, FIXFOR+5*, FIXFOR+11 |
| ONCOLVL | FIXFOR+2~*, FIXFOR+7, CHKSTAT~, CHKSTAT+6* |
| ONCOP | CHKSTAT~, CHKSTAT+3, CHKSTAT+6, CHKSTAT+9 |
| ONCOPI | FIXFOR+4~*, FIXFOR+5*, FIXFOR+7 |
| ONCORES | FIXFOR+11~*, FIXFOR+12, WRT~, WRT+1 |
| ONCORES( | WRT+1* |
| ONCORES(1 | WRT+2 |
| ONCORES(2 | WRT+2 |
| ONCORES(3 | WRT+2 |
| >> ONCOSYA | CHKSTAT+6* |
| ONCOWRT | FIXFOR~, FIXFOR+7, FIXFOR+12, CHKSTAT~, CHKSTAT+12 |
| ONCOX | CHKSTAT+3~*, CHKSTAT+5, CHKSTAT+6 |
| U | FIXFOR+11, INITSYA+1, CHKSTAT+5, CHKSTAT+6, WRT+1 |