Routine: RGPVREJ

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

 ;Reference to ^XWB2HL7 supported by IA #3144

 ;Reference to ^XWBDRPC supported by IA #3149

REJ ;Option only available for Primary View Reject exceptions

 ;From within the Exception Handler, for selection, DATA should be defined.

 N RGBDT,RGICN,RGSITE,PTEN,PELV

 I DATA="" W !,"No Exception Data available." Q

 S PTEN=$P(DATA,"^",10) ;IEN IN 991.1

 S PELV=$P(DATA,"^",11) ;IEN IN 991.12

 I $P($G(^RGHL7(991.1,PTEN,1,PELV,0)),"^",3)'=234 S VALMSG="Action is ONLY for PRIMARY VIEW REJECT exceptions!" Q

 I $P($G(^RGHL7(991.1,PTEN,1,PELV,0)),"^",5)=1 S VALMSG="Exception has been PROCESSED; no longer active." Q

 S RGSITE=$P($$SITE^VASITE(),"^",3) I RGSITE="" W !,"No Site Data defined." Q

 S RGICN=$P(DATA,"^",6) I RGICN="" W !,"No ICN defined." Q

 S RGBDT=$P(DATA,"^",3) I RGBDT="" W !,"No Exception Date defined." Q

 S X=RGBDT D ^%DT S RGBDT=Y ;convert Exception Date from external format to internal

 S VALMBCK="",QUIT=0

 D FULL^VALM1

SEND ;Send a remote query to the MPI for Primary View Reject report

 N RETURN,RESULT,RGEDT,SNTDT

 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

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))

 .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),"^")

 .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?

 ...S DIR("A")="   Do you wish to review that existing query data now? ",DIR(0)="YA"

 ...S DIR("?")="     Enter YES to review the existing query; NO to send a new query"

 ...S DIR("B")="YES" D ^DIR K DIR I $D(DIRUT) S QUIT=1 Q  ;up-arrowed out

 ...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)

 ....D RPC

 ....K DIR

 ....;

 ..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)

 ...D RPC

 .;Data for existing query has NOT returned  **47

 .I +RESULT(0)'=1 D FAIL  ;**53

DISP ;Display Primary View Reject Data

 I QUIT'=1 D EN^RGEX07(RGICN,RGBDT)

EXIT ;Kill variables and quit

 K CNT,DIR,DIRUT,QUIT,X,Y

RPC ;Send the Remote Query

 W !?3,"Sending a Remote Query to the Master Patient Index."

 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

 .;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

 W !!?3,"Problem with Query: ",RETURN(0)_"^"_$G(RETURN(1))

 S QUIT=1

 D PAUSE^VALM1

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGPVREJ   3805     printed  Mar 13, 2025@20:47:26                                                                                                                                                                                                     Page 2

RGPVREJ   ;BIR/PTD-REMOTE PRIMARY VIEW REJECT (PATIENT) ;10/8/06

 +1       ;;1.0;CLINICAL INFO RESOURCE NETWORK;**44,47,53**;30 Apr 99;Build 2

 +2       ;

 +3       ;Reference to ^XWB2HL7 supported by IA #3144

 +4       ;Reference to ^XWBDRPC supported by IA #3149

 +5       ;

REJ       ;Option only available for Primary View Reject exceptions

 +1       ;From within the Exception Handler, for selection, DATA should be defined.

 +2        NEW RGBDT,RGICN,RGSITE,PTEN,PELV

 +3        IF DATA=""

               WRITE !,"No Exception Data available."

               QUIT

 +4       ;IEN IN 991.1

           SET PTEN=$PIECE(DATA,"^",10)

 +5       ;IEN IN 991.12

           SET PELV=$PIECE(DATA,"^",11)

 +6        IF $PIECE($GET(^RGHL7(991.1,PTEN,1,PELV,0)),"^",3)'=234

               SET VALMSG="Action is ONLY for PRIMARY VIEW REJECT exceptions!"

               QUIT

 +7        IF $PIECE($GET(^RGHL7(991.1,PTEN,1,PELV,0)),"^",5)=1

               SET VALMSG="Exception has been PROCESSED; no longer active."

               QUIT

 +8        SET RGSITE=$PIECE($$SITE^VASITE(),"^",3)

           IF RGSITE=""

               WRITE !,"No Site Data defined."

               QUIT

 +9        SET RGICN=$PIECE(DATA,"^",6)

           IF RGICN=""

               WRITE !,"No ICN defined."

               QUIT

 +10       SET RGBDT=$PIECE(DATA,"^",3)

           IF RGBDT=""

               WRITE !,"No Exception Date defined."

               QUIT

 +11      ;convert Exception Date from external format to internal

           SET X=RGBDT

           DO ^%DT

           SET RGBDT=Y

 +12      ;

 +13       SET VALMBCK=""

           SET QUIT=0

 +14       DO FULL^VALM1

SEND      ;Send a remote query to the MPI for Primary View Reject report

 +1        NEW RETURN,RESULT,RGEDT,SNTDT

 +2       ;End date for report internal format

           SET RGEDT=$$DT^XLFDT

