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

FHICNV.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHICNV   324     printed  Apr 09, 2024@20:51:54                                                                                                                                                                                                       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