source: FOIAVistA/trunk/r/CLINICAL_INFO_RESOURCE_NETWORK-MRF-RGE--RG--RGED--RGUT--RGWB/RGEX07.m@ 1423

Last change on this file since 1423 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1RGEX07 ;BIR/PTD-LIST MANAGER ROUTINE FOR REMOTE PRIMARY VIEW DISPLAY ;10/17/06
2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,53**;30 Apr 99;Build 2
3 ;
4 ;Reference to ^XWB2HL7 supported by IA #3144
5 ;Reference to ^XWBDRPC supported by IA #3149
6 ;
7EN(ICN,EXCDT) ;Entry point calling List Template for primary view reject display
8 D EN^VALM("RG EXCPT PV REJECT RDISPLAY")
9 Q
10 ;
11HDR ; -- header code
12 S VALMHDR(1)="MPI PRIMARY VIEW REJECT DISPLAY"
13 Q
14 ;
15INIT ;Display the MPI Primary View Rejected Data Report
16 K ^TMP("RGEXC7",$J)
17 K @VALMAR
18 I '$D(ICN) G EXIT
19 I '$D(EXCDT) G EXIT
20 S LIN=1,X=0,STR="",TXT=""
21 I '$D(^XTMP("RGPVREJ"_ICN,EXCDT)) S TXT=" - No Primary View Reject data exists for this patient/exception date." D ADDTMP
22 N STATUS,R,RETURN,RESULT,RET
23 I $D(^XTMP("RGPVREJ"_ICN,EXCDT)) S RETURN(0)=$P(^XTMP("RGPVREJ"_ICN,EXCDT),"^") D
24 .D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) I +RESULT(0)=1 D
25 ..;Retrieve the data
26 ..D RTNDATA^XWBDRPC(.RET,RETURN(0)) D
27 ...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
28 ...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
29 ...S R="" F S R=$O(RET(R)) Q:R="" S TXT=RET(R) S STR=$$SETSTR^VALM1(TXT,STR,2,78) D ADDTMP
30 K GLO,L,R,SL
31 S VALMCNT=LIN-1
32 Q
33 ;
34ADDTMP ;Set string into the array.
35 S ^TMP("RGEXC7",$J,LIN,0)=STR
36 S ^TMP("RGEXC7",$J,"IDX",LIN,LIN)=""
37 S LIN=LIN+1,STR=""
38 Q
39 ;
40HELP ; -- help code
41 S X="?" D DISP^XQORM1 W !!
42 Q
43 ;
44EXIT ; -- exit code
45 S VALMBCK=""
46 K ^TMP("RGEXC7",$J),GLO,L,LIN,R,RESULT,RET,RETURN,SL,STATUS,STR,TXT,X
47 S VALMBCK="R"
48 Q
49 ;
50EXPND ; -- expand code
51 Q
52 ;
Note: See TracBrowser for help on using the repository browser.