Changeset 636 for FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (15 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 19 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC.m
r628 r636 1 A1CKC ; GENERATED FROM 'A1CK VARO/DHCP' INPUT TEMPLATE(#1505), FILE 2;04/ 10/061 A1CKC ; GENERATED FROM 'A1CK VARO/DHCP' INPUT TEMPLATE(#1505), FILE 2;04/21/06 2 2 D DE G BEGIN 3 3 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))="" … … 200 200 C7S S X="" G:DG(DQ)=X C7F1 K DB 201 201 D ^A1CKC2 202 C7F1 N X,X1,X2 S DIXR=6 43D C7X1(U) K X2 M X2=X D C7X1("O") K X1 M X1=X202 C7F1 N X,X1,X2 S DIXR=664 D C7X1(U) K X2 M X2=X D C7X1("O") K X1 M X1=X 203 203 I $G(X(1))]"" D 204 204 . K ^DPT("APTYPE",X,DA) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC1.m
r628 r636 1 A1CKC1 ; ;04/ 10/061 A1CKC1 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 X "S DFN=DA D EN^DGMTR K DGREQF" -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC10.m
r628 r636 1 A1CKC10 ; ;04/ 10/061 A1CKC10 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC11.m
r628 r636 1 A1CKC11 ; ;04/ 10/061 A1CKC11 ; ;04/21/06 2 2 D DE G BEGIN 3 3 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))="" -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC12.m
r628 r636 1 A1CKC12 ; ;04/ 10/061 A1CKC12 ; ;04/21/06 2 2 D DE G BEGIN 3 3 DE S DIE="^DPT(D0,.372,",DIC=DIE,DP=2.04,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DPT(D0,.372,DA,""))="" -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC13.m
r628 r636 1 A1CKC13 ; ;04/ 10/061 A1CKC13 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC14.m
r628 r636 1 A1CKC14 ; ;04/ 10/061 A1CKC14 ; ;04/21/06 2 2 S X=DE(15),DIC=DIE 3 3 X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC15.m
r628 r636 1 A1CKC15 ; ;04/ 10/061 A1CKC15 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC2.m
r628 r636 1 A1CKC2 ; ;04/ 10/061 A1CKC2 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC3.m
r628 r636 1 A1CKC3 ; ;04/ 10/061 A1CKC3 ; ;04/21/06 2 2 D DE G BEGIN 3 3 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))="" … … 214 214 C7S S X="" G:DG(DQ)=X C7F1 K DB 215 215 D ^A1CKC10 216 C7F1 N X,X1,X2 S DIXR=6 43D C7X1(U) K X2 M X2=X D C7X1("O") K X1 M X1=X216 C7F1 N X,X1,X2 S DIXR=664 D C7X1(U) K X2 M X2=X D C7X1("O") K X1 M X1=X 217 217 I $G(X(1))]"" D 218 218 . K ^DPT("APTYPE",X,DA) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC4.m
r628 r636 1 A1CKC4 ; ;04/ 10/061 A1CKC4 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC5.m
r628 r636 1 A1CKC5 ; ;04/ 10/061 A1CKC5 ; ;04/21/06 2 2 S X=DE(5),DIC=DIE 3 3 X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC6.m
r628 r636 1 A1CKC6 ; ;04/ 10/061 A1CKC6 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC7.m
r628 r636 1 A1CKC7 ; ;04/ 10/061 A1CKC7 ; ;04/21/06 2 2 S X=DE(6),DIC=DIE 3 3 ; -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC8.m
r628 r636 1 A1CKC8 ; ;04/ 10/061 A1CKC8 ; ;04/21/06 2 2 S X=DG(DQ),DIC=DIE 3 3 X "S DFN=DA D EN^DGMTR K DGREQF" -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC9.m
r628 r636 1 A1CKC9 ; ;04/ 10/061 A1CKC9 ; ;04/21/06 2 2 S X=DE(7),DIC=DIE 3 3 I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA) -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGADTP2.m
r628 r636 1 1 RGADTP2 ;BIR/DLR-ADT PROCESSOR TO RETRIGGER A08 or A04 MESSAGES WITH AL/AL (COMMIT/APPLICATION) ACKNOWLEDGEMENTS - CONTINUED ;10/30/02 10:04 2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**27,20,45,44,47,48 ,49**;30 Apr 99;Build 12 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**27,20,45,44,47,48**;30 Apr 99;Build 3 3 3 DBIA ; 4 4 ;Reference to $$ADD^VAFCEHU1 supported by IA #2753 … … 53 53 ..S ARRAY(.2403)=$$FREE^RGRSPARS($G(ARRAY("MMN"))),ARRAY(991.01)=$P($G(ARRAY("ICN")),"V") 54 54 ..N ARAY M ARAY(2)=ARRAY 55 ..S VAFCA08=1 ;S BOGUS=$$ADD^VAFCEHU1(VAFCA,"ARAY") comment out by RG*1*4955 ..S VAFCA08=1 S BOGUS=$$ADD^VAFCEHU1(VAFCA,"ARAY") 56 56 .;if sending site is the CMOR OR MPI - synchronize data **45 ADDED MPI AND SSNV TO UPDATED FIELDS 57 57 .I (OTHSITE)=(CMOR)!(OTHSITE="200M") D -
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 ; -
FOIAVistA/tag/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGPVREJ.m
r628 r636 1 1 RGPVREJ ;BIR/PTD-REMOTE PRIMARY VIEW REJECT (PATIENT) ;10/8/06 2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,47 ,53**;30 Apr 99;Build 22 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,47**;30 Apr 99;Build 10 3 3 ; 4 4 ;Reference to ^XWB2HL7 supported by IA #3144 … … 24 24 S RGEDT=$$DT^XLFDT ;End date for report internal format 25 25 NOQ ;No previous query exists for this ICN/exception date 26 I '$D(^XTMP("RGPVREJ" _RGICN,RGBDT)) D RPC G DISP26 I '$D(^XTMP("RGPVREJ",RGICN,RGBDT)) D RPC G DISP 27 27 ; 28 28 OLDQ ;Query already sent for this ICN/ exception date 29 I $D(^XTMP("RGPVREJ" _RGICN,RGBDT)) D30 .S SNTDT=$$FMTE^XLFDT($P(^XTMP("RGPVREJ" _RGICN,RGBDT),"^",2))29 I $D(^XTMP("RGPVREJ",RGICN,RGBDT)) D 30 .S SNTDT=$$FMTE^XLFDT($P(^XTMP("RGPVREJ",RGICN,RGBDT),"^",2)) 31 31 .W !?3,"A query was last sent for this ICN/Exception Date on "_SNTDT 32 32 .S X=$P(SNTDT,"@") D ^%DT S SNTDT=Y ;convert to internal, strip time 33 33 .;Has data returned for existing query? 34 .S RETURN(0)=$P(^XTMP("RGPVREJ" _RGICN,RGBDT),"^")34 .S RETURN(0)=$P(^XTMP("RGPVREJ",RGICN,RGBDT),"^") 35 35 .D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) I +RESULT(0)=1 D Q ;Data has returned 36 36 ..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 41 41 ...I Y=0 D Q ;no, don't use existing, send new query 42 ....K ^XTMP("RGPVREJ" _RGICN,RGBDT)42 ....K ^XTMP("RGPVREJ",RGICN,RGBDT) 43 43 ....D RPC 44 44 ....K DIR … … 46 46 ..I RGEDT'=SNTDT D ;query was NOT sent 'today', data may be old, send new query 47 47 ...W !?3,"Previous Query data may be obsolete." 48 ...K ^XTMP("RGPVREJ" _RGICN,RGBDT)48 ...K ^XTMP("RGPVREJ",RGICN,RGBDT) 49 49 ...D RPC 50 50 .;Data for existing query has NOT returned **47 51 .I +RESULT(0)'=1 D FAIL ;**5351 .I +RESULT(0)'=1 S QUIT=1 W !?3,"Query data has NOT returned from the MPI; please check back later." D PAUSE^VALM1 52 52 ; 53 53 DISP ;Display Primary View Reject Data … … 61 61 W !?3,"This will take some time; please be patient." 62 62 D EN1^XWB2HL7(.RETURN,"200M","RG PRIMARY VIEW REJECT",1,RGSITE,RGICN,RGBDT,RGEDT) I RETURN(0)'="" D Q 63 .S ^XTMP("RGPVREJ" _RGICN,0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW REJECT"64 .S ^XTMP("RGPVREJ" _RGICN,RGBDT)=RETURN(0)_"^"_$$NOW^XLFDT63 .S ^XTMP("RGPVREJ",0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW REJECT" 64 .S ^XTMP("RGPVREJ",RGICN,RGBDT)=RETURN(0)_"^"_$$NOW^XLFDT 65 65 .;Has data returned for this query? 66 66 .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 67 67 .I +RESULT(0)=1 W !?3,"Query data has returned from the MPI and is available for review." 68 .I +RESULT(0)'=1 D FAIL ;**53 68 .I +RESULT(0)'=1 D ;quit, info not back after 30 seconds 69 ..W !?3,"Query data has NOT returned from the MPI; please check back later." 70 ..S QUIT=1 71 ..D PAUSE^VALM1 69 72 W !!?3,"Problem with Query: ",RETURN(0)_"^"_$G(RETURN(1)) 70 73 S QUIT=1 … … 72 75 Q 73 76 ; 74 FAIL ;Status of RPC call - unsuccessful after 30 seconds ;**5375 W !?3,"Your query request has NOT returned data from the MPI after trying for"76 W !?3,"30 seconds. This could be due to network issues. Please try again later."77 K ^XTMP("RGPVREJ"_RGICN,RGBDT)78 S QUIT=179 D PAUSE^VALM180 Q81 ;
Note:
See TracChangeset
for help on using the changeset viewer.