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  Dec 13, 2024@01:58:07                                                                                                                                                                                                     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