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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RADD3

Package: Radiology Nuclear Medicine

Routine: RADD3


Information

RADD3 ;HISC/SWM-Radiology Data Dictionary Utility Routine ; Oct 12, 2022@10:55:50

Source Information

Source file <RADD3.m>

Entry Points

Name Comments DBIA/ICR reference
PAIR ;
; called from file 71.9's field SOURCE
; SOURCE may be added normally via the "RA NM EDIT LOT" option,
; or it may be added via one of the 3 exam edits when the LOT
; prompt appears for the case's Radiopharm. This LOT prompt
; allows adding new LOT on-the-fly, which causes the LOT's
; associated SOURCE, EXPIRATION DATE, KIT # to be prompted
; and the current case's Radiopharm to be stuffed into the new LOT's
; Radiopharm field. The SOURCE field invokes this subroutine to:
; re-set DR string to stuff matching radiopharm
; not allow spacebar return for radioph
; RA*5*65 removed the Fileman Identifier for file 79.1's RADIOPHARM
; so by default, the DR will just be "2;3;4;" without the "5;".
SCRLOT() ;screen lot # from file 70.2
GETID(Y) ; Pass back a string of data which will be used as an
; identifier when lookups are done on the Imaging Locations (79.1) file
; Input : Y -> ien of entry in 79.1
; Output: string of data relevent to the entry in file 79.1
; Location I-type_"-"_Station # of Rad/Nuc Med Division
; *Location I-type_"-"_Station # of Rad/Nuc Med Division
; Note: The asterisk preceeding the Location I-type name
; indicates the I-loc is inactive. (P194)
DELDESC(RAIEN) ; This sub-routine will determine if descendents can be
; deleted from parent procedures. If only one descendent exists, and
; the parent is on the common procedure list do not allow the deletion
; of the descendent.
; Input : RAIEN (the DA array for the Rad/Nuc Med Procedure file.)
; Output: 0 if ok to delete, 1 if not ok to delete
; Called from: ^DD(71.05,.01,"DEL",1,0) node
REACMMN(RADA) ; Check to see if a commom procedure can be re-activated.
; This sub-routine checks if this common is a parent w/o descendents.
; If true, this common procedure cannot be re-activated.
; Input : RADA - ien of the entry in 71.3
; Output: 0 if ok to delete, 1 if not ok to delete
; Called from ^DD(71.3,4,"DEL",1,0)
X7005(RADFN,RADTI,RACNI,RAMDV,RAQED,RASTI,RAWHO) ;update the EXAM
; STATUS TIMES (70.05) multiple. Called from RASTED (will be
; called from RAUTL1 in the future)
A7007(RADFN,RADTI,RACNI,RAWHO,RATC) ; update the ACTIVITY LOG (70.07)
; multiple. Called from RASTED (will be called from RAUTL1 in the
; future)
U70033(RA18DFN,RA18DTI,RA18CNI,RA18ST) ;

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^RA(79.2 - [#79.2] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call