ORWCIRN ; slc/dcm,REV - Functions for GUI CIRN ACTIONS ;14-May-2014 16:55;PLS
;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,101,109,132,141,160,208,239,215,243,1013**;October 28, 1997;Build 242
;Modified - IHS/MSC/PLS - 05/14/2014 - Line FACLIST+9, new TFL EP
;
FACLIST(ORY,ORDFN) ; Return list of remote facilities for patient
;Check to see if CIRN PD/MPI installed
N X,ORSITES,I,IFN,LOCAL,CTR,HDRFLG
S X="MPIF001" X ^%ZOSF("TEST")
I '$T S ORY(0)="-1^CIRN MPI not installed." Q
S X="VAFCTFU1" X ^%ZOSF("TEST")
I '$T S ORY(0)="-1^Remote data view not installed." Q
S X=$$GET^XPAR("ALL","ORWRP CIRN REMOTE DATA ALLOW",1,"I")
I 'X S ORY(0)="-1^Remote access not allowed" Q
;IHS/MSC/PLS - 05/14/2014
;D TFL^VAFCTFU1(.ORY,ORDFN)
D TFL(.ORY,ORDFN)
S I=0 F S I=$O(ORY(I)) Q:'I I $P(ORY(I),"^",5)="OTHER",'($P(ORY(I),"^")="200HD") K ORY(I) ;Screen out Type 'OTHER' locations
S HDRFLG=0
I $$GET^XPAR("ALL","ORWRP CIRN SITES ALL",1,"I") D
. S (CTR,I)=0
. F S I=$O(ORY(I)) Q:'I S $P(ORY(I),"^",5)=1,CTR=CTR+1 D
.. I $P(ORY(I),"^")=200 S $P(ORY(I),"^",2)="DEPT. OF DEFENSE"
.. I $P(ORY(I),"^")="200HD" D
... I +$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")=0 K ORY(I) S CTR=CTR-1 Q
... S HDRFLG=I ; Remove commented out code to enable HDR + 1 other site.
D GETLST^XPAR(.ORSITES,"ALL","ORWRP CIRN SITES","I")
S (CTR,I)=0,LOCAL=$P($$SITE^VASITE,"^",3)
F S I=$O(ORY(I)) Q:'I D
. I +ORY(I)=+LOCAL K ORY(I) Q
. S IFN=$$IEN^XUAF4(ORY(I)),CTR=CTR+1
. I IFN,$G(ORSITES(IFN)) S $P(ORY(I),"^",5)=1 I $P(ORY(I),"^")=200 S $P(ORY(I),"^",2)="DEPT. OF DEFENSE"
. I IFN,$G(ORSITES(IFN)),$P(ORY(I),"^")="200HD" D
.. I +$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")=0 K ORY(I) S CTR=CTR-1 Q
.. S HDRFLG=I ; Remove commented out code to enable HDR + 1 other site.
I '$L($O(ORY(""))) S ORY(0)="-1^Only local data exists for this patient"
I $G(HDRFLG),CTR'>1 K ORY(HDRFLG) S ORY(0)="-1^Only HDR has data for this patient"
Q
RESTRICT(ORY,PATID) ;Check for sensitive patient
N DFN,ICN,SITE
I '$G(PATID) S ORY(1)="-1",ORY(2)="Invalid Patient ID" Q
S ICN=$P(PATID,";",2)
I 'ICN S ORY(1)="-1",ORY(2)="Invalid ICN" Q
S SITE=$$SITE^VASITE,SITE=$P(SITE,"^",2)_";"_$P(SITE,"^",3)
S DFN=+$$GETDFN^MPIF001(ICN)
I DFN<0 S ORY(1)="-1",ORY(2)="Patient not found on remote system ("_SITE_")" Q
D PTSEC^DGSEC4(.ORY,DFN)
Q
CHKLNK(ORY) ;Check for active HL7 TCP link on local system
S ORY=$$STAT^HLCSLM
Q
WEBADDR(ORY,PATID) ;Get VistaWeb Address
S ORY=$$GET^XPAR("ALL","ORWRP VISTAWEB ADDRESS",1,"I")
I ORY="" S ORY="https://vistaweb.med.va.gov" Q
I ORY="https://vistaweb.med.va.gov" Q
S ORY=ORY_"?q9gtw0="_$P($$SITE^VASITE,"^",3)_"&xqi4z="_PATID_"&yiicf="_DUZ
Q
AUTORDV(ORY) ;Get parameter value for ORWRP CIRN AUTOMATIC
S ORY=+$$GET^XPAR("ALL","ORWRP CIRN AUTOMATIC",1,"I")
Q
HDRON(ORY) ;Get parameter value for ORWRP HDR ON
S ORY=+$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")
Q
;
TFL(LIST,DFN) ;EP- for dfn get list of treating facilities
NEW X,ICN,DA,DR,VAFCTFU1,DIC,DIQ,VAFC
S X="MPIF001" X ^%ZOSF("TEST") I '$T S LIST(1)="-1^MPI Not Installed" Q
S DR=".01;13;99",DIC=4,DIQ(0)="E",DIQ="VAFCTFU1" ;**448
S ICN=$$GETICN^MPIF001(DFN)
I ICN<0 S LIST(1)=ICN Q
D GETLST^XPAR(.LIST,"ALL","ORWRP CIRN SITES","Q")
F VAFC=0:0 S VAFC=$O(LIST(VAFC)) Q:VAFC="" D
.K VAFCTFU1
.S DA=+LIST(VAFC)
.D EN^DIQ1
.;S LIST(VAFC)=VAFCTFU1(4,+LIST(VAFC),99,"E")_"^"_VAFCTFU1(4,+LIST(VAFC),.01,"E")_"^"_$P(LIST(VAFC),"^",2)_"^"_$P(LIST(VAFC),"^",3)_"^"_VAFCTFU1(4,+LIST(VAFC),13,"E") ;**448
.S LIST(VAFC)=VAFCTFU1(4,+LIST(VAFC),99,"E")_U_VAFCTFU1(4,+LIST(VAFC),.01,"E")_U_U_$P(LIST(VAFC),"^",3)_"^1"
Q
ORWCIRN ; slc/dcm,REV - Functions for GUI CIRN ACTIONS ;14-May-2014 16:55;PLS
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,101,109,132,141,160,208,239,215,243,1013**;October 28, 1997;Build 242
+2 ;Modified - IHS/MSC/PLS - 05/14/2014 - Line FACLIST+9, new TFL EP
+3 ;
FACLIST(ORY,ORDFN) ; Return list of remote facilities for patient
+1 ;Check to see if CIRN PD/MPI installed
+2 NEW X,ORSITES,I,IFN,LOCAL,CTR,HDRFLG
+3 SET X="MPIF001"
XECUTE ^%ZOSF("TEST")
+4 IF '$TEST
SET ORY(0)="-1^CIRN MPI not installed."
QUIT
+5 SET X="VAFCTFU1"
XECUTE ^%ZOSF("TEST")
+6 IF '$TEST
SET ORY(0)="-1^Remote data view not installed."
QUIT
+7 SET X=$$GET^XPAR("ALL","ORWRP CIRN REMOTE DATA ALLOW",1,"I")
+8 IF 'X
SET ORY(0)="-1^Remote access not allowed"
QUIT
+9 ;IHS/MSC/PLS - 05/14/2014
+10 ;D TFL^VAFCTFU1(.ORY,ORDFN)
+11 DO TFL(.ORY,ORDFN)
+12 ;Screen out Type 'OTHER' locations
SET I=0
FOR
SET I=$ORDER(ORY(I))
IF 'I
QUIT
IF $PIECE(ORY(I),"^",5)="OTHER"
IF '($PIECE(ORY(I),"^")="200HD")
KILL ORY(I)
+13 SET HDRFLG=0
+14 IF $$GET^XPAR("ALL","ORWRP CIRN SITES ALL",1,"I")
Begin DoDot:1
+15 SET (CTR,I)=0
+16 FOR
SET I=$ORDER(ORY(I))
IF 'I
QUIT
SET $PIECE(ORY(I),"^",5)=1
SET CTR=CTR+1
Begin DoDot:2
+17 IF $PIECE(ORY(I),"^")=200
SET $PIECE(ORY(I),"^",2)="DEPT. OF DEFENSE"
+18 IF $PIECE(ORY(I),"^")="200HD"
Begin DoDot:3
+19 IF +$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")=0
KILL ORY(I)
SET CTR=CTR-1
QUIT
+20 ; Remove commented out code to enable HDR + 1 other site.
SET HDRFLG=I
End DoDot:3
End DoDot:2
End DoDot:1
+21 DO GETLST^XPAR(.ORSITES,"ALL","ORWRP CIRN SITES","I")
+22 SET (CTR,I)=0
SET LOCAL=$PIECE($$SITE^VASITE,"^",3)
+23 FOR
SET I=$ORDER(ORY(I))
IF 'I
QUIT
Begin DoDot:1
+24 IF +ORY(I)=+LOCAL
KILL ORY(I)
QUIT
+25 SET IFN=$$IEN^XUAF4(ORY(I))
SET CTR=CTR+1
+26 IF IFN
IF $GET(ORSITES(IFN))
SET $PIECE(ORY(I),"^",5)=1
IF $PIECE(ORY(I),"^")=200
SET $PIECE(ORY(I),"^",2)="DEPT. OF DEFENSE"
+27 IF IFN
IF $GET(ORSITES(IFN))
IF $PIECE(ORY(I),"^")="200HD"
Begin DoDot:2
+28 IF +$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")=0
KILL ORY(I)
SET CTR=CTR-1
QUIT
+29 ; Remove commented out code to enable HDR + 1 other site.
SET HDRFLG=I
End DoDot:2
End DoDot:1
+30 IF '$LENGTH($ORDER(ORY("")))
SET ORY(0)="-1^Only local data exists for this patient"
+31 IF $GET(HDRFLG)
IF CTR'>1
KILL ORY(HDRFLG)
SET ORY(0)="-1^Only HDR has data for this patient"
+32 QUIT
RESTRICT(ORY,PATID) ;Check for sensitive patient
+1 NEW DFN,ICN,SITE
+2 IF '$GET(PATID)
SET ORY(1)="-1"
SET ORY(2)="Invalid Patient ID"
QUIT
+3 SET ICN=$PIECE(PATID,";",2)
+4 IF 'ICN
SET ORY(1)="-1"
SET ORY(2)="Invalid ICN"
QUIT
+5 SET SITE=$$SITE^VASITE
SET SITE=$PIECE(SITE,"^",2)_";"_$PIECE(SITE,"^",3)
+6 SET DFN=+$$GETDFN^MPIF001(ICN)
+7 IF DFN<0
SET ORY(1)="-1"
SET ORY(2)="Patient not found on remote system ("_SITE_")"
QUIT
+8 DO PTSEC^DGSEC4(.ORY,DFN)
+9 QUIT
CHKLNK(ORY) ;Check for active HL7 TCP link on local system
+1 SET ORY=$$STAT^HLCSLM
+2 QUIT
WEBADDR(ORY,PATID) ;Get VistaWeb Address
+1 SET ORY=$$GET^XPAR("ALL","ORWRP VISTAWEB ADDRESS",1,"I")
+2 IF ORY=""
SET ORY="https://vistaweb.med.va.gov"
QUIT
+3 IF ORY="https://vistaweb.med.va.gov"
QUIT
+4 SET ORY=ORY_"?q9gtw0="_$PIECE($$SITE^VASITE,"^",3)_"&xqi4z="_PATID_"&yiicf="_DUZ
+5 QUIT
AUTORDV(ORY) ;Get parameter value for ORWRP CIRN AUTOMATIC
+1 SET ORY=+$$GET^XPAR("ALL","ORWRP CIRN AUTOMATIC",1,"I")
+2 QUIT
HDRON(ORY) ;Get parameter value for ORWRP HDR ON
+1 SET ORY=+$$GET^XPAR("ALL","ORWRP HDR ON",1,"I")
+2 QUIT
+3 ;
TFL(LIST,DFN) ;EP- for dfn get list of treating facilities
+1 NEW X,ICN,DA,DR,VAFCTFU1,DIC,DIQ,VAFC
+2 SET X="MPIF001"
XECUTE ^%ZOSF("TEST")
IF '$TEST
SET LIST(1)="-1^MPI Not Installed"
QUIT
+3 ;**448
SET DR=".01;13;99"
SET DIC=4
SET DIQ(0)="E"
SET DIQ="VAFCTFU1"
+4 SET ICN=$$GETICN^MPIF001(DFN)
+5 IF ICN<0
SET LIST(1)=ICN
QUIT
+6 DO GETLST^XPAR(.LIST,"ALL","ORWRP CIRN SITES","Q")
+7 FOR VAFC=0:0
SET VAFC=$ORDER(LIST(VAFC))
IF VAFC=""
QUIT
Begin DoDot:1
+8 KILL VAFCTFU1
+9 SET DA=+LIST(VAFC)
+10 DO EN^DIQ1
+11 ;S LIST(VAFC)=VAFCTFU1(4,+LIST(VAFC),99,"E")_"^"_VAFCTFU1(4,+LIST(VAFC),.01,"E")_"^"_$P(LIST(VAFC),"^",2)_"^"_$P(LIST(VAFC),"^",3)_"^"_VAFCTFU1(4,+LIST(VAFC),13,"E") ;**448
+12 SET LIST(VAFC)=VAFCTFU1(4,+LIST(VAFC),99,"E")_U_VAFCTFU1(4,+LIST(VAFC),.01,"E")_U_U_$PIECE(LIST(VAFC),"^",3)_"^1"
End DoDot:1
+13 QUIT
