PXRMPCIN.m

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 ---PXRMPCIN   858     printed  Apr 09, 2024@20:52:39                                                                                                                                                                                                     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      ;