RAESR ;HISC/GJC AISC/RMO-Exam Statistics Rpt ;1/20/95 09:03
Source file <RAESR.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 |
|---|---|---|
| DEV | ||
| START | ; Set-up date variables for selected date range.
; NOTE: RADTE is the exam reg date/time, and RADTI is the ; internal date number |
|
| RADFN | ; Set RADFN the internal file number in the patient file, and check if
; an Exam was registered on the specified date, RADTE ; if so set RADO to the value of the Exam Registration node(Visit) via ; the naked reference |
|
| RACNI | ; Set RACNI the internal file number for an exam, and check for all
; examinations performed during this patient visit ; ^(RACNI,0), if so, set RAP0 to the value of the Examination node via ; the naked reference |
|
| SETGLO | ; Location Statistics
|
|
| STATS | ; Calculate statistics for # of Visits, # of Exams, # of complete
; Exams and Category |
|
| SET | ; Set variable
|
|
| ASK | ; Entry point from RA DAISTATS (Examination Statistics) menu
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | RACNI+8 |
| ^RA(72 - [#72] | RACNI+6 |
| ^RA(79.1 - [#79.1] | RACNI+4 |
| ^RA(79.2 - [#79.2] | RACNI+5 |
| ^RADPT - [#70] | RADFN+4, RACNI+10 |
| ^RADPT("AR" | START+5, RADFN+4 |
| ^SC - [#44] | RACNI+4 |
| ^TMP($J | RAESR+4, RAESR+5*, RAESR+7, RAESR+8*, RACNI+9, SETGLO+1*, SETGLO+2*, SETGLO+4*, SETGLO+5*, SETGLO+7* , SETGLO+8*, SETGLO+10*, SETGLO+11*, ASK+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A | RAESR+3*, RAESR+4, RAESR+5, RAESR+6, RAESR+8 |
| >> B | RAESR+5*, RAESR+6*, RAESR+7, RAESR+8 |
| >> BEGDATE | RAESR+14, START+3 |
| >> BEGDTX | RAESR+14*, RAESR+15 |
| DIR | ASK+9! |
| DIR("?" | ASK+5*, ASK+6*, ASK+7*, ASK+8*, ASK+9* |
| DIR("A" | ASK+4* |
| DIR("B" | ASK+4* |
| DIR(0 | ASK+3* |
| DIROUT | ASK+10! |
| DIRUT | ASK+10! |
| DTOUT | ASK+10! |
| DUOUT | ASK+10! |
| DUZ | RAESR+3, RAESR+6, RAESR+11, ASK+2 |
| >> ENDDATE | RAESR+14, START+3 |
| >> ENDDTX | RAESR+14*, RAESR+15 |
| I | RAESR+12*, SET+1*, ASK+10! |
| IO | START+3 |
| >> RABEG | START+3*, START+5 |
| RACCESS( | RAESR+3, RAESR+6, RAESR+11!, ASK+2 |
| >> RACMP | RACNI+6*, STATS+2 |
| >> RACNB | START+4* |
| >> RACNI | RACNI+10* |
| >> RACTE | RACNI+10*, STATS+4 |
| >> RAD0 | RADFN+4*, RACNI+4, RACNI+5, RACNI+8 |
| >> RADAT | START+5*, SETGLO+1, SETGLO+4, SETGLO+7, SETGLO+10 |
| >> RADFN | RADFN+4*, RACNI+10 |
| >> RADNM | RACNI+8*, RACNI+9, SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5, SETGLO+7, SETGLO+8 |
| >> RADTE | START+5*, RADFN+4 |
| >> RADTI | START+5*, RADFN+4, RACNI+10 |
| >> RADU | START+4*, STATS+4 |
| >> RAEND | START+3*, START+5 |
| RAFLG | RACNI+10!, STATS+2* |
| >> RAINM | RACNI+5*, RACNI+6, RACNI+9, SETGLO+1, SETGLO+2, SETGLO+4, SETGLO+5 |
| >> RALNM | RACNI+4*, SETGLO+1, SETGLO+2 |
| >> RAP0 | RACNI+10*, STATS+2 |
| >> RAPOP | RAESR+13, DEV |
| RAPSTX | ASK+2*, ASK+10! |
| >> RARPT | ASK+11* |
| >> RATMEFRM | RAESR+15* |
| RATMP | RACNI+10!, SETGLO+7, SETGLO+8, SETGLO+10, SETGLO+11, STATS+2*, STATS+4*, SET+1 |
| >> T | STATS+4* |
| >> X | ASK+12*, ASK+13 |
| >> Y | SETGLO+1*, SETGLO+2*, SETGLO+4*, SETGLO+5*, SETGLO+7*, SETGLO+8*, SETGLO+10*, SETGLO+11*, SET+1*, ASK+11 |
| >> ZTDESC | ASK+13* |
| >> ZTRTN | RAESR+11* |
| >> ZTSAVE( | RAESR+12* |
