SCMCBK6 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1 ;;Aug 7, 1998
Source file <SCMCBK6.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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;;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DP+1 |
| ^SCPT(404.42 - [#404.42] | YSPTTMPC+10 |
| ^SCTM(404.51 - [#404.51] | OKPTTMPC+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE | OKPTTMPC~, OKPTTMPC+10, OKPTTMPC+16 |
| DFN | YSPTTMPC~, YSPTTMPC+5, YSPTTMPC+10, OKPTTMPC~, OKPTTMPC+10, OKPTTMPC+16, DP~, DP+1 |
| DT | YSPTTMPC+5 |
| SCACT | YSPTTMPC~, YSPTTMPC+10 |
| SCL | OKPTTMPC+4~, SCOK~, SCOK+3, S~ |
| SCOK | YSPTTMPC+2~, YSPTTMPC+16*, QTOKPC, OKPTTMPC+4~, OKPTTMPC+5*, OKPTTMPC+16*, QTOKTM, SCOK+3* |
| SCPCTM | OKPTTMPC+4~, OKPTTMPC+10*, OKPTTMPC+11 |
| SCTM | YSPTTMPC+2~, YSPTTMPC+5*, YSPTTMPC+6, OKPTTMPC~, OKPTTMPC+9, OKPTTMPC+11, SCOK+3 |
| SCX | YSPTTMPC+2~, YSPTTMPC+10*, YSPTTMPC+11 |
| U | OKPTTMPC+9, DP+1, SCOK+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(T+SCL | S+1 |
