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

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

@@ -1 +1 @@
 RAHLO4 ;HIRMFO/GJC-File rpt (data from bridge program) ;7/21/99  11:45
- ;;5.0;Radiology/Nuclear Medicine;**4,8,81,84**;Mar 16, 1998;Build 13
- ;
- ;Integration Agreements
- ;----------------------
- ;NOW^%DTC(10000); %ZTLOAD(10063); FIND^DIC(2051); ^DIE(10018); ^DIK(10013); $$GET1^DIQ(2056)
- ;GETS^DIQ(2056); ^XMD(10070)
- ;
+ ;;5.0;Radiology/Nuclear Medicine;**4,8,81**;Mar 16, 1998;Build 12
 TASK ; Task ORU message
  S ZTDESC="Rad/Nuc Med Compiling HL7 ORU Message",ZTDTH=$H,ZTIO="",ZTRTN="RPT^RAHLRPC",ZTSAVE("RADFN")="",ZTSAVE("RADTI")="",ZTSAVE("RACNI")="",ZTSAVE("RARPT")=""
- ;Next line of coding will assure that ORU (report) message will be sent after posible ORM message. (10 second)
- S $P(ZTDTH,",",2)=$P(ZTDTH,",",2)+4 S:$P(ZTDTH,",",2)>86400 ZTDTH=$P(ZTDTH,",")+1_","_($P(ZTDTH,",",2)-86400)
+ ;S:$L($G(RANOSEND))&'$O(RAPRSET(RADTI,0)) ZTSAVE("RANOSEND")="" D ^%ZTLOAD
  S:$L($G(RANOSEND)) ZTSAVE("RANOSEND")="" D ^%ZTLOAD
  K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
@@ -22 +15 @@
  D ^%ZTLOAD K RAMES,ZTDESC,ZTSK,ZTIO,ZTSAVE,ZTRTN,RASV,ZTDTH
  Q
- ;
+FILETST ; is anyone else working on this report?
+ L +^RARPT(RARPT):1
+ I '$T S RAERR="This report is being edited by another user" L -^RARPT(RARPT)
+ Q
 UPMEM ;copy (prim:dx,stf,res),rpt ien to other members of same print set
  ; first clear those fields