SCMCTPU2 ;ALB/REW - Team Position Utilities ; 9 Jun 1995
Source file <SCMCTPU2.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 2 | $$GETPCTP^SCAPMCU2 $$ACTTP^SCMCTPU |
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 |
---|---|---|
YSPTTPPC(DFN,SCACT,SCROLE) | ;is it ok to give patient a new pc position
; ; Return [OK:1,Not OK: 0^Message] |
|
QTOKPC | ||
OKACPTTP(DFN,SCTP,DATE,ACTIVE) | ;is it ok to activate pt pos assignment?
|
|
ENDOK | ||
PCRLPTTP(DFN,SCTP,DATE) | ; can position be pc practitioner or pc attending
; return yes pract^yes attend |
|
CHKROLE(DFN,SCTP,DATE,ROLE) | ;can position file role for patient?
|
|
QTCHKRL |
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+20 , CHKROLE+21!, CHKROLE+25 |
^SCTM(404.51 - [#404.51] | CHKROLE+13 |
^SCTM(404.57 - [#404.57] | YSPTTPPC+13, CHKROLE+10, CHKROLE+12 |
>> | 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+27, CHKROLE+30 |
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, CHKROLE+21 |
DT | YSPTTPPC+7 |
ROLE | CHKROLE~, CHKROLE+9, CHKROLE+16, CHKROLE+17, CHKROLE+18, CHKROLE+21 |
SCACT | YSPTTPPC~, YSPTTPPC+10, CHKROLE+2~, CHKROLE+26*, CHKROLE+27 |
SCCUR | CHKROLE+2~ |
SCDT | OKACPTTP+1~, OKACPTTP+8*, OKACPTTP+9, CHKROLE+2~, CHKROLE+16*, CHKROLE+17, CHKROLE+18, CHKROLE+21 |
SCINACT | OKACPTTP+1~, OKACPTTP+12*, OKACPTTP+13, CHKROLE+2~, CHKROLE+28*, CHKROLE+29, CHKROLE+30 |
SCNODE | OKACPTTP+1~, OKACPTTP+11*, OKACPTTP+12, CHKROLE+2~, CHKROLE+25*, CHKROLE+26, CHKROLE+28 |
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+20, CHKROLE+31*, CHKROLE+33*, QTCHKRL |
SCPTTP | OKACPTTP+9*, OKACPTTP+10, OKACPTTP+11, CHKROLE+2~, CHKROLE+18*, CHKROLE+20, CHKROLE+21, CHKROLE+24, CHKROLE+25 |
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+27 |
SCTPRL | CHKROLE+2~, CHKROLE+17*, CHKROLE+18, CHKROLE+21, CHKROLE+27 |
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+26, CHKROLE+28 |