©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
SCMCTPU2 ;ALB/REW - Team Position Utilities ; 9 Jun 1995
Source file <SCMCTPU2.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$GETPCTP^SCAPMCU2 $$ACTTP^SCMCTPU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENDOK | ||
| OKACPTTP(DFN,SCTP,DATE,ACTIVE) | ;is it ok to activate pt pos assignment?
|
|
| QTCHKRL | ||
| CHKROLE(DFN,SCTP,DATE,ROLE) | ;can position file role for patient?
|
|
| QTOKPC | ||
| PCRLPTTP(DFN,SCTP,DATE) | ; can position be pc practitioner or pc attending
; return yes pract^yes attend |
|
| YSPTTPPC(DFN,SCACT,SCROLE) | ;is it ok to give patient a new pc position
; ; Return [OK:1,Not OK: 0^Message] |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.43 - [#404.43] | YSPTTPPC+10, YSPTTPPC+12, OKACPTTP+3, OKACPTTP+8, OKACPTTP+9, OKACPTTP+11, CHKROLE+16, CHKROLE+17, CHKROLE+18, CHKROLE+21 |
| ^SCTM(404.51 - [#404.51] | CHKROLE+13 |
| ^SCTM(404.57 - [#404.57] | YSPTTPPC+13, CHKROLE+10, CHKROLE+12 |
| Name | Line Occurrences |
|---|---|
| $$CHKROLE | PCRLPTTP+2 |
| ENDOK | OKACPTTP+3, OKACPTTP+5 |
| QTCHKRL | CHKROLE+9 |
| QTOKPC | YSPTTPPC+8, YSPTTPPC+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTIVE | OKACPTTP~, OKACPTTP+5 |
| DATE | OKACPTTP~, OKACPTTP+6, OKACPTTP+13, PCRLPTTP~, PCRLPTTP+2, CHKROLE~, CHKROLE+23, CHKROLE+26 |
| DFN | YSPTTPPC~, YSPTTPPC+7, YSPTTPPC+10, YSPTTPPC+12, OKACPTTP~, OKACPTTP+3, OKACPTTP+8, OKACPTTP+9, PCRLPTTP~, PCRLPTTP+2 , CHKROLE~, CHKROLE+16, CHKROLE+17, CHKROLE+18 |
| DT | YSPTTPPC+7 |
| ROLE | CHKROLE~, CHKROLE+9, CHKROLE+16, CHKROLE+17, CHKROLE+18 |
| SCACT | YSPTTPPC~, YSPTTPPC+10, CHKROLE+2~, CHKROLE+22*, CHKROLE+23 |
| SCCUR | CHKROLE+2~ |
| SCDT | OKACPTTP+1~, OKACPTTP+8*, OKACPTTP+9, CHKROLE+2~, CHKROLE+16*, CHKROLE+17, CHKROLE+18 |
| SCINACT | OKACPTTP+1~, OKACPTTP+12*, OKACPTTP+13, CHKROLE+2~, CHKROLE+24*, CHKROLE+25, CHKROLE+26 |
| SCNODE | OKACPTTP+1~, OKACPTTP+11*, OKACPTTP+12, CHKROLE+2~, CHKROLE+21*, CHKROLE+22, CHKROLE+24 |
| SCOK | YSPTTPPC+4~, YSPTTPPC+8*, YSPTTPPC+13*, YSPTTPPC+14*, QTOKPC, OKACPTTP+1~, OKACPTTP+2*, OKACPTTP+5, OKACPTTP+6*, OKACPTTP+14* , ENDOK, CHKROLE+2~, CHKROLE+3*, CHKROLE+9, CHKROLE+10*, CHKROLE+13*, CHKROLE+27*, CHKROLE+29*, QTCHKRL |
| SCPTTP | OKACPTTP+9*, OKACPTTP+10, OKACPTTP+11, CHKROLE+2~, CHKROLE+18*, CHKROLE+20, CHKROLE+21 |
| SCROLE | YSPTTPPC~, YSPTTPPC+3, YSPTTPPC+5, YSPTTPPC+7, YSPTTPPC+10, YSPTTPPC+12 |
| SCROLETX | YSPTTPPC+4~, YSPTTPPC+5*, YSPTTPPC+8 |
| SCTM | CHKROLE+11~, CHKROLE+12*, CHKROLE+13 |
| SCTP | YSPTTPPC+4~, YSPTTPPC+7*, YSPTTPPC+8, YSPTTPPC+12*, YSPTTPPC+13, OKACPTTP~, OKACPTTP+6, OKACPTTP+8, OKACPTTP+9, PCRLPTTP~ , PCRLPTTP+2, CHKROLE~, CHKROLE+10, CHKROLE+12, CHKROLE+23 |
| SCTPRL | CHKROLE+2~, CHKROLE+17*, CHKROLE+18, CHKROLE+23 |
| SCX | YSPTTPPC+4~, YSPTTPPC+10*, YSPTTPPC+11, YSPTTPPC+12 |
| U | YSPTTPPC+8, YSPTTPPC+13, OKACPTTP+12, PCRLPTTP+2, CHKROLE+10, CHKROLE+12, CHKROLE+13, CHKROLE+22, CHKROLE+24 |