Routine: RASTREQN

Package	Total	Call Graph
Kernel	1	($$REPEAT,$$UP)^XLFSTR
VA Fileman	1	GETS^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RACTEX13 RACTEX17 RACTTK15 RACTTK16 RACTTK8 RASTREQ

Entry Points

Name	Comments	DBIA/ICR reference
KVAL
TRAN(X)	; Translate field name to a shorter length.
VALDOS(RALOW,RAHI,X,RABACKTO,RAGOTO,RALASTAG,RAWARN)	;validate drawn/dose ; Called from [RA STATUS CHANGE] and [RA EXAM EDIT] input templates. ; Validate the value for either : ; ACTIVITY DRAWN (fld 4, DD: 70.21) ; DOSE (fld 7, DD: 70.21) ; If there are limits on the Dosage, validate. ; If validate fails, ask user if the invalid value is to be accepted. ; If yes, proceed. ; If no, re-ask DOSE. ; Input: RAHI = Upper limit on dosage ; RALOW = Lower limit on dosage ; X = Value user input ; RABACKTO = Previous Line tag to loop back to if need re-ask ; RAGOTO = Default linetag to proceed to if within range ; RALASTAG = Last linetag in this edit template if early out ; RAWARN = display/not the warning msg -- 0=no, 1=yes
DISDEF(RADA)	; Display Radiopharmaceutical default data ; called from input templs: [RASTATUS CHANGE] and [RA EXAM EDIT] ; Input: RADA -> ien of the Nuc Med Exam Data record
NORADIO(RAPRI,RANXT72)	; This function will determine if Rpharm ; fields from the 'Nuc Med Exam Data' file [ ^RADPTN( ] will be asked. ; Input : 'RANXT72' -> .6 node of the 'Next' Exam Status ; : 'RAPRI' -> IEN of the procedure for this exam ; Output: '1' bypass Rpharm questions, else (0) ask
EN1(RADIO,RAJ)	; Check if all the required radiopharmaceutical data has ; been entered for this particular Examination Status. ; === Kills 'X' if the status cannot be updated === ; Input: 'RADIO' -> .5 node of the examination status (Radiopharms req) ; 'RAJ' -> 0 node of the examination

External References

Name	Field # of Occurrence
GETS^DIQ	DISDEF+5
$$REPEAT^XLFSTR	DISDEF+12
$$UP^XLFSTR	NORADIO+5, VALDOS+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISDEF+4
Function Call: WRITE	Prompt: !,$G(RADARY(70.21,RAIENS,RAFLDS,"E")) Line Location: DISDEF+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",$L($G(RADARY(70.21,RAIENS,RAFLDS,"E")))),! Line Location: DISDEF+12
Function Call: WRITE	Prompt: !,$G(^(I,0)) Line Location: VALDOS+28
Function Call: WRITE	Prompt: !,"This dose requires a written, dated and signed directive by" Line Location: VALDOS+31
Function Call: WRITE	Prompt: !,"a physician." Line Location: VALDOS+32
Function Call: WRITE	Prompt: !!?3,"Are you sure (Y/N)?: N//" Line Location: VALDOS+34
Function Call: WRITE	Prompt: !!?3,"Enter 'Yes' if this value is acceptable, or 'No' if this field is to be",!?3,"re-edited.",$C(7) Line Location: VALDOS+38

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RADPTN - [#70.2]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79 - [#79]	VALDOS+26, VALDOS+28
^RADPTN - [#70.2]	EN1+23, EN1+24, DISDEF+3
^RAMIS(71 - [#71]	EN1+15, NORADIO+9

Label References

Name	Line Occurrences
$$TRAN	DISDEF+16
KVAL	VALDOS+19

Naked Globals

Name	Field # of Occurrence
^(	VALDOS+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DIRUT	DISDEF+9
DTIME	VALDOS+34
I	VALDOS+27~, VALDOS+28
RA702	EN1+18~*, EN1+20, EN1+23, EN1+24
RA7021	EN1+19~, EN1+24*, EN1+26, EN1+28, EN1+29, EN1+31, EN1+35, EN1+37, EN1+38, EN1+40 , EN1+42, EN1+43, EN1+45, EN1+47, EN1+48, EN1+50, EN1+54, EN1+56, EN1+57
RABACKTO	VALDOS~, VALDOS+37, KVAL!
RACNT	EN1+19~, EN1+24, EN1+27, EN1+32, EN1+36, EN1+41, EN1+46, EN1+51, EN1+55
RADA	DISDEF~, DISDEF+3, DISDEF+5
RADARY	DISDEF+4~
RADARY(	DISDEF+6, DISDEF+9, DISDEF+11, DISDEF+12, DISDEF+16, DISDEF+19
RADEUC	DISDEF+4~, DISDEF+8, DISDEF+11, DISDEF+15, DISDEF+17, DISDEF+19, DISDEF+20
RADIO	EN1~, EN1+14, EN1+20, EN1+26, EN1+31, EN1+35, EN1+40, EN1+45, EN1+50, EN1+54
RAFLDS	DISDEF+4~, DISDEF+8, DISDEF+9, DISDEF+10, DISDEF+11, DISDEF+12, DISDEF+16, DISDEF+19
RAGOTO	VALDOS~, VALDOS+19, VALDOS+20, VALDOS+21, VALDOS+22, VALDOS+23, VALDOS+37, KVAL!
RAHI	VALDOS~, VALDOS+20, VALDOS+21, VALDOS+22, VALDOS+23
RAI	EN1+19~, EN1+23, EN1+24
RAIENS	DISDEF+4~, DISDEF+5, DISDEF+6, DISDEF+7, DISDEF+9, DISDEF+11, DISDEF+12, DISDEF+16, DISDEF+19
RAJ	EN1~, EN1+15, EN1+18
RALASTAG	VALDOS~, VALDOS+35, KVAL!
RALOW	VALDOS~, VALDOS+20, VALDOS+21, VALDOS+22, VALDOS+23
>> RAMDIV	VALDOS+26, VALDOS+28
>> RAMES1	EN1+21, EN1+27, EN1+28, EN1+29, EN1+32, EN1+33, EN1+36, EN1+37, EN1+38, EN1+41 , EN1+42, EN1+43, EN1+46, EN1+47, EN1+48, EN1+51, EN1+52, EN1+55, EN1+56, EN1+57
RAMES2	EN1+19~, EN1+25*, EN1+27, EN1+32, EN1+36, EN1+41, EN1+46, EN1+51, EN1+55
RANXT72	NORADIO~
RANXT72(	NORADIO+5, NORADIO+15
RAOPUT	DISDEF+4~, DISDEF+16*, DISDEF+17
RAPRI	NORADIO~, NORADIO+9
RAPROC	EN1+15~, NORADIO+9~
RAPROC(0	EN1+15*, EN1+16
RAPROC(2	NORADIO+9*, NORADIO+14
RAREQ	EN1+19~
RAWARN	VALDOS~, VALDOS+26, VALDOS+30, KVAL!
RAY	VALDOS+19~, VALDOS+20, VALDOS+21, VALDOS+22, VALDOS+23, VALDOS+24, VALDOS+25, VALDOS+35, VALDOS+37*, VALDOS+38 , KVAL+1
RAYN	VALDOS+19~, VALDOS+34, VALDOS+35, VALDOS+36, VALDOS+37
RAZ	EN1+19~, EN1+21, EN1+28, EN1+29, EN1+33, EN1+37, EN1+38, EN1+42, EN1+43, EN1+47* , EN1+48, EN1+52, EN1+56, EN1+57
X	EN1+21!, EN1+27!, EN1+33!, EN1+36!, EN1+41!, EN1+46!, EN1+52!, EN1+55!, DISDEF+4~, TRAN~ , TRAN+1, TRAN+2, TRAN+3, TRAN+4, TRAN+5, TRAN+6, VALDOS~, VALDOS+19, VALDOS+21, VALDOS+22 , VALDOS+23
Y	DISDEF+4~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASTREQN

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: