RAPROD2 ;HIRMFO/GJC-Display Med & Radiopharm values for exams ;12/12/96 13:35
Source file <RAPROD2.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 3 | ($$GET1,GETS)^DIQ ^DIWP ^DIWW | 
| Kernel | 2 | $$FMTE^XLFDT $$CJ^XLFSTR | 
| Radiology Nuclear Medicine | 2 | $$CONTRAST^RACMHIS $$EOS^RAUTL5 | 
| Package | Total | Caller Graph | 
|---|---|---|
| Radiology Nuclear Medicine | 2 | RAPROD RAPROD1 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TRN1(X) | ; Translate Radiopharmaceutical field name to a shorter length. | |
| 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)) *** | |
| HDR | ; Pharmaceutical/Radiopharmaceutical Header | |
| 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 *** | |
| CMHDR | ; print header | |
| EXIT | ;clean up symbol table, message to user | |
| CMHIST(RADFN,RADTI,RACNI) | ;main body | 
| 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 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^RADPT - [#70] | CMHIST+10, CMHIST+11, CMHIST+13 | 
| ^UTILITY($J | CMHIST+20! | 
| Name | Line Occurrences | 
|---|---|
| $$TRN1 | RDIO+13 | 
| CMHDR | CMHIST+8, CMHIST+17, CMHIST+19 | 
| HDR | PHARM+19, RDIO+12 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DIWF | CMHIST+21* | 
| >> DIWL | CMHIST+21* | 
| >> DIWR | CMHIST+21* | 
| IOF | PHARM+7, RDIO+6, HDR+1, CMHIST+7, CMHDR+1 | 
| IOM | PHARM+6, RDIO+5, CMHIST+6, EXIT+2, CMHDR+2, CMHDR+4 | 
| IOSL | PHARM+7, PHARM+19, RDIO+6, RDIO+12, CMHIST+17, CMHIST+19 | 
| IOST | CMHIST+7 | 
| RA1 | PHARM+4~*, PHARM+9*, PHARM+11, PHARM+12, PHARM+15, PHARM+21, PHARM+26, PHARM+30 | 
| RAADT | CMHIST+14*, CMHIST+18, EXIT+3! | 
| RAAU | CMHIST+15*, CMHIST+18, EXIT+3! | 
| RACH2 | EXIT+3! | 
| RACHNG2 | EXIT+3! | 
| RACMDT | CMHIST+8*, CMHIST+10*, CMHIST+11, EXIT+4! | 
| RACMU | CMHIST+14*, CMHIST+16, EXIT+3! | 
| RACNI | CMHIST~, CMHIST+10, CMHIST+11, CMHIST+13 | 
| RACNT | PHARM+4~, PHARM+10*, PHARM+13*, PHARM+17*, PHARM+20*, PHARM+23*, PHARM+25*, PHARM+28*, RDIO+3~, RDIO+9* , RDIO+13*, RDIO+14, RDIO+15*, HDR+1* | 
| RADA | PHARM~, PHARM+5, RDIO~, RDIO+4 | 
| RADARY | RDIO+3~, RDIO+5 | 
| RADARY( | RDIO+8, RDIO+10, RDIO+11, RDIO+13, RDIO+17 | 
| RADFN | CMHIST~, CMHIST+10, CMHIST+11, CMHIST+13 | 
| RADTI | CMHIST~, CMHIST+10, CMHIST+11, CMHIST+13 | 
| RAFLDS | RDIO+3~, RDIO+9*, RDIO+10*, RDIO+11, RDIO+13 | 
| RAHD | CMHIST+5*, EXIT+3!, CMHDR+2 | 
| RAHDR | PHARM+4~, PHARM+6*, PHARM+8, RDIO+3~, RDIO+5*, RDIO+7, HDR+1 | 
| RAIEN | CMHIST+11*, CMHIST+13, EXIT+3! | 
| RAIENS | RDIO+3~, RDIO+4*, RDIO+8*, RDIO+10, RDIO+11, RDIO+13, RDIO+17 | 
| RALINE | CMHIST+6*, EXIT+3!, CMHDR+4 | 
| RAOPUT | RDIO+3~, RDIO+13*, RDIO+14 | 
| RAPG | CMHIST+7*, EXIT+3!, CMHDR+1* | 
| RAPHARM | PHARM+4~, PHARM+5 | 
| RAPHARM( | PHARM+9, PHARM+11, PHARM+12, PHARM+15, PHARM+21, PHARM+26, PHARM+30 | 
| RASUB | PHARM+4~*, PHARM+9, PHARM+11, PHARM+12, PHARM+15, PHARM+21, PHARM+26, PHARM+30 | 
| RAX | PHARM+16~*, PHARM+17, PHARM+22~*, PHARM+23, PHARM+27~*, PHARM+28 | 
| >> RAXIT | PHARM+4*, PHARM+7*, PHARM+9, PHARM+19*, RDIO+4*, RDIO+6*, RDIO+8, RDIO+10, RDIO+12*, CMHIST+8* , CMHIST+10, CMHIST+17*, CMHIST+19* | 
| RAY | EXIT+4! | 
| RAY(0 | CMHIST+13*, CMHIST+14, CMHIST+15, EXIT+2 | 
| U | CMHIST+14, CMHIST+15 | 
| X | RDIO+3~, TRN1~, TRN1+1, TRN1+2, TRN1+3, TRN1+4, TRN1+5, TRN1+6, CMHIST+5~, CMHIST+16* , CMHIST+18, CMHIST+20 | 
| Y | RDIO+3~ |