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) ;19 Apr 2019 2:40 PM

Source Information

Source file <RAMAIN2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Radiology Nuclear Medicine 10 $$USUAL^RADD2  (TRKCMA,TRKCMB)^RAMAINU  CMINTEG^RAMAINU1  EN^RANPRO  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: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA COMMON 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
22 ; RA*5*127
EXIT
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+11, 21+28, 21+41, 21+46, 131+13, RESEQ+12, DELRADE+6
^DIK 21+35
^DIR 22+11
$$USUAL^RADD2 VRDIO+11
TRKCMA^RAMAINU 21+19
TRKCMB^RAMAINU 21+8
CMINTEG^RAMAINU1 21+17
EN^RANPRO 21+59
PROC^RAO7MFN 21+52, 131+19, 131+27
UPDATP^RAO7UTL 21+56
$$ORQUIK^RAORDU 21+52, 131+18, 131+26
^RAPERR 22+12
$$EN1^RAPSAPI VRDIO+13
EN1^RAUTL17 13+3
$$DT^XLFDT 21+40
MES^XPDUTL RESEQ+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !?5,"This record is currently being edited by another user."
  • Line Location: 2+16
Function Call: WRITE
  • Prompt: !?5,"Try again later!",$C(7)
  • Line Location: 2+17
Function Call: WRITE
  • Prompt: !?5,$C(7),"...no CPT code entered..."
  • Line Location: 21+26
Function Call: WRITE
  • Prompt: !?5,"...will change type to a 'broad' procedure.",!
  • Line Location: 21+27
Function Call: WRITE
  • Prompt: !?5,$C(7),"...no CPT code entered..."
  • Line Location: 21+33
Function Call: WRITE
  • Prompt: !?5,"...will delete the record at this time.",!
  • Line Location: 21+34
Function Call: WRITE
  • Prompt: !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7)
  • Line Location: 21+39
Function Call: WRITE
  • Prompt: !!?5,"...CPT code deleted because "_$S($P(RAPROC(0),U,6)="B":"Broad",1:"Parent")_" procedures",!?5,"should not have CPT codes.",!,$C(7)
  • Line Location: 21+47
Function Call: WRITE
  • Prompt: !
  • Line Location: 22+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:
    • 2+9
    • 131+3
Routine Call
  • DIE
  • Line Location:
    • 21+11
    • 21+28
    • 21+41
    • 21+46
    • 131+13
    • RESEQ+12
    • DELRADE+6
Routine Call
  • DIR
  • Line Location:
    • 22+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+43
^RAMIS( 2+14, 21+54, 131+6, 131+29
^RAMIS(71 - [#71] 21+2, 21+6, 21+12, 21+13, 21+20, 21+21, 21+37, 21+43, 21+56, 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+3!, 2+4!, 2+6, 2+10*, 21+1!, 21+61

Label References

Name Line Occurrences
$$LOW 131+12
131 131+30
DELRADE 21+20
END 2+6, 21+61, 21+62
EXIT 21+62, 22+11
Q13 13+3, 131+4, 131+7
RESEQ 131+4
VRDIO 21+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 21+25!, 21+32!, 21+45!, 21+49!, 131+22!, DELRADE+4!, DELRADE+8!
%X 21+49!, 131+22!, DELRADE+4!, DELRADE+8!
%Y 21+49!, 131+22!, DELRADE+4!, DELRADE+8!
C 21+25!, 21+32!, 21+49!, 131+22!
CNT RESEQ+1~, RESEQ+7*, RESEQ+11*
D 2+9!, 21+38!, 21+41!, 21+45!, 21+49!, 131+3!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
D0 21+25!, 21+32!, 21+38!, 21+41!, 21+45!, 21+49!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
D1 21+38!, 21+41!, 21+49!
DA 2+7!, 2+11*, 21+8, 21+28*, 21+35*, 21+38!, 21+40*, 21+41!, 21+45!, 21+46*
, 21+49!, 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+25!, 21+32!, 21+45!, 21+49!, 131+22!
DI 21+25!, 21+32!, 21+38!, 21+41!, 21+49!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DIC 2+7!, 2+8*, 2+9!, 21+38!, 21+41!, 21+45!, 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+11*, 21+25!, 21+28*, 21+38!, 21+40*, 21+41!, 21+45!, 21+46*, 21+49!, 131+13*
, 131+22!, RESEQ+1~, RESEQ+7*, DELRADE+4!, DELRADE+5*, DELRADE+8!
DIK 21+32!, 21+35*!, END+2!
DINUM 2+7!, 2+9!
DIR 21+60!, 22+1!, 22+11!
DIR("?" 22+4*, 22+5*, 22+6*, 22+7*, 22+8*, 22+9*, 22+10*
DIR("A" 22+3*
DIR("B" 22+2*
DIR(0 22+2*
>> DIRUT 22+11
DISYS Q13!, END+2!
DLAYGO 2+7!, 2+8*, 2+9!, 131*, 131+3!
DO 2+7!, 2+9!
DQ 21+25!, 21+32!, 21+38!, 21+41!, 21+45!, 21+49!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DR 21+11*, 21+25!, 21+28*, 21+32!, 21+38!, 21+40*, 21+41!, 21+45!, 21+46*, 21+49!
, 131+13*, 131+22!, RESEQ+1~, RESEQ+12*, DELRADE+4!, DELRADE+6*, DELRADE+8!
DT 21+3, 21+7, 21+22, 21+40
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+19, 21+60!
RACODE END+1!
RACPT 21+12*, END+1!
RACTIVE 2+3~, 21+1*, 21+2*, 21+3, 21+6*, 21+7, 21+21*, 21+22
RADA 2+11*, 2+14, 21+2, 21+6, 21+12, 21+13, 21+17, 21+19, 21+20, 21+21
, 21+28, 21+35, 21+37, 21+40, 21+43, 21+46, 21+54!, EXIT!, 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+1*, 21+52, 13+2~*, 131+19, 131+27
RAFILE 2+3~, 2+11*, 2+14, 21+3*, 21+52, 21+54, 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+49!
RAIMGTYI 13+2~, 13+3*, 131+12, RESEQ+8, RESEQ+10, SCRN713~, SCRN713+4
RALOW 13+2~, 131+12*
RAMATCH END+1!
RAMIS 21+49!
RAMIS713 13+2~
RAMIS713(0 131+14*, 131+18
RANEW 2+3~, 2+4*, 21+1*, 21+10, 21+59
RANEW71 2+4*, 2+13*, 21+1*, 21+24, 21+31, EXIT!, END+1!
RANEWPRO 2+3~
RANM END+1!
RANUC VRDIO+7~
RANUC(0 VRDIO+9*, VRDIO+10, VRDIO+11, VRDIO+13
RAPNM 21+5*, 21+13!
RAPROC 21+49!
RAPROC(0 21+13*, 21+17, 21+20, 21+24, 21+31, 21+37, 21+43, 21+44, 21+47
RAPROIEN END+1!
RAPTY 2+5~
RAROUTE 2+5~
RARRY VRDIO+12~, VRDIO+14
RARRY(1 VRDIO+12*, VRDIO+13*
RARRY(2 VRDIO+14*
RASEED 2+3~
RASEQTXT DICW713+3~*, DICW713+4
RASTAT 2+3~, 21+3*, 21+7*, 21+22*, 21+37, 21+41*, 21+52, 13+2~, 131+11*, 131+12
, 131+19*, 131+20*, 131+23*, 131+26, 131+27
RATRKCMA 2+7!, 21+19, 21+60!
RATRKCMB 2+7!, 21+8, 21+19, 21+60!
RATYPE 21+59, END+1!
RAX DICW713~, DICW713+3
RAXIT 2+3~, 2+4*, 2+6, 2+17*, 21+1*
RAY 2+3~, 2+11*, 21+3*, 21+52, 21+56, 13+2~, 131+6*, 131+18, 131+19, 131+20*
, 131+23, 131+27
RAYY 21+3, 21+59, END+1!
TXT RESEQ+1~, RESEQ+17
TXT(1 RESEQ+3*
TXT(2 RESEQ+4*, RESEQ+16*
U 2+13, 21+5, 21+12, 21+24, 21+31, 21+37, 21+41, 21+43, 21+44, 21+47
, SCRN713+4
X 21+49!, EXIT!, 131+3!, 131+22!, RESEQ+1~, LOW~, LOW+7, DELRADE+4!, DELRADE+8!
>> XPDNM RESEQ+2, RESEQ+12, RESEQ+15
Y 2+10, 2+11, 2+13, 21+49!, 22+12, EXIT!, 13+3, 131+4, 131+6, 131+22!
, DELRADE+4!, DELRADE+8!, SCRN713~, SCRN713+4
Y(0 21+5, 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