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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCMAG   587     printed  Apr 09, 2024@21:16:46                                                                                                                                                                                                        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