source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMPCIN.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 831 bytes
Line 
1PXRMPCIN ; SLC/PKR - Computed findings for primary care info. ;06/09/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;=======================================================
5PROVIDER(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's
6 ;primary care provider. Value is the name which is the .01 node
7 ;of file #200 the NEW PERSON file.
8 N PP
9 S DATE=$$NOW^PXRMDATE
10 ;DBIA #1252
11 S PP=$P($$OUTPTPR^SDUTL3(DFN,DATE),U,2)
12 I PP="" S TEST=0 Q
13 S TEST=1,VALUE=PP
14 Q
15 ;
16 ;=======================================================
17TEAM(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's primary
18 ;care team. Value is the name which is the .01 node
19 ;of file 404.51 the TEAM file.
20 N PT
21 S DATE=$$NOW^PXRMDATE
22 ;DBIA #1252
23 S PT=$P($$OUTPTTM^SDUTL3(DFN,DATE),U,2)
24 I PT="" S TEST=0 Q
25 S TEST=1,VALUE=PT
26 Q
27 ;
Note: See TracBrowser for help on using the repository browser.