FHVER.m

FHVER ; HISC/REL - Dietetics Version ;2/15/95  15:45 

 ;;5.5;DIETETICS;;Jan 28, 2005

 S U="^" S:'$D(FHA1) FHA1=0 S:'$D(DTIME) DTIME=9999 D DT^DICRW

 K %ZIS S IOP="" D ^%ZIS K %ZIS,IOP

 I FHA1=1 W @IOF,!!?20,"D I E T E T I C S   M A N A G E M E N T",!! G VER

 I FHA1=2 W @IOF,!!?22,"C L I N I C A L   D I E T E T I C S",!! G VER

 I FHA1=3 W @IOF,!!?25,"D I E T E T I C   O R D E R S",!! G VER

 I FHA1=4 W @IOF,!!?17,"D I E T E T I C   A D M I N I S T R A T I O N",!! G VER

 I FHA1=5 W @IOF,!!?21,"C L I N I C A L   M A N A G E M E N T",!! G VER

 I FHA1=6 W @IOF,!!?16,"D I E T E T I C   P A T I E N T   P R O F I L E",!! G VER

 I FHA1=7 W @IOF,!!?25,"F O O D   P R O D U C T I O N",!! G VER

 I FHA1=8 W @IOF,!!?5,"A N N U A L   D I E T E T I C   R E P O R T   M A N A G E M E N T",!! G VER

 K FHA1,VER Q

VER S VER=$P($T(FHVER+1),";",3) W ?34,"Version ",VER,!!! K VER,FHA1 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FHVER   887     printed  Apr 09, 2024@20:53:07                                                                                                                                                                                                        Page 2

FHVER     ; HISC/REL - Dietetics Version ;2/15/95  15:45 

 +1       ;;5.5;DIETETICS;;Jan 28, 2005

 +2        SET U="^"

           if '$DATA(FHA1)

               SET FHA1=0

           if '$DATA(DTIME)

               SET DTIME=9999

           DO DT^DICRW

 +3        KILL %ZIS

           SET IOP=""

           DO ^%ZIS

           KILL %ZIS,IOP

 +4        IF FHA1=1

               WRITE @IOF,!!?20,"D I E T E T I C S   M A N A G E M E N T",!!

               GOTO VER

 +5        IF FHA1=2

               WRITE @IOF,!!?22,"C L I N I C A L   D I E T E T I C S",!!

               GOTO VER

 +6        IF FHA1=3

               WRITE @IOF,!!?25,"D I E T E T I C   O R D E R S",!!

               GOTO VER

 +7        IF FHA1=4

               WRITE @IOF,!!?17,"D I E T E T I C   A D M I N I S T R A T I O N",!!

               GOTO VER

 +8        IF FHA1=5

               WRITE @IOF,!!?21,"C L I N I C A L   M A N A G E M E N T",!!

               GOTO VER

 +9        IF FHA1=6

               WRITE @IOF,!!?16,"D I E T E T I C   P A T I E N T   P R O F I L E",!!

               GOTO VER

 +10       IF FHA1=7

               WRITE @IOF,!!?25,"F O O D   P R O D U C T I O N",!!

               GOTO VER

 +11       IF FHA1=8

               WRITE @IOF,!!?5,"A N N U A L   D I E T E T I C   R E P O R T   M A N A G E M E N T",!!

               GOTO VER

 +12       KILL FHA1,VER

           QUIT 

VER        SET VER=$PIECE($TEXT(FHVER+1),";",3)

           WRITE ?34,"Version ",VER,!!!

           KILL VER,FHA1

           QUIT