Routine: SCAPMCU3

Information

SCAPMCU3 ;MJK/ALB - AUTOLINK API ; 8/10/99 4:09pm

Name	Comments	DBIA/ICR reference
GETREC(SCDATA,SCTEAM)	; -- get team record with autolink data ; input : SCTEAM := ien of team ; output : SCDATA is the return array ; SCDATA(0) := 0th node of Team ; (1..n) := autolink name ^ autolink type ^ ien of entity	ICR #1919 Status: Pending Usage: Private
BUILD(SC,SCDATA)	; -- build string to send and add to return array
SET(X,INC,SCDATA)	; -- set value in return array
SETREC(SCOK,SCTEAM,SC)	; -- add/edit autolink data to Team record ; input : SCTEAM := ien of team ; output : SC is the input array ; SC(1..n) := autolink name ^ autolink type ^ ien of entity	ICR #1919 Status: Pending Usage: Private
ADD(SCTEAM,SCLINK)	; -- add an autolink to a Team
DELETE(SCLINKI)	; -- delete an autolink from a Team
GETEAM(SCTEAM)	; -- retrieve Team demographics	ICR #1919 Status: Pending Usage: Private
SCAN(SCTEAM,SC)	; -- build an array of current autolink assignments
ROOT(SCTYPE,SCROOT,SCGLB)	; -- determine global root of autolink type
GETLINK(SC,SCTYPE,SCIEN)	; -- get autolink entity data ; input: SCTYPE := type of autolink (WARD, SPECIALTY, ectc.) ; SCIEN := ien of entity ; output: SC(1..n) := list of Team names autolinked to entity ;
PCPROV(SCTP,DATE,PCAP)	;returns ien & name of practitioner filling position

FileNo	Call Tags
^SCTM(404.56 - [#404.56]	Classic Fileman Calls