©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAUTL20 ;HISC/SWM-Utility Routine ;6/16/97 14:27 [ 12/05/2011 9:33 AM ]
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 |
|---|---|---|
| XPRI1 | ||
| XPRI | ;loop thru sub-file #74.05 to set/kill prim. xref for other prt members
|
|
| EN2(RA4) | ; display all print members' procs during report editing/printg
|
|
| XSEC1 | ||
| EN3(RA4) | ; for print set, AFTER record is created in rarpt()
|
|
| EN1 | ; for displaying + and . during case lookup
|
|
| 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 |
|
| 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 |
|
| XSEC | ;loop thru sub-file #74.05 to set/kill sec. xref for other print members
|
|
| XSEC2 | ||
| FLAGMEM() | ;in distr list, print + if case is part of a print set
; called from File #74's print templates |
| 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+11 , XPRI1+2, XPRI1+3, XSEC1+2, XSEC1+3, XSEC2, DELPNT+13 |
| ^RARPT - [#74] | EN3+11, XPRI+2, XPRI1, XPRI1+5*, XPRI1+6!, XSEC+2, XSEC1, XSEC2+2*, XSEC2+3!, FLAGMEM+5 |
| Name | Line Occurrences |
|---|---|
| LOOP1 | EN1+14, EN2+11 |
| XPRI1 | XPRI1+3, XPRI1+4, XPRI1+7 |
| XSEC1 | XSEC1+3, XSEC2 |
| XSEC2 | XSEC2+1, XSEC2+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN1+12, XSEC1+3, XSEC2 |
| ^(0 | LOOP1+17, XPRI1+3 |
| >> | 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+11*, 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+11*, 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+11* |
| RA4 | EN1+6~, LOOP1+15*, LOOP1+16*, LOOP1+17, EN2~, EN3~ |
| RA4( | LOOP1+15*, LOOP1+16*, LOOP1+17*, EN2+8!, EN3+5!, EN3+11* |
| RA5 | EN1+6~*, EN1+15, LOOP1+21*, EN2+7~*, EN2+12, EN3+4~, EN3+6*, EN3+11 |
| 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+11, 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+11, 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 |