- 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 Feb 18, 2025@23:14:46 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 ;