SCMCMH.m

SCMCMH ;BP/DMR - PCMM MHTC GUI FILTER; 4 JAN 11

 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 ;

 ;This is a PCMM GUI filter to screen Mental Health Treatment 

 ;Coordinator. Patients should only have one MHTC.

 ;

TP(DFN,YY) ;Get patient MHTC info.

 ;

 ;Input  - DFN and YY = Team IEN from file 404.57.

 ;Output - 0 or 1, If 0 display don't display MHTC position.

 ;                 If 1 display MHTC position.

 ;

 I '$G(YY) Q 0

 I '$G(DFN) Q 0

 ;

 I $$GET1^DIQ(404.57,YY,.03)'["(MHTC)" Q 1

 ;

 S MH=""

 S MH=$$START^SCMCMHTC(DFN)

 I MH'="" D EXIT Q 0

 D EXIT Q 1

 ;

EXIT ;

 K MH

SCMCMH    ;BP/DMR - PCMM MHTC GUI FILTER; 4 JAN 11

 +1       ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 +2       ;

 +3       ;This is a PCMM GUI filter to screen Mental Health Treatment 

 +4       ;Coordinator. Patients should only have one MHTC.

 +5       ;

TP(DFN,YY) ;Get patient MHTC info.

 +1       ;

 +2       ;Input  - DFN and YY = Team IEN from file 404.57.

 +3       ;Output - 0 or 1, If 0 display don't display MHTC position.

 +4       ;                 If 1 display MHTC position.

 +5       ;

 +6        IF '$GET(YY)

               QUIT 0

 +7        IF '$GET(DFN)

               QUIT 0

 +8       ;

 +9        IF $$GET1^DIQ(404.57,YY,.03)'["(MHTC)"

               QUIT 1

 +10      ;

 +11       SET MH=""

 +12       SET MH=$$START^SCMCMHTC(DFN)

 +13       IF MH'=""

               DO EXIT

               QUIT 0

 +14       DO EXIT

           QUIT 1

 +15      ;

EXIT      ;

 +1        KILL MH