SCAPMC1 ;ALB/REW - Team API's: PRTM ; JUN 26, 1995
Source file <SCAPMC1.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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 1 | SCAPMC |
Name | Comments | DBIA/ICR reference |
---|---|---|
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 |
|
ST | ||
PRACQ | ||
OKDATA() | ; setup/check variables - return 1 if ok; 0 if error
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCTM(404.51 - [#404.51] | OKDATA+4 |
^SCTM(404.57 - [#404.57] | ST+5, ST+6 |
>> | 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 |