RAUTL17 ;HISC/DAD-RAD/NUC MED COMMON PROCEDURE FILE (#71.3) UTILITIES ;19 Apr 2019 3:32 PM
Source file <RAUTL17.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ; *** Get an imaging type
; Input: None ; Output: The variable 'Y' will be one of the following ; -1 = No imaging type selected (up-arrow, time-out, etc.) ; 0 = No active imaging types found ; IEN = IMAGING TYPE file (#79.2) IEN |
|
EN1EXIT | ||
EN2(RAIMGTYI,RA71) | ; *** Common procedure file error check
; Input: RAIMGTYI = IMAGING TYPE file (#79.2) IEN ; RA71 = PROCEDURE file (#71) IEN (Optional) ; Output: Number_of_Common_Proccedures ^ $S(Duplicate_Sequence#:1,1:0) |
|
EN3(D0) | ; *** imaging type of a procedure
; Input: RAD/NUC MED PROCEDURE file (#71) IEN ; Output: IMAGING TYPE file (#79.2) IEN |
|
EN5(RAD0,RAIMGTYI,RASEQ,SK) | ; *** Update ^RAMIS(71.3,"AA", xref
; Input: RAD0 = RAD/NUC MED COMMON PROCEDURE file (#71.3) IEN ; RAPRC = PROCEDURE file (#71) IEN ; RASEQ = Sequence number ; SK = Set/Kill flag: $S(SK="S":Set_xref,SK="K":Kill_xref) |
|
EN6(RAIMGTYI,RA71) | ; *** Common procedure file error messages
|
|
DESC(RAD0,RAY) | ; Detemine if a procedure qualifies as a descendent for this
; parent procedure. Descendent must be either a detailed or series ; type procedure, must be of same imaging type of the parent, and must ; not be inactive. Called from ^DD(71.05,.01,0) ; 'RAD0' ien of parent procedure in file 71 ; 'RAY' ien of pointed to procedure in file 71 ; Returns: 'RA' i.e, 0:invalid procedure, 1:valid procedure ; RAPARNT: zero node of parent procedure ; RAPARNT(12): i-type of parent procedure ; RADESC : zero node of descendent procedure ; RADESC("I"): inactivation date (if any) of descendent ; RADESC(6) : procedure type of descendent ; RADESC(12) : i-type of descendent procedure |
|
EN713(RAX) | ;is this procedure from file 71 already a common procedure?
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RA(79.2 - [#79.2] | Classic Fileman Calls, GET1^DIQ |