RARTE3 ;HISC/GJC-Create a skeletal report, store in Error Reports multiple ;2/4/97 09:39
Source file <RARTE3.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | $$NOW^XLFDT |
| VA Fileman | 1 | UPDATE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(RADA) | ; Create the 'Error Reports' sub-record.
; Input: 'RADA': IEN of the report in file 74. ; Create the record, enter when the report was unverified. |
|
| WARN1 | ||
| CHK17 | ; called from routine RARTE1
; check 17th piece of exam with same pat/dttm/longcn ; values of RAOK: ; 1 = unknown case no. or unknown case ien, CAN'T DELETE REPORT ; 2 = exm doesn't point to this rpt, CAN DELETE BUT NOT UPGRADE EXM STAT ; 3 = all okay |
|
| WARN2 | ||
| WARNQ | ||
| ZERO | ; setup the ^TMP($J,"RA AUTOE" global with a zero node
|
|
| PRESS |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RADPT - [#70] | CHK17+12, CHK17+14 |
| ^RARPT - [#74] | ZERO+1*, ZERO+4* |
| ^TMP($J | EN1+3, EN1+9, EN1+10!, ZERO+3, ZERO+4 |
| Name | Line Occurrences |
|---|---|
| PRESS | CHK17+11, CHK17+13, CHK17+14 |
| WARN1 | CHK17+11, CHK17+13 |
| WARN2 | CHK17+14 |
| ZERO | EN1+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DTIME | PRESS |
| I | ZERO+2~*, ZERO+3*, ZERO+4 |
| >> RA0 | CHK17+7, CHK17+10 |
| >> RACN | CHK17+10*, CHK17+11, CHK17+12 |
| >> RACNI | CHK17+12*, CHK17+13, CHK17+14 |
| RACNT | EN1+4~, EN1+9*, ZERO+1 |
| RADA | EN1~, EN1+5, EN1+8*, ZERO+1, ZERO+4 |
| RADA(1 | EN1+8*, ZERO+1, ZERO+4 |
| >> RADFN | CHK17+7*, CHK17+12, CHK17+14 |
| >> RADTI | CHK17+7*, CHK17+12, CHK17+14 |
| RAIEN | EN1+4~, CHK17+14 |
| RAIEN(1 | EN1+8 |
| RANEW | EN1+4~ |
| RANEW( | EN1+5* |
| RANOW | EN1+4~*, EN1+5, ZERO+1 |
| >> RAOK | CHK17+6*, WARN1+2*, WARN2+1* |
| X | EN1+4~, PRESS* |