Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCMCBK6

SCMCBK6.m

Go to the documentation of this file.
  1. SCMCBK6 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1 ;;Aug 7, 1998
  1. ;;5.3;Scheduling;**148,177,210**;AUG 13, 1993
  1. Q
  1. ;
  1. YSPTTMPC(DFN,SCACT) ;is it ok to give patient a new pc team?
  1. ; Return [OK:1,Not OK: 0^Message]
  1. N SCOK,SCX,SCTM
  1. ;
  1. ;does pt have a current pc team?
  1. S SCTM=$$GETPCTM^SCAPMCU2(DFN,DT,1)
  1. I SCTM>0 D SCOK(2) G QTOKPC
  1. ;;;IF SCTM>0 S SCOK="0^Pt has current PC Team Assignment"_U_SCTM G QTOKPC
  1. ;
  1. ;does pt have a future pc team?
  1. S SCX=$O(^SCPT(404.42,"APCTM",DFN,1,SCACT))
  1. IF SCX D SCOK(3) G QTOKPC
  1. ;;;.S SCTM=$O(^SCPT(404.42,"APCTM",DFN,1,+SCX,0))
  1. ;;;.S SCOK="0^Patient has future PC Assignment to the "_$P($G(^SCTM(404.51,+SCTM,0)),U,1)_" team."_U_SCTM
  1. ;;;.D SCOK(3)
  1. ;
  1. S SCOK=1
  1. QTOKPC Q SCOK
  1. ;
  1. OKPTTMPC(DFN,SCTM,DATE) ; like OKPTTMPC^SCMCTMU2
  1. ; ;;; supports meaningful reject messages
  1. ; ;;; for PHASE II enhancement??
  1. ; Return [OK:1,Not OK: 0^Message]
  1. N SCOK,SCPCTM,SCL
  1. S SCOK=1
  1. ;
  1. ;is this a possible pc team?
  1. ;;;I '$P($G(^SCTM(404.51,+$G(SCTM),0)),U,5) S SCOK=0 G QTOKTM
  1. I '$P($G(^SCTM(404.51,+$G(SCTM),0)),U,5) D SCOK(5) G QTOKTM
  1. S SCPCTM=$$GETPCTM^SCAPMCU2(DFN,DATE,1)
  1. I SCPCTM,SCPCTM'=SCTM D SCOK(7) G QTOKTM
  1. ;;;.I SCPCTM'=SCTM D
  1. ;;;..S SCOK=0
  1. ;;;;..D SCOK(7)
  1. E D
  1. .S SCOK=$$YSPTTMPC(DFN,DATE)
  1. QTOKTM Q SCOK
  1. ;
  1. DP(DFN) ;output: boolean, is patient(DFN) dead?
  1. Q $P($G(^DPT(DFN,.35)),U)'=""
  1. ;
  1. SCOK(SCL) ;
  1. ;input SCL = Text Line
  1. ;output = SCOK
  1. S SCOK="0^"_$$S(SCL)_U_$G(SCTM)
  1. Q
  1. ;
  1. S(SCL) ;output: text string
  1. Q $P($T(T+SCL),";;",2)
  1. ;
  1. T ;;
  1. 1 ;;Pt is deceased;;
  1. 2 ;;Pt has current PC assignment;;
  1. 3 ;;Pt has future PC assignment;;
  1. 4 ;;Pt has future team assignment;;
  1. 5 ;;Not PC team;;
  1. 6 ;;Team inactive;;
  1. 7 ;;Pt has PC assignment;;
  1. ;;
  1. 9 ;;Invalid setup;;
  1. 10 ;;Pt already assigned;;
  1. 11 ;;Filer error;;
  1. 12 ;;PC role not assignable;;
  1. 13 ;;Invalid position list;;
  1. 14 ;;Pt not added to team;;
  1. 15 ;;Pt being assigned by another PCMM process;;
  1. ;;