©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
SCAPMC1 ;ALB/REW - Team API's: PRTM ; JUN 26, 1995
Source file <SCAPMC1.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | $$PRTP^SCAPMC8 (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 ($$OKARRAY,$$OKUSRCL)^SCAPU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ST | ||
| OKDATA() | ; setup/check variables - return 1 if ok; 0 if error
|
|
| PRACQ | ||
| PRTM(SCTEAM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR) | ; -- practitioners for team
; input: ; SCTEAM = ien of TEAM [required] ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use pracitioners who were on ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCUSRA = array of usr classes to use/exclude ; if $d(@scusra@('exclude')) -> list to exclude ; SCROLEA = array of roles to use/exclude ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J ; Output: ; SCLIST() = array of practitioners ; Format: ; Subscript: Sequential # from 1 to n ; Piece Description ; 1 IEN of NEW PERSON file entry (#200) ; 2 Name of person ; 3 IEN of TEAM POSITION file (#404.57) ; 4 Name of Position ; 5 IEN OF USR CLASS(#8930) of POSITION (#404.57) ; 6 USR Class Name ; 7 IEN of STANDARD POSITION (#403.46) ; 8 Standard Role (Position) Name ; 9 Activation Date for 404.52 (not 404.59!) ; 10 Inactivation Date for 404.52 ; 11 IEN of Position Ass History (404.52) ; 12 IEN of Preceptor Position ; 13 Name of Preceptor Position |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCTM(404.51 - [#404.51] | OKDATA+4 |
| ^SCTM(404.57 - [#404.57] | ST+5, ST+6 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+2 |
| PRACQ | ST+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| SCBEGIN | ST+1~ |
| SCDATES | PRTM~, ST+11, ST+12 |
| SCDTS | ST+1~ |
| SCEND | ST+1~ |
| SCERR | PRTM~, ST+11, ST+12, PRACQ, OKDATA+6 |
| SCESEQ | ST+1~, OKDATA+6 |
| SCINCL | ST+1~ |
| SCLIST | PRTM~, ST+12 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~ |
| SCND | ST~, ST+6*, ST+7, ST+9 |
| SCOK | ST~, OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+7 |
| SCP | ST+1~ |
| SCPARM | ST+1~, OKDATA+6 |
| SCPARM("TEAM" | OKDATA+5* |
| SCPOS0 | ST~ |
| SCPOSNM | ST~ |
| SCPRTM | ST~ |
| SCR | ST~, ST+9*, ST+10 |
| SCROLEA | PRTM~, ST+10 |
| SCTEAM | PRTM~, ST+5, OKDATA+4, OKDATA+5 |
| SCTP | ST~, ST+4*, ST+5*, ST+6, ST+11, ST+12 |
| SCU | ST~, ST+7*, ST+8 |
| SCUSRA | PRTM~, ST+8 |
| U | ST+7, ST+9 |