SDAMA204.m

SDAMA204 ;BPOIFO/NDH-Scheduling Replacement APIs ; 12/13/04 3:16pm

 ;;5.3;Scheduling;**310,347,1015**;13 Aug 1993;Build 21

 ;

 ;PATAPPT - Determines if an appointment exists for a patient.

 ;

 ;**   BEFORE USING THE API IN THIS ROUTINE, PLEASE SUBSCRIBE    **

 ;**   TO DBIA #4216                                             **

 ;

 ;*****************************************************************

 ;              CHANGE LOG

 ;

 ;  DATE      PATCH       DESCRIPTION

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

 ;08/11/03  SD*5.3*310    API PATIENT APPOINTMENT EXISTS

 ;07/26/04  SD*5.3*347    API Patient Appointment supports distributed

 ;                        appointment files (whether actual files are

 ;                        located in VistA DB or Oracle DB).

 ;

 ;*****************************************************************

 ;

PATAPPT(SDDFN) ; Check for existence of any appointment for a patient

 ; 

 ;       This API is an extrinsic function that returns 1 of 3 values.

 ;       The API checks for the existence of appointment records.

 ; 

 ;       INPUT    SDDFN : Patient's DFN number (required)

 ; 

 ;       OUTPUT       1 : Appointment(s) on file

 ;                    0 : No appointment(s) on file

 ;                   -1 : Error

 ;                   

 ; ERROR CODES - 101 : Database is Unavailable

 ;               102 : Patient ID is required

 ;               110 : Patient ID must be numeric

 ;               114 : Invalid Patient ID

 ;               117 : SDAPI Error

 ; 

 ; ERROR LOCATION : ^TMP($J,"SDAMA204","PATAPPT","ERROR")

 ; 

 ; Check for proper parameter and return -1 if bad DFN

 ; 

 ; Initialize node for error reporting

 K ^TMP($J,"SDAMA204","PATAPPT")

 N SDARRAY,SDCOUNT,SDX,SDY,DFN,VAERR

 ; 

 ; Check for no input parameter

 I '$D(SDDFN) D  Q -1

 .D ERROR^SDAMA200(102,"PATAPPT",0,"SDAMA204")

 ; Check if SDDFN is numeric

 I SDDFN'?1.N D  Q -1

 .D ERROR^SDAMA200(110,"PATAPPT",0,"SDAMA204")

 ; Check if DFN exists or is 0

 S DFN=SDDFN

 D DEM^VADPT

 I SDDFN=0!VAERR=1 D  Q -1

 .D ERROR^SDAMA200(114,"PATAPPT",0,"SDAMA204")

 D KVAR^VADPT

 ; Check for patient appointments and return 1 if appointment found

 ; and 0 if no appointments found.

 ;

 S SDARRAY(4)=DFN,SDARRAY("FLDS")=1,SDARRAY("MAX")=1

 S SDCOUNT=$$SDAPI^SDAMA301(.SDARRAY)

 I SDCOUNT=0 Q 0 ; No Appt found.

 I SDCOUNT=1 K ^TMP($J,"SDAMA301") Q 1  ; Appt(s). found.

 ; Error Encountered.

 I SDCOUNT=-1 D

 .S SDX=$O(^TMP($J,"SDAMA301",""))

 .S SDX=$S(SDX=101:101,SDX=115:114,SDX=116:114,1:117)

 .D ERROR^SDAMA200(SDX,"PATAPPT",0,"SDAMA204")

 .K ^TMP($J,"SDAMA301")

 Q -1

