SCRPBK1 ;MJK/ALB - RPC Broker Utilities ; 27 FEB 96
Source file <SCRPBK1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDATA(SCDATA,SCTYPE,SCRPTID,SCRPTN,SCTEXT,SCSELS) | ;
; -- get file type entries for Selections form |
|
| GETDATAQ | ||
| CHK(SCX,SCLEN) | ; -- check if text matches user input
|
|
| BACK(X) | ; -- backup one char for scanning
|
|
| DIV | ; -- get institution file entries
|
|
| TEAM | ; -- get team file entries
|
|
| PRAC | ; -- get practitioner entries
|
|
| ROLE | ; -- get standard role file entries
|
|
| CLIN | ; -- get clinic entries
|
|
| USER | ; -- get user class file entries
|
|
| VAUTD(SCSELS,VAUTD) | ; -- build division util array
|
|
| VAUTT(SCSELS,VAUTT) | ; -- build team util array
|
|
| VAUTTQ | ||
| SET(X,INC,SCDATA) | ; -- set value in return array
|
| RPC Name | Call Tags |
|---|---|
| SCRP SELECTION SOURCE | GETDATA |
