©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCMCTMU2 ;ALB/REW - Team-Patient Utilities ; 1 Apr 96
Source file <SCMCTMU2.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$TMPT^SCAPMC ($$ACTHIST,$$GETPCTM)^SCAPMCU2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OKINPTTM(DFN,SCTM,SCINACT) | ;no future pt-position assignments?
|
|
| END | ||
| RESTENR | ;call when pt is set to 'restrict consults' & he is enrolled in clinic
|
|
| OKACPTTM(DFN,SCTM,SCDATE,SCACTIVE) | ;is patient active from now till forever?
; Returned: 1: Not active from now till forever, 0 = Active sometime ; DFN - Pointer to Patient File ; SCTM - Team File ien of interest ; SCDATE - Start Date ; SCACTIVE- Must Team be active on date or just sometime in future? |
|
| YSPTTMPC(DFN,SCACT) | ;is it ok to give patient a new pc team?
; Return [OK:1,Not OK: 0^Message] |
|
| OKPTTMPC(DFN,SCTM,DATE) | ;
|
|
| QTOKPC | ||
| QTOKTM | ||
| ENDOKTM |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.42 - [#404.42] | YSPTTMPC+7, YSPTTMPC+9 |
| ^SCPT(404.43 - [#404.43] | OKINPTTM+4, OKINPTTM+5, OKINPTTM+6, OKINPTTM+7 |
| ^SCTM(404.51 - [#404.51] | YSPTTMPC+10, OKPTTMPC+4 |
| ^SCTM(404.57 - [#404.57] | OKINPTTM+8 |
| ^TMP($J | RESTENR+3 |
| Name | Line Occurrences |
|---|---|
| $$YSPTTMPC | OKPTTMPC+10 |
| END | RESTENR+1 |
| ENDOKTM | OKACPTTM+13 |
| QTOKPC | YSPTTMPC+5, YSPTTMPC+8 |
| QTOKTM | OKPTTMPC+4, OKPTTMPC+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE | OKPTTMPC~, OKPTTMPC+5, OKPTTMPC+10 |
| DFN | RESTENR+1, YSPTTMPC~, YSPTTMPC+4, YSPTTMPC+7, YSPTTMPC+9, OKACPTTM~, OKACPTTM+14, OKPTTMPC~, OKPTTMPC+5, OKPTTMPC+10 , OKINPTTM~, OKINPTTM+1, OKINPTTM+4, OKINPTTM+5, OKINPTTM+6 |
| DT | YSPTTMPC+4, OKACPTTM+8 |
| OK | OKINPTTM+2~, OKINPTTM+3*, OKINPTTM+4, OKINPTTM+9*, OKINPTTM+10*, OKINPTTM+11 |
| SCACERR | OKACPTTM+6~ |
| SCACLST | OKACPTTM+6~ |
| SCACLST("SCTM" | OKACPTTM+15 |
| SCACT | YSPTTMPC~, YSPTTMPC+7 |
| SCACTIVE | OKACPTTM~, OKACPTTM+11*, OKACPTTM+13 |
| >> SCCL | RESTENR+2*, RESTENR+3*, RESTENR+4 |
| SCDATE | OKACPTTM~, OKACPTTM+8 |
| SCINACT | OKINPTTM~, OKINPTTM+1, OKINPTTM+10 |
| SCOK | YSPTTMPC+2~, YSPTTMPC+5*, YSPTTMPC+10*, YSPTTMPC+11*, QTOKPC, OKACPTTM+6~, OKACPTTM+7*, OKACPTTM+13*, OKACPTTM+14*, OKACPTTM+15* , ENDOKTM, OKPTTMPC+1~, OKPTTMPC+2*, OKPTTMPC+4*, OKPTTMPC+8*, OKPTTMPC+10*, QTOKTM |
| SCPCTM | OKPTTMPC+1~, OKPTTMPC+5*, OKPTTMPC+6, OKPTTMPC+7 |
| SCPTTP0 | OKINPTTM+2~, OKINPTTM+7*, OKINPTTM+8, OKINPTTM+9, OKINPTTM+10 |
| SCPTTPDT | OKINPTTM+2~, OKINPTTM+5*, OKINPTTM+6 |
| SCPTTPI | OKINPTTM+2~, OKINPTTM+6*, OKINPTTM+7 |
| SCTM | YSPTTMPC+2~, YSPTTMPC+4*, YSPTTMPC+5, YSPTTMPC+9*, YSPTTMPC+10, OKACPTTM~, OKACPTTM+13, OKACPTTM+15, OKPTTMPC~, OKPTTMPC+4 , OKPTTMPC+7, OKINPTTM~, OKINPTTM+1, OKINPTTM+8 |
| SCTMDT | OKACPTTM+6~, OKACPTTM+13 |
| SCTMDT("BEGIN" | OKACPTTM+8* |
| SCTMDT("END" | OKACPTTM+9* |
| SCTMDT("INCL" | OKACPTTM+10* |
| SCTP | OKINPTTM+2~, OKINPTTM+3*, OKINPTTM+4*, OKINPTTM+5, OKINPTTM+6 |
| SCX | YSPTTMPC+2~, YSPTTMPC+7*, YSPTTMPC+8, YSPTTMPC+9 |
| U | YSPTTMPC+5, YSPTTMPC+10, OKPTTMPC+4, OKINPTTM+8, OKINPTTM+9, OKINPTTM+10 |