Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RAUTL17

Package: Radiology Nuclear Medicine

Routine: RAUTL17


Information

RAUTL17 ;HISC/DAD-RAD/NUC MED COMMON PROCEDURE FILE (#71.3) UTILITIES ;19 Apr 2019 3:32 PM

Source Information

Source file <RAUTL17.m>

Entry Points

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?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No 'active' imaging types were found. For an imaging"
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !?5,"type to be active it must be assigned to at least one"
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: !?5,"imaging location and at least one procedure."
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !,"Select one of the following imaging types:"
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !?3,$$GET1^DIQ(79.2,RAI_",",.01)
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(79.2 - [#79.2] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call