Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: HBHCPOST

HBHCPOST.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHBHCPOST   286     printed  Feb 18, 2025@23:24:31                                                                                                                                                                                                     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