Changeset 636 for FOIAVistA/tag/r/CLINICAL_CASE_REGISTRIES-ROR
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (15 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/CLINICAL_CASE_REGISTRIES-ROR/RORHL09.m
r628 r636 1 1 RORHL09 ;HOIFO/BH - HL7 OUTPATIENT DATA: PV1,OBR,OBX ; 3/13/06 9:24am 2 ;;1.5;CLINICAL CASE REGISTRIES;**1,5**;Feb 17, 2006;Build 10 3 ; 4 ; 11/29/2007 BAY/KAM ROR*1.5*5 Rem Call 218601 Correct Outpatient 5 ; CPTs not transmitting to the AAC 2 ;;1.5;CLINICAL CASE REGISTRIES;**1**;Feb 17, 2006;Build 24 6 3 ; 7 4 ; This routine uses the following IAs: … … 164 161 . ;--- 165 162 . S PRV=+$P($G(^TMP("PXKENC",$J,RORIEN,"CPT",K5,12)),U,4) 166 . ;12/06/2007 BAY/KAM REM CALL 218601 Modified next 8 lines 167 . ;--- 168 . I PRV>0 D 169 .. S $P(PRV,RORCS,13)=$$GET1^DIQ(200,PRV_",",53.5,"E",,"RORMSG") 170 .. I $G(DIERR) D S ERRCNT=ERRCNT+1 171 ... D DBS^RORERR("RORMSG",-99,,RORDFN,200,+PRV_",") 172 . E S PRV="" 173 . ;----------> End of changes for 218601 163 . Q:PRV'>0 164 . ;--- 165 . S $P(PRV,RORCS,13)=$$GET1^DIQ(200,PRV_",",53.5,"E",,"RORMSG") 166 . I $G(DIERR) D S ERRCNT=ERRCNT+1 167 . . D DBS^RORERR("RORMSG",-99,,RORDFN,200,+PRV_",") 174 168 . ;--- 175 169 . D SETOBX(OID,PROC,PRV)
Note:
See TracChangeset
for help on using the changeset viewer.