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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RASTREQN

Package: Radiology Nuclear Medicine

Routine: RASTREQN


Information

RASTREQN ;HIRMFO/GJC-Status Requirement check for Radiopharms ;11/18/97 15:13

Source Information

Source file <RASTREQN.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 6

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~
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 |  Naked Globals |  Local Variables |  All