source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RANMPRT1.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1RANMPRT1 ;HISC/SWM-Nuclear Medicine Set-up file Lists ;5/22/97 09:51
2 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
3ROUTE ; 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
8SITE ; 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
13SOURCE ; 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
18LOT ; 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
24132 ; Issue message to send to a device with a 132 column output.
25 W !,"This report requires a 132 column output device."
26 Q
Note: See TracBrowser for help on using the repository browser.