DGOTHD.m

DGOTHD ;SLC/SS,RM - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ;Feb 14, 2019@09:57

 ;;5.3;Registration;**952,977**;Aug 13, 1993;Build 177

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

 ;

 ;     Last Edited: SHRPE/RM - Feb 14, 2019@09:57

 ;

 ;ICR#   TYPE       DESCRIPTION

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

 ; 2056  Sup        ^DIQ  : GET1

 ;10061  Sup        ELIG^VADPT

 ;

 Q

 ;

 ;ask for the starting date for the ENTRY in file #33 (OTH ELIGIBILITY)

STRDATE(DGDFN) ;

 I '$G(DGDFN) Q

 N DGSTRDT,Y,DGEXPMH,DGIEN33

 I '$$ISOTHD(DGDFN) Q

 S DGIEN33=$$HASENTRY^DGOTHD2(DGDFN)

 I DGIEN33 Q:$D(^DGOTH(33,DGIEN33,1))

 S DGEXPMH=$$GET1^DIQ(2,DGDFN,.5501,"I")

 S DGEXPMH=$$ISOTH(DGEXPMH)

 Q:'DGEXPMH

 D FRSTNTRY^DGOTHD1(DGDFN,DT,DGEXPMH)

 Q

 ;

 ;Functionality:

 ; checks OTHD eligibility

 ;

 ;Parameters:

 ; DFN - patient's IEN in the file (#2)

 ;

 ;Return values:

 ; 0 - not eligible for OTHD

 ; 1 - eligible for OTHD

 ;

ISOTHD(DFN) ;

 N VAEL,DGOTHD,X

 D ELIG^VADPT

 S DGOTHD=0

 I +VAEL(1)>0,$$GET1^DIQ(8,+VAEL(1)_",",8)="EXPANDED MH CARE NON-ENROLLEE" S DGOTHD=1

 Q DGOTHD

 ;

 ;retrieve the default EXPANDED MH CARE TYPE

GETEXPMH(DFN) ;

 ;  Input:

 ;    DFN - Patient IEN

 ;

 ;  Output:

 ;    EXPANDED MH CARE TYPE (File #2,Field #.5501)

 ;

 N VAEL,X

 I '$D(^DPT(DFN)) Q "-1^Patient not found"

 D ELIG^VADPT

 Q $P($G(VAEL(10)),U)

 ;

 ;this API returns the EXPANDED MH CARE TYPE

GETEXPR(DFN) ;

 ;  Input:

 ;    DFN - Patient IEN

 ;

 ;  Output:

 ;    RET - EXPANDED MH CARE TYPE

 ;

 Q $$GETEXPMH(DFN)

 ;

ISOTH(DGEXP) ;

 ;DG*5.3*977 OTH-EXT

 ;Added OTH-EXT check

 Q $S("/OTH-EXT/"[("/"_DGEXP_"/"):1,"/OTH-90/"[("/"_DGEXP_"/"):2,1:0)

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGOTHD   1722     printed  Apr 09, 2024@21:59:05                                                                                                                                                                                                      Page 2

DGOTHD    ;SLC/SS,RM - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ;Feb 14, 2019@09:57

 +1       ;;5.3;Registration;**952,977**;Aug 13, 1993;Build 177

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

 +3       ;

 +4       ;     Last Edited: SHRPE/RM - Feb 14, 2019@09:57

 +5       ;

 +6       ;ICR#   TYPE       DESCRIPTION

 +7       ;-----  ----       ---------------------

 +8       ; 2056  Sup        ^DIQ  : GET1

 +9       ;10061  Sup        ELIG^VADPT

 +10      ;

 +11       QUIT 

 +12      ;

 +13      ;ask for the starting date for the ENTRY in file #33 (OTH ELIGIBILITY)

STRDATE(DGDFN) ;

 +1        IF '$GET(DGDFN)

               QUIT 

 +2        NEW DGSTRDT,Y,DGEXPMH,DGIEN33

 +3        IF '$$ISOTHD(DGDFN)

               QUIT 

 +4        SET DGIEN33=$$HASENTRY^DGOTHD2(DGDFN)

 +5        IF DGIEN33

               if $DATA(^DGOTH(33,DGIEN33,1))

                   QUIT 

 +6        SET DGEXPMH=$$GET1^DIQ(2,DGDFN,.5501,"I")

 +7        SET DGEXPMH=$$ISOTH(DGEXPMH)

 +8        if 'DGEXPMH

               QUIT 

 +9        DO FRSTNTRY^DGOTHD1(DGDFN,DT,DGEXPMH)

 +10       QUIT 

 +11      ;

 +12      ;Functionality:

 +13      ; checks OTHD eligibility

 +14      ;

 +15      ;Parameters:

 +16      ; DFN - patient's IEN in the file (#2)

 +17      ;

 +18      ;Return values:

 +19      ; 0 - not eligible for OTHD

 +20      ; 1 - eligible for OTHD

 +21      ;

ISOTHD(DFN) ;

 +1        NEW VAEL,DGOTHD,X

 +2        DO ELIG^VADPT

 +3        SET DGOTHD=0

 +4        IF +VAEL(1)>0

               IF $$GET1^DIQ(8,+VAEL(1)_",",8)="EXPANDED MH CARE NON-ENROLLEE"

                   SET DGOTHD=1

 +5        QUIT DGOTHD

 +6       ;

 +7       ;retrieve the default EXPANDED MH CARE TYPE

GETEXPMH(DFN) ;

 +1       ;  Input:

 +2       ;    DFN - Patient IEN

 +3       ;

 +4       ;  Output:

 +5       ;    EXPANDED MH CARE TYPE (File #2,Field #.5501)

 +6       ;

 +7        NEW VAEL,X

 +8        IF '$DATA(^DPT(DFN))

               QUIT "-1^Patient not found"

 +9        DO ELIG^VADPT

 +10       QUIT $PIECE($GET(VAEL(10)),U)

 +11      ;

 +12      ;this API returns the EXPANDED MH CARE TYPE

GETEXPR(DFN) ;

 +1       ;  Input:

 +2       ;    DFN - Patient IEN

 +3       ;

 +4       ;  Output:

 +5       ;    RET - EXPANDED MH CARE TYPE

 +6       ;

 +7        QUIT $$GETEXPMH(DFN)

 +8       ;

ISOTH(DGEXP) ;

 +1       ;DG*5.3*977 OTH-EXT

 +2       ;Added OTH-EXT check

 +3        QUIT $SELECT("/OTH-EXT/"[("/"_DGEXP_"/"):1,"/OTH-90/"[("/"_DGEXP_"/"):2,1:0)

 +4       ;