RANMPRT1 ;HISC/SWM-Nuclear Medicine Set-up file Lists ;5/22/97 09:51
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
ROUTE ; Route of Administration List - file 71.6
S DIC="^RAMIS(71.6,",L=0,DHD="ROUTE OF ADMINISTRATION"
S FLDS=".01;L30,100,""(synonym)"",.01;"""";L30,,2,.01;30;""SITES OF ADMIN"",,3;L5;""PROMPT"""
S FR="",TO="",BY=".01" D EN1^DIP K POP
Q
SITE ; Site of Administration List - file 71.7
S DIC="^RAMIS(71.7,",L=0,DHD="SITE OF ADMINISTRATION"
S FLDS=".01;L30,100,.01;L30;""(SYNONYM)"""
S FR="",TO="",BY=".01" D EN1^DIP K POP
Q
SOURCE ; Vendor/Source List - file 71.8
S DIC="^RAMIS(71.8,",L=0,DHD="RADIOPHARMACEUTICAL SOURCE"
S FLDS=".01;L30"
S FR="",TO="",BY=".01" D EN1^DIP K POP
Q
LOT ; Lot No. List - file 71.9
S DIC="^RAMIS(71.9,",L=0,DHD="RADIOPHARMACEUTICAL LOT"
S FLDS=".01;L30,5;L40;""RADIOPHARMACEUTICAL"",4;L15,3;L19,6;L3"
S FR(1)="@",FR(2)="@",TO="",BY="2;S,5"
D 132,EN1^DIP K POP
Q
132 ; Issue message to send to a device with a 132 column output.
W !,"This report requires a 132 column output device."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRANMPRT1 1078 printed Oct 16, 2024@18:38:03 Page 2
RANMPRT1 ;HISC/SWM-Nuclear Medicine Set-up file Lists ;5/22/97 09:51
+1 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
ROUTE ; Route of Administration List - file 71.6
+1 SET DIC="^RAMIS(71.6,"
SET L=0
SET DHD="ROUTE OF ADMINISTRATION"
+2 SET FLDS=".01;L30,100,""(synonym)"",.01;"""";L30,,2,.01;30;""SITES OF ADMIN"",,3;L5;""PROMPT"""
+3 SET FR=""
SET TO=""
SET BY=".01"
DO EN1^DIP
KILL POP
+4 QUIT
SITE ; Site of Administration List - file 71.7
+1 SET DIC="^RAMIS(71.7,"
SET L=0
SET DHD="SITE OF ADMINISTRATION"
+2 SET FLDS=".01;L30,100,.01;L30;""(SYNONYM)"""
+3 SET FR=""
SET TO=""
SET BY=".01"
DO EN1^DIP
KILL POP
+4 QUIT
SOURCE ; Vendor/Source List - file 71.8
+1 SET DIC="^RAMIS(71.8,"
SET L=0
SET DHD="RADIOPHARMACEUTICAL SOURCE"
+2 SET FLDS=".01;L30"
+3 SET FR=""
SET TO=""
SET BY=".01"
DO EN1^DIP
KILL POP
+4 QUIT
LOT ; Lot No. List - file 71.9
+1 SET DIC="^RAMIS(71.9,"
SET L=0
SET DHD="RADIOPHARMACEUTICAL LOT"
+2 SET FLDS=".01;L30,5;L40;""RADIOPHARMACEUTICAL"",4;L15,3;L19,6;L3"
+3 SET FR(1)="@"
SET FR(2)="@"
SET TO=""
SET BY="2;S,5"
+4 DO 132
DO EN1^DIP
KILL POP
+5 QUIT
132 ; Issue message to send to a device with a 132 column output.
+1 WRITE !,"This report requires a 132 column output device."
+2 QUIT
