MAGDRA3 ;WOIFO/LB - Routine to lookup patient by casenumber of name ; 05 Apr 2011 8:50 AM
Source file <MAGDRA3.m>
Package | Total | Call Graph |
---|---|---|
Radiology Nuclear Medicine | 1 | $$ACCFIND^RAAPI |
VA FileMan | 1 | ^DIR |
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 |
---|---|---|
ASK() | ;Prompt user
|
|
READ(RESULT) | ;
|
|
CASE(CASE,RESULT) | ;
|
|
PAT(PAT,RESULT) | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RADPT - [#70] | CASE+4, CASE+5, CASE+6, CASE+7 |
Name | Line Occurrences |
---|---|
$$ASK | READ+2 |
CASE | READ+4 |
PAT | READ+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANS | READ+1~, READ+2*, READ+3, READ+4, READ+5, READ+6 |
ARESULT | CASE+1~, CASE+3 |
ARESULT(1 | CASE+3 |
CASE | CASE~, CASE+2, CASE+3, CASE+4, CASE+5, CASE+6, CASE+7 |
DIR | ASK+1~, PAT+1~ |
DIR("?" | ASK+3* |
DIR("A" | ASK+2* |
DIR("B" | PAT+2* |
DIR(0 | ASK+2*, PAT+2* |
MAGCNI | CASE+1~, CASE+7*, CASE+8 |
MAGDFN | CASE+1~, CASE+5*, CASE+6, CASE+7, CASE+8 |
MAGDTI | CASE+1~, CASE+6*, CASE+7, CASE+8 |
MAGXR | CASE+1~, CASE+2*, CASE+3, CASE+4, CASE+5, CASE+6, CASE+7 |
PAT | PAT~, PAT+2 |
RESULT | READ~, READ+2*, READ+3*, READ+4, READ+5, READ+6, READ+7, CASE~, CASE+3*, CASE+8* , PAT~, PAT+4* |
X | ASK+1~, PAT+1~ |
Y | ASK+1~, ASK+5, PAT+1~, PAT+4 |