Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJLST1.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/MAGJLST1.m (modified) (6 diffs)

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

@@ -1 +1 @@
 MAGJLST1 ;WIRMFO/JHC VistARad RPC calls ; 29 Jul 2003  10:01 AM
- ;;3.0;IMAGING;**16,22,18,65,76**;Jun 22, 2007;Build 19
+ ;;3.0;IMAGING;**16,22,18,65**;Jul 27, 2006;Build 28
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;; +---------------------------------------------------------------+
@@ -43 +43 @@
  ; 
  ; MAGGRY - indirect reference to return array of exams for a patient
- ; DATA   - DFN ^ LIMYEARS ^ LIMEXAMS ^ BEGDT ^ ONESHOT
+ ; DATA   - DFN ^ LIMYEARS ^ LIMEXAMS ^ BEGDT
  ;   DFN--Patient's DFN
- ;   LIMYRS--Restrict exams up to # Years back (defunct)
+ ;   LIMYRS--Restrict exams up to # Years back
  ;   LIMEXAMS--Restrict exams up to # of exams
  ;   BEGDT--Begin date for exam fetch (Patch 18 addition--see below)
- ;   ONESHOT--Number days back to search, in one fell swoop
  ; Returns data in ^TMP($J,"MAGRAEX",0:n)
  ; RPC Call: MAGJ PTRADEXAMS
@@ -64 +63 @@
  N CNT,DFN,ISS,PATNAME,DIQUIET,MAGRACNT,MAGRET,REPLY,REMOTE,SNDREMOT
  N DAYCASE,DIV,EXCAT,MAGDT,XX,XX2,WHOLOCK,MODALITY,MYLOCK,PLACE,ENDLOOP
- N LIMEXAMS,BEGDT,SAVBEGDT,ENDDT,MORE,SHOWPLAC,RDRIST,PSSN,CPT,PARAM
- N CURPRIO,STATUS,RARPT,KEY,X2,REMOTE2,ONESHOT,LIMDAYS
+ N LIMYRS,LIMEXAMS,BEGDT,SAVBEGDT,ENDDT,MORE,SHOWPLAC,RDRIST,PSSN,CPT,PARAM
+ N CURPRIO,STATUS,RARPT,KEY,X1,X2,REMOTE2,ONESHOT,LIMDAYS
  N IMGCNT,LRFLAG,MSG,ONL,PROCMOD,RASTCAT,RASTORD
  N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGJLST1"
@@ -79 +78 @@
  E  S BEGDT=$P(DATA,U,4),ONESHOT=$P(DATA,U,5)  ; P65 chg
  K MAGGRY S DFN=+DATA
+ ;<*>
+ ; I DUZ=131 G MANYTST^ZMAGJTST ; <*> TEST ONLY !!!  37=RadRes
+ ;<*>
  S SHOWPLAC=$$SHOWPLAC^MAGJLS2B("")
  S MAGRACNT=1,CNT=0 K ^TMP($J,"MAGRAEX"),^("MAGRAEX2")
@@ -84 +86 @@
  I DFN,$D(^DPT(DFN,0)) S PATNAME=$P(^(0),U),PSSN=$P(^(0),U,9) D
  . S ENDLOOP=0,BEGDT=$S(+BEGDT:BEGDT,1:"")
- . I MAGJOB("P32"),+$G(MAGJOB("P32STOP")) S REPLY="0^4~VistARad Patch 32 is no longer supported; contact Imaging Support for the current version of the VistARad client software." Q  ; <*>
- . F  D  Q:'MORE  Q:ENDLOOP  S BEGDT=MORE+1
+ . F  D  Q:'MORE  Q:ENDLOOP
  . . I 'BEGDT S BEGDT=DT,X2=0
  . . E  S X2=-1
- . . S LIMDAYS=365,MORE=1
- . . I 'MAGJOB("P32") I ONESHOT,(ONESHOT>0) S LIMDAYS=+ONESHOT
- . . S ENDDT=$$FMADD^XLFDT(BEGDT,X2)
- . . S BEGDT=$$FMADD^XLFDT(ENDDT,-LIMDAYS)
+ . . S LIMDAYS=365
+ . . I 'MAGJOB("P32"),ONESHOT,(ONESHOT>0) S LIMDAYS=+ONESHOT
+ . . S X1=BEGDT D C^%DTC S (ENDDT,X1)=X,X2=-LIMDAYS D C^%DTC S BEGDT=X K %,%H,%T
  . . D GETEXAM3^MAGJUTL1(DFN,BEGDT,ENDDT,.MAGRACNT,.MAGRET,.MORE)
  . . I MAGJOB("P32") S ENDLOOP=(MAGRACNT>LIMEXAMS)
@@ -109 +109 @@
  . E  S REPLY=REPLY_" -- "_MSG
  . S ^TMP($J,"MAGRAEX2",1)="^Day/Case~S3~1^Lock~~2^Procedure~~6^Modifier~~25^Image Date/Time~S1~7^Status~~8^# Img~S2~9^Onl~~10"_$S($G(SNDREMOT):"^RC~~12",1:"")_$S(SHOWPLAC:"^Site~~23",1:"")_"^Mod~~15^Interp By~~20^Imaging Loc~~11^CPT~~27"
- I MAGJOB("P32"),+$G(MAGJOB("P32STOP")) S ^TMP($J,"MAGRAEX2",1)="^^"
  I 'MAGJOB("P32") S $P(REPLY,"|",2)=SAVBEGDT
  S ^TMP($J,"MAGRAEX2",0)=REPLY