| 1 | RANMPRT1 ;HISC/SWM-Nuclear Medicine Set-up file Lists ;5/22/97 09:51
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | ROUTE ; Route of Administration List - file 71.6
|
|---|
| 4 | S DIC="^RAMIS(71.6,",L=0,DHD="ROUTE OF ADMINISTRATION"
|
|---|
| 5 | S FLDS=".01;L30,100,""(synonym)"",.01;"""";L30,,2,.01;30;""SITES OF ADMIN"",,3;L5;""PROMPT"""
|
|---|
| 6 | S FR="",TO="",BY=".01" D EN1^DIP K POP
|
|---|
| 7 | Q
|
|---|
| 8 | SITE ; Site of Administration List - file 71.7
|
|---|
| 9 | S DIC="^RAMIS(71.7,",L=0,DHD="SITE OF ADMINISTRATION"
|
|---|
| 10 | S FLDS=".01;L30,100,.01;L30;""(SYNONYM)"""
|
|---|
| 11 | S FR="",TO="",BY=".01" D EN1^DIP K POP
|
|---|
| 12 | Q
|
|---|
| 13 | SOURCE ; Vendor/Source List - file 71.8
|
|---|
| 14 | S DIC="^RAMIS(71.8,",L=0,DHD="RADIOPHARMACEUTICAL SOURCE"
|
|---|
| 15 | S FLDS=".01;L30"
|
|---|
| 16 | S FR="",TO="",BY=".01" D EN1^DIP K POP
|
|---|
| 17 | Q
|
|---|
| 18 | LOT ; Lot No. List - file 71.9
|
|---|
| 19 | S DIC="^RAMIS(71.9,",L=0,DHD="RADIOPHARMACEUTICAL LOT"
|
|---|
| 20 | S FLDS=".01;L30,5;L40;""RADIOPHARMACEUTICAL"",4;L15,3;L19,6;L3"
|
|---|
| 21 | S FR(1)="@",FR(2)="@",TO="",BY="2;S,5"
|
|---|
| 22 | D 132,EN1^DIP K POP
|
|---|
| 23 | Q
|
|---|
| 24 | 132 ; Issue message to send to a device with a 132 column output.
|
|---|
| 25 | W !,"This report requires a 132 column output device."
|
|---|
| 26 | Q
|
|---|
