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) ; May 31, 2024@14:28:03

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.
PRCEE ;PROCEDURE ENTER/EDIT subroutine
21 ;ENTRY POINT FROM RANPRO, RA*5.0*127 (de-activation of LOINC) RA5p208
VALIDITY ;Running validity check on CPT and stop codes.
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
KILLPRCEE ;kill procedure enter/edit variables... RA5P214

External References

Name Field # of Occurrence
EN^DDIOL VRDIO+7, VRDIO+14
^DIC PRCEE+10, 131+3
^DIE 21+8, 21+25, 21+38, 21+43, 131+13, RESEQ+12, DELRADE+6
^DIK 21+32
^DIR VALIDITY+11
$$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 VALIDITY+12
$$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: PRCEE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: VALIDITY+11
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:
    • PRCEE+10
    • 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:
    • VALIDITY+11

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( PRCEE+17, 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" PRCEE+5!

Label References

Name Line Occurrences
$$LOW 131+12
131 131+30
DELRADE 21+17
KILLPRCEE 2+10, PRCEE+2
PRCEE 2+3
Q13 13+3, 131+4, 131+7
RESEQ 131+4
VALIDITY 2+11
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!
%DT 2+10!, KILLPRCEE+5!
%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 PRCEE+10!, 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 PRCEE+13*, 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!, KILLPRCEE+4!
DA(1 DELRADE+5*
DD PRCEE+10!
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 PRCEE+9*, PRCEE+10!, 21+35!, 21+38!, 21+42!, 131*, 131+3!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DIC("DR" PRCEE+9*
DIC("S" 131+1*
DIC("W" 131+2*
DIC(0 PRCEE+9*, 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!
DILN 2+10!, KILLPRCEE+5!
DINUM PRCEE+10!
DIR VALIDITY+1~, VALIDITY+11!
DIR("?" VALIDITY+4*, VALIDITY+5*, VALIDITY+6*, VALIDITY+7*, VALIDITY+8*, VALIDITY+9*, VALIDITY+10*
DIR("A" VALIDITY+3*
DIR("B" VALIDITY+2*
DIR(0 VALIDITY+2*
DIROUT 2+10!, VALIDITY+1~
DIRUT 2+10!, VALIDITY+1~, VALIDITY+11
DISYS Q13!, END+2!
DIWT 2+10!, KILLPRCEE+5!
DLAYGO PRCEE+9*, PRCEE+10!, 131*, 131+3!
DN 2+10!, KILLPRCEE+5!
DO PRCEE+10!
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 2+10!, VALIDITY+1~
DUOUT 2+10!, VALIDITY+1~, KILLPRCEE+5!
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~, KILLPRCEE+5!
POP Q13!, END+2!
RA LOW+5~, LOW+6*, LOW+7, LOW+8
RA713 Q13!, END+2!
RAASK PRCEE+6~
RABINARY KILLPRCEE+5!
RACMDIFF 21+16, KILLPRCEE+5!
RACODE END+1!
RACPT 21+9*, END+1!
RACTIVE 21+2*, 21+3, 21+4, 21+18*, 21+19, KILLPRCEE+4!
RADA PRCEE+13*, PRCEE+17, 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
, KILLPRCEE+4!
RADA(1 VRDIO+7*, VRDIO+8, VRDIO+9
RADA1 DELRADE+1~*, DELRADE+3*, DELRADE+5
RADIO PRCEE+6~
RAENALL PRCEE+5*, 21+49, 13+2~*, 131+19, 131+27, KILLPRCEE+4!
RAEXC KILLPRCEE+4!
RAF71 KILLPRCEE+4!
RAFILE PRCEE+13*, PRCEE+17, 21+49, 21+51, 13+2~, 131+6*, 131+19, 131+27, 131+29, KILLPRCEE+4!
RAGOLD END+1!
RAHIT LOW+5~*, LOW+6, LOW+8*, LOW+10
RAIEN KILLPRCEE+4!
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 PRCEE+5*, KILLPRCEE+4!
RANEW71 PRCEE+5*, PRCEE+16*, 21+21, 21+28, END+1!, KILLPRCEE+4!
RANM END+1!
RANUC VRDIO+7~
RANUC(0 VRDIO+9*, VRDIO+10, VRDIO+11, VRDIO+13
RAOPTYP KILLPRCEE+5!
RAPNM PRCEE+6~, PRCEE+14*, 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 PRCEE+6~
RARMPF KILLPRCEE+4!
RAROUTE PRCEE+6~
RARRY VRDIO+12~, VRDIO+14
RARRY(1 VRDIO+12*, VRDIO+13*
RARRY(2 VRDIO+14*
RASEQTXT DICW713+3~*, DICW713+4
RASTAT 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, KILLPRCEE+4!
RATRKCMA 21+16, KILLPRCEE+5!
RATRKCMB 21+5, 21+16, KILLPRCEE+5!
RATYPE END+1!
RAX DICW713~, DICW713+3
RAXIT PRCEE+5*, PRCEE+20*, KILLPRCEE+4!
RAY PRCEE+13*, 21+49, 21+53, 13+2~, 131+6*, 131+18, 131+19, 131+20*, 131+23, 131+27
, KILLPRCEE+4!
RAY214 2+3*, PRCEE+10*, KILLPRCEE+5!
RAYY END+1!
TXT RESEQ+1~, RESEQ+17
TXT(1 RESEQ+3*
TXT(2 RESEQ+4*, RESEQ+16*
U PRCEE+16, 21+9, 21+21, 21+28, 21+34, 21+38, 21+40, 21+41, 21+44, SCRN713+4
X 21+46!, VALIDITY+1~, 131+3!, 131+22!, RESEQ+1~, LOW~, LOW+7, DELRADE+4!, DELRADE+8!, KILLPRCEE+5!
>> XPDNM RESEQ+2, RESEQ+12, RESEQ+15
Y PRCEE+10, PRCEE+11, PRCEE+13, PRCEE+16, 21+46!, VALIDITY+1~, VALIDITY+12, 13+3, 131+4, 131+6
, 131+22!, DELRADE+4!, DELRADE+8!, SCRN713~, SCRN713+4, KILLPRCEE+5!
Y(0 PRCEE+14, 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