HBHCPOST.m

HBHCPOST ; LR VAMC(IRMS)/MJT-HBHC POST initialization routine ;9712

 ;;1.0;HOSPITAL BASED HOME CARE;**6,8**;NOV 01, 1993

 S HBHCIEN=0 F  S HBHCIEN=$O(^DIC(19,"B","HBHC TRANSMISSION MENU",HBHCIEN)) Q:HBHCIEN'>0  S DIE="^DIC(19,",DA=HBHCIEN,DR="3///@" D ^DIE

 K DA,DIE,DR,HBHCIEN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HBHCPOST   286     printed  Sep 23, 2025@19:34:10                                                                                                                                                                                                     Page 2

HBHCPOST  ; LR VAMC(IRMS)/MJT-HBHC POST initialization routine ;9712

 +1       ;;1.0;HOSPITAL BASED HOME CARE;**6,8**;NOV 01, 1993

 +2        SET HBHCIEN=0

           FOR 

               SET HBHCIEN=$ORDER(^DIC(19,"B","HBHC TRANSMISSION MENU",HBHCIEN))

               if HBHCIEN'>0

                   QUIT 

               SET DIE="^DIC(19,"

               SET DA=HBHCIEN

               SET DR="3///@"

               DO ^DIE

 +3        KILL DA,DIE,DR,HBHCIEN

 +4        QUIT