MCMAG ;WISC/TJK-IMAGING LINK ;6/14/96 10:19
;;2.3;Medicine;;09/13/1996
MIM Q:$D(DTOUT)!$D(DUOUT)
S MCFILE1=MCFILE,X="MAGMIM" X ^%ZOSF("TEST")
I '$T W !,"Imaging Package not available or you are not on a work station!"
E D ^MAGMIM
S MCFILE=MCFILE1 Q
DISP Q:$D(DTOUT)!$D(DUOUT)
S MCFILE1=MCFILE,X="MAGDISP" X ^%ZOSF("TEST") D:$T ^MAGDISP S MCFILE=MCFILE1 Q
EN1 Q:$D(DTOUT)!$D(DUOUT)
S MCFILE1=MCFILE,X="MAGMIM" X ^%ZOSF("TEST") D:$T EN1^MAGMIM S MCFILE=MCFILE1 Q
SUM Q:$D(DTOUT)!$D(DUOUT)
S MCFILE1=MCFILE,X="MAGSUM" X ^%ZOSF("TEST") D:$T ^MAGSUM S MCFILE=MCFILE1 Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCMAG 587 printed Oct 16, 2024@18:15:50 Page 2
MCMAG ;WISC/TJK-IMAGING LINK ;6/14/96 10:19
+1 ;;2.3;Medicine;;09/13/1996
MIM if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+1 SET MCFILE1=MCFILE
SET X="MAGMIM"
XECUTE ^%ZOSF("TEST")
+2 IF '$TEST
WRITE !,"Imaging Package not available or you are not on a work station!"
+3 IF '$TEST
DO ^MAGMIM
+4 SET MCFILE=MCFILE1
QUIT
DISP if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+1 SET MCFILE1=MCFILE
SET X="MAGDISP"
XECUTE ^%ZOSF("TEST")
if $TEST
DO ^MAGDISP
SET MCFILE=MCFILE1
QUIT
EN1 if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+1 SET MCFILE1=MCFILE
SET X="MAGMIM"
XECUTE ^%ZOSF("TEST")
if $TEST
DO EN1^MAGMIM
SET MCFILE=MCFILE1
QUIT
SUM if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+1 SET MCFILE1=MCFILE
SET X="MAGSUM"
XECUTE ^%ZOSF("TEST")
if $TEST
DO ^MAGSUM
SET MCFILE=MCFILE1
QUIT
