Changeset 636 for FOIAVistA/tag/r/CLINICAL_CASE_REGISTRIES-ROR/RORHL09.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 )
• CLINICAL_CASE_REGISTRIES-ROR/RORHL09.m (modified) (2 diffs)

FOIAVistA/tag/r/CLINICAL_CASE_REGISTRIES-ROR/RORHL09.m

@@ -1 +1 @@
 RORHL09 ;HOIFO/BH - HL7 OUTPATIENT DATA: PV1,OBR,OBX ; 3/13/06 9:24am
- ;;1.5;CLINICAL CASE REGISTRIES;**1,5**;Feb 17, 2006;Build 10
- ;
- ; 11/29/2007 BAY/KAM ROR*1.5*5 Rem Call 218601 Correct Outpatient
- ;                              CPTs not transmitting to the AAC
+ ;;1.5;CLINICAL CASE REGISTRIES;**1**;Feb 17, 2006;Build 24
  ;
  ; This routine uses the following IAs:
@@ -164 +161 @@
  . ;---
  . S PRV=+$P($G(^TMP("PXKENC",$J,RORIEN,"CPT",K5,12)),U,4)
- . ;12/06/2007 BAY/KAM REM CALL 218601 Modified next 8 lines
- . ;---
- . I PRV>0 D
- .. S $P(PRV,RORCS,13)=$$GET1^DIQ(200,PRV_",",53.5,"E",,"RORMSG")
- .. I $G(DIERR)  D  S ERRCNT=ERRCNT+1
- ... D DBS^RORERR("RORMSG",-99,,RORDFN,200,+PRV_",")
- . E  S PRV=""
- . ;----------> End of changes for 218601
+ . Q:PRV'>0
+ . ;---
+ . S $P(PRV,RORCS,13)=$$GET1^DIQ(200,PRV_",",53.5,"E",,"RORMSG")
+ . I $G(DIERR)  D  S ERRCNT=ERRCNT+1
+ . . D DBS^RORERR("RORMSG",-99,,RORDFN,200,+PRV_",")
  . ;---
  . D SETOBX(OID,PROC,PRV)