Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOPOST.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOPOST.m
r628 r636 1 HLOPOST ;IRMFO-ALB/CJM -Post-Install routine for HLO;03/24/2004 14:43 ;07/20/2007 2 ;;1.6;HEALTH LEVEL SEVEN;**126,134,136,137**;Oct 13, 1995;Build 21 3 ;Per VHA Directive 2004-038, this routine should not be modified. 1 HLOPOST ;IRMFO-ALB/CJM -Post-Install routine for HLO;03/24/2004 14:43 ;05/03/2007 2 ;;1.6;HEALTH LEVEL SEVEN;**126,134,136**;Oct 13, 1995;Build 9 4 3 ; 5 4 N SYSTEM,DATA,VASITE,OLDSITE … … 80 79 S ^HLD(779.3,IEN,0)="PURGE OLD MESSAGES^1^0^2^20^^5^GETWORK^HLOPURGE^DOWORK^HLOPURGE^1^0" 81 80 Q 82 ;83 P137 ;84 ;move the existing errros to the new structure85 N TYPE86 K ^TMP($J,"HLO ERRORS")87 F TYPE="TF","SE","AE" D88 .M ^TMP($J,"HLO ERRORS",TYPE)=^HLB("ERRORS",TYPE)89 .M ^HLB("ERRORS")=^TMP($J,"HLO ERRORS",TYPE)90 .K ^TMP($J,"HLO ERRORS",TYPE)91 .K ^HLB("ERRORS",TYPE)92 Q
Note:
See TracChangeset
for help on using the changeset viewer.