MCMAG.m

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

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