Changeset 636 for FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAHLO3.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 )
• RADIOLOGY_NUCLEAR_MEDICINE-RA/RAHLO3.m (modified) (4 diffs)

FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAHLO3.m

@@ -1 +1 @@
 RAHLO3 ;HIRMFO/GJC-Process data set from the bridge program ;11/18/97  12:13
- ;;5.0;Radiology/Nuclear Medicine;**4,81,84**;Mar 16, 1998;Build 13
- ;
- ;Integration Agreements
- ;-----------------------
- ;$$GET1^DIQ(2056); $$DT^XLFDT(10103)
- ;
+ ;;5.0;Radiology/Nuclear Medicine;**4,81**;Mar 16, 1998;Build 12
 RPTSTAT ; Determine the status to set this report to.
  K RARPTSTS S:$D(RAESIG) RARPTSTS="V" Q:$D(RARPTSTS)
  ; $D(RAESIG)=0 now figure out report status
- N RASTAT S RASTAT=$E($G(^TMP("RARPT-REC",$J,RASUB,"RASTAT")))
+ S RASTAT=$E($G(^TMP("RARPT-REC",$J,RASUB,"RASTAT")))
  I RASTAT="A" S RARPTSTS="V" Q
  I RASTAT]"",("FR"[RASTAT) D
  . S:RASTAT="F" RARPTSTS="V" Q:$D(RARPTSTS)
- . I $G(RATELE) S RARPTSTS="R" Q  ;Always allow 'Released/Unverified' reports for teleradiology
  . ; do we allow 'Released/Unverified' reports for this location?
  . S RARPTSTS=$S($P($G(^RA(79.1,RAMLC,0)),"^",17)="Y":"R",1:"D")
@@ -21 +15 @@
  ; if still no status, default to draft
  S:'$D(RARPTSTS) RARPTSTS="D"
+ K RASTAT
  Q
 TEXT(X) ; Check if the Impression Text and the Report Text contain
@@ -47 +42 @@
  ; If 'No' to any of the above questions, kill RAESIG & set the variable
  ; RAERR to the appropriate error message.
- I '$D(^VA(200,"ARC","R",+$G(RAVERF))),('$D(^VA(200,"ARC","S",+$G(RAVERF)))),'$G(RATELE) D  Q
+ I '$D(^VA(200,"ARC","R",+$G(RAVERF))),('$D(^VA(200,"ARC","S",+$G(RAVERF)))) D  Q
  . ; neither a resident or staff
  . K RAESIG S RAERR="Provider not classified as resident or staff."
  . Q
- I $D(^VA(200,"ARC","R",+$G(RAVERF))),('$P(RAMDV,"^",18)),'$G(RATELE) D  Q
+ I $D(^VA(200,"ARC","R",+$G(RAVERF))),('$P(RAMDV,"^",18)) D  Q
  . ; residents can't verify reports linked to this division
  . K RAESIG S RAERR="Residents are not permitted to verify reports."
  . Q
- I '$D(^XUSEC("RA VERIFY",+$G(RAVERF))),'$G(RATELE) D  Q
+ I '$D(^XUSEC("RA VERIFY",+$G(RAVERF))) D  Q
  . ; verifier MUST have the RA VERIFY key.
  . K RAESIG S RAERR="Provider does not meet security requirements to verify report."
  . Q
- I '$G(RATELE),$P($G(^VA(200,+$G(RAVERF),"RA")),"^",3),($P(^("RA"),"^",3)'>$$DT^XLFDT()) D
+ I $P($G(^VA(200,+$G(RAVERF),"RA")),"^",3),($P(^("RA"),"^",3)'>$$DT^XLFDT()) D
  . ; Rad/Nuc Med user has been inactivated.
  . K RAESIG S RAERR="Inactive Rad/Nuc Med Classification for Interpreting Physician."
  . Q
- I '$G(RATELE),'$S('$D(^VA(200,+$G(RAVERF),"RA")):1,$P(^("RA"),"^")'="Y":1,1:0) D
+ I '$S('$D(^VA(200,+$G(RAVERF),"RA")):1,$P(^("RA"),"^")'="Y":1,1:0) D
  . K RAESIG S RAERR="Staff review required to verify report."
  . Q
@@ -94 +89 @@
  . I RAVCNT=1,('$D(RAVIEN(RAVCNT))#2) S RAVIEN(RAVCNT)=RAVIEN
  . Q
- I RAVCNT=0 S RAERR="Invalid Provider Name: "_RAVERF Q  ; partial match not found
- I RAVCNT>1 S RAERR="Non-Unique Provider Name: "_RAVERF Q  ; >1 partial match
- ;S RAVERF=$G(RAVIEN(1)) S:'RAVERF RAERR="Provider Name Entry Error"
- S:'$G(RAVIEN(1)) RAERR="Provider Name Entry Error: "_RAVERF S RAVERF=$G(RAVIEN(1))
+ I RAVCNT=0 S RAERR="Invalid Provider Name" Q  ; partial match not found
+ I RAVCNT>1 S RAERR="Non-Unique Provider Name" Q  ; >1 partial match
+ S RAVERF=$G(RAVIEN(1)) S:'RAVERF RAERR="Provider Name Entry Error"
  Q
 ESIG ; Added for COTS E-Sig capability