RASTREQN ;HIRMFO/GJC-Status Requirement check for Radiopharms ;11/18/97 15:13
Source file <RASTREQN.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 3 | RA EXAM EDIT RA STATUS CHANGE RASTREQ |
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RADPTN - [#70.2] | GETS^DIQ |
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 |
Name | Line Occurrences |
---|---|
$$TRAN | DISDEF+16 |
KVAL | VALDOS+19 |
Name | Field # of Occurrence |
---|---|
^( | VALDOS+28 |
>> | 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~ |