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 ---[H[J[2J[HPX10P185 384 printed Dec 13, 2024@02:25:33 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