NOQ       ;No previous query exists for this ICN/exception date

 +1        IF '$DATA(^XTMP("RGPVREJ"_RGICN,RGBDT))

               DO RPC

               GOTO DISP

 +2       ;

OLDQ      ;Query already sent for this ICN/ exception date

 +1        IF $DATA(^XTMP("RGPVREJ"_RGICN,RGBDT))

               Begin DoDot:1

 +2                SET SNTDT=$$FMTE^XLFDT($PIECE(^XTMP("RGPVREJ"_RGICN,RGBDT),"^",2))

 +3                WRITE !?3,"A query was last sent for this ICN/Exception Date on "_SNTDT

 +4       ;convert to internal, strip time

                   SET X=$PIECE(SNTDT,"@")

                   DO ^%DT

                   SET SNTDT=Y

 +5       ;Has data returned for existing query?

 +6                SET RETURN(0)=$PIECE(^XTMP("RGPVREJ"_RGICN,RGBDT),"^")

 +7       ;Data has returned

                   DO RPCCHK^XWB2HL7(.RESULT,RETURN(0))

                   IF +RESULT(0)=1

                       Begin DoDot:2

 +8       ;query was sent 'today', want to use that one?

                           IF RGEDT=SNTDT

                               Begin DoDot:3

 +9                                SET DIR("A")="   Do you wish to review that existing query data now? "

                                   SET DIR(0)="YA"

 +10                               SET DIR("?")="     Enter YES to review the existing query; NO to send a new query"

 +11      ;up-arrowed out

                                   SET DIR("B")="YES"

                                   DO ^DIR

                                   KILL DIR

                                   IF $DATA(DIRUT)

                                       SET QUIT=1

                                       QUIT

 +12      ;yes, use existing query

                                   IF Y>0

                                       KILL DIR

                                       QUIT

 +13      ;no, don't use existing, send new query

                                   IF Y=0

                                       Begin DoDot:4

 +14                                       KILL ^XTMP("RGPVREJ"_RGICN,RGBDT)

 +15                                       DO RPC

 +16                                       KILL DIR

 +17      ;

                                       End DoDot:4

                                       QUIT

                               End DoDot:3

 +18      ;query was NOT sent 'today', data may be old, send new query

                           IF RGEDT'=SNTDT

                               Begin DoDot:3

 +19                               WRITE !?3,"Previous Query data may be obsolete."

 +20                               KILL ^XTMP("RGPVREJ"_RGICN,RGBDT)

 +21                               DO RPC

                               End DoDot:3

                       End DoDot:2

                       QUIT

 +22      ;Data for existing query has NOT returned  **47

 +23      ;**53

                   IF +RESULT(0)'=1

                       DO FAIL

               End DoDot:1

 +24      ;

DISP      ;Display Primary View Reject Data

 +1        IF QUIT'=1

               DO EN^RGEX07(RGICN,RGBDT)

EXIT      ;Kill variables and quit

 +1        KILL CNT,DIR,DIRUT,QUIT,X,Y

 +2        QUIT

 +3       ;

RPC       ;Send the Remote Query

 +1        WRITE !?3,"Sending a Remote Query to the Master Patient Index."

 +2        WRITE !?3,"This will take some time; please be patient."

 +3        DO EN1^XWB2HL7(.RETURN,"200M","RG PRIMARY VIEW REJECT",1,RGSITE,RGICN,RGBDT,RGEDT)

           IF RETURN(0)'=""

               Begin DoDot:1

 +4                SET ^XTMP("RGPVREJ"_RGICN,0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"PRIMARY VIEW REJECT"

 +5                SET ^XTMP("RGPVREJ"_RGICN,RGBDT)=RETURN(0)_"^"_$$NOW^XLFDT

 +6       ;Has data returned for this query?

 +7       ;result(0)=status of handle

                   SET CNT=0

FOR

                       SET CNT=CNT+1

                       DO RPCCHK^XWB2HL7(.RESULT,RETURN(0))

                       if RESULT(0)

                           QUIT

                       HANG 2

                       IF CNT>15

                           QUIT

 +8                IF +RESULT(0)=1

                       WRITE !?3,"Query data has returned from the MPI and is available for review."

 +9       ;**53

                   IF +RESULT(0)'=1

                       DO FAIL

               End DoDot:1

               QUIT

 +10       WRITE !!?3,"Problem with Query: ",RETURN(0)_"^"_$GET(RETURN(1))

 +11       SET QUIT=1

 +12       DO PAUSE^VALM1

 +13       QUIT

 +14      ;

FAIL      ;Status of RPC call - unsuccessful after 30 seconds ;**53

 +1        WRITE !?3,"Your query request has NOT returned data from the MPI after trying for"

 +2        WRITE !?3,"30 seconds. This could be due to network issues. Please try again later."

 +3        KILL ^XTMP("RGPVREJ"_RGICN,RGBDT)

 +4        SET QUIT=1

 +5        DO PAUSE^VALM1

 +6        QUIT

 +7       ;

RGPVREJ.m