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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RAMAIN2

Package: Radiology Nuclear Medicine

Routine: RAMAIN2


Information

RAMAIN2 ;HISC/GJC - Radiology Utility File Maintenance (Part Two) ; Jan 24, 2024@13:27:08

Source Information

Source file <RAMAIN2.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Radiology Nuclear Medicine 9 $$USUAL^RADD2  (TRKCMA,TRKCMB)^RAMAINU  CMINTEG^RAMAINU1  PROC^RAO7MFN  UPDATP^RAO7UTL  $$ORQUIK^RAORDU  ^RAPERR  $$EN1^RAPSAPI  
EN1^RAUTL17  
VA FileMan 5 EN^DDIOL  ^DIC  ^DIE  ^DIK  ^DIR  
Kernel 2 $$DT^XLFDT  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: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA COMMON PROCEDURE  RA PROCEDURE  RANPRO  

Entry Points

Name Comments DBIA/ICR reference
2 ;;Procedure Enter/Edit
; *** This subroutine once resided in RAMAIN i.e, '2^RAMAIN'. ***
; RA PROCEDURE option
21 ;ENTRY POINT FROM RANPRO, RA*5.0*127 (de-activation of LOINC) RA5p208
13 ;;Rad/Nuc Med Common Procedure File Enter/Edit
; RA COMMON PROCEDURE option RA5P158
131
Q13
RESEQ ;Resequence the common procedure list
LOW(X) ; Find the lowest available sequence number for a procedure within
; a specific Imaging Type. Seq. #'s range from 1 to 40. If the
; range changes in the DD i.e, ^DD(71.3,3, this code as well as the
; code if EN3^RAUTL18 must also be altered.
; If RAHIT is passed back as "", there is no available sequence number.
VRDIO(RADA) ; Validate the 'Usual Dose' field within the 'Default Radiopha-
; rmaceuticals' multiple. 'Usual Dose' must fall within the 'Low Adult
; Dose' & 'High Adult Dose' range. This subroutine will display the
; Radiopharmaceutical in question along with the values in question if
; inconsistencies are found.
DELRADE(RADA) ; Delete the Default Radiopharmaceuticals multiple
END ;KILL LOGIC AND END ROUTINE
SCRN713(Y,RAIMGTYI) ;screen common procedures by i-type
DICW713(RAX) ;display the sequence number or a message is the sequence

External References

Name Field # of Occurrence
EN^DDIOL VRDIO+7, VRDIO+14
^DIC 2+9, 131+3
^DIE 21+8, 21+25, 21+38, 21+43, 131+13, RESEQ+12, DELRADE+6
^DIK 21+32
^DIR 21+73
$$USUAL^RADD2 VRDIO+11
TRKCMA^RAMAINU 21+16
TRKCMB^RAMAINU 21+5
CMINTEG^RAMAINU1 21+14
PROC^RAO7MFN 21+49, 131+19, 131+27
UPDATP^RAO7UTL 21+53
$$ORQUIK^RAORDU 21+49, 131+18, 131+26
^RAPERR 21+74
$$EN1^RAPSAPI VRDIO+13
EN1^RAUTL17 13+3
$$DT^XLFDT 21+37
MES^XPDUTL RESEQ+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 21+73
Function Call: WRITE
  • Prompt: !
  • Line Location: 131+3
Function Call: WRITE
  • Prompt: !?5,"This record is currently being edited by another user."
  • Line Location: 131+8
Function Call: WRITE
  • Prompt: !?5,"Try again later!",$C(7)
  • Line Location: 131+9
Function Call: WRITE
  • Prompt: !!?5,"Resequencing the Rad/Nuc Med Common Procedure List"
  • Line Location: RESEQ+6
Function Call: WRITE
  • Prompt: " Done!"
  • Line Location: RESEQ+19
Function Call: WRITE
  • Prompt: !!?3,"Deleting default radiopharmaceuticals for this procedure...",!
  • Line Location: DELRADE+2
Routine Call
  • DIC
  • Line Location:
    • 2+9
    • 131+3
Routine Call
  • DIE
  • Line Location:
    • 21+8
    • 21+25
    • 21+38
    • 21+43
    • 131+13
    • RESEQ+12
    • DELRADE+6
Routine Call
  • DIR
  • Line Location:
    • 21+73

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls
^RAMIS(71.3 - [#71.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] 21+40
^RAMIS( 2+15, 21+51, 131+6, 131+29
^RAMIS(71 - [#71] 21+2, 21+9, 21+10, 21+17, 21+18, 21+34, 21+40, 21+53, VRDIO+8, VRDIO+9
, DELRADE+3, SCRN713+4
^RAMIS(71.3 - [#71.3] 131+14, 131+20, 131+23, RESEQ+8, RESEQ+10, LOW+7
^XTMP("RAMAIN4" 2+4!

Label References

Name Line Occurrences
$$LOW 131+12
131 131+30
DELRADE 21+17
Q13 13+3, 131+4, 131+7
RESEQ 131+4
VRDIO 21+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 21+22!, 21+29!, 21+42!, 21+46!, 131+22!, DELRADE+4!, DELRADE+8!
%X 21+46!, 131+22!, DELRADE+4!, DELRADE+8!
%Y 21+46!, 131+22!, DELRADE+4!, DELRADE+8!
C 21+22!, 21+29!, 21+46!, 131+22!
CNT RESEQ+1~, RESEQ+7*, RESEQ+11*
D 2+9!, 21+35!, 21+38!, 21+42!, 21+46!, 131+3!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
D0 21+22!, 21+29!, 21+35!, 21+38!, 21+42!, 21+46!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
D1 21+35!, 21+38!, 21+46!
DA 2+7!, 2+11*, 21+5, 21+25*, 21+32*, 21+35!, 21+37*, 21+38!, 21+42!, 21+43*
21+46!, 131+13*, 131+22!, RESEQ+1~, RESEQ+11*, DELRADE+4!, DELRADE+5*, DELRADE+8!, END+2!
DA(1 DELRADE+5*
DD 2+7!, 2+9!
DDC Q13!, END+2!
DDH Q13!, END+2!
DE 21+22!, 21+29!, 21+42!, 21+46!, 131+22!
DI 21+22!, 21+29!, 21+35!, 21+38!, 21+46!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DIC 2+7!, 2+8*, 2+9!, 21+35!, 21+38!, 21+42!, 131*, 131+3!, RESEQ+1~, DELRADE+4!
, DELRADE+8!
DIC("DR" 2+8*
DIC("S" 131+1*
DIC("W" 131+2*
DIC(0 2+8*, 131*
DIE 21+8*, 21+22!, 21+25*, 21+35!, 21+37*, 21+38!, 21+42!, 21+43*, 21+46!, 131+13*
131+22!, RESEQ+1~, RESEQ+7*, DELRADE+4!, DELRADE+5*, DELRADE+8!
DIK 21+29!, 21+32*!, END+2!
DINUM 2+7!, 2+9!
DIR 21+63~, 21+73!
DIR("?" 21+66*, 21+67*, 21+68*, 21+69*, 21+70*, 21+71*, 21+72*
DIR("A" 21+65*
DIR("B" 21+64*
DIR(0 21+64*
DIROUT 21+63~
DIRUT 21+63~, 21+73
DISYS Q13!, END+2!
DLAYGO 2+7!, 2+8*, 2+9!, 131*, 131+3!
DO 2+7!, 2+9!
DQ 21+22!, 21+29!, 21+35!, 21+38!, 21+42!, 21+46!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DR 21+8*, 21+22!, 21+25*, 21+29!, 21+35!, 21+37*, 21+38!, 21+42!, 21+43*, 21+46!
131+13*, 131+22!, RESEQ+1~, RESEQ+12*, DELRADE+4!, DELRADE+6*, DELRADE+8!
DT 21+3, 21+4, 21+19, 21+37
DTOUT 21+63~
DUOUT 21+63~
H RESEQ+1~
I Q13!, RESEQ+1~, RESEQ+7*, RESEQ+8*, RESEQ+10, RESEQ+11~, END+2!
J RESEQ+1~, RESEQ+9*, RESEQ+10*, RESEQ+11~
POP Q13!, END+2!
RA LOW+5~, LOW+6*, LOW+7, LOW+8
RA713 Q13!, END+2!
RAASK 2+5~
RACMDIFF 2+7!, 21+16
RACODE END+1!
RACPT 21+9*, END+1!
RACTIVE 2+3~, 21+2*, 21+3, 21+4, 21+18*, 21+19
RADA 2+3~, 2+11*, 2+15, 21+2, 21+9, 21+10, 21+14, 21+16, 21+17, 21+18
21+25, 21+32, 21+34, 21+37, 21+40, 21+43, 21+51, 13+2~, 131+6*, 131+13
131+14, 131+20, 131+29, VRDIO~, VRDIO+7*, VRDIO+8*, VRDIO+9, VRDIO+11, DELRADE~, DELRADE+3
, DELRADE+5
RADA(1 VRDIO+7*, VRDIO+8, VRDIO+9
RADA1 DELRADE+1~*, DELRADE+3*, DELRADE+5
RADIO 2+5~
RAENALL 2+3~, 2+4*, 21+49, 13+2~*, 131+19, 131+27
RAFILE 2+3~, 2+11*, 2+15, 21+49, 21+51, 13+2~, 131+6*, 131+19, 131+27, 131+29
RAGOLD END+1!
RAHIT LOW+5~*, LOW+6, LOW+8*, LOW+10
RAIEN 2+3~
RAIMAG 21+46!
RAIMGTYI 13+2~, 13+3*, 131+12, RESEQ+8, RESEQ+10, SCRN713~, SCRN713+4
RALOW 13+2~, 131+12*
RAMATCH END+1!
RAMIS 21+46!
RAMIS713 13+2~
RAMIS713(0 131+14*, 131+18
RANEW 2+3~, 2+4*
RANEW71 2+3~, 2+4*, 2+14*, 21+21, 21+28, END+1!
RANM END+1!
RANUC VRDIO+7~
RANUC(0 VRDIO+9*, VRDIO+10, VRDIO+11, VRDIO+13
RAPNM 2+5~, 2+12*, 21+10!
RAPROC 21+46!
RAPROC(0 21+10*, 21+14, 21+17, 21+21, 21+28, 21+34, 21+40, 21+41, 21+44
RAPROIEN END+1!
RAPTY 2+5~
RAROUTE 2+5~
RARRY VRDIO+12~, VRDIO+14
RARRY(1 VRDIO+12*, VRDIO+13*
RARRY(2 VRDIO+14*
RASEQTXT DICW713+3~*, DICW713+4
RASTAT 2+3~, 21+3*, 21+4*, 21+19*, 21+34, 21+38*, 21+49, 13+2~, 131+11*, 131+12
131+19*, 131+20*, 131+23*, 131+26, 131+27
RATRKCMA 2+7!, 21+16
RATRKCMB 2+7!, 21+5, 21+16
RATYPE END+1!
RAX DICW713~, DICW713+3
RAXIT 2+3~, 2+4*, 2+18*
RAY 2+3~, 2+11*, 21+49, 21+53, 13+2~, 131+6*, 131+18, 131+19, 131+20*, 131+23
131+27
RAYY END+1!
TXT RESEQ+1~, RESEQ+17
TXT(1 RESEQ+3*
TXT(2 RESEQ+4*, RESEQ+16*
U 2+14, 21+9, 21+21, 21+28, 21+34, 21+38, 21+40, 21+41, 21+44, SCRN713+4
X 21+46!, 21+63~, 131+3!, 131+22!, RESEQ+1~, LOW~, LOW+7, DELRADE+4!, DELRADE+8!
>> XPDNM RESEQ+2, RESEQ+12, RESEQ+15
Y 2+9, 2+11, 2+14, 21+46!, 21+63~, 21+74, 13+3, 131+4, 131+6, 131+22!
, DELRADE+4!, DELRADE+8!, SCRN713~, SCRN713+4
Y(0 2+12, 131+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All