Routine: RAUTL14

Information

RAUTL14 ;HISC/GJC-Utilities for message display. ;10/19/94 08:53

Source file <RAUTL14.m>

Package	Total	Call Graph
VA Fileman	2	EN^DDIOL ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	^RA(79.1 ^RAMIS(71

Name	Comments	DBIA/ICR reference
UNI30(RADA,RAX)	; Determines if the 1st 30 chars of a procedure name are unique. ; If not, do not allow the user to add or alter the current procedure. ; Don't allow characters ; ^ ; Called from the input transform in ^DD(71,.01,0) ; Pass back 1 if unique, 0 if a conflict. ; 'RA' ---> temporary variable to hold data ; 'RAX' ---> Input user wishes to enter/edit in ^RAMIS(71 ; 'RADA' ---> IEN of the current entry in ^RAMIS(71, ; The first 30 do not match any other entries first 30
EN1	; Message display. Called from the input transform of the
EN2	; Message display. Called from input transform of the

Name	Field # of Occurrence
EN^DDIOL	EN1+9, EN1+12, EN1+18, EN2+8, EN2+19, UNI30+17
^DIR	EN1+12

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.1 - [#79.1]	EN2+3
^RA(79.2 - [#79.2]	EN1+14
^RAMIS(71 - [#71]	UNI30+20, UNI30+27, UNI30+37
^RAMIS(71.3 - [#71.3]	EN2+11

Name	Field # of Occurrence
>> D0	EN2+11
DIR	EN1+3~
DIR("?"	EN1+11*
DIR("A"	EN1+10*
DIR(0	EN1+9*
DIROUT	EN1+3~
DIRUT	EN1+3~
DTOUT	EN1+3~
DUOUT	EN1+3~
RA1	UNI30+9~, UNI30+20*, UNI30+25
RA2	UNI30+9~, UNI30+27*, UNI30+28
RABEG	UNI30+9~
RAD0	EN2+10~, EN2+11*
RADA	UNI30~, UNI30+35, UNI30+37, UNI30+38
RAEND	UNI30+9~
RAFLG1	UNI30+9~, UNI30+10, UNI30+25, UNI30+35, UNI30+42
RAFLG2	UNI30+9~, UNI30+10, UNI30+28, UNI30+35, UNI30+42
RAI	UNI30+9~, UNI30+16*
RALEN	UNI30+9~
RALST	UNI30+9~
RAPCE	UNI30+9~, UNI30+37*, UNI30+38
RAQ	UNI30+9~, UNI30+15, UNI30+16, UNI30+17
RASEQ	EN2+10~, EN2+11*, EN2+12
RATXT	EN1+3~, EN1+9, EN1+14!, EN1+18, EN2+4~, EN2+8, EN2+13~, EN2+19
RATXT(1	EN1+4, EN1+15, EN2+4, EN2+13
RATXT(2	EN1+5, EN1+16, EN2+5, EN2+14
RATXT(3	EN1+6, EN1+17, EN2+6, EN2+15
RATXT(4	EN1+7, EN2+7, EN2+16*
RATXT(5	EN1+8, EN2+8, EN2+17*
RATXT(6	EN1+9, EN2+18
RATXT(7	EN2+19*
RAX	EN1+3~, EN1+4*, EN1+13, UNI30~, UNI30+16, UNI30+20, UNI30+25, UNI30+27, UNI30+28, UNI30+38
RAY	EN1+3~, EN1+4, EN1+13, UNI30+9~, UNI30+15, UNI30+16
RAYN	EN1+3~, EN1+12*, EN1+13
U	EN2+11
X	EN1+4!, EN1+12!, EN1+13*!, EN2+4~, EN2+12!, EN2+13~
Y	EN1+4!, EN1+12!, EN1+13*, EN1+14, EN2+3, EN2+4~, EN2+13~