- 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 Feb 18, 2025@23:56:05 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 ;