Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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
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
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
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
KVAL

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call