RAUTL20 ;HISC/SWM-Utility Routine ;6/16/97 14:27
Source file <RAUTL20.m>
| 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 |
|