SDAMA204  ;BPOIFO/NDH-Scheduling Replacement APIs ; 12/13/04 3:16pm

 +1       ;;5.3;Scheduling;**310,347,1015**;13 Aug 1993;Build 21

 +2       ;

 +3       ;PATAPPT - Determines if an appointment exists for a patient.

 +4       ;

 +5       ;**   BEFORE USING THE API IN THIS ROUTINE, PLEASE SUBSCRIBE    **

 +6       ;**   TO DBIA #4216                                             **

 +7       ;

 +8       ;*****************************************************************

 +9       ;              CHANGE LOG

 +10      ;

 +11      ;  DATE      PATCH       DESCRIPTION

 +12      ;--------  ----------    -----------------------------------------

 +13      ;08/11/03  SD*5.3*310    API PATIENT APPOINTMENT EXISTS

 +14      ;07/26/04  SD*5.3*347    API Patient Appointment supports distributed

 +15      ;                        appointment files (whether actual files are

 +16      ;                        located in VistA DB or Oracle DB).

 +17      ;

 +18      ;*****************************************************************

 +19      ;

PATAPPT(SDDFN) ; Check for existence of any appointment for a patient

 +1       ; 

 +2       ;       This API is an extrinsic function that returns 1 of 3 values.

 +3       ;       The API checks for the existence of appointment records.

 +4       ; 

 +5       ;       INPUT    SDDFN : Patient's DFN number (required)

 +6       ; 

 +7       ;       OUTPUT       1 : Appointment(s) on file

 +8       ;                    0 : No appointment(s) on file

 +9       ;                   -1 : Error

 +10      ;                   

 +11      ; ERROR CODES - 101 : Database is Unavailable

 +12      ;               102 : Patient ID is required

 +13      ;               110 : Patient ID must be numeric

 +14      ;               114 : Invalid Patient ID

 +15      ;               117 : SDAPI Error

 +16      ; 

 +17      ; ERROR LOCATION : ^TMP($J,"SDAMA204","PATAPPT","ERROR")

 +18      ; 

 +19      ; Check for proper parameter and return -1 if bad DFN

 +20      ; 

 +21      ; Initialize node for error reporting

 +22       KILL ^TMP($JOB,"SDAMA204","PATAPPT")

 +23       NEW SDARRAY,SDCOUNT,SDX,SDY,DFN,VAERR

 +24      ; 

 +25      ; Check for no input parameter

 +26       IF '$DATA(SDDFN)

               Begin DoDot:1

 +27               DO ERROR^SDAMA200(102,"PATAPPT",0,"SDAMA204")

               End DoDot:1

               QUIT -1

 +28      ; Check if SDDFN is numeric

 +29       IF SDDFN'?1.N

               Begin DoDot:1

 +30               DO ERROR^SDAMA200(110,"PATAPPT",0,"SDAMA204")

               End DoDot:1

               QUIT -1

 +31      ; Check if DFN exists or is 0

 +32       SET DFN=SDDFN

 +33       DO DEM^VADPT

 +34       IF SDDFN=0!VAERR=1

               Begin DoDot:1

 +35               DO ERROR^SDAMA200(114,"PATAPPT",0,"SDAMA204")

               End DoDot:1

               QUIT -1

 +36       DO KVAR^VADPT

 +37      ; Check for patient appointments and return 1 if appointment found

 +38      ; and 0 if no appointments found.

 +39      ;

 +40       SET SDARRAY(4)=DFN

           SET SDARRAY("FLDS")=1

           SET SDARRAY("MAX")=1

 +41       SET SDCOUNT=$$SDAPI^SDAMA301(.SDARRAY)

 +42      ; No Appt found.

           IF SDCOUNT=0

               QUIT 0

 +43      ; Appt(s). found.

           IF SDCOUNT=1

               KILL ^TMP($JOB,"SDAMA301")

               QUIT 1

 +44      ; Error Encountered.

 +45       IF SDCOUNT=-1

               Begin DoDot:1

 +46               SET SDX=$ORDER(^TMP($JOB,"SDAMA301",""))

 +47               SET SDX=$SELECT(SDX=101:101,SDX=115:114,SDX=116:114,1:117)

 +48               DO ERROR^SDAMA200(SDX,"PATAPPT",0,"SDAMA204")

 +49               KILL ^TMP($JOB,"SDAMA301")

               End DoDot:1

 +50       QUIT -1