| 1 | RTRAD ;MJK/TROY ISC;Radiology Specific Setup Menu; ; 4/9/87 12:39 PM ;
|
|---|
| 2 | ;;v 2.0;Record Tracking;;10/22/91
|
|---|
| 3 | D DT^DICRW S X=$T(+1),DIK="^DOPT("""_$P(X," ;",1)_""","
|
|---|
| 4 | G:$D(^DOPT($P(X," ;"),3)) A S ^DOPT($P(X," ;"),0)=$P(X,";",3)_"^1N^" F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT($P(X," ;"),I,0)=$P(Y,";",3,99)
|
|---|
| 5 | D IXALL^DIK
|
|---|
| 6 | A S X="RAD" D ^RTPSET Q:$D(XQUIT)
|
|---|
| 7 | W !! S DIC="^DOPT("""_$P($T(+1)," ;")_""",",DIC(0)="IQEAM" D ^DIC Q:Y<0 D @+Y G A
|
|---|
| 8 | ;
|
|---|
| 9 | 1 ;;Clinic Set-up
|
|---|
| 10 | G 1^RTMAS
|
|---|
| 11 | ;
|
|---|
| 12 | 2 ;;Imaging Area Set-up
|
|---|
| 13 | L2 D RA G Q:"^"[X D BOR^RTSYS:Y>0 G L2
|
|---|
| 14 | Q K DA,D0,DR,DIE,RTBO,X,Y,I Q
|
|---|
| 15 | RA W ! S DIC="^SC(",DIC("A")="Select Reception/Viewing/Rack Area: ",DIC(0)="IAEMLQ",DIC("DR")="2///I",DIC("S")="I $P(^(0),U,3)=""I""" D ^DIC K DIC Q:Y<0 D CHK^RTDPA3
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | 3 ;;Create a Temporary Folder
|
|---|
| 19 | Q
|
|---|
| 20 | ;DO NOT USE --- POSSIBLE FUTURE OPTION
|
|---|
| 21 | W ! S RTRD(1)="Wet Reading^create a wet reading folder",RTRD(2)="Exam^create an temporary exam folder",RTRD(3)="Outside^create an outside film folder",RTRD("B")=1,RTRD("A")="What kind of temporary folder you want to create? "
|
|---|
| 22 | D SET^RTRD K RTRD S X=$E(X) G Q3:X="^" S RTPCE=$S(X="W":"3^WET",X="E":"4^TEMPORARY",1:"5^OUTSIDE")
|
|---|
| 23 | I $S('$D(^DIC(195.4,1,"RAD")):1,'$D(^DIC(195.2,+$P(^("RAD"),"^",RTPCE),0)):1,1:0) W !!,*7,"'",$P(RTPCE,"^",2),"' folder is not defined in overall system parameter file." G Q3
|
|---|
| 24 | S Y=+$P(^DIC(195.4,1,"RAD"),"^",+RTPCE) I $S('$D(^DIC(195.2,Y,"I")):0,'^("I"):0,DT'>^("I"):0,1:1) W !!,*7,"The '",$P(^DIC(195.2,Y,0),"^"),"' record type is inactive." G Q3
|
|---|
| 25 | D TYPE1^RTUTL,^RTDPA1
|
|---|
| 26 | Q3 K RTPCE,RTTY Q
|
|---|
| 27 | ;
|
|---|
