53 lines
1.9 KiB
Mathematica
53 lines
1.9 KiB
Mathematica
VAFCRAU ;BHAM/DRI-LIST MANAGER ROUTINE FOR MPI/PD VAFC EXCPT REMOTE AUDIT IN PDR ;3/14/02 11:41
|
|
;;5.3;Registration;**477,479**;Aug 13, 1993
|
|
;Reference to RPCCHK^XWB2HL7 supported by IA #3144
|
|
;Reference to RTNDATA^XWBDRPC supported by IA #3149
|
|
EN(ICN) ;main entry point for VAFC EXCPT REMOTE AUDIT
|
|
D EN^VALM("VAFC EXCPT REMOTE AUDIT")
|
|
Q
|
|
HDR ;header code
|
|
S VALMHDR(1)="MPI/PD REMOTE AUDIT DATA"
|
|
S VALMHDR(2)=""
|
|
Q
|
|
INIT ;
|
|
K @VALMAR ;K ^TMP("VAFCRAU",$J)
|
|
I '$D(DFN) G EXIT
|
|
S LIN=1,X=0,STR="",TXT=""
|
|
S TXT="-> For Patient "_$P($G(^DPT(DFN,0)),"^",1) S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP
|
|
S L=0 F S L=$O(TFARR(L)) Q:'L D
|
|
. S SL=$P(TFARR(L),"^",1)
|
|
. S STATUS=$P(TFL(SL),"^",3)
|
|
. I STATUS["Handle" S STATUS="Error in Process"
|
|
. E I STATUS["New" S STATUS="Request Sent"
|
|
. E I STATUS["Running" S STATUS="Awaiting Response"
|
|
. E I STATUS["Done" S STATUS="Response Received"
|
|
. S TXT=" "_$P(TFL(SL),"^")_" status: ("_STATUS_")"
|
|
. D ADDTMP
|
|
. S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP D
|
|
. S LOC=$P(TFL(SL),"^",2)
|
|
. N STATUS,RETURN,RESULT,RET
|
|
. I '$D(^XTMP("VAFCRAUD"_ICN,0)) S TXT=" - No audit query exists for this patient." S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP
|
|
. I $D(^XTMP("VAFCRAUD"_ICN,LOC,0)) D
|
|
.. S RETURN(0)=$P(^XTMP("VAFCRAUD"_ICN,LOC,0),"^")
|
|
.. D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) I +RESULT(0)=1 D
|
|
... D RTNDATA^XWBDRPC(.RET,RETURN(0))
|
|
... I $G(RET(0))<0 S TXT="No Data Returned Due To: "_$P(RET(0),"^",2,99) S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP Q
|
|
... I $G(RET)'="",$D(@RET) S GLO=RET F S GLO=$Q(@GLO) Q:$QS(GLO,1)'=$J S TXT=@GLO S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP
|
|
... S R="" F S R=$O(RET(R)) Q:R="" S TXT=RET(R) S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP ;**479
|
|
K TFARR,R,L,SL,LOC,TFL,GLO
|
|
S VALMCNT=LIN-1
|
|
Q
|
|
ADDTMP ;
|
|
S ^TMP("VAFCRAU",$J,LIN,0)=STR
|
|
S ^TMP("VAFCRAU",$J,"IDX",LIN,LIN)=""
|
|
S LIN=LIN+1,STR=""
|
|
Q
|
|
HELP ;
|
|
S X="?" D DISP^XQORM1 W !!
|
|
Q
|
|
EXIT ;
|
|
S VALMBCK=""
|
|
K ^TMP("VAFCRAU",$J),LIN,X,STR,TXT
|
|
S VALMBCK="R"
|
|
Q
|