- VAFCQRY2 ;BIR/DLR-Query for patient demographics ;10/18/2000
- ;;5.3;Registration;**428**;Aug 13, 1993
- ;
- ;Reference to $$GETDFNS^MPIF002 supported by IA #3634.
- ;
- CHKID(ICN,SSN,DFN) ;
- N EVN,PID,PD1,EVN,LTD,VAFCMN,VAFCER
- ;find the patient
- N LDFN,SITE,RDFN
- ;if DFN is not passed check ICN
- I $G(DFN)="" S DFN=$$GETDFN^MPIF001(+ICN) D Q
- .;If ICN is identified return Patient Information
- . I DFN>0 Q
- . I DFN'>0,$G(SSN)="" S VAFCER="-1^Unknown ICN#"_$G(ICN) Q
- .;If ICN isn't identified and SSN exists use SSN to identify DFN
- . I DFN'>0,$G(SSN)'="" S RDFN=$$GETDFNS^MPIF002(SSN) S DFN=+RDFN D Q
- ..;If LIST contains no matches return negative response
- .. I DFN=0 S VAFCER="-1^Unknown ICN#"_$G(ICN)_" and SSN#"_$G(SSN) Q
- ..;If LIST contains only one call check ICN
- .. I +DFN>0 S ICN=$$GETICN^MPIF001(+DFN) D Q
- ...;If ICN return patient information.
- ... I +ICN>0 Q
- ...;If RDFN does not contain a national ICN return negative response with "Unknown ICN#"_ICN_" and known SSN#"_SSN_" was "_
- ... I +ICN'>0 S VAFCER="-1^Unknown ICN#"_$G(ICN)_", SSN#"_$G(SSN)_", DFN#"_$G(DFN)_" was "_$P(RDFN,"^",2) Q
- ;if DFN is passed
- I $G(DFN)'="" S ICN=$$GETICN^MPIF001(DFN) D Q
- .;If ICN is identified return Patient Information
- . I +ICN>0 Q
- . I +ICN'>0,$G(SSN)="" S VAFCER="-1^Unknown ICN#"_$G(ICN) Q
- .;If ICN isn't identified and SSN exists use SSN to identify DFN
- . I +ICN'>0,SSN'="" S RDFN=$$GETDFNS^MPIF002(SSN) S DFN=+RDFN D Q
- ..;If LIST contains no matches return negative response
- .. I +DFN=0 S VAFCER="-1^Unknown ICN#"_$G(ICN)_" for SSN#"_$G(SSN) Q
- ..;If LIST contains only one, check ICN
- .. I +DFN>0 S ICN=$$GETICN^MPIF001(DFN) D Q
- ...;If ICN return patient information.
- ... I ICN>0 Q
- ...;If NOT ICN return negative response with "Unknown ICN#"_$G(ICN)_" and known SSN#"_SSN_" was "_
- ... S VAFCER="-1^Unknown ICN#"_$G(ICN)_" for known SSN#"_$G(SSN)_" was "_$P(RDFN,"^",2) Q
- Q
- BLDEVN(DFN,SEQ,EVN,HL,EVR,ERR) ;build EVN for TF last treatment date and event reason
- N TFIEN,LTD,TFZN,USERID,COMP,SUBCOMP,USERNAME
- S COMP=$E(HL("ECH"),1),SUBCOMP=$E(HL("ECH"),4)
- S LTD=""
- ;reset EVR
- S EVR=""
- ;S TFIEN=$O(^DGCN(391.91,"APAT",DFN,+$$SITE^VASITE,0))
- ;if patient is not already in the associated facility list add
- D EN1^VAFCTF(DFN,1) S TFIEN=$O(^DGCN(391.91,"APAT",DFN,+$$SITE^VASITE,0)) ;suppress messaging
- I $G(TFIEN)'="" S TFZN=^DGCN(391.91,TFIEN,0) S LTD=$P(TFZN,"^",3) I +$P(TFZN,"^",7)'=0 S EVR=$$GET1^DIQ(391.91,TFIEN_",",.07)
- ;check to see if this is a pivot file trigger if so reset trigger
- I +$G(PIVOTPTR)>0 I $D(^VAT(391.71,+$G(PIVOTPTR),0)) D
- . S USERNAME=$P(^VAT(391.71,+$G(PIVOTPTR),0),"^",9)
- I $G(USERNAME)="" S USERNAME=DUZ
- S USERNAME=$$GET1^DIQ(200,+USERNAME_",",.01)
- S USERNAME=$$HLNAME^HLFNC(USERNAME,HL("ECH"))
- S USERID=DUZ_COMP_$P(USERNAME,COMP)_COMP_$P(USERNAME,COMP,2)_COMP_COMP_COMP_COMP_COMP_COMP_"USVHA"_SUBCOMP_SUBCOMP_"0363"_COMP_"L"_COMP_COMP_COMP_"NI"_COMP_"VA FACILITY ID"_SUBCOMP_$P($$SITE^VASITE,"^",3)_SUBCOMP_"L"
- I $G(EVN(1))="" S EVN(1)="EVN"_HL("FS")_HL("FS")_$$HLDATE^HLFNC(LTD)_HL("FS")_HL("FS")_HL("FS")_USERID_HL("FS")_$$HLDATE^HLFNC(LTD)_HL("FS")_$P($$SITE^VASITE,"^",3)
- I $G(EVN(1))'="" S $P(EVN(1),HL("FS"),2)=$G(EVR),$P(EVN(1),HL("FS"),5)=$G(EVR),$P(EVN(1),HL("FS"),3)=$$HLDATE^HLFNC(LTD),$P(EVN(1),HL("FS"),7)=$$HLDATE^HLFNC(LTD),$P(EVN(1),HL("FS"),8)=$P($$SITE^VASITE,"^",3),$P(EVN(1),HL("FS"),6)=USERID
- Q
- BLDPD1(DFN,SEQ,PD1,HL,ERR) ;
- N SITE,VAFCMN,COMP,CMOR
- S SITE=""
- S COMP=$E(HL("ECH"),1)
- ;get Patient File MPI node
- S VAFCMN=$$MPINODE^MPIFAPI(DFN)
- S CMOR=$P(VAFCMN,"^",3)
- I CMOR'="" S SITE=$$NS^XUAF4(CMOR)
- S PD1(1)="PD1"_HL("FS")_HL("FS")_HL("FS")_$P(SITE,"^")_COMP_"D"_COMP_$P(SITE,"^",2)
- Q
- VAFCQRY2 ;BIR/DLR-Query for patient demographics ;10/18/2000
- +1 ;;5.3;Registration;**428**;Aug 13, 1993
- +2 ;
- +3 ;Reference to $$GETDFNS^MPIF002 supported by IA #3634.
- +4 ;
- CHKID(ICN,SSN,DFN) ;
- +1 NEW EVN,PID,PD1,EVN,LTD,VAFCMN,VAFCER
- +2 ;find the patient
- +3 NEW LDFN,SITE,RDFN
- +4 ;if DFN is not passed check ICN
- +5 IF $GET(DFN)=""
- SET DFN=$$GETDFN^MPIF001(+ICN)
- Begin DoDot:1
- +6 ;If ICN is identified return Patient Information
- +7 IF DFN>0
- QUIT
- +8 IF DFN'>0
- IF $GET(SSN)=""
- SET VAFCER="-1^Unknown ICN#"_$GET(ICN)
- QUIT
- +9 ;If ICN isn't identified and SSN exists use SSN to identify DFN
- +10 IF DFN'>0
- IF $GET(SSN)'=""
- SET RDFN=$$GETDFNS^MPIF002(SSN)
- SET DFN=+RDFN
- Begin DoDot:2
- +11 ;If LIST contains no matches return negative response
- +12 IF DFN=0
- SET VAFCER="-1^Unknown ICN#"_$GET(ICN)_" and SSN#"_$GET(SSN)
- QUIT
- +13 ;If LIST contains only one call check ICN
- +14 IF +DFN>0
- SET ICN=$$GETICN^MPIF001(+DFN)
- Begin DoDot:3
- +15 ;If ICN return patient information.
- +16 IF +ICN>0
- QUIT
- +17 ;If RDFN does not contain a national ICN return negative response with "Unknown ICN#"_ICN_" and known SSN#"_SSN_" was "_
- +18 IF +ICN'>0
- SET VAFCER="-1^Unknown ICN#"_$GET(ICN)_", SSN#"_$GET(SSN)_", DFN#"_$GET(DFN)_" was "_$PIECE(RDFN,"^",2)
- QUIT
- End DoDot:3
- QUIT
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +19 ;if DFN is passed
- +20 IF $GET(DFN)'=""
- SET ICN=$$GETICN^MPIF001(DFN)
- Begin DoDot:1
- +21 ;If ICN is identified return Patient Information
- +22 IF +ICN>0
- QUIT
- +23 IF +ICN'>0
- IF $GET(SSN)=""
- SET VAFCER="-1^Unknown ICN#"_$GET(ICN)
- QUIT
- +24 ;If ICN isn't identified and SSN exists use SSN to identify DFN
- +25 IF +ICN'>0
- IF SSN'=""
- SET RDFN=$$GETDFNS^MPIF002(SSN)
- SET DFN=+RDFN
- Begin DoDot:2
- +26 ;If LIST contains no matches return negative response
- +27 IF +DFN=0
- SET VAFCER="-1^Unknown ICN#"_$GET(ICN)_" for SSN#"_$GET(SSN)
- QUIT
- +28 ;If LIST contains only one, check ICN
- +29 IF +DFN>0
- SET ICN=$$GETICN^MPIF001(DFN)
- Begin DoDot:3
- +30 ;If ICN return patient information.
- +31 IF ICN>0
- QUIT
- +32 ;If NOT ICN return negative response with "Unknown ICN#"_$G(ICN)_" and known SSN#"_SSN_" was "_
- +33 SET VAFCER="-1^Unknown ICN#"_$GET(ICN)_" for known SSN#"_$GET(SSN)_" was "_$PIECE(RDFN,"^",2)
- QUIT
- End DoDot:3
- QUIT
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +34 QUIT
- BLDEVN(DFN,SEQ,EVN,HL,EVR,ERR) ;build EVN for TF last treatment date and event reason
- +1 NEW TFIEN,LTD,TFZN,USERID,COMP,SUBCOMP,USERNAME
- +2 SET COMP=$EXTRACT(HL("ECH"),1)
- SET SUBCOMP=$EXTRACT(HL("ECH"),4)
- +3 SET LTD=""
- +4 ;reset EVR
- +5 SET EVR=""
- +6 ;S TFIEN=$O(^DGCN(391.91,"APAT",DFN,+$$SITE^VASITE,0))
- +7 ;if patient is not already in the associated facility list add
- +8 ;suppress messaging
- DO EN1^VAFCTF(DFN,1)
- SET TFIEN=$ORDER(^DGCN(391.91,"APAT",DFN,+$$SITE^VASITE,0))
- +9 IF $GET(TFIEN)'=""
- SET TFZN=^DGCN(391.91,TFIEN,0)
- SET LTD=$PIECE(TFZN,"^",3)
- IF +$PIECE(TFZN,"^",7)'=0
- SET EVR=$$GET1^DIQ(391.91,TFIEN_",",.07)
- +10 ;check to see if this is a pivot file trigger if so reset trigger
- +11 IF +$GET(PIVOTPTR)>0
- IF $DATA(^VAT(391.71,+$GET(PIVOTPTR),0))
- Begin DoDot:1
- +12 SET USERNAME=$PIECE(^VAT(391.71,+$GET(PIVOTPTR),0),"^",9)
- End DoDot:1
- +13 IF $GET(USERNAME)=""
- SET USERNAME=DUZ
- +14 SET USERNAME=$$GET1^DIQ(200,+USERNAME_",",.01)
- +15 SET USERNAME=$$HLNAME^HLFNC(USERNAME,HL("ECH"))
- +16 SET USERID=DUZ_COMP_$PIECE(USERNAME,COMP)_COMP_$PIECE(USERNAME,COMP,2)_COMP_COMP_COMP_COMP_COMP_COMP_"USVHA"_SUBCOMP_SUBCOMP_"0363"_COMP_"L"_COMP_COMP_COMP_"NI"_COMP_"VA FACILITY ID"_SUBCOMP_$PIECE($$SITE^VASITE,"^",3)_SUBCOMP_"L"
- +17 IF $GET(EVN(1))=""
- SET EVN(1)="EVN"_HL("FS")_HL("FS")_$$HLDATE^HLFNC(LTD)_HL("FS")_HL("FS")_HL("FS")_USERID_HL("FS")_$$HLDATE^HLFNC(LTD)_HL("FS")_$PIECE($$SITE^VASITE,"^",3)
- +18 IF $GET(EVN(1))'=""
- SET $PIECE(EVN(1),HL("FS"),2)=$GET(EVR)
- SET $PIECE(EVN(1),HL("FS"),5)=$GET(EVR)
- SET $PIECE(EVN(1),HL("FS"),3)=$$HLDATE^HLFNC(LTD)
- SET $PIECE(EVN(1),HL("FS"),7)=$$HLDATE^HLFNC(LTD)
- SET $PIECE(EVN(1),HL("FS"),8)=$PIECE($$SITE^VASITE,"^",3)
- SET $PIECE(EVN(1),HL("FS"),6)=USERID
- +19 QUIT
- BLDPD1(DFN,SEQ,PD1,HL,ERR) ;
- +1 NEW SITE,VAFCMN,COMP,CMOR
- +2 SET SITE=""
- +3 SET COMP=$EXTRACT(HL("ECH"),1)
- +4 ;get Patient File MPI node
- +5 SET VAFCMN=$$MPINODE^MPIFAPI(DFN)
- +6 SET CMOR=$PIECE(VAFCMN,"^",3)
- +7 IF CMOR'=""
- SET SITE=$$NS^XUAF4(CMOR)
- +8 SET PD1(1)="PD1"_HL("FS")_HL("FS")_HL("FS")_$PIECE(SITE,"^")_COMP_"D"_COMP_$PIECE(SITE,"^",2)
- +9 QUIT
