PXRMPCIN ; SLC/PKR - Computed findings for primary care info. ;06/09/2006
;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
;
;=======================================================
PROVIDER(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's
;primary care provider. Value is the name which is the .01 node
;of file #200 the NEW PERSON file.
N PP
S DATE=$$NOW^PXRMDATE
;DBIA #1252
S PP=$P($$OUTPTPR^SDUTL3(DFN,DATE),U,2)
I PP="" S TEST=0 Q
S TEST=1,VALUE=PP
Q
;
;=======================================================
TEAM(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding for a patient's primary
;care team. Value is the name which is the .01 node
;of file 404.51 the TEAM file.
N PT
S DATE=$$NOW^PXRMDATE
;DBIA #1252
S PT=$P($$OUTPTTM^SDUTL3(DFN,DATE),U,2)
I PT="" S TEST=0 Q
S TEST=1,VALUE=PT
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMPCIN 858 printed Dec 13, 2024@01:48:23 Page 2
PXRMPCIN ; SLC/PKR - Computed findings for primary care info. ;06/09/2006
+1 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
+2 ;
+3 ;=======================================================
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
+2 ;of file #200 the NEW PERSON file.
+3 NEW PP
+4 SET DATE=$$NOW^PXRMDATE
+5 ;DBIA #1252
+6 SET PP=$PIECE($$OUTPTPR^SDUTL3(DFN,DATE),U,2)
+7 IF PP=""
SET TEST=0
QUIT
+8 SET TEST=1
SET VALUE=PP
+9 QUIT
+10 ;
+11 ;=======================================================
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
+2 ;of file 404.51 the TEAM file.
+3 NEW PT
+4 SET DATE=$$NOW^PXRMDATE
+5 ;DBIA #1252
+6 SET PT=$PIECE($$OUTPTTM^SDUTL3(DFN,DATE),U,2)
+7 IF PT=""
SET TEST=0
QUIT
+8 SET TEST=1
SET VALUE=PT
+9 QUIT
+10 ;
