SCMCMH ;BP/DMR - PCMM MHTC GUI FILTER; 4 JAN 11
;;5.3;Scheduling;**575**;AUG 13, 1993;Build 28
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCMH 606 printed Dec 13, 2024@02:40:49 Page 2
SCMCMH ;BP/DMR - PCMM MHTC GUI FILTER; 4 JAN 11
+1 ;;5.3;Scheduling;**575**;AUG 13, 1993;Build 28
+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
