FHICNV.m

FHICNV ; HIOFO/REL - Patch 27 Data Conversion ;11/15/00  10:32

 ;;5.0;Dietetics;**27**;Oct 11, 1995

 ; Clean up admission node

 F K=0:0 S K=$O(^FHPT(K)) Q:K<1  I $D(^FHPT(K,"A")) I $P($G(^FHPT(K,"A",0)),"^",2)'="115.01" S $P(^(0),"^",2)=115.01

 ; Clean up preferences

 S DIK="^FH(115.2,",DIK(1)="1^AD" D ENALL^DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FHICNV   324     printed  Oct 16, 2024@17:48:33                                                                                                                                                                                                       Page 2

FHICNV    ; HIOFO/REL - Patch 27 Data Conversion ;11/15/00  10:32

 +1       ;;5.0;Dietetics;**27**;Oct 11, 1995

 +2       ; Clean up admission node

 +3        FOR K=0:0

               SET K=$ORDER(^FHPT(K))

               if K<1

                   QUIT 

               IF $DATA(^FHPT(K,"A"))

                   IF $PIECE($GET(^FHPT(K,"A",0)),"^",2)'="115.01"

                       SET $PIECE(^(0),"^",2)=115.01

 +4       ; Clean up preferences

 +5        SET DIK="^FH(115.2,"

           SET DIK(1)="1^AD"

           DO ENALL^DIK

 +6        QUIT