Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGSIXGT.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• IMAGING-MAG-ZMAG/MAGSIXGT.m (modified) (5 diffs)

FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGSIXGT.m

@@ -1 +1 @@
 MAGSIXGT ;WOIFO/EdM/GEK/SEB - RPC for Document Imaging ; 04/29/2002  16:15
- ;;3.0;IMAGING;**8,48,61,59**;Nov 27, 2007;Build 20
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**8,48,61**;Feb 07, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -9 +8 @@
  ;; | 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. |
@@ -29 +29 @@
  N MAGX
  K OUT
- S CLS=$G(CLS),FLGS=$P($G(FLGS),"|")
+ S CLS=$G(CLS),FLGS=$G(FLGS)
  ; Capture app will send CLS as ADMIN,ADMIN/CLIN for admin
  ; or  CLIN,CLIN/ADMIN for clinical 
@@ -69 +69 @@
  N C,D0,D1,LOC,N,NO,OK,S,X,NODE
  K OUT
- S CLS=$G(CLS),SPEC=$G(SPEC),FLGS=$P($G(FLGS),"|")
+ S CLS=$G(CLS),SPEC=$G(SPEC),FLGS=$G(FLGS)
  S IGN=$P(FLGS,"^",1),INCL=$P(FLGS,"^",2),INST=$P(FLGS,"^",3)
  D CLS Q:$D(OUT(0))
@@ -116 +116 @@
  N C,D0,D1,E,LOC,N,OK,X
  K OUT
- S CLS=$G(CLS),EVENT=$G(EVENT),FLGS=$P($G(FLGS),"|")
+ S CLS=$G(CLS),EVENT=$G(EVENT),FLGS=$G(FLGS)
  S IGN=$P(FLGS,"^",1),INCL=$P(FLGS,"^",2),INST=$P(FLGS,"^",3),INSP=$P(FLGS,"^",4)
  I CLS'="" D CLS Q:$D(OUT(0))