Routine: RABIRAD

Information

RABIRAD ;;HIOFO/SM BI-RADS processing ; 03/18/09 11:50

Source file <RABIRAD.m>

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RARTE5

Name	Comments	DBIA/ICR reference
WARN	;
ASK()	;
CKDATA	;check if case has any BIRAD data
EN1()	;called from ^DD(78.3,0,"ID","WRITE") node
CKREQ	; check if case requires at least one BIRAD code

Name	Field # of Occurrence
$$GET1^DIQ	EN1+6
^DIR	ASK+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"This exam cannot reach the 'COMPLETE' status until a BI-RADS code is entered.",! Line Location: WARN+1
Function Call: WRITE	Prompt: !!?5,"This case requires a BI-RADS code. It either had a BI-RADS code ",!?5,"that was deleted or never had one. Please use this option to ",!?5,"re-enter a BI-RADS code.",! Line Location: WARN+2
Routine Call	DIR Line Location: ASK+2

FileNo	Call Tags
^LEX(757.01 - [#757.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RA(73.2 - [#73.2]	CKREQ+5, CKREQ+6
^RA(78.3 - [#78.3]	CKDATA+8
^RADPT - [#70]	CKDATA+9, CKDATA+11
^RAMIS(71 - [#71]	CKREQ+4

Name	Line Occurrences
WARN	CKDATA+12

Name	Field # of Occurrence
^(	CKDATA+8
^(0	EN1+5, EN1+6, CKREQ+6

Name	Field # of Occurrence
DIR	ASK+2!
DIR("A"	ASK+1*
DIR("B"	ASK+2*
DIR(0	ASK+1*
RA2	EN1+4~, EN1+5, EN1+11, EN1+12
>> RA7003	CKREQ+3
RA732	CKREQ+1~, CKREQ+5*, CKREQ+6
>> RABIDAT	CKDATA+4, CKDATA+9, CKDATA+11*, CKDATA+12
>> RABIENS	CKDATA+3, CKDATA+8, CKDATA+9, CKDATA+11
>> RABIREQ	CKREQ+2, CKREQ+6, CKDATA+1
>> RACNI	CKDATA+9, CKDATA+11
RACPT	CKREQ+1~, CKREQ+4*, CKREQ+5
>> RADFN	CKDATA+9, CKDATA+11
>> RADTI	CKDATA+9, CKDATA+11
>> RAFIRST	WARN+1
RAPROC	CKREQ+1~, CKREQ+3*, CKREQ+4
RAX	EN1+4~, EN1+6, EN1+7, EN1+8, CKDATA+2~, CKDATA+7, CKDATA+8, CKDATA+10, CKDATA+11*
RAX2	CKDATA+2~, CKDATA+8*
RAY	EN1+4~, EN1+8, EN1+12, EN1+13
U	EN1+5, EN1+6, CKREQ+3, CKREQ+4, CKREQ+6, CKDATA+8, CKDATA+9
>> Y	EN1+11, ASK+3