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* |