DGRPCM.m

DGRPCM ;ALB/CMC - API FOR GETTING PV FROM MVI USING ICN ;7/28/2020

 ;;5.3;Registration;**1026**;Aug 13, 1993;Build 3

 ;

GETPV(RET,ICN) ;

 ;RETURN contains the Primary View Data

 ;ICN is the Integration Control Number being used to get the Primary View data

 ;utilizes RPC: MPI RETURN PRIMARY VIEW DATA

 ;

 N CHKSUM,HCNT,RETURN,RESULT S HCNT=0

 I ICN="" S RETURN(1)="-1^MISSING ICN" Q

 I ICN'["V" S CHKSUM=$$CHECKDG^MPIFSPC(ICN),ICN=ICN_"V"_CHKSUM

 ;

TR D EN1^XWB2HL7(.RETURN,"200M","MPI RETURN PRIMARY VIEW DATA",1,ICN,1) ;call rpc - return(0)=handle

 I RETURN(0)="" S HCNT=HCNT+1 H 2 I HCNT<15 G TR

 I RETURN(0)="" S RETURN(1)="-1^COMMUNICATION Failure. "_RETURN_" No handle after sending RPC to MVI" Q

 ;GOT HANDLE

 S HCNT=0 F  S HCNT=HCNT+1 D RPCCHK^XWB2HL7(.RESULT,RETURN(0)) Q:RESULT(0)  H 2 I HCNT>60 Q  ;result(0)=status of message

 ;DONE RETURNED, GET DATA

 I +RESULT(0)=1 D RTNDATA^XWBDRPC(.RET,RETURN(0)) ;ret(0)=data for handle

 ;RPC is done and we have a negative result

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGRPCM   1007     printed  Feb 19, 2025@00:22:05                                                                                                                                                                                                      Page 2

DGRPCM    ;ALB/CMC - API FOR GETTING PV FROM MVI USING ICN ;7/28/2020

 +1       ;;5.3;Registration;**1026**;Aug 13, 1993;Build 3

 +2       ;

GETPV(RET,ICN) ;

 +1       ;RETURN contains the Primary View Data

 +2       ;ICN is the Integration Control Number being used to get the Primary View data

 +3       ;utilizes RPC: MPI RETURN PRIMARY VIEW DATA

 +4       ;

 +5        NEW CHKSUM,HCNT,RETURN,RESULT

           SET HCNT=0

 +6        IF ICN=""

               SET RETURN(1)="-1^MISSING ICN"

               QUIT 

 +7        IF ICN'["V"

               SET CHKSUM=$$CHECKDG^MPIFSPC(ICN)

               SET ICN=ICN_"V"_CHKSUM

 +8       ;

TR        ;call rpc - return(0)=handle

           DO EN1^XWB2HL7(.RETURN,"200M","MPI RETURN PRIMARY VIEW DATA",1,ICN,1)

 +1        IF RETURN(0)=""

               SET HCNT=HCNT+1

               HANG 2

               IF HCNT<15

                   GOTO TR

 +2        IF RETURN(0)=""

               SET RETURN(1)="-1^COMMUNICATION Failure. "_RETURN_" No handle after sending RPC to MVI"

               QUIT 

 +3       ;GOT HANDLE

 +4       ;result(0)=status of message

           SET HCNT=0

           FOR 

               SET HCNT=HCNT+1

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

               if RESULT(0)

                   QUIT 

               HANG 2

               IF HCNT>60

                   QUIT 

 +5       ;DONE RETURNED, GET DATA

 +6       ;ret(0)=data for handle

           IF +RESULT(0)=1

               DO RTNDATA^XWBDRPC(.RET,RETURN(0))

 +7       ;RPC is done and we have a negative result

 +8        QUIT