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

PXRMPCIN.m

Go to the documentation of this file.
  1. PXRMPCIN ; SLC/PKR - Computed findings for primary care info. ;06/09/2006
  1. ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  1. ;
  1. ;=======================================================
  1. PROVIDER(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's
  1. ;primary care provider. Value is the name which is the .01 node
  1. ;of file #200 the NEW PERSON file.
  1. N PP
  1. S DATE=$$NOW^PXRMDATE
  1. ;DBIA #1252
  1. S PP=$P($$OUTPTPR^SDUTL3(DFN,DATE),U,2)
  1. I PP="" S TEST=0 Q
  1. S TEST=1,VALUE=PP
  1. Q
  1. ;
  1. ;=======================================================
  1. TEAM(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's primary
  1. ;care team. Value is the name which is the .01 node
  1. ;of file 404.51 the TEAM file.
  1. N PT
  1. S DATE=$$NOW^PXRMDATE
  1. ;DBIA #1252
  1. S PT=$P($$OUTPTTM^SDUTL3(DFN,DATE),U,2)
  1. I PT="" S TEST=0 Q
  1. S TEST=1,VALUE=PT
  1. Q
  1. ;