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

IBDY340.m

Go to the documentation of this file.
  1. IBDY340 ;ALB/DHH - POST INSTALL FOR PATCH IBD*3*40 ; OCT 1, 1999
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;**40**;APR 24, 1997
  1. ;
  1. D ASK
  1. ;
  1. Q
  1. ;
  1. ASK ;-- Change PX INPUT HEALTH FACTORS to check for inactive
  1. ; in the package interface file
  1. ;
  1. D MES^XPDUTL(">>> Updating PX INPUT HEALTH FACTORS Package Interface.")
  1. N I,J,X
  1. S I=0
  1. F S I=$O(^IBE(357.6,"B",$E("PX INPUT HEALTH FACTORS",1,30),I)) Q:'I D
  1. .I $P($G(^IBE(357.6,I,0)),"^")="PX INPUT HEALTH FACTORS" D
  1. ..S ^IBE(357.6,I,18)="S IBDF(""OTHER"")=""9999999.64^I '$P(^(0),U,10),$P(^(0),U,10)=""""F"""",'$P(^(0),U,11)"" D LIST^IBDFDE2(.IBDSEL,.IBDF,""Health Factors"")"
  1. Q