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

PXP234I.m

Go to the documentation of this file.
  1. 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
  1. ;======================
  1. PRE ;Pre-init
  1. Q
  1. ;
  1. ;======================
  1. LCSHFMEASDEF ;Make sure measurements are defined for the
  1. ;LCS health factors: LCS PACKS/DAY and LCS YEARS SMOKED.
  1. N LCSPACKDAY,LCSYEARSSMOKED
  1. S LCSPACKDAY=$O(^AUTTHF("B","LCS PACKS/DAY",""))
  1. I LCSPACKDAY'="" D
  1. . D BMES^XPDUTL("Setting the measurement definition for the health factor LCS PACKS/DAY.")
  1. . S ^AUTTHF(LCSPACKDAY,220)="0^10^2^623^Packs/day^N"
  1. S LCSYEARSSMOKED=$O(^AUTTHF("B","LCS YEARS SMOKED",""))
  1. I LCSYEARSSMOKED'="" D
  1. . D BMES^XPDUTL("Setting the measurement definition for the health factor LCS YEARS SMOKED.")
  1. . S ^AUTTHF(LCSYEARSSMOKED,220)="0^80^1^623^# of years^N"
  1. Q
  1. ;
  1. ;======================
  1. POST ;Post-init
  1. D LCSHFMEASDEF^PXP234I
  1. D TASKREPAIR^PXHFMEASREPAIR
  1. Q
  1. ;