Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLDIE.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 )
• HEALTH_LEVEL_SEVEN-HL/HLDIE.m (modified) (4 diffs)

FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLDIE.m

@@ -1 @@
-HLDIE ;CIOFO-O/LJA - Direct 772 & 773 Sets ; 10/19/2007 11:15
- ;;1.6;HEALTH LEVEL SEVEN;**109,122**;Oct 13,1995;Build 14
- ;Per VHA Directive 2004-038, this routine should not be modified.
- Q
+HLDIE ;CIOFO-O/LJA - Direct 772 & 773 Sets ; 11/18/2003 11:17
+ ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
  ;
  ; Rules: if any of these rules is broken, FILE^DIE is called instead
@@ -75 +73 @@
  .I FILE=772 D DEL772^HLUOPT3(+IEN)
  ;
- ; patch HL*1.6*122: MPI-client/server
  ; If no data in record passed in, log an error and quit...
- ; I '$D(@GBL) D  Q  ; Remember.  GBL contains IEN...
- N HLDGBL
- F  L +@GBL:10 Q:$T  H 1
- S HLDGBL=$D(@GBL)
- L -@GBL
- I 'HLDGBL D  Q  ; Remember.  GBL contains IEN...
+ I '$D(@GBL) D  Q  ; Remember.  GBL contains IEN...
  .  S ERRNO=$$ERRNO(601,"The entry does not exist.",FILE,2)
  .  S @ERR@("DIERR",+ERRNO,"PARAM","IENS")=IEN_$S(IEN'[",":",",1:"")
@@ -118 +110 @@
  QUIT:'$D(NODE("CHG"))  ;->
  ;
- ; patch HL*1.6*122: MPI-client/server
- I FILE=773 D
- . F  L +^HLMA(IEN):10 Q:$T  H 1
- E  D
- . F  L +^HL(772,IEN):10 Q:$T  H 1
- ;
  ; Store changes in the global now...
  D STORE(FILE,IEN,.NODE)
@@ -131 +117 @@
  F  S XRF=$O(XRF(XRF)) Q:XRF']""  D
  .  D @("XRF"_XRF_U_ROUTINE)
- ;
- ; patch HL*1.6*122: MPI-client/server
- I FILE=773 L -^HLMA(IEN)
- E  L -^HL(772,IEN)
  ;
  Q