PX10P185.m

PX10P185 ;ALB/RLC - PX*1.0*185 POST INIT INSTALL

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**185**;Aug 12, 1996;Build 12

 ;

EN ;Update field .08 to "Y" for any records where the field is null

 S HFIEN=0

 F  S HFIEN=$O(^AUTTHF(HFIEN)) Q:'HFIEN  D

 .Q:'$D(^AUTTHF(HFIEN,0))  S NODE=^(0)

 .Q:$P(NODE,U,8)'=""

 .S DIE="^AUTTHF(",DA=HFIEN,DR=".08///Y" D ^DIE

 K HFIEN,NODE,DIE,DA,DR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PX10P185   384     printed  Apr 09, 2024@21:34:16                                                                                                                                                                                                     Page 2

PX10P185  ;ALB/RLC - PX*1.0*185 POST INIT INSTALL

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**185**;Aug 12, 1996;Build 12

 +2       ;

EN        ;Update field .08 to "Y" for any records where the field is null

 +1        SET HFIEN=0

 +2        FOR 

               SET HFIEN=$ORDER(^AUTTHF(HFIEN))

               if 'HFIEN

                   QUIT 

               Begin DoDot:1

 +3                if '$DATA(^AUTTHF(HFIEN,0))

                       QUIT 

                   SET NODE=^(0)

 +4                if $PIECE(NODE,U,8)'=""

                       QUIT 

 +5                SET DIE="^AUTTHF("

                   SET DA=HFIEN

                   SET DR=".08///Y"

                   DO ^DIE

               End DoDot:1

 +6        KILL HFIEN,NODE,DIE,DA,DR

 +7        QUIT