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

ACMFIX.m

Go to the documentation of this file.
  1. ACMFIX ;Fix Dt of Onset - Pat Lundgren - IHS Diabetes Register [ 03/16/01 2:47 PM ]
  1. ;This routine $O thru ACM(41 CMS REGISTER finds only IHS Diabetes
  1. ;Entries - Sets the HXDT to field 20 Date of Onset & stuffs this
  1. ;date in the ACM(44 CMS Diagnosis for the Client, if missing
  1. ;the Date of onset
  1. ;
  1. START ;$O ^ACM(41,"B",3 - IHS DIABETES REGISTER ONLY
  1. S REG="" F S REG=$O(^ACM(41,"B",REG)) Q:REG'=+REG D
  1. . Q:REG'=3879
  1. . S REGIEN="" F S REGIEN=$O(^ACM(41,"B",REG,REGIEN)) Q:REGIEN'=+REGIEN D
  1. .. S HXDT=$P($G(^ACM(41,REGIEN,"CH")),U,1)
  1. .. S HXPT=$P($G(^ACM(41,REGIEN,0)),U,2)
  1. .. Q:HXPT=""
  1. .. Q:HXDT=""
  1. .. ;Q:$P(^ACM(44,DXIEN,0)U,1)'=3 D
  1. .. S DXIEN=$O(^ACM(44,"C",+HXPT,0)) I 'DXIEN Q
  1. .. S DXDT=$P($G(^ACM(44,DXIEN,"SV")),U,2)
  1. .. I DXDT="" S DIE="^ACM(44,",DA=DXIEN,DR="2////"_HXDT D ^DIE K DIE,DR,DA
  1. ;
  1. ;