PXP234I ;SLC/PKR - Init routine for PX*1.0*234 ;04/28/2023
;;1.0;PCE PATIENT CARE ENCOUNTER;**234**;Aug 12, 1996;Build 6
;======================
PRE ;Pre-init
Q
;
;======================
LCSHFMEASDEF ;Make sure measurements are defined for the
;LCS health factors: LCS PACKS/DAY and LCS YEARS SMOKED.
N LCSPACKDAY,LCSYEARSSMOKED
S LCSPACKDAY=$O(^AUTTHF("B","LCS PACKS/DAY",""))
I LCSPACKDAY'="" D
. D BMES^XPDUTL("Setting the measurement definition for the health factor LCS PACKS/DAY.")
. S ^AUTTHF(LCSPACKDAY,220)="0^10^2^623^Packs/day^N"
S LCSYEARSSMOKED=$O(^AUTTHF("B","LCS YEARS SMOKED",""))
I LCSYEARSSMOKED'="" D
. D BMES^XPDUTL("Setting the measurement definition for the health factor LCS YEARS SMOKED.")
. S ^AUTTHF(LCSYEARSSMOKED,220)="0^80^1^623^# of years^N"
Q
;
;======================
POST ;Post-init
D LCSHFMEASDEF^PXP234I
D TASKREPAIR^PXHFMEASREPAIR
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXP234I 919 printed Dec 13, 2024@02:29:48 Page 2
PXP234I ;SLC/PKR - Init routine for PX*1.0*234 ;04/28/2023
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**234**;Aug 12, 1996;Build 6
+2 ;======================
PRE ;Pre-init
+1 QUIT
+2 ;
+3 ;======================
LCSHFMEASDEF ;Make sure measurements are defined for the
+1 ;LCS health factors: LCS PACKS/DAY and LCS YEARS SMOKED.
+2 NEW LCSPACKDAY,LCSYEARSSMOKED
+3 SET LCSPACKDAY=$ORDER(^AUTTHF("B","LCS PACKS/DAY",""))
+4 IF LCSPACKDAY'=""
Begin DoDot:1
+5 DO BMES^XPDUTL("Setting the measurement definition for the health factor LCS PACKS/DAY.")
+6 SET ^AUTTHF(LCSPACKDAY,220)="0^10^2^623^Packs/day^N"
End DoDot:1
+7 SET LCSYEARSSMOKED=$ORDER(^AUTTHF("B","LCS YEARS SMOKED",""))
+8 IF LCSYEARSSMOKED'=""
Begin DoDot:1
+9 DO BMES^XPDUTL("Setting the measurement definition for the health factor LCS YEARS SMOKED.")
+10 SET ^AUTTHF(LCSYEARSSMOKED,220)="0^80^1^623^# of years^N"
End DoDot:1
+11 QUIT
+12 ;
+13 ;======================
POST ;Post-init
+1 DO LCSHFMEASDEF^PXP234I
+2 DO TASKREPAIR^PXHFMEASREPAIR
+3 QUIT
+4 ;
