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~ |