Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MPIFEXT3

MPIFEXT3.m

Go to the documentation of this file. 
  1. MPIFEXT3 ;SFCIO/CMC-EXTENDED PDAT 3 - RPC ;26 JUN 01
  1.  ;;1.0; MASTER PATIENT INDEX VISTA ;**20**;30 Apr 99
  1.  ;
  1.  ;Integration Agreements Utilized:
  1.  ;  ^DPT( - #2070
  1.  ;  $$GET1^DIQ(870,+$P(ARRAY("LINKS",SUBNUM),"^",6)_",",.02,"E") - #3573
  1.  ;  D GETS^DIQ(2,IEN_",","1*","E","MPIFA") - #3581
  1.  ;
  1. ALIAS(RET,IEN,RPC) ; get any Aliases for patient IEN
  1.  N ALIEN,RET2,MPIFA
  1.  I RPC=1 S TEXT="MPI("_IEN_",""ALIAS(ES)"")="
  1.  S ALIEN=0,RET2=""
  1.  D GETS^DIQ(2,IEN_",","1*","E","MPIFA")
  1.  ;; MPIFA(2.01,"1,1,",.01,"E")=Funky K
  1.  F  S ALIEN=$O(MPIFA(2.01,ALIEN)) Q:'ALIEN  D
  1.  .I $G(MPIFA(2.01,ALIEN,.01,"E"))'="" S RET2=RET2_$G(MPIFA(2.01,ALIEN,.01,"E"))_"^"
  1.  I RET2=""!(RET2?."^") S RET2="NONE"
  1.  S RET(IEN,"ALIAS(ES)")=TEXT_""""_RET2_""""
  1.  Q
  1. CMORCH(RET,DFN,RPC) ; get any CMOR Change Requests for this patient
  1.  K MPIFCCR
  1.  D CCRDAT^MPIFUTL(DFN,"MPIFCCR")
  1.  N REQ,FLD,TOT
  1.  S REQ=0,TOT=$G(MPIFCCR(0))
  1.  F  S REQ=$O(MPIFCCR(REQ)) Q:REQ=""  D
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REQ #"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REQ #")=TEXT_""""_$G(MPIFCCR(REQ,.01))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REQ BY"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REQ BY")=TEXT_""""_$G(MPIFCCR(REQ,.02))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""DT REQ"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"DT REQ")=TEXT_""""_$G(MPIFCCR(REQ,.03))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""PATIENT"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"PATIENT")=TEXT_""""_$G(MPIFCCR(REQ,.04))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REQ PHONE"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REQ PHONE")=TEXT_""""_$G(MPIFCCR(REQ,.05))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""STATUS"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"STATUS")=TEXT_""""_$G(MPIFCCR(REQ,.06))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""SITE"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"SITE")=TEXT_""""_$G(MPIFCCR(REQ,.07))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""TYPE"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"TYPE")=TEXT_""""_$G(MPIFCCR(REQ,.08))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""CMOR AFTER APP"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"CMOR AFTER APP")=TEXT_""""_$G(MPIFCCR(REQ,.09))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REQ NAME"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REQ NAME")=TEXT_""""_$G(MPIFCCR(REQ,1.01))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REQ REASON"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REQ REASON")=TEXT_""""_$G(MPIFCCR(REQ,1.02))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""TYPE OF ACTION"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"TYPE OF ACTION")=TEXT_""""_$G(MPIFCCR(REQ,1.03))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REV BY"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REV BY")=TEXT_""""_$G(MPIFCCR(REQ,2.01))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""DT REV"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"DT REV")=TEXT_""""_$G(MPIFCCR(REQ,2.02))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REV PHONE"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REV PHONE")=TEXT_""""_$G(MPIFCCR(REQ,2.03))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REV BY"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REV BY")=TEXT_""""_$G(MPIFCCR(REQ,3.01))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""REV COMMENTS"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"REV COMMENTS")=TEXT_""""_$G(MPIFCCR(REQ,3.02))_""""
  1.  .I RPC=1 S TEXT="MPI("_DFN_",""CMOR CHG REQ"","_REQ_",""BLURB"")="
  1.  .S RET(DFN,"CMOR CHG REQ",REQ,"BLURB")=TEXT_""""_$G(MPIFCCR(REQ,999))_""""
  1.  K MPIFCCR
  1.  Q
  1. TFLIST(RET,DFN,RPC) ;
  1.  ; return the complete list of Treating Facilities for patient DFN
  1.  N ARRAY,TEXT,XX,STN,NM
  1.  S (STN,TEXT)="",XX=0
  1.  D GETTFS^MPIFEXT(DFN,.ARRAY)
  1.  I RPC=1 S TEXT="MPI("_DFN_",""TF LIST"","
  1.  S RET(DFN,"TF LIST",0)=TEXT_XX_")="
  1.  I +ARRAY<1 S RET(DFN,"TF LIST",0)=TEXT_XX_")="_"""NONE""" Q
  1.  F  S STN=$O(ARRAY(STN)) Q:STN=""  D
  1.  .S XX=XX+1
  1.  .S NM=$P($$NNT^XUAF4($$LKUP^XUAF4(STN)),"^")
  1.  .S RET(DFN,"TF LIST",XX)=TEXT_XX_")="_""""_NM_" ("_STN_")"""
  1.  S RET(DFN,"TF LIST",0)=$G(RET(DFN,"TF LIST",0))_XX
  1.  Q
  1. SUBLST(RET,DFN,RPC) ;
  1.  ; return the complete list of Subscribers for patient DFN
  1.  N INST,TERM,TERMDT,MPINODE,SUBNUM,SUB,XX,MPIFX
  1.  S XX=0,TEXT=""
  1.  S MPINODE=$$MPINODE^MPIFAPI(DFN)
  1.  S SUB=$P(MPINODE,"^",5)
  1.  I RPC=1 S TEXT="MPI("_DFN_",""SUB LIST"","
  1.  S RET(DFN,"SUB LIST",0)=TEXT_XX_")="
  1.  I SUB<1 S RET(DFN,"SUB LIST",0)=TEXT_XX_")="_"""NONE""" Q
  1.  D GET^HLSUB(SUB,0,"",.MPIFX)
  1.  I '$O(MPIFX("LINKS",0)) S RET(DFN,"SUB LIST",0)=TEXT_XX_")="_"""NONE""" Q
  1.  S SUBNUM=0
  1.  F  S SUBNUM=$O(MPIFX("LINKS",SUBNUM)) Q:SUBNUM=""  D
  1.  .S XX=XX+1
  1.  .S INST=$$GET1^DIQ(870,+$P(MPIFX("LINKS",SUBNUM),"^",6)_",",.02,"E")
  1.  .S TERM=$P(MPIFX("LINKS",SUBNUM),"^",10)
  1.  .S TERMDT=$$FMTE^XLFDT($E(TERM,1,12)) I TERMDT="" S TERMDT="None Found"
  1.  .S RET(DFN,"SUB LIST",XX)=TEXT_XX_")="_""""_INST_"   Termination Date:"_TERMDT_""""
  1.  S RET(DFN,"SUB LIST",0)=$G(RET(DFN,"SUB LIST",0))_XX
  1.  Q