SCMCBK6 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1 ;;Aug 7, 1998
Source file <SCMCBK6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| YSPTTMPC(DFN,SCACT) | ;is it ok to give patient a new pc team?
; Return [OK:1,Not OK: 0^Message] |
|
| QTOKPC | ||
| OKPTTMPC(DFN,SCTM,DATE) | ; like OKPTTMPC^SCMCTMU2
; ;;; supports meaningful reject messages ; ;;; for PHASE II enhancement?? ; Return [OK:1,Not OK: 0^Message] |
|
| QTOKTM | ||
| DP(DFN) | ;output: boolean, is patient(DFN) dead?
|
|
| SCOK(SCL) | ;
|
|
| S(SCL) | ;output: text string
|
|
| T | ;;
|
|
| 1 | ;;Pt is deceased;;
|
|
| 2 | ;;Pt has current PC assignment;;
|
|
| 3 | ;;Pt has future PC assignment;;
|
|
| 4 | ;;Pt has future team assignment;;
|
|
| 5 | ;;Not PC team;;
|
|
| 6 | ;;Team inactive;;
|
|
| 7 | ;;Pt has PC assignment;;
|
|
| 9 | ;;Invalid setup;;
|
|
| 10 | ;;Pt already assigned;;
|
|
| 11 | ;;Filer error;;
|
|
| 12 | ;;PC role not assignable;;
|
|
| 13 | ;;Invalid position list;;
|
|
| 14 | ;;Pt not added to team;;
|
|
| 15 | ;;Pt being assigned by another PCMM process;;
|
