Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL1.m
r628 r636 1 1 MAGJUTL1 ;WIRMFO/JHC VistARad subroutines for RPC calls ; 29 Jul 2003 10:03 AM 2 ;;3.0;IMAGING;**22,18,65 ,76**;Jun 22, 2007;Build 192 ;;3.0;IMAGING;**22,18,65**;Jul 27, 2006;Build 28 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ;; +---------------------------------------------------------------+ … … 25 25 ; 26 26 GETEXAM3(DFN,BEGDT,ENDT,MAGRACNT,MAGRET,MORE,LIMEXAMS) ; Get data for all exams for a 27 ; pt within a date range 28 ; limit to LIMEXAMS entries--note, only PREFETCH & Auto-route Priors use this 27 ; pt within a date range (default all dates); limit returned list to LIMEXAMS 29 28 ; Input: 30 29 ; DFN -- Patient DFN … … 32 31 ; ENDT -- Opt, latest date desired 33 32 ; MAGRACNT -- Opt, pass by ref to init counter to ref return data in ^TMP (see GETEXSET) 34 ; MORE -- Opt, If True, check for additional exams for pt35 33 ; LIMEXAMS -- Opt, limit # exams to return 36 34 ; Return: … … 41 39 ; 42 40 I '$D(DT) N DIQUIET S DIQUIET=1 D DT^DICRW 41 N MORECHK 43 42 S LIMEXAMS=+$G(LIMEXAMS) 43 S MORECHK=BEGDT!LIMEXAMS 44 44 S:$G(BEGDT)="" BEGDT=2010101 S:$G(ENDT)="" ENDT=DT ; default all dates 45 N MORECHK S MORECHK=+$G(MORE)46 45 S MAGRACNT=+$G(MAGRACNT),MAGRET=0,MORE=0 ; Init return data 47 46 I BEGDT>ENDT S X=ENDT,ENDT=BEGDT,BEGDT=X … … 54 53 K ^TMP($J,"RAE1") 55 54 I 'MORECHK Q ; all done; else indicate if pt has more exams 56 N DTI,CNI,STS ,DTCHK55 N DTI,CNI,STS 57 56 I 'MAGRET S DTI=9999999.9999-BEGDT,CNI=0 ; no exam found in orig dt range 58 57 E S X=^TMP($J,"MAGRAEX",MAGRACNT,1),DTI=$P(X,U,2),CNI=$P(X,U,3) ; last exam processed 59 58 ; loop thru addl exams til find one that is NOT Cancelled 60 59 MORE1 F S CNI=$O(^RADPT(DFN,"DT",DTI,"P",CNI)) Q:'CNI S STS=$P($G(^(CNI,0)),U,3) I STS]"" D Q:MORE 61 . Q:($P($G(^RA(72,STS,0)),U,3)=0) ; Canceled--keep looking 62 . S DTCHK=9999999.9999-DTI D EN1^RAO7PC1(DFN,DTCHK,DTCHK,1) ; verify there is at least one "good" exam for this date (Remedy #200480) 63 . I +$O(^TMP($J,"RAE1",DFN,0)) S MORE=1 64 . K ^TMP($J,"RAE1") 60 . S MORE='($P($G(^RA(72,STS,0)),U,3)=0) ; True if sts is NOT Canc 65 61 I 'MORE S DTI=$O(^RADPT(DFN,"DT",DTI)),CNI=0 G MORE1:DTI 66 62 I MORE S MORE=9999999.9999-DTI\1 … … 131 127 . S IEN=0 132 128 . F S IEN=$O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"CMOD",IEN)) Q:'IEN S X=$P($G(^(IEN,0)),U) I X D 133 . . S X=$P($ $MOD^ICPTMOD(X,"I"),U,3) Q:X="" S X=$$TRIM(X)129 . . S X=$P($G(^DIC(81.3,X,0)),U,2) Q:X="" S X=$$TRIM(X) 134 130 . . S X=$S(X="LEFT SIDE":"LEFT",X="RIGHT SIDE":"RIGHT",X="BILATERAL PROCEDURE":"BILAT",1:X) 135 131 . . S CT=CT+1,MODS(CT)=X
Note:
See TracChangeset
for help on using the changeset viewer.