- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPVMPI.m
r628 r636 1 1 RGPVMPI ;BIR/PTD-REMOTE PRIMARY VIEW DISPLAY FROM MPI ;5/17/07 2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**48 ,53**;30 Apr 99;Build 22 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**48**;30 Apr 99;Build 3 3 3 ; 4 4 ;Reference to EN1^XWB2HL7 supported by IA #3144 … … 33 33 .D FULL^VALM1 34 34 NOQ ;No previous query exists for this ICN 35 I '$D(^XTMP("RGPVMPI" _RGICN)) D RPC G DISP35 I '$D(^XTMP("RGPVMPI",RGICN)) D RPC G DISP 36 36 ; 37 37 OLDQ ;Query previously sent for this ICN 38 I $D(^XTMP("RGPVMPI" _RGICN)) D39 .S SNTDT=$$FMTE^XLFDT($P(^XTMP("RGPVMPI" _RGICN,"DATA"),"^",2))38 I $D(^XTMP("RGPVMPI",RGICN)) D 39 .S SNTDT=$$FMTE^XLFDT($P(^XTMP("RGPVMPI",RGICN),"^",2)) 40 40 .W !,"A query was last sent for this ICN on "_SNTDT 41 41 .;Has data returned for query? 42 .S RETURN(0)=$P(^XTMP("RGPVMPI" _RGICN,"DATA"),"^")42 .S RETURN(0)=$P(^XTMP("RGPVMPI",RGICN),"^") 43 43 .D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) 44 44 .;Data has NOT returned 45 .I +RESULT(0)'=1 D FAIL Q ;**5345 .I +RESULT(0)'=1 S QUIT=1 W !,"Query data has NOT returned from the MPI; please check back later." Q 46 46 .I +RESULT(0)=1 D ;Data has returned 47 47 ..S DIR("A")="Do you wish to view the existing query data now? ",DIR(0)="YA" … … 50 50 ..I Y>0 K DIR Q ;yes, use existing query 51 51 ..I Y=0 D Q ;no, don't use existing, send new query 52 ...K ^XTMP("RGPVMPI" _RGICN)52 ...K ^XTMP("RGPVMPI",RGICN) 53 53 ...D RPC 54 54 ...K DIR … … 70 70 W !,"This will take some time; please be patient." 71 71 D EN1^XWB2HL7(.RETURN,"200M","RG PRIMARY VIEW FROM MPI",1,RGICN) I RETURN(0)'="" D Q 72 .S ^XTMP("RGPVMPI" _RGICN,0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW MPI PDAT"73 .S ^XTMP("RGPVMPI" _RGICN,"DATA")=RETURN(0)_"^"_$$NOW^XLFDT72 .S ^XTMP("RGPVMPI",0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW MPI PDAT" 73 .S ^XTMP("RGPVMPI",RGICN)=RETURN(0)_"^"_$$NOW^XLFDT 74 74 .;Has data returned for this query? 75 75 .S CNT=0 F S CNT=CNT+1 D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) Q:RESULT(0) H 2 I CNT>15 Q ;result(0)=status of handle 76 76 .I +RESULT(0)=1 W !,"Query data has returned from the MPI and is available for review." 77 .I +RESULT(0)'=1 D FAIL ;**53 77 .I +RESULT(0)'=1 D ;quit, info not back after 30 seconds 78 ..W !,"Query data has NOT returned from the MPI; please check back later." 79 ..S QUIT=1 80 ..I SAPV=0 D PAUSE^VALM1 78 81 W !!,"Problem with Query: ",RETURN(0)_"^"_$G(RETURN(1)) 79 82 S QUIT=1 … … 81 84 Q 82 85 ; 83 FAIL ;Status of RPC call - unsuccessful after 30 seconds ;**5384 W !,"Your query request has NOT returned data from the MPI after trying for"85 W !,"30 seconds. This could be due to network issues. Please try again later."86 K ^XTMP("RGPVMPI"_RGICN)87 S QUIT=188 I SAPV=0 D PAUSE^VALM189 Q90 ;
Note:
See TracChangeset
for help on using the changeset viewer.