HLPAT24.m

HLPAT24 ;SFIRMFO/RJH   Change data in file #771.7  ;04/16/97  16:23 [ 04/02/2003   8:38 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 ;;1.6;HEALTH LEVEL SEVEN;**24**;Oct 13, 1995

 ;

 ; This routine is for one time use only. It modifys data in file

 ; #771.7

 N HLTMP

 S HLTMP(771.7,"1,",.01)="Invalid Event Protocol IEN"

 D FILE^DIE("EK","HLTMP")

 S HLTMP(1)="The event protocol IEN that was provided could not be found in the"

 S HLTMP(2)="Protocol file (#101)."

 D WP^DIE(771.7,"1,",2,"K","HLTMP")

 I $D(^TMP("DIERR",$J)) D

 .  D MES^XPDUTL("Error occurred, see global ^TMP(""DIERR"","_$J)

 Q

HLPAT24   ;SFIRMFO/RJH   Change data in file #771.7  ;04/16/97  16:23 [ 04/02/2003   8:38 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;;1.6;HEALTH LEVEL SEVEN;**24**;Oct 13, 1995

 +3       ;

 +4       ; This routine is for one time use only. It modifys data in file

 +5       ; #771.7

 +6        NEW HLTMP

 +7        SET HLTMP(771.7,"1,",.01)="Invalid Event Protocol IEN"

 +8        DO FILE^DIE("EK","HLTMP")

 +9        SET HLTMP(1)="The event protocol IEN that was provided could not be found in the"

 +10       SET HLTMP(2)="Protocol file (#101)."

 +11       DO WP^DIE(771.7,"1,",2,"K","HLTMP")

 +12       IF $DATA(^TMP("DIERR",$JOB))

               Begin DoDot:1

 +13               DO MES^XPDUTL("Error occurred, see global ^TMP(""DIERR"","_$JOB)

               End DoDot:1

 +14       QUIT