RAPROD2 ;HIRMFO/GJC-Display Med & Radiopharm values for exams ;12/12/96 13:35
Source file <RAPROD2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PHARM(RADA) | ; Display Pharmaceutical default data for Exam displays
; Input: RADA -> ien for the Examinations (50) multiple. ; in the following format: RACNI_","_RADTI_","_RADFN_"," ; *** Called only if $O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"RX",0)) *** |
|
RDIO(RADA) | ; Display Radiopharmaceutical default data for Exam displays
; Input: RADA -> ien of the Nuc Med Exam Data record (file 70.2) ; *** Called only if $P(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0),U,28)>0 *** |
|
TRN1(X) | ; Translate Radiopharmaceutical field name to a shorter length.
|
|
HDR | ; Pharmaceutical/Radiopharmaceutical Header
|
|
CMHIST(RADFN,RADTI,RACNI) | ;main body
|
|
EXIT | ;clean up symbol table, message to user
|
|
CMHDR | ; print header
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
70.03 | GETS^DIQ |
^RADPTN - [#70.2] | GETS^DIQ |