RGEX07 ;BIR/PTD-LIST MANAGER ROUTINE FOR REMOTE PRIMARY VIEW DISPLAY ;10/17/06
;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,53**;30 Apr 99;Build 2
;
;Reference to ^XWB2HL7 supported by IA #3144
;Reference to ^XWBDRPC supported by IA #3149
;
EN(ICN,EXCDT) ;Entry point calling List Template for primary view reject display
D EN^VALM("RG EXCPT PV REJECT RDISPLAY")
Q
;
HDR ; -- header code
S VALMHDR(1)="MPI PRIMARY VIEW REJECT DISPLAY"
Q
;
INIT ;Display the MPI Primary View Rejected Data Report
K ^TMP("RGEXC7",$J)
K @VALMAR
I '$D(ICN) G EXIT
I '$D(EXCDT) G EXIT
S LIN=1,X=0,STR="",TXT=""
I '$D(^XTMP("RGPVREJ"_ICN,EXCDT)) S TXT=" - No Primary View Reject data exists for this patient/exception date." D ADDTMP
N STATUS,R,RETURN,RESULT,RET
I $D(^XTMP("RGPVREJ"_ICN,EXCDT)) S RETURN(0)=$P(^XTMP("RGPVREJ"_ICN,EXCDT),"^") D
.D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) I +RESULT(0)=1 D
..;Retrieve the data
..D RTNDATA^XWBDRPC(.RET,RETURN(0)) D
...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
K GLO,L,R,SL
S VALMCNT=LIN-1
Q
;
ADDTMP ;Set string into the array.
S ^TMP("RGEXC7",$J,LIN,0)=STR
S ^TMP("RGEXC7",$J,"IDX",LIN,LIN)=""
S LIN=LIN+1,STR=""
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
S VALMBCK=""
K ^TMP("RGEXC7",$J),GLO,L,LIN,R,RESULT,RET,RETURN,SL,STATUS,STR,TXT,X
S VALMBCK="R"
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGEX07 1723 printed Apr 09, 2024@20:48:19 Page 2
RGEX07 ;BIR/PTD-LIST MANAGER ROUTINE FOR REMOTE PRIMARY VIEW DISPLAY ;10/17/06
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,53**;30 Apr 99;Build 2
+2 ;
+3 ;Reference to ^XWB2HL7 supported by IA #3144
+4 ;Reference to ^XWBDRPC supported by IA #3149
+5 ;
EN(ICN,EXCDT) ;Entry point calling List Template for primary view reject display
+1 DO EN^VALM("RG EXCPT PV REJECT RDISPLAY")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="MPI PRIMARY VIEW REJECT DISPLAY"
+2 QUIT
+3 ;
INIT ;Display the MPI Primary View Rejected Data Report
+1 KILL ^TMP("RGEXC7",$JOB)
+2 KILL @VALMAR
+3 IF '$DATA(ICN)
GOTO EXIT
+4 IF '$DATA(EXCDT)
GOTO EXIT
+5 SET LIN=1
SET X=0
SET STR=""
SET TXT=""
+6 IF '$DATA(^XTMP("RGPVREJ"_ICN,EXCDT))
SET TXT=" - No Primary View Reject data exists for this patient/exception date."
DO ADDTMP
+7 NEW STATUS,R,RETURN,RESULT,RET
+8 IF $DATA(^XTMP("RGPVREJ"_ICN,EXCDT))
SET RETURN(0)=$PIECE(^XTMP("RGPVREJ"_ICN,EXCDT),"^")
Begin DoDot:1
+9 DO RPCCHK^XWB2HL7(.RESULT,RETURN(0))
IF +RESULT(0)=1
Begin DoDot:2
+10 ;Retrieve the data
+11 DO RTNDATA^XWBDRPC(.RET,RETURN(0))
Begin DoDot:3
+12 IF $GET(RET(0))<0
SET TXT="No Data Returned Due To: "_$PIECE(RET(0),"^",2,99)
SET STR=$$SETSTR^VALM1(TXT,STR,2,78)
DO ADDTMP
QUIT
+13 IF $GET(RET)'=""
IF $DATA(@RET)
SET GLO=RET
FOR
SET GLO=$QUERY(@GLO)
if $QSUBSCRIPT(GLO,1)'=$JOB
QUIT
SET TXT=@GLO
SET STR=$$SETSTR^VALM1(TXT,STR,2,78)
DO ADDTMP
+14 SET R=""
FOR
SET R=$ORDER(RET(R))
if R=""
QUIT
SET TXT=RET(R)
SET STR=$$SETSTR^VALM1(TXT,STR,2,78)
DO ADDTMP
End DoDot:3
End DoDot:2
End DoDot:1
+15 KILL GLO,L,R,SL
+16 SET VALMCNT=LIN-1
+17 QUIT
+18 ;
ADDTMP ;Set string into the array.
+1 SET ^TMP("RGEXC7",$JOB,LIN,0)=STR
+2 SET ^TMP("RGEXC7",$JOB,"IDX",LIN,LIN)=""
+3 SET LIN=LIN+1
SET STR=""
+4 QUIT
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 SET VALMBCK=""
+2 KILL ^TMP("RGEXC7",$JOB),GLO,L,LIN,R,RESULT,RET,RETURN,SL,STATUS,STR,TXT,X
+3 SET VALMBCK="R"
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
