Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: RADD2

Package: Radiology Nuclear Medicine

Routine: RADD2


Information

RADD2 ;HISC/GJC/CAH-Radiology Data Dictionary Utility Routine ; Feb 11, 2021@11:10:54

Source Information

Source file <RADD2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 EN^DDIOL  FILE^DIE  
Kernel 1 MES^XPDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Radiology Nuclear Medicine 5 RA COMMON PROCEDURE EDIT  RA PROCEDURE EDIT  RACTRG2  RAMAIN2  RANPRO  

Entry Points

Name Comments DBIA/ICR reference
EN1(RA71) ; Input transform for the .01 field (Procedure) for the Rad/Nuc
; Med Common Procedure file i.e, ^RAMIS(71.3 (reworked for RA*5.0*158)
; Procedure must not have an inactive date before today in file 71
; Procedure in file 71 must have same imaging type as the one
; selected before editing this record in file 71.3
CH ;this tag was removed w/RA*5.0*175
INACOM(RAD0) ; Check inactive date on the Rad/Nuc Med Procedure file (71)
; for the Common Procedure before setting our inactive procedure to
; active. Called from the 'RA COMMON PROCEDURE EDIT' input template.
; Option: Common Procedure Enter/Edit (13^RAMAIN2)
; Input : RAD0-ien of Rad/Nuc Med Common Procedure
; Output: if Common cannot be re-activated, reset the 'Inactive' field
; to 'yes'.
EN2() ; called from ^DD(74,0,"ID","WRITE")
; display long case #'s in the same print set as current record
USUAL(RADA,RAX) ; To insure that the USUAL DOSE value falls between the
; HIGH ADULT DOSE and the LOW ADULT DOSE.
; Input Variables:
; RADA -> top level/sub-file level IEN's
; RAX -> value input by the user
; Output Variable: $S(1: value is accepted, 0: value not accepted)
RANGE(RADA) ; Determine the range in which the 'USUAL DOSE' must fall
; Input Variables:
; RADA -> top level/sub-file level IEN's
; Output Variable:
; RANGE -> the range in which the 'USUAL DOSE' must fall
MEDOSE(RAY,RADT) ; Determine if this individual (RAY) is authorized to
; administer medications. Called from ^DD(70.15,4,12.1)
; Input : RAY (pnt to 200) - the individual being checked at the moment
; RADT - Date of the examination
; Output: '1' - user is authorized to administer medications, else '0'
PRIDXIXK(DA,X) ;This subroutine executes the KILL logic for the 'new style' AD cross-
AEASSET(RAX,RADA,RAXREF) ;determine is the examination status of the
AEKILL(RADA) ;execute the KILL logic for the "AE" xref on the

External References

Name Field # of Occurrence
EN^DDIOL USUAL+14
FILE^DIE INACOM+10, PRIDXIXK+7
MES^XPDUTL INACOM+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] AEASSET+23, AEASSET+29
^RA(79.2 - [#79.2] AEASSET+26
^RADPT - [#70] AEASSET+24, AEASSET+25, AEKILL+4
^RADPT("AD" PRIDXIXK+8!
^RADPT("AE" AEASSET+31*, AEKILL+5!
^RADPT("AS" AEASSET+32*
^RAMIS(71 - [#71] EN1+17, EN1+21, INACOM+7, USUAL+8, RANGE+6
^RAMIS(71.3 - [#71.3] INACOM+7
^RARPT - [#74] EN2+5
^VA(200 - [#200] MEDOSE+6, MEDOSE+7, MEDOSE+8, MEDOSE+10
^XUSEC("ORELSE" MEDOSE+9
^XUSEC("ORES" MEDOSE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PRIDXIXK~, PRIDXIXK+5, PRIDXIXK+6
DA(1 PRIDXIXK+5, PRIDXIXK+6
DA(2 PRIDXIXK+5, PRIDXIXK+6
DT EN1+24, INACOM+8
RA1 EN2+2~, EN2+3*, EN2+5*
RA2 EN2+2~, EN2+3*, EN2+5*, EN2+6
RA71 EN1~, EN1+17, EN1+21
RA71("I" EN1+17*, EN1+24
RA71(0 EN1+17*, EN1+19, EN1+28
RA7108 USUAL+8~*, USUAL+9, RANGE+5~, RANGE+6*, RANGE+7
RA71ACTIVE EN1+24*, EN1+25, EN1+37!
RA71ITYPE EN1+28*, EN1+29, EN1+37!
RACNI PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8
RAD0 INACOM~, INACOM+7, INACOM+10
RADA USUAL~, USUAL+8, RANGE~, RANGE+6, AEASSET~, AEASSET+25, AEASSET+31, AEASSET+32, AEKILL~, AEKILL+4
, AEKILL+5
RADA(1 USUAL+8, RANGE+6, AEASSET+24, AEASSET+25, AEASSET+31, AEASSET+32, AEKILL+4, AEKILL+5
RADA(2 AEASSET+24, AEASSET+25, AEASSET+31, AEASSET+32, AEKILL+4, AEKILL+5
RADFN PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8
RADT MEDOSE~, MEDOSE+14
RADTI PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8
RAFDA INACOM+9~, PRIDXIXK+4~
RAFDA( INACOM+10*, PRIDXIXK+6*
RAH USUAL+8~, USUAL+9*, USUAL+10*, USUAL+11, USUAL+13, RANGE+5~, RANGE+7*, RANGE+8*, RANGE+9
RAIENS PRIDXIXK+4~, PRIDXIXK+6*
RAIMGTY AEASSET+23~, AEASSET+26*, AEASSET+29
>> RAIMGTYI EN1+15, EN1+28
RAINA INACOM+7~*, INACOM+8
RAL USUAL+8~, USUAL+9*, USUAL+10*, USUAL+11, USUAL+13, RANGE+5~, RANGE+7*, RANGE+8*, RANGE+9
RAMSG INACOM+9~, INACOM+14
RAMSG(1 INACOM+10*
RAMSG(2 INACOM+11*
RAMSG(3 INACOM+12*
RAMSG(4 INACOM+13*
RAMSG(5 INACOM+14*
RAMSG(6 INACOM+14*
RAPARENT EN1+19*, EN1+21, EN1+32, EN1+35, EN1+37!
RAPFLG EN1+21*, EN1+35, EN1+37!
RARRY USUAL+12~, USUAL+14
RARRY(1 USUAL+12*, USUAL+13*
RAUTH MEDOSE+10~*, MEDOSE+14
RAX USUAL~, USUAL+7, USUAL+11, PRIDXIXK+4~, PRIDXIXK+5*, PRIDXIXK+8, AEASSET~, AEASSET+23, AEASSET+29, AEASSET+32
RAXREF AEASSET~, AEASSET+31, AEASSET+32
RAY MEDOSE~, MEDOSE+6, MEDOSE+7, MEDOSE+8, MEDOSE+9, MEDOSE+10, AEASSET+23~*, AEASSET+24, AEASSET+29, AEASSET+30
RAY2 AEASSET+23~, AEASSET+24*, AEASSET+26
RAY3 AEASSET+23~, AEASSET+25*, AEASSET+31, AEKILL+4~*, AEKILL+5
U AEASSET+23, AEASSET+26, AEASSET+31
X PRIDXIXK~, PRIDXIXK+5
>> Y EN2+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All