HMPDJ02A.m

HMPDJ02A ;ASMR/MKB/JD,CK,CPC,PB - Problems,Allergies,Vitals ;Jan 17, 2107 09:56:26

 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**3**;Jan 17, 2017;Build 15

 ;Per VA Directive 6402, this routine should not be modified.

 ;

 ; External References          DBIA#

 ; -------------------          ----- 

 ; ^AUPNVSIT(                    2028

 ;

 Q

GETVIEN(DFNN,VISITDT)  ;JL; get the Visit IEN from VISIT file based on patient ID and Datetime

 Q:'+$G(DFNN)!'$L(VISITDT) -1  ;return -1 if bad parameter

 N REVDT,VISITIEN

 S REVDT=9999999-$P(VISITDT,".",1)_$S($P(VISITDT,".",2)'="":"."_$P(VISITDT,".",2),1:"")

 S VISITIEN=$O(^AUPNVSIT("AA",DFNN,REVDT,""))  ; using "AA" cross-reference

 Q:VISITIEN="" -1

 Q VISITIEN

 ;

VSTIEN(VSTIEN) ; Jan 17, 2017 - PB - DE6877 - Function to check for the visit and the patient to exist for the visit in the Visit File

 ; INPUT - VSTIEN the IEN for the visit in the Visit File

 ; OUTPUT - 1 = missing required data element, 0 = required data elements are present

 N VSTDATA

 S VSTDATA=$G(^AUPNVSIT(VSTIEN,0))  ;ICR 2028

 Q:$P(VSTDATA,U)="" 1  ; if the .01 field is null quit and return 1

 Q:$P(VSTDATA,U,5)="" 1  ; if field .05 is null quit and return 1

 Q 0

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HMPDJ02A   1211     printed  Apr 09, 2024@20:58:22                                                                                                                                                                                                    Page 2

HMPDJ02A  ;ASMR/MKB/JD,CK,CPC,PB - Problems,Allergies,Vitals ;Jan 17, 2107 09:56:26

 +1       ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**3**;Jan 17, 2017;Build 15

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; External References          DBIA#

 +5       ; -------------------          ----- 

 +6       ; ^AUPNVSIT(                    2028

 +7       ;

 +8        QUIT 

GETVIEN(DFNN,VISITDT) ;JL; get the Visit IEN from VISIT file based on patient ID and Datetime

 +1       ;return -1 if bad parameter

           if '+$GET(DFNN)!'$LENGTH(VISITDT)

               QUIT -1

 +2        NEW REVDT,VISITIEN

 +3        SET REVDT=9999999-$PIECE(VISITDT,".",1)_$SELECT($PIECE(VISITDT,".",2)'="":"."_$PIECE(VISITDT,".",2),1:"")

 +4       ; using "AA" cross-reference

           SET VISITIEN=$ORDER(^AUPNVSIT("AA",DFNN,REVDT,""))

 +5        if VISITIEN=""

               QUIT -1

 +6        QUIT VISITIEN

 +7       ;

VSTIEN(VSTIEN) ; Jan 17, 2017 - PB - DE6877 - Function to check for the visit and the patient to exist for the visit in the Visit File

 +1       ; INPUT - VSTIEN the IEN for the visit in the Visit File

 +2       ; OUTPUT - 1 = missing required data element, 0 = required data elements are present

 +3        NEW VSTDATA

 +4       ;ICR 2028

           SET VSTDATA=$GET(^AUPNVSIT(VSTIEN,0))

 +5       ; if the .01 field is null quit and return 1

           if $PIECE(VSTDATA,U)=""

               QUIT 1

 +6       ; if field .05 is null quit and return 1

           if $PIECE(VSTDATA,U,5)=""

               QUIT 1

 +7        QUIT 0