RGRPC ;BIRMIO/CMC-RG RPC API ;3 MAY 07
;;1.0;CLINICAL INFO RESOURCE NETWORK;**48**;30 Apr 99;Build 3
;
;
EN(RETURN,ICN,SSN,DFN,BRANGE,ERANGE) ;
;RETURN IS THE ARRAY TO HOLD THE RESULTS
;ICN is the Integration Control Number of the patient to find exceptions for (optional)
;SSN is the social of the patient to find exceptions for (optional)
;DFN is the internal entry number of the patient in the PATIENT (#2) file to find exceptions for (optional)
;Either ICN, SSN or DFN must be present
;BRANGE is the BEGINNING date range specified to find exceptions for the patient
;ERANGE is the ENDING date range specified to find exceptions for the patient
;
;S ^XTMP("CMC")=ICN_"^"_SSN_"^"_DFN_"^"_BRANGE_"^"_ERANGE FOR DEBUGGING
I $G(ICN)=""&$G(SSN)=""&$G(DFN)="" S RETURN="-1^Patient not specified" Q
I $G(BRANGE)="" S BRANGE=DT
I $G(ERANGE)="" S ERANGE=DT
I BRANGE>ERANGE S RETURN="-1^Beginning date is newer than End date" Q
;
I $G(DFN)="" D
.;need to get DFN
.I $G(SSN)'="" S ICN=$$GETICNS^MPIF002(SSN)
.I $G(ICN)'="" S DFN=$$GETDFN^MPIF001(ICN)
I $G(DFN)=""!(+$G(DFN)=-1) S RETURN="-1^Can't find Patient" Q
;
; check if this data can be returned and if sensative pt bulletin needed
N SENS D PTSEC^DGSEC4(.SENS,DFN,1,"Remote Procedure from MPI^RPC from MPI for RG Exception Information")
N NOT D NOTICE^DGSEC4(.NOT,DFN,"Remote Procedure from MPI^RPC from MPI for RG Exception Information")
I SENS(1)=3!(SENS(1)=4)!(SENS(1)=-1) S RETURN="-1^SENSATIVE PT ISSUE "_SENS(2)_" DFN= "_DFN_" ICN= "_ICN Q
;
;are there any exceptions for this patient?
N TYP,CNT,IEN,IEN2,ETYP,WHO,X,Y,DIC,WTYP,WSTAT,MCNT S TYP="",CNT=1,MCNT=0
F S TYP=$O(^RGHL7(991.1,"ADFN",TYP)) Q:TYP="" D
.I $D(^RGHL7(991.1,"ADFN",TYP,DFN)) D
..S IEN=0 F S IEN=$O(^RGHL7(991.1,"ADFN",TYP,DFN,IEN)) Q:IEN="" D
...S IEN2="",ETYP="" F S IEN2=$O(^RGHL7(991.1,"ADFN",TYP,DFN,IEN,IEN2)) Q:'IEN2 D
....S NODE=$G(^RGHL7(991.1,IEN,1,IEN2,0))
....S NODE10=$G(^RGHL7(991.1,IEN,1,IEN2,10))
....S LOGGED=$P(^RGHL7(991.1,IEN,0),"^",2)
....I $P(LOGGED,".")<BRANGE!($P(LOGGED,".")>ERANGE) Q
....S RETURN(CNT)="Exception Number: "_$P($G(^RGHL7(991.1,IEN,0)),"^"),CNT=CNT+1,MCNT=MCNT+1
....K Y S Y=LOGGED I Y'="" D DD^%DT
....S RETURN(CNT)="Exception logged on: "_Y,CNT=CNT+1
....S WTYP=$G(^RGHL7(991.11,TYP,10))
....S RETURN(CNT)="Exception Type: "_TYP_" - "_WTYP,CNT=CNT+1
....S RETURN(CNT)="Patient DFN: "_$P(NODE,"^",4),CNT=CNT+1
....S WSTAT=$P(NODE,"^",5) S WSTAT=$S(WSTAT=1:"PROCESSED",WSTAT=0:"NOT PROCESSED",1:"")
....S RETURN(CNT)="Exception Status: "_WSTAT,CNT=CNT+1
....I $P(NODE,"^",5)=1 D
.....;MARKED AS PROCESSED
.....K Y S Y=$P(NODE,"^",6) I Y'="" D DD^%DT
.....S RETURN(CNT)="Date Processed: "_Y,CNT=CNT+1
.....S WHO=$P(NODE,"^",7) I WHO'="" K X,Y S DIC="^VA(200,",DIC(0)="ZMO",X="`"_WHO D ^DIC I $G(Y)>1 S WHO=$G(Y(0,0))
.....S RETURN(CNT)="Processed by: "_WHO,CNT=CNT+1
....S RETURN(CNT)="Exception Text: "_NODE10,CNT=CNT+1
....I $D(^RGHL7(991.1,IEN,1,IEN2,11)) D
.....S RETURN(CNT)="Exception Notes:",CNT=CNT+1
.....N IEN3 S IEN3=0 F S IEN3=$O(^RGHL7(991.1,IEN,1,IEN2,11,IEN3)) Q:IEN3="" S RETURN(CNT)=$G(^RGHL7(991.1,IEN,1,IEN2,11,IEN3,0)),CNT=CNT+1
....S RETURN(CNT)="**************************",CNT=CNT+1
I CNT=1 S RETURN(0)="-1^No Exceptions found in date range.",RETURN=0
S SITE=$$SITE^VASITE
N PT S PT=$S(ICN'="":"ICN= "_ICN,DFN'="":"DFN= "_DFN,SSN'="":"SSN= "_SSN)
I CNT>1 S RETURN(0)=MCNT_" exceptions found for "_PT_" at "_$P(SITE,"^",2)_" ("_$P(SITE,"^",3)_")",RETURN=MCNT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGRPC 3578 printed Nov 22, 2024@16:53 Page 2
RGRPC ;BIRMIO/CMC-RG RPC API ;3 MAY 07
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**48**;30 Apr 99;Build 3
+2 ;
+3 ;
EN(RETURN,ICN,SSN,DFN,BRANGE,ERANGE) ;
+1 ;RETURN IS THE ARRAY TO HOLD THE RESULTS
+2 ;ICN is the Integration Control Number of the patient to find exceptions for (optional)
+3 ;SSN is the social of the patient to find exceptions for (optional)
+4 ;DFN is the internal entry number of the patient in the PATIENT (#2) file to find exceptions for (optional)
+5 ;Either ICN, SSN or DFN must be present
+6 ;BRANGE is the BEGINNING date range specified to find exceptions for the patient
+7 ;ERANGE is the ENDING date range specified to find exceptions for the patient
+8 ;
+9 ;S ^XTMP("CMC")=ICN_"^"_SSN_"^"_DFN_"^"_BRANGE_"^"_ERANGE FOR DEBUGGING
+10 IF $GET(ICN)=""&$GET(SSN)=""&$GET(DFN)=""
SET RETURN="-1^Patient not specified"
QUIT
+11 IF $GET(BRANGE)=""
SET BRANGE=DT
+12 IF $GET(ERANGE)=""
SET ERANGE=DT
+13 IF BRANGE>ERANGE
SET RETURN="-1^Beginning date is newer than End date"
QUIT
+14 ;
+15 IF $GET(DFN)=""
Begin DoDot:1
+16 ;need to get DFN
+17 IF $GET(SSN)'=""
SET ICN=$$GETICNS^MPIF002(SSN)
+18 IF $GET(ICN)'=""
SET DFN=$$GETDFN^MPIF001(ICN)
End DoDot:1
+19 IF $GET(DFN)=""!(+$GET(DFN)=-1)
SET RETURN="-1^Can't find Patient"
QUIT
+20 ;
+21 ; check if this data can be returned and if sensative pt bulletin needed
+22 NEW SENS
DO PTSEC^DGSEC4(.SENS,DFN,1,"Remote Procedure from MPI^RPC from MPI for RG Exception Information")
+23 NEW NOT
DO NOTICE^DGSEC4(.NOT,DFN,"Remote Procedure from MPI^RPC from MPI for RG Exception Information")
+24 IF SENS(1)=3!(SENS(1)=4)!(SENS(1)=-1)
SET RETURN="-1^SENSATIVE PT ISSUE "_SENS(2)_" DFN= "_DFN_" ICN= "_ICN
QUIT
+25 ;
+26 ;are there any exceptions for this patient?
+27 NEW TYP,CNT,IEN,IEN2,ETYP,WHO,X,Y,DIC,WTYP,WSTAT,MCNT
SET TYP=""
SET CNT=1
SET MCNT=0
+28 FOR
SET TYP=$ORDER(^RGHL7(991.1,"ADFN",TYP))
if TYP=""
QUIT
Begin DoDot:1
+29 IF $DATA(^RGHL7(991.1,"ADFN",TYP,DFN))
Begin DoDot:2
+30 SET IEN=0
FOR
SET IEN=$ORDER(^RGHL7(991.1,"ADFN",TYP,DFN,IEN))
if IEN=""
QUIT
Begin DoDot:3
+31 SET IEN2=""
SET ETYP=""
FOR
SET IEN2=$ORDER(^RGHL7(991.1,"ADFN",TYP,DFN,IEN,IEN2))
if 'IEN2
QUIT
Begin DoDot:4
+32 SET NODE=$GET(^RGHL7(991.1,IEN,1,IEN2,0))
+33 SET NODE10=$GET(^RGHL7(991.1,IEN,1,IEN2,10))
+34 SET LOGGED=$PIECE(^RGHL7(991.1,IEN,0),"^",2)
+35 IF $PIECE(LOGGED,".")<BRANGE!($PIECE(LOGGED,".")>ERANGE)
QUIT
+36 SET RETURN(CNT)="Exception Number: "_$PIECE($GET(^RGHL7(991.1,IEN,0)),"^")
SET CNT=CNT+1
SET MCNT=MCNT+1
+37 KILL Y
SET Y=LOGGED
IF Y'=""
DO DD^%DT
+38 SET RETURN(CNT)="Exception logged on: "_Y
SET CNT=CNT+1
+39 SET WTYP=$GET(^RGHL7(991.11,TYP,10))
+40 SET RETURN(CNT)="Exception Type: "_TYP_" - "_WTYP
SET CNT=CNT+1
+41 SET RETURN(CNT)="Patient DFN: "_$PIECE(NODE,"^",4)
SET CNT=CNT+1
+42 SET WSTAT=$PIECE(NODE,"^",5)
SET WSTAT=$SELECT(WSTAT=1:"PROCESSED",WSTAT=0:"NOT PROCESSED",1:"")
+43 SET RETURN(CNT)="Exception Status: "_WSTAT
SET CNT=CNT+1
+44 IF $PIECE(NODE,"^",5)=1
Begin DoDot:5
+45 ;MARKED AS PROCESSED
+46 KILL Y
SET Y=$PIECE(NODE,"^",6)
IF Y'=""
DO DD^%DT
+47 SET RETURN(CNT)="Date Processed: "_Y
SET CNT=CNT+1
+48 SET WHO=$PIECE(NODE,"^",7)
IF WHO'=""
KILL X,Y
SET DIC="^VA(200,"
SET DIC(0)="ZMO"
SET X="`"_WHO
DO ^DIC
IF $GET(Y)>1
SET WHO=$GET(Y(0,0))
+49 SET RETURN(CNT)="Processed by: "_WHO
SET CNT=CNT+1
End DoDot:5
+50 SET RETURN(CNT)="Exception Text: "_NODE10
SET CNT=CNT+1
+51 IF $DATA(^RGHL7(991.1,IEN,1,IEN2,11))
Begin DoDot:5
+52 SET RETURN(CNT)="Exception Notes:"
SET CNT=CNT+1
+53 NEW IEN3
SET IEN3=0
FOR
SET IEN3=$ORDER(^RGHL7(991.1,IEN,1,IEN2,11,IEN3))
if IEN3=""
QUIT
SET RETURN(CNT)=$GET(^RGHL7(991.1,IEN,1,IEN2,11,IEN3,0))
SET CNT=CNT+1
End DoDot:5
+54 SET RETURN(CNT)="**************************"
SET CNT=CNT+1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+55 IF CNT=1
SET RETURN(0)="-1^No Exceptions found in date range."
SET RETURN=0
+56 SET SITE=$$SITE^VASITE
+57 NEW PT
SET PT=$SELECT(ICN'="":"ICN= "_ICN,DFN'="":"DFN= "_DFN,SSN'="":"SSN= "_SSN)
+58 IF CNT>1
SET RETURN(0)=MCNT_" exceptions found for "_PT_" at "_$PIECE(SITE,"^",2)_" ("_$PIECE(SITE,"^",3)_")"
SET RETURN=MCNT
+59 QUIT
