ORWPT1 PRCARE

Input - PATIENT = Patient DFN
Output - VAL = Primary Care Team^PCP^Attending^AP^MH Treatment Coordinator/MH Team^Inpatient Provider
 for PCMM Web VAL = Primary Care Team/PCP/AP^^Attending^^MH Treatment Coordinator/MH Team^Inpatient Provider

 Source of PACT/PCP data for CPRS is 404.41/.06 - 387
 Other callers will get original data format
 ICR #6042 - SCMC PCMM/R GET PRIMARY CARE SUMMARY 

 N PCT,PCP,ATT,ASS,MHTC,INPROV,MHSTR
 S (PCT,PCP,ATT,ASS,MHTC,INPROV,MHSTR)=""
 IF $GET(XQCY0)["CPRSChart" DO  ;check calling source
 . S PCT=$$CPRSHEAD^SCMCWSUT(PATIENT) ;387
 ELSE  DO
 . S PCT=$P($$OUTPTTM^SDUTL3(PATIENT,DT),U,2)
 . S PCP=$P($$OUTPTPR^SDUTL3(PATIENT,DT),U,2)
 . S ASS=$P($$OUTPTAP^SDUTL3(PATIENT,DT),U,2)
 S ATT=$G(^DPT(PATIENT,.1041)) I ATT S ATT=$P($G(^VA(200,ATT,0)),U)
 S MHSTR=$$START^SCMCMHTC(PATIENT) ;387
 S MHTC=$S($P(MHSTR,U,2)'="":$P(MHSTR,U,2)_" / "_$P(MHSTR,U,5),1:"") ;387 - mhtc/mh team
 S INPROV=$G(^DPT(PATIENT,.104)) I INPROV S INPROV=$P($G(^VA(200,INPROV,0)),U)
 S VAL=PCT_U_PCP_U_ATT_U_ASS_U_MHTC_U_INPROV