- 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 Mar 13, 2025@21:45:45 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
