HLPAT24.m

HLPAT24 ;SFIRMFO/RJH   Change data in file #771.7  ;04/16/97  16:23

 ;;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLPAT24   544     printed  Dec 13, 2024@01:59:37                                                                                                                                                                                                      Page 2

HLPAT24   ;SFIRMFO/RJH   Change data in file #771.7  ;04/16/97  16:23

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

 +2       ;

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

 +4       ; #771.7

 +5        NEW HLTMP

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

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

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

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

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

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

               Begin DoDot:1

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

               End DoDot:1

 +13       QUIT