RAUTL20 ;HISC/SWM-Utility Routine ;6/16/97 14:27
Source file <RAUTL20.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$UP^XLFSTR |
Radiology Nuclear Medicine | 1 | ($$SSANVAL,$$USESSAN)^RAHLRU1 |
VA FileMan | 1 | FILE^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ; for displaying + and . during case lookup
|
|
LOOP1 | ; RA1= : for-loop var which happens to be the CASE NUMBER (70.03; .01)
; RA2= : (1) ien for 70.03 (2) also, pointer value to file #74 ; RA3= : holds earliest case with pointer value to file #74 ; RA4= : (ienof #70.03)=case number^procedure pointers^ptr #74 ; RA5=0 : all cases in set point to same non-null rarpt() or all null ; regardless of cancelled status ; RA5<>0: one or more cases in set point to different rarpt() ; RA6= : pointer to file #72 examination status ; RA7=1 : denote call of LOOP1 came from EN2 and not from EN1 |
|
EN2(RA4) | ; display all print members' procs during report editing/printg
|
|
EN3(RA4) | ; for print set, AFTER record is created in rarpt()
|
|
XPRI | ;loop thru sub-file #74.05 to set/kill prim. xref for other prt members
|
|
XPRI1 | ||
XSEC | ;loop thru sub-file #74.05 to set/kill sec. xref for other print members
|
|
XSEC1 | ||
XSEC2 | ||
FLAGMEM() | ;in distr list, print + if case is part of a print set
; called from File #74's print templates |
|
DELPNT(RADFN,RADTI,RACNI) | ; When an exam is cancelled & it is associated
; with data in the Nuc Med Exam Data file (70.2) ask the user if this ; pointer to 70.2 is to be deleted. Also delete the flag which ; indicates that the dosage ticket had printed for this exam. ; Called from CANCEL^RAEDCN ; Input: RADFN - Internal Entry Number (IEN) of the Patient. ; RADTI - Date/Time of the examination (inverse format) ; RACNI - IEN of the exam for this date/time |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RA(72 - [#72] | LOOP1+19 |
^RABTCH(74.4 - [#74.4] | FLAGMEM+4 |
^RADPT - [#70] | EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+17, EN2+9, EN2+11, EN3+8 , XPRI1+2, XPRI1+3, XSEC1+2, XSEC1+3, XSEC2, DELPNT+13 |
^RARPT - [#74] | EN3+8, XPRI+2, XPRI1, XPRI1+5*, XPRI1+6!, XSEC+2, XSEC1, XSEC2+2*, XSEC2+3!, FLAGMEM+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> D0 | FLAGMEM+3, FLAGMEM+4 |
>> DA | XPRI+1, XPRI+2, XPRI1, XPRI1+5, XPRI1+6, XSEC+1, XSEC+2, XSEC1, XSEC2+2, XSEC2+3 |
DTIME | DELPNT+16 |
RA1 | EN1+6~*, EN1+12*, EN1+13, EN1+14*, LOOP1+9, LOOP1+13, LOOP1+16, EN2+7~*, EN2+8*, EN2+11* , EN3+4~*, EN3+5*, EN3+8*, XPRI+3~*, XPRI1*, XPRI1+2, XSEC+3~*, XSEC1*, XSEC1+2, FLAGMEM+2~* , FLAGMEM+3, FLAGMEM+4*, FLAGMEM+5*, FLAGMEM+6 |
RA2 | EN1+6~, LOOP1+9*, LOOP1+11, LOOP1+12, LOOP1+15, LOOP1+16, LOOP1+17*, LOOP1+19, LOOP1+20, LOOP1+21 , EN2+7~, EN3+4~, EN3+8*, XSEC+3~, XSEC1+4*, XSEC2* |
RA200 | XPRI+3~, XPRI1+3*, XPRI1+4, XPRI1+5, XPRI1+6, XSEC+3~, XSEC2*, XSEC2+1, XSEC2+2, XSEC2+3 |
RA3 | EN1+6~*, LOOP1+20*, LOOP1+21, EN2+7~*, EN3+4~*, EN3+8* |
RA4 | EN1+6~, LOOP1+15*, LOOP1+16*, LOOP1+17, EN2~, EN3~ |
RA4( | LOOP1+15*, LOOP1+16*, LOOP1+17*, EN2+8!, EN3+5!, EN3+8* |
RA5 | EN1+6~*, EN1+15, LOOP1+21*, EN2+7~*, EN2+12, EN3+4~, EN3+6*, EN3+8 |
RA6 | EN1+6~, LOOP1+17*, LOOP1+19, EN2+7~ |
RA7 | EN1+6~, LOOP1+15, LOOP1+16, LOOP1+17, EN2+7~* |
RACN | EN1+6~, EN1+7* |
RACNDSP | LOOP1+12~, LOOP1+13*, LOOP1+15 |
RACNI | EN1+2, EN1+3, EN1+7, EN1+9, EN1+13, EN2+2, EN2+3, EN2+9, DELPNT~, DELPNT+10 , DELPNT+13, DELPNT+21 |
>> RACNIZ | XPRI1+2*, XPRI1+3, XSEC1+2*, XSEC1+3, XSEC2 |
RADFN | EN1+2, EN1+3, EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+17 , EN2+2, EN2+3, EN2+9, EN2+11, EN3+1, EN3+2, EN3+8, DELPNT~, DELPNT+10, DELPNT+13 , DELPNT+21 |
>> RADFNZ | XPRI+1, XPRI1+2, XPRI1+3, XSEC+1, XSEC1+2, XSEC1+3, XSEC2 |
RADTI | EN1+2, EN1+3, EN1+7, EN1+9, EN1+12, EN1+14, LOOP1+9, LOOP1+11, LOOP1+12, LOOP1+17 , EN2+2, EN2+3, EN2+9, EN2+11, EN3+1, EN3+2, EN3+8, DELPNT~, DELPNT+10, DELPNT+13 , DELPNT+21 |
>> RADTIZ | XPRI+1, XPRI1+2, XPRI1+3, XSEC+1, XSEC1+2, XSEC1+3, XSEC2 |
RAFDA | DELPNT+10~, DELPNT+14!, DELPNT+21~ |
RAFDA( | DELPNT+10*, DELPNT+21* |
>> RAIEN | EN3+6 |
>> RAKILL | XPRI1+6, XSEC2+3 |
>> RAMEMLOW | EN1+8*, EN1+13*, EN1+15* |
>> RAPRTSET | EN1+1*, EN1+9*, EN1+10, EN1+15*, EN2+1*, EN2+9*, EN2+10, EN2+12* |
>> RARAD | XPRI+1 |
>> RARADOLD | XPRI1+3 |
>> RARPT | EN3+6 |
>> RASECOND | XSEC+1, XSEC1+3, XSEC2 |
>> RASET | XPRI1+5, XSEC2+2 |
RASSAN | LOOP1+12~*, LOOP1+13 |
>> RAXREF | XPRI+1, XPRI1+5, XPRI1+6, XSEC+1, XSEC2+2, XSEC2+3 |
RAYN | DELPNT+14~, DELPNT+15, DELPNT+16*, DELPNT+17*, DELPNT+18*, DELPNT+19*, DELPNT+20, DELPNT+32* |
U | EN1+12, FLAGMEM+4 |