Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RGEX04

RGEX04.m

Go to the documentation of this file.
  1. RGEX04 ;BAY/ALS-LIST MANAGER ROUTINE FOR MPI/PD EXCEPTION PDAT QUERY ;10/31/01
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**23,25,41**;30 Apr 99
  1. EN ;main entry point for RG EXCPT PDAT
  1. D EN^VALM("RG EXCPT PDAT")
  1. Q
  1. HDR ; header code
  1. S VALMHDR(1)="MPI/PD PATIENT DATA"
  1. S VALMHDR(2)=""
  1. Q
  1. INIT ;
  1. K ^TMP("RGEXC4",$J)
  1. K @VALMAR
  1. ;I '$D(ICN) G EXIT
  1. I '$D(^TMP("RGPDAT",$J)) G EXIT
  1. S LIN=1,X=0,STR="",TXT=""
  1. F S X=$O(^TMP("RGPDAT",$J,X)) Q:'X D
  1. . S TXT=^TMP("RGPDAT",$J,X)
  1. . I $E(TXT,1,12)'="Enter RETURN" D
  1. .. S STR=$$SETSTR^VALM1(TXT,STR,2,78)
  1. .. D ADDTMP
  1. S VALMCNT=LIN-1
  1. Q
  1. ADDTMP ;
  1. S ^TMP("RGEXC4",$J,LIN,0)=STR
  1. S ^TMP("RGEXC4",$J,"IDX",LIN,LIN)=""
  1. S LIN=LIN+1,STR=""
  1. Q
  1. RSEND ;Send remote PDAT Query
  1. S VALMBCK="",RICN=ICN
  1. D FULL^VALM1
  1. D SEND^RGRPDAT
  1. D PAUSE^VALM1
  1. S ICN=RICN
  1. D INIT
  1. S VALMBCK="R"
  1. Q
  1. RCHK ;Check remote PDAT Query
  1. S VALMBCK="",RICN=ICN
  1. D FULL^VALM1
  1. D CHKSTAT^RGRPDAT
  1. D PAUSE^VALM1
  1. S ICN=RICN
  1. D INIT
  1. S VALMBCK="R"
  1. Q
  1. RDISP ;Display remote PDAT Query
  1. S VALMBCK="",RICN=ICN
  1. D FULL^VALM1
  1. W !!,"Display data returned from remote patient data queries."
  1. S TFL="",L="",Y="",ICNARR="",STATUS=""
  1. I '$D(^XTMP("RGPDAT"_ICN)) W !!,"No remote query sent for this patient. " G QRD
  1. D GETTFL^RGRPDAT(ICN,.TFL)
  1. W !!,"-> For ICN ",$P(ICN,"V",1),!
  1. I $D(TFL(0)) D
  1. . S X=0 F S X=$O(TFL(X)) Q:'X I '$D(^XTMP("RGPDAT"_ICN,X)) K TFL(X)
  1. D SELTF^RGRPDAT
  1. I '$D(TFARR) W !,"No remote query sent for this patient." G QRD
  1. I ((Y="")!(Y="^")) G QRD
  1. D PAUSE^VALM1
  1. D EN^RGEX05(RICN)
  1. QRD D PAUSE^VALM1
  1. S ICN=RICN
  1. D INIT
  1. S VALMBCK="R"
  1. Q
  1. HELP ;
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. EXIT ;
  1. S VALMBCK=""
  1. K ^TMP("RGEXC4",$J),^TMP("RGPDAT",$J),LIN,X,STR,TXT,RICN,Y,STATUS,TFL,TFARR,L,ICNARR
  1. S VALMBCK="R"
  1. Q