Changeset 636 for FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPVREJ.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPVREJ.m (modified) (6 diffs)

FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPVREJ.m

@@ -1 +1 @@
 RGPVREJ ;BIR/PTD-REMOTE PRIMARY VIEW REJECT (PATIENT) ;10/8/06
- ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,47,53**;30 Apr 99;Build 2
+ ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,47**;30 Apr 99;Build 10
  ;
  ;Reference to ^XWB2HL7 supported by IA #3144
@@ -24 +24 @@
  S RGEDT=$$DT^XLFDT ;End date for report internal format
 NOQ ;No previous query exists for this ICN/exception date
- I '$D(^XTMP("RGPVREJ"_RGICN,RGBDT)) D RPC G DISP
+ I '$D(^XTMP("RGPVREJ",RGICN,RGBDT)) D RPC G DISP
  ;
 OLDQ ;Query already sent for this ICN/ exception date
- I $D(^XTMP("RGPVREJ"_RGICN,RGBDT)) D
- .S SNTDT=$$FMTE^XLFDT($P(^XTMP("RGPVREJ"_RGICN,RGBDT),"^",2))
+ I $D(^XTMP("RGPVREJ",RGICN,RGBDT)) D
+ .S SNTDT=$$FMTE^XLFDT($P(^XTMP("RGPVREJ",RGICN,RGBDT),"^",2))
  .W !?3,"A query was last sent for this ICN/Exception Date on "_SNTDT
  .S X=$P(SNTDT,"@") D ^%DT S SNTDT=Y ;convert to internal, strip time
  .;Has data returned for existing query?
- .S RETURN(0)=$P(^XTMP("RGPVREJ"_RGICN,RGBDT),"^")
+ .S RETURN(0)=$P(^XTMP("RGPVREJ",RGICN,RGBDT),"^")
  .D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) I +RESULT(0)=1 D  Q  ;Data has returned
  ..I RGEDT=SNTDT D  ;query was sent 'today', want to use that one?
@@ -40 +40 @@
  ...I Y>0 K DIR Q  ;yes, use existing query
  ...I Y=0 D  Q  ;no, don't use existing, send new query
- ....K ^XTMP("RGPVREJ"_RGICN,RGBDT)
+ ....K ^XTMP("RGPVREJ",RGICN,RGBDT)
  ....D RPC
  ....K DIR
@@ -46 +46 @@
  ..I RGEDT'=SNTDT D  ;query was NOT sent 'today', data may be old, send new query
  ...W !?3,"Previous Query data may be obsolete."
- ...K ^XTMP("RGPVREJ"_RGICN,RGBDT)
+ ...K ^XTMP("RGPVREJ",RGICN,RGBDT)
  ...D RPC
  .;Data for existing query has NOT returned  **47
- .I +RESULT(0)'=1 D FAIL  ;**53
+ .I +RESULT(0)'=1 S QUIT=1 W !?3,"Query data has NOT returned from the MPI; please check back later." D PAUSE^VALM1
  ;
 DISP ;Display Primary View Reject Data
@@ -61 +61 @@
  W !?3,"This will take some time; please be patient."
  D EN1^XWB2HL7(.RETURN,"200M","RG PRIMARY VIEW REJECT",1,RGSITE,RGICN,RGBDT,RGEDT) I RETURN(0)'="" D  Q
- .S ^XTMP("RGPVREJ"_RGICN,0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW REJECT"
- .S ^XTMP("RGPVREJ"_RGICN,RGBDT)=RETURN(0)_"^"_$$NOW^XLFDT
+ .S ^XTMP("RGPVREJ",0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW REJECT"
+ .S ^XTMP("RGPVREJ",RGICN,RGBDT)=RETURN(0)_"^"_$$NOW^XLFDT
  .;Has data returned for this query?
  .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
  .I +RESULT(0)=1 W !?3,"Query data has returned from the MPI and is available for review."
- .I +RESULT(0)'=1 D FAIL  ;**53
+ .I +RESULT(0)'=1 D  ;quit, info not back after 30 seconds
+ ..W !?3,"Query data has NOT returned from the MPI; please check back later."
+ ..S QUIT=1
+ ..D PAUSE^VALM1
  W !!?3,"Problem with Query: ",RETURN(0)_"^"_$G(RETURN(1))
  S QUIT=1
@@ -72 +75 @@
  Q
  ;
-FAIL ;Status of RPC call - unsuccessful after 30 seconds ;**53
- W !?3,"Your query request has NOT returned data from the MPI after trying for"
- W !?3,"30 seconds. This could be due to network issues. Please try again later."
- K ^XTMP("RGPVREJ"_RGICN,RGBDT)
- S QUIT=1
- D PAUSE^VALM1
- Q
- ;