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

ORWCIRN.m

Go to the documentation of this file.
  1. ORWCIRN ;SLC/DCM,REV - FUNCTIONS FOR GUI CIRN ACTIONS ;Feb 25, 2020@14:21:49
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,101,109,132,141,160,208,239,215,243,350,434,525**;Dec 17, 1997;Build 1
  1. ;
  1. ;Reference to STAT^HLCSLM supported by ICR ##3574
  1. ;
  1. FACLIST(ORY,ORDFN) ; Return list of remote facilities for patient
  1. ;Check to see if CIRN PD/MPI installed
  1. N X,ORSITES,I,IFN,LOCAL,CTR,HDRFLG,GOTNHIN,JLV
  1. S X="MPIF001" X ^%ZOSF("TEST")
  1. I '$T S ORY(0)="-1^CIRN MPI not installed." Q
  1. S X="VAFCTFU1" X ^%ZOSF("TEST")
  1. I '$T S ORY(0)="-1^Remote data view not installed." Q
  1. S X=$$GET^XPAR("ALL","ORWRP CIRN REMOTE DATA ALLOW",1,"I")
  1. I 'X S ORY(0)="-1^Remote access not allowed" Q
  1. D TFL^VAFCTFU1(.ORY,ORDFN)
  1. S (GOTNHIN,I)=0 F S I=$O(ORY(I)) Q:'I I $P(ORY(I),"^",5)="OTHER" D ;Screen out Type 'OTHER' locations
  1. . I $P(ORY(I),"^")="200HD" Q ;HDR
  1. . I $P(ORY(I),"^")="200NDD" Q ;DoD Correlated Patients
  1. . S JLV="VistAWeb"
  1. . I $L($T(JLV^ORWCIRN)) D JLV(.X) S JLV=$S($L(X):X,1:"VistAWeb")
  1. . K ORY(I)
  1. ; set ORI array for Non-VA Data
  1. D ;P525
  1. . N ORXX
  1. . I $P($G(ORY(1)),"^")=-1 Q:$P(ORY(1),"^",2)'="Could not find Treating Facilities" K ORY(1)
  1. . S ORXX=$O(ORY(""),-1)+1
  1. . D JLV(.X)
  1. . S $P(ORY(ORXX),"^")="200N",$P(ORY(ORXX),"^",2)="Non-VA Data may be Available - Use "_$S($L(X):X,1:"VistAWeb")_" to Access"
  1. S HDRFLG=0
  1. I $$GET^XPAR("ALL","ORWRP CIRN SITES ALL",1,"I") D
  1. . S (CTR,I)=0
  1. . F S I=$O(ORY(I)) Q:'I S $P(ORY(I),"^",5)=1,CTR=CTR+1 D
  1. .. I $P(ORY(I),"^")=200 S $P(ORY(I),"^",2)="DEPT. OF DEFENSE"
  1. .. I $P(ORY(I),"^")="200HD" D
  1. ... I +$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")=0 K ORY(I) S CTR=CTR-1 Q
  1. ... S HDRFLG=I ; Remove commented out code to enable HDR + 1 other site.
  1. D GETLST^XPAR(.ORSITES,"ALL","ORWRP CIRN SITES","I")
  1. S (CTR,I)=0,LOCAL=$P($$SITE^VASITE,"^",3)
  1. F S I=$O(ORY(I)) Q:'I D
  1. . I +ORY(I)=+LOCAL K ORY(I) Q
  1. . S IFN=$$IEN^XUAF4(ORY(I)),CTR=CTR+1
  1. . I IFN,$G(ORSITES(IFN)) S $P(ORY(I),"^",5)=1 D
  1. .. I $P(ORY(I),"^")=200 S $P(ORY(I),"^",2)="DEPT. OF DEFENSE"
  1. . I IFN,$G(ORSITES(IFN)),$P(ORY(I),"^")="200HD" D
  1. .. I +$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")=0 K ORY(I) S CTR=CTR-1 Q
  1. .. S HDRFLG=I ; Remove commented out code to enable HDR + 1 other site.
  1. I '$L($O(ORY(""))) S ORY(0)="-1^Only local data exists for this patient"
  1. I $G(HDRFLG),CTR'>1 K ORY(HDRFLG) S ORY(0)="-1^Only HDR has data for this patient"
  1. Q
  1. RESTRICT(ORY,PATID) ;Check for sensitive patient
  1. N DFN,ICN,SITE
  1. I '$G(PATID) S ORY(1)="-1",ORY(2)="Invalid Patient ID" Q
  1. S ICN=$P(PATID,";",2)
  1. I 'ICN S ORY(1)="-1",ORY(2)="Invalid ICN" Q
  1. S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",2)_";"_$P(SITE,"^",3)
  1. S DFN=+$$GETDFN^MPIF001(ICN)
  1. I DFN<0 S ORY(1)="-1",ORY(2)="Patient not found on remote system ("_SITE_")" Q
  1. D PTSEC^DGSEC4(.ORY,DFN)
  1. Q
  1. CHKLNK(ORY) ;Check for active HL7 TCP link on local system
  1. S ORY=$$STAT^HLCSLM
  1. Q
  1. WEBADDR(ORY,PATID) ;Get VistaWeb Address
  1. S ORY=$$GET^XPAR("ALL","ORWRP VISTAWEB ADDRESS",1,"I")
  1. I ORY="" S ORY="https://vistaweb.domain.ext" Q
  1. I ORY="https://vistaweb.domain.ext" Q
  1. S ORY=ORY_"?q9gtw0="_$P($$SITE^VASITE,"^",3)_"&xqi4z="_PATID_"&yiicf="_DUZ
  1. Q
  1. AUTORDV(ORY) ;Get parameter value for ORWRP CIRN AUTOMATIC
  1. S ORY=+$$GET^XPAR("ALL","ORWRP CIRN AUTOMATIC",1,"I")
  1. Q
  1. HDRON(ORY) ;Get parameter value for ORWRP HDR ON
  1. S ORY=+$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")
  1. Q
  1. JLV(ORY) ;Get parameter value for ORWRP LEGACY VIEWER LABEL
  1. S ORY=$$GET^XPAR("ALL","ORWRP LEGACY VIEWER LABEL",1,"I")
  1. Q