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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAUTL18

Package: Radiology Nuclear Medicine

Routine: RAUTL18


Information

RAUTL18 ;HISC/DAD,GJC-PROCEDURE FILE UTILITIES ;9/11/97 14:46

Source Information

Source file <RAUTL18.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 HOME^%ZIS  
Registration 1 ADD^VADPT  
VA Fileman 1 EN^DDIOL  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RACTQE  ^RAMIS(71.3  RACTOE6  

Entry Points

Name Comments DBIA/ICR reference
ILOC(X) ; Determines based on procedure I-Type if only one I-Loc is available
; for this user.
; To be called from: [RA OERR EDIT], [RA ORDER EXAM] and
; [RA QUICK EXAM ORDER] input templates. (File: 75.1)
; Input Variable: 'X'-> IEN of the procedure
; Output Variable: 'Y'-> $S(one I-Loc of proc. I-Type: IEN of I-Loc,1:0)
ADDRESS(RADA,DFN) ; Pass back the address of the patient for Print Label
; Fields.
; Input: RADA-ien of the print label field, DFN-patient ien
; Output: The street address of the patient.
; It can be the street address(123 Main Street), possibly followed by
; additional street address information such as 'P.O. Box' data, and
; finally the city, state, and zip code.
BCDE(X) ; Output data in a barcode format. 'X' is the data to be converted.
; RAIND1 & RAIND2 are newed in PRT^RAFLH. Used for indirection.
EN3(RADA) ; Displays the available sequence numbers for the current
EN1 ; TYPE OF PROCEDURE: Non-parent ==> Parent
; Is PROCEDURE a DESCENDENT? If it is KILL X
; Input: PROCEDURE file (#71) IEN (RAPROCD0)
EN2 ; TYPE OF PROCEDURE: Parent ==> Non-parent, delete DESCENDENTS
; Input: PROCEDURE file (#71) IEN (RAPROCD0)
EN(RAPROCD0,PROCTYPE) ;
; Check/delete DESCENDENT multiple when the TYPE OF PROCEDURE changes
; Input: PROCEDURE file (#71) IEN (RAPROCD0)
; New TYPE OF PROCEDURE value in internal format (PROCTYPE)

External References

Name Field # of Occurrence
HOME^%ZIS EN3+6
EN^DDIOL EN1+15, EN2+4
ADD^VADPT ADDRESS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,"Available Sequence Numbers for "_RAIMGTYJ_":"
  • Line Location: EN3+10
Function Call: WRITE
  • Prompt: !!?5,"The only valid sequence number for an Imaging Type of"
  • Line Location: EN3+23
Function Call: WRITE
  • Prompt: !?5,"'"_RAIMGTYJ_"' is: ",$P(RA0,"^",4)_".",!
  • Line Location: EN3+24
Function Call: WRITE
  • Prompt: !!?5,"There are no available sequence numbers.",!
  • Line Location: EN3+26
Function Call: WRITE
  • Prompt: !,$G(RA(RACNT))
  • Line Location: EN3+28
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+29
Function Call: WRITE
  • Prompt: !?5,"The current sequence number is: "_$P(RA0,"^",4)_"."
  • Line Location: EN3+30
Function Call: WRITE
  • Prompt: !?5,"The"_$S(+$P(RA0,"^",4)&(+$P(RA0,"^",4)<RAHIT):" next",1:"")
  • Line Location: EN3+32
Function Call: WRITE
  • Prompt: " lowest available sequence number is: ",RAHIT,!
  • Line Location: EN3+33
Routine Call
  • %ZIS
  • Line Location:
    • EN3+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(71.05 EN2+9, EN2+11
^DIC(5 - [#5] ADDRESS+17
^RA(78.7 - [#78.7] ADDRESS+7, ADDRESS+9, ADDRESS+12, ADDRESS+15
^RA(79.1 - [#79.1] ILOC+10, ILOC+11, ILOC+14
^RA(79.2 - [#79.2] EN3+7
^RAMIS(71 - [#71] EN1+5, EN1+6, EN2+3, EN2+6, EN2+7, EN2+13!, EN2+15!, ILOC+7, ILOC+9
^RAMIS(71.3 - [#71.3] EN3+8, EN3+12
^SC - [#44] ILOC+14

Label References

Name Line Occurrences
EN1 EN+5
EN2 EN+6

Naked Globals

Name Field # of Occurrence
^(2 EN2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 EN2+2~, EN2+10*
D1 EN2+2~, EN2+10*
DA EN2+2~, EN2+10*
DA(1 EN2+10*
DFN ADDRESS~, ADDRESS+7
>> IOBAROFF BCDE+4
>> IOBARON BCDE+4
IOM EN3+14
PROCTYPE EN~, EN+5, EN+6
RA EN3+6~, EN3+11*, EN3+12, EN3+13, EN3+14, EN3+18
RA( EN3+14, EN3+15*, EN3+18*, EN3+20*, EN3+28
RA0 EN3+6~, EN3+8*, EN3+22, EN3+24, EN3+29, EN3+30, EN3+32
RA791 ILOC+8~, ILOC+9*, ILOC+10*, ILOC+11, ILOC+12
RABBR ADDRESS+17~*, ADDRESS+18
>> RACCESS EN3+3
RACNT EN1+3~, EN1+4*, EN1+7*, EN1+10, EN3+6~, EN3+8*, EN3+14, EN3+15, EN3+16*, EN3+18
, EN3+20, EN3+28*, BCDE+2*, BCDE+3, BCDE+5, BCDE+7, ILOC+8~, ILOC+9*, ILOC+10, ILOC+12*
, ILOC+14, ILOC+15
RADA EN3~, EN3+8, ADDRESS~, ADDRESS+7, ADDRESS+9, ADDRESS+12, ADDRESS+15
RADESCD0 EN2+2~, EN2+5*, EN2+6*, EN2+7, EN2+10, EN2+13
RAEXIT EN1+3~, EN1+4*, EN1+9*, EN1+17
RAFDA EN2+2~
RAFLG EN3+6~, EN3+7*
RAHIT EN3+6~, EN3+7*, EN3+13*, EN3+20, EN3+21, EN3+32, EN3+33
>> RAIMGTYI EN3+5, EN3+7, EN3+12
RAIMGTYJ EN3+6~, EN3+7*, EN3+10, EN3+24
>> RAIND1( BCDE+3*, BCDE+5*, BCDE+7*
>> RAIND2 BCDE+3*, BCDE+5*, BCDE+7*, BCDE+8
RALOWER EN3+6~, EN3+9*, EN3+11
>> RAMDIV EN3+3
>> RAMDV EN3+3
>> RAMLC EN3+3
RAPARENT EN1+3~, EN1+4*, EN1+5*, EN1+6
RAPARENT(0 EN1+6*, EN1+7
>> RAPROC EN2+7*, EN2+10
RAPROCD0 EN~, EN1+5, EN2+3, EN2+6, EN2+7, EN2+10, EN2+13, EN2+15
RAPROI ILOC+8~, ILOC+9*, ILOC+10
RASAV ILOC+8~, ILOC+12*, ILOC+14, ILOC+15
RATXT EN1+3~, EN1+15, EN2+2~
RATXT( EN1+7*, EN1+10*
RATXT(0 EN1+9
RATXT(1 EN1+11*
RATXT(2 EN1+12*
RATXT(3 EN1+13*
RATXT(4 EN1+14*
RAUPPER EN3+6~, EN3+9*, EN3+11
RAXREF EN2+2~, EN2+8*, EN2+9*, EN2+11
U EN1+6, EN2+7
VAERR ADDRESS+8~
VAPA ADDRESS+8~
VAPA(1 ADDRESS+10
VAPA(11 ADDRESS+19
VAPA(2 ADDRESS+13
VAPA(3 ADDRESS+13
VAPA(4 ADDRESS+18
VAPA(5 ADDRESS+17, ADDRESS+18
VAPA(6 ADDRESS+19
X EN1+3~, EN2+2~, EN2+10*, BCDE~, BCDE+3, BCDE+5, ILOC~, ILOC+6, ILOC+7, ILOC+9
, ADDRESS+8~*, ADDRESS+10*, ADDRESS+13*, ADDRESS+18*, ADDRESS+19*, ADDRESS+21
Y EN1+3~, EN2+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All