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) ;8/15/05 10:07am

Source Information

Source file <RAMAIN2.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA COMMON PROCEDURE  RA PROCEDURE  

Entry Points

Name Comments DBIA/ICR reference
13 ;;Rad/Nuc Med Common Procedure File Enter/Edit
; RA COMMON PROCEDURE option
RESEQ ;Resequence the common procedure list
DELRADE(RADA) ; Delete the Default Radiopharmaceuticals multiple
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.
131
2 ;;Procedure Enter/Edit
; *** This subroutine once resided in RAMAIN i.e, '2^RAMAIN'. ***
; RA PROCEDURE option
EXIT
Q13
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.

External References

Name Field # of Occurrence
EN^DDIOL VRDIO+7, VRDIO+14
^DIC 2+9, 131+3
^DIE 2+24, 2+40, 2+53, 2+58, 131+13, RESEQ+12, DELRADE+6
^DIK 2+47
^DIR 2+81
$$USUAL^RADD2 VRDIO+11
TRKCMA^RAMAINU 2+31
TRKCMB^RAMAINU 2+22
CMINTEG^RAMAINU1 2+29
PROC^RAO7MFN 2+64, 131+19, 131+27
UPDATP^RAO7UTL 2+68
$$ORQUIK^RAORDU 2+64, 131+18, 131+26
^RAPERR 2+82
$$EN1^RAPSAPI VRDIO+13
EN1^RAUTL17 13+3
$$DT^XLFDT 2+52
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: 2+38
Function Call: WRITE
  • Prompt: !?5,"...will change type to a 'broad' procedure.",!
  • Line Location: 2+39
Function Call: WRITE
  • Prompt: !?5,$C(7),"...no CPT code entered..."
  • Line Location: 2+45
Function Call: WRITE
  • Prompt: !?5,"...will delete the record at this time.",!
  • Line Location: 2+46
Function Call: WRITE
  • Prompt: !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7)
  • Line Location: 2+51
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: 2+59
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+81
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
  • DIE
  • Line Location:
    • 2+24
    • 2+40
    • 2+53
    • 2+58
    • 131+13
    • RESEQ+12
    • DELRADE+6
Routine Call
  • DIC
  • Line Location:
    • 2+9
    • 131+3
Routine Call
  • DIR
  • Line Location:
    • 2+81

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] 2+55
^RAMIS( 2+14, 2+66, 131+6, 131+29
^RAMIS(71 - [#71] 2+20, 2+25, 2+32, 2+33, 2+49, 2+55, 2+68, VRDIO+8, VRDIO+9, DELRADE+3
^RAMIS(71.3 - [#71.3] 131+14, 131+20, 131+23, RESEQ+8, RESEQ+10, LOW+7

Label References

Name Line Occurrences
$$LOW 131+12
131 131+30
DELRADE 2+32
EXIT 2+81
Q13 13+3, 131+4, 131+7
RESEQ 131+4
VRDIO 2+55

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 2+37!, 2+44!, 2+57!, 2+61!, 131+22!, DELRADE+4!, DELRADE+8!
%X 2+61!, 131+22!, DELRADE+4!, DELRADE+8!
%Y 2+61!, 131+22!, DELRADE+4!, DELRADE+8!
C 2+37!, 2+44!, 2+61!, 131+22!
CNT RESEQ+1~, RESEQ+7*, RESEQ+11*
D 2+9!, 2+10!, 2+50!, 2+53!, 2+57!, 2+61!, 131+3!, 131+22!, RESEQ+1~, DELRADE+4!
, DELRADE+8!
D0 2+37!, 2+44!, 2+50!, 2+53!, 2+57!, 2+61!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
D1 2+50!, 2+53!, 2+61!
DA 2+7!, 2+11*, 2+22, 2+40*, 2+47*, 2+50!, 2+52*, 2+53!, 2+57!, 2+58*
, 2+61!, 131+13*, 131+22!, RESEQ+1~, RESEQ+11*, DELRADE+4!, DELRADE+5*, DELRADE+8!
DA(1 DELRADE+5*
DD 2+7!, 2+9!
DDC Q13!
DDH Q13!
DE 2+37!, 2+44!, 2+57!, 2+61!, 131+22!
DI 2+37!, 2+44!, 2+50!, 2+53!, 2+61!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DIC 2+7!, 2+8*, 2+9!, 2+50!, 2+53!, 2+57!, 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 2+24*, 2+37!, 2+40*, 2+50!, 2+52*, 2+53!, 2+57!, 2+58*, 2+61!, 131+13*
, 131+22!, RESEQ+1~, RESEQ+7*, DELRADE+4!, DELRADE+5*, DELRADE+8!
DIK 2+44!, 2+47*!
DINUM 2+7!, 2+9!
DIR 2+71!, 2+81!
DIR("?" 2+74*, 2+75*, 2+76*, 2+77*, 2+78*, 2+79*, 2+80*
DIR("A" 2+73*
DIR("B" 2+72*
DIR(0 2+72*
>> DIRUT 2+81
DISYS Q13!
DLAYGO 2+7!, 2+8*, 2+9!, 131*, 131+3!
DO 2+7!, 2+9!
DQ 2+37!, 2+44!, 2+50!, 2+53!, 2+57!, 2+61!, 131+22!, RESEQ+1~, DELRADE+4!, DELRADE+8!
DR 2+24*, 2+37!, 2+40*, 2+44!, 2+50!, 2+52*, 2+53!, 2+57!, 2+58*, 2+61!
, 131+13*, 131+22!, RESEQ+1~, RESEQ+12*, DELRADE+4!, DELRADE+6*, DELRADE+8!
DT 2+21, 2+34, 2+52
H RESEQ+1~
I Q13!, RESEQ+1~, RESEQ+7*, RESEQ+8*, RESEQ+10, RESEQ+11~
J RESEQ+1~, RESEQ+9*, RESEQ+10*, RESEQ+11~
POP Q13!
RA LOW+5~, LOW+6*, LOW+7, LOW+8
RA713 Q13!
RAASK 2+5~
RACMDIFF 2+7!, 2+31, 2+71!
RACTIVE 2+3~, 2+20*, 2+21, 2+33*, 2+34
RADA 2+11*, 2+14, 2+20, 2+25, 2+29, 2+31, 2+32, 2+33, 2+40, 2+47
, 2+49, 2+52, 2+55, 2+58, 2+66!, 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*, 2+64, 13+2~*, 131+19, 131+27
RAFILE 2+3~, 2+11*, 2+14, 2+64, 2+66, 13+2~, 131+6*, 131+19, 131+27, 131+29
RAHIT LOW+5~*, LOW+6, LOW+8*, LOW+10
RAIMAG 2+61!
RAIMGTYI 13+2~, 13+3*, 131+12, RESEQ+8, RESEQ+10
RALOW 13+2~, 131+12*
RAMIS 2+61!
RAMIS713 13+2~
RAMIS713(0 131+14*, 131+18
RANEW71 2+4*, 2+13*, 2+36, 2+43, EXIT!
RANUC VRDIO+7~
RANUC(0 VRDIO+9*, VRDIO+10, VRDIO+11, VRDIO+13
RAPNM 2+19*, 2+25!
RAPROC 2+61!
RAPROC(0 2+25*, 2+29, 2+32, 2+36, 2+43, 2+49, 2+55, 2+56, 2+59
RAPTY 2+5~
RAROUTE 2+5~
RARRY VRDIO+12~, VRDIO+14
RARRY(1 VRDIO+12*, VRDIO+13*
RARRY(2 VRDIO+14*
RASTAT 2+3~, 2+21*, 2+34*, 2+49, 2+53*, 2+64, 13+2~, 131+11*, 131+12, 131+19*
, 131+20*, 131+23*, 131+26, 131+27
RATRKCMA 2+7!, 2+31, 2+71!
RATRKCMB 2+7!, 2+22, 2+31, 2+71!
RAXIT 2+3~, 2+4*, 2+6, 2+10*, 2+17*
RAY 2+3~, 2+11*, 2+64, 2+68, 13+2~, 131+6*, 131+18, 131+19, 131+20*, 131+23
, 131+27
TXT RESEQ+1~, RESEQ+17
TXT(1 RESEQ+3*
TXT(2 RESEQ+4*, RESEQ+16*
U 2+13, 2+19, 2+36, 2+43, 2+49, 2+53, 2+55, 2+56, 2+59
X 2+10!, 2+61!, 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, 2+61!, 2+82, EXIT!, 13+3, 131+4, 131+6, 131+22!
, DELRADE+4!, DELRADE+8!
Y(0 2+19, 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