HLEMSE1.m

HLEMSE1 ;ALB/CJM,ALB/BRM - Actions for an individual event; 10/23/00 9:49am ; 2/27/01 1:25pm

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

 ;

EDIT(EVENT) ;

 ;Allows the user to edit the notes and review status of an event

 I '$G(EVENT) S VALMBCK="" Q

 K DIE,DR,DA

 S DIE=776.4

 S DA=EVENT

 S DR="1;.06"

 D ^DIE

 K DIE,DR

 D INIT^HLEMSE

 Q

HELP(TYPE) ;

 ;Displays the full description of the event type

 D EN^HLEMSH($G(TYPE))

 Q

 ;

APPDATA(EVENT) ;

 ;Displays the application-specific data that was stored with the event

 D EN^HLEMSA($G(EVENT))

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HLEMSE1   570     printed  Oct 16, 2024@17:58:18                                                                                                                                                                                                      Page 2

HLEMSE1   ;ALB/CJM,ALB/BRM - Actions for an individual event; 10/23/00 9:49am ; 2/27/01 1:25pm

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

 +2       ;

EDIT(EVENT) ;

 +1       ;Allows the user to edit the notes and review status of an event

 +2        IF '$GET(EVENT)

               SET VALMBCK=""

               QUIT 

 +3        KILL DIE,DR,DA

 +4        SET DIE=776.4

 +5        SET DA=EVENT

 +6        SET DR="1;.06"

 +7        DO ^DIE

 +8        KILL DIE,DR

 +9        DO INIT^HLEMSE

 +10       QUIT 

HELP(TYPE) ;

 +1       ;Displays the full description of the event type

 +2        DO EN^HLEMSH($GET(TYPE))

 +3        QUIT 

 +4       ;

APPDATA(EVENT) ;

 +1       ;Displays the application-specific data that was stored with the event

 +2        DO EN^HLEMSA($GET(EVENT))

 +3        QUIT