MAGNILOG.m

MAGNILOG ;WOIFO/NST - LOG ACTION on IMAGES RPCS ; 14 Sep 2017 11:43 AM

 ;;3.0;IMAGING;**185**;Mar 19, 2002;Build 92;Aug 02, 2012

 ;; Per VHA Directive 2004-038, this routine should not be modified.

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 Q

 ;

 ;***** MAGN LOG IMAGE ACCESS BY IEN

 ;

 ; RPC: MAGN LOG IMAGE ACCESS BY IEN

 ;

 ; .MAGOUT       Reference to a local variable where the results are returned to

 ; .MAGPARAM

 ;    MAGPARAM(0..n)=IMAGE IEN^DATA

 ;      See LOGACT^MAGGTU6 for details on DATA

 ;

 ; Return Values

 ; =============   

 ; MAGOUT(0..n) = Image IEN^1^SUCCESS 

 ;                Image IEN^0^reason for failure

LOGACT(MAGOUT,MAGPARAM) ;RPC [MAGN LOG IMAGE ACCESS BY IEN]

 N MAGNI,MAGGRY,MAGNIEN,MAGDATA

 S MAGOUT=$NA(^TMP($J,"MAGNILOG"))

 K @MAGOUT

 ;

 S MAGNI=""

 F  S MAGNI=$O(MAGPARAM(MAGNI)) Q:MAGNI=""  D

 . S MAGNIEN=$P(MAGPARAM(MAGNI),U)

 . S MAGDATA=$P(MAGPARAM(MAGNI),U,2,99)

 . K MAGGRY

 . D LOGACT^MAGGTU6(.MAGGRY,MAGDATA)

 . I ($P(MAGGRY,"^")=1)!($P(MAGGRY,"^")=0) S @MAGOUT@(MAGNI)=MAGNIEN_"^"_MAGGRY

 . E  S @MAGOUT@(MAGNI)=MAGNIEN_"^0^"_MAGGRY

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGNILOG   2006     printed  Apr 09, 2024@21:01:29                                                                                                                                                                                                    Page 2

MAGNILOG  ;WOIFO/NST - LOG ACTION on IMAGES RPCS ; 14 Sep 2017 11:43 AM

 +1       ;;3.0;IMAGING;**185**;Mar 19, 2002;Build 92;Aug 02, 2012

 +2       ;; Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

 +4       ;; | Property of the US Government.                                |

 +5       ;; | No permission to copy or redistribute this software is given. |

 +6       ;; | Use of unreleased versions of this software requires the user |

 +7       ;; | to execute a written test agreement with the VistA Imaging    |

 +8       ;; | Development Office of the Department of Veterans Affairs,     |

 +9       ;; | telephone (301) 734-0100.                                     |

 +10      ;; | The Food and Drug Administration classifies this software as  |

 +11      ;; | a medical device.  As such, it may not be changed in any way. |

 +12      ;; | Modifications to this software may result in an adulterated   |

 +13      ;; | medical device under 21CFR820, the use of which is considered |

 +14      ;; | to be a violation of US Federal Statutes.                     |

 +15      ;; +---------------------------------------------------------------+

 +16      ;;

 +17       QUIT 

 +18      ;

 +19      ;***** MAGN LOG IMAGE ACCESS BY IEN

 +20      ;

 +21      ; RPC: MAGN LOG IMAGE ACCESS BY IEN

 +22      ;

 +23      ; .MAGOUT       Reference to a local variable where the results are returned to

 +24      ; .MAGPARAM

 +25      ;    MAGPARAM(0..n)=IMAGE IEN^DATA

 +26      ;      See LOGACT^MAGGTU6 for details on DATA

 +27      ;

 +28      ; Return Values

 +29      ; =============   

 +30      ; MAGOUT(0..n) = Image IEN^1^SUCCESS 

 +31      ;                Image IEN^0^reason for failure

LOGACT(MAGOUT,MAGPARAM) ;RPC [MAGN LOG IMAGE ACCESS BY IEN]

 +1        NEW MAGNI,MAGGRY,MAGNIEN,MAGDATA

 +2        SET MAGOUT=$NAME(^TMP($JOB,"MAGNILOG"))

 +3        KILL @MAGOUT

 +4       ;

 +5        SET MAGNI=""

 +6        FOR 

               SET MAGNI=$ORDER(MAGPARAM(MAGNI))

               if MAGNI=""

                   QUIT 

               Begin DoDot:1

 +7                SET MAGNIEN=$PIECE(MAGPARAM(MAGNI),U)

 +8                SET MAGDATA=$PIECE(MAGPARAM(MAGNI),U,2,99)

 +9                KILL MAGGRY

 +10               DO LOGACT^MAGGTU6(.MAGGRY,MAGDATA)

 +11               IF ($PIECE(MAGGRY,"^")=1)!($PIECE(MAGGRY,"^")=0)

                       SET @MAGOUT@(MAGNI)=MAGNIEN_"^"_MAGGRY

 +12              IF '$TEST

                       SET @MAGOUT@(MAGNI)=MAGNIEN_"^0^"_MAGGRY

 +13               QUIT 

               End DoDot:1

 +14       QUIT