| [613] | 1 | IMRSPRAM ;ISC-SF/JLI-SET UP SITE PARAMETERS ;7/10/98 08:24
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**3,8**;Feb 09, 1998
|
|---|
| 3 | Q
|
|---|
| 4 | IMR ;[IMR SPF ENTER/EDIT] - Enter/Edit Immunology Study Site Parameter
|
|---|
| 5 | I $O(^IMR(158.9,0))'>0 D STN I $O(^IMR(158.9,0))'>0 W !!,$C(7),"MUST HAVE A VALID STATION NUMBER FROM THE INSTITUTION FILE",!! G KILL
|
|---|
| 6 | I '$D(^XUSEC("IMRMGR",DUZ)) S IMRLOC="IMRSPRAM" D ACESSERR^IMRERR,H^XUS
|
|---|
| 7 | S IMRANS="",DA=1,DR=".07:1;4:10",DIE="^IMR(158.9,",DIE("P")=158.9 D ^DIE S:$D(DTOUT) IMRANS="^" G:IMRANS="^" KILL D LAB1
|
|---|
| 8 | D KILL
|
|---|
| 9 | Q
|
|---|
| 10 | LAB ;[IMR LAB TEST ENTRY] - Link Local Lab to National Lab File
|
|---|
| 11 | D LAB1,KILL Q
|
|---|
| 12 | LAB1 ; Enter/Edit Link Local Lab to National Lab File
|
|---|
| 13 | I $O(^IMR(158.9,0))'>0 D STN
|
|---|
| 14 | S IMRLFLG=1 F IMRI=0:0 S IMRI=$O(^IMR(158.95,IMRI)) Q:IMRI'>0 I '$D(^IMR(158.9,1,3,"B",IMRI)) S X=$P(^IMR(158.95,IMRI,0),U),DLAYGO=158.9,DIC(0)="ML",DIC="^IMR(158.9,1,3,",DA(1)=1,DIC("P")=158.93 D ^DIC
|
|---|
| 15 | K DIC,DIE,DA
|
|---|
| 16 | S IMRANS="" F IMRI=0:0 S DIC="^IMR(158.9,1,3,",DA(1)=1,DIC(0)="AEQM" D ^DIC S:$D(DTOUT)!($D(DUOUT)) IMRANS="^" Q:IMRANS="^"!(Y<1) S DA=+Y,DR="1;",DIE=DIC D ^DIE S:$D(DTOUT) IMRANS="^"
|
|---|
| 17 | K IMRLFLG,DIC,DIE,DA,DR
|
|---|
| 18 | Q
|
|---|
| 19 | STN ; Get/Create Station Number for Site Parameter file
|
|---|
| 20 | S DIC="^DIC(4,",DIC(0)="AEQM" D ^DIC
|
|---|
| 21 | Q:'Y K DIC S X=$P(Y,U,2),DIC="^IMR(158.9,",DLAYGO=158.9,DIC(0)="ML" D ^DIC,KILL
|
|---|
| 22 | Q
|
|---|
| 23 | KILL ; Kill variables used
|
|---|
| 24 | K DLAYGO,DIC,X,X1,DIE,DR,DA,DTOUT,DUOUT,IMRI,D1,IMRANS,IMRLOC,I,%,%H,D0,DI,DQ,Y,D,DISYS,%Y,POP
|
|---|
| 25 | Q
|
|---|
