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

DBTSNWCK.m

Go to the documentation of this file.
  1. DBTSNWCK ;dmh/bao  Diabetes Tracker System [ 03/15/1999  12:44 AM ]
  1.  ;checks to see if the patient is diagnosed with diabetes
  1.  ; this routine is in the audit condition of V POV 
  1.  S DBTSICD=$P($G(^AUPNVPOV(DA,0)),"^",1)
  1.  I DBTSICD="" I DBTSICD="ZZ" Q
  1.  S DBTSCODE=$P($G(^ICD9(DBTSICD,0)),"^",1)
  1.  I DBTSCODE["250."
  1.  K DBTSICD,DBTSCODE
  1.  Q