SCAPMCU3 ;MJK/ALB - AUTOLINK API ; 8/10/99 4:09pm
Source file <SCAPMCU3.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 2 | FILE^DICN ^DIK | 
| Scheduling | 1 | $$PRTPC^SCAPMC | 
| Package | Total | Caller Graph | 
|---|---|---|
| Scheduling | 5 | SCAPMCU2 SCMCQK1 SCMCQK2 SCMCWAIT SDWLE3 | 
| Registration | 1 | DGSDUTL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ROOT(SCTYPE,SCROOT,SCGLB) | ; -- determine global root of autolink type | |
| PCPROV(SCTP,DATE,PCAP) | ;returns ien & name of practitioner filling position | |
| 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 | 
 
 | 
| GETEAM(SCTEAM) | ; -- retrieve Team demographics | 
 
 | 
| DELETE(SCLINKI) | ; -- delete an autolink from a Team | |
| SET(X,INC,SCDATA) | ; -- set value in return array | |
| 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 ; | |
| 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 | 
 
 | 
| SCAN(SCTEAM,SC) | ; -- build an array of current autolink assignments | |
| BUILD(SC,SCDATA) | ; -- build string to send and add to return array | |
| ADD(SCTEAM,SCLINK) | ; -- add an autolink to a Team | 
| RPC Name | Call Tags | 
|---|---|
| SCTM AUTOLINK GETRECORD | GETREC | 
| SCTM AUTOLINK SETRECORD | SETREC | 
| SCTM AUTOLINK GETLINK | GETLINK | 
| FileNo | Call Tags | 
|---|---|
| ^SCTM(404.56 - [#404.56] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SCTM(404.51 - [#404.51] | GETEAM+1, GETLINK+16 | 
| ^SCTM(404.56 - [#404.56] | DELETE+2, SCAN+3, GETLINK+13, GETLINK+14 | 
| Name | Line Occurrences | 
|---|---|
| $$GETEAM | GETREC+8 | 
| ADD | SETREC+16 | 
| BUILD | GETREC+14 | 
| DELETE | SETREC+23 | 
| ROOT | SETREC+13, GETLINK+8 | 
| SCAN | GETREC+12, SETREC+7 | 
| SET | GETREC+10, BUILD+12 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | SCAN+3 | 
| ^(0 | BUILD+12 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DA | DELETE+1~, DELETE+3* | 
| DATE | PCPROV~, PCPROV+10*, PCPROV+11 | 
| DD | ADD+1~ | 
| DIC | ADD+1~, ADD+2* | 
| DIC("DR" | ADD+2* | 
| DIC(0 | ADD+2* | 
| DIK | DELETE+1~, DELETE+3* | 
| DLAYGO | ADD+1~, ADD+2* | 
| DO | ADD+1~ | 
| DT | PCPROV+10 | 
| ERR | PCPROV+9~ | 
| INC | SET~, SET+1* | 
| PCAP | PCPROV~, PCPROV+19, PCPROV+22, PCPROV+28, PCPROV+30, PCPROV+32, PCPROV+34 | 
| SC | GETREC+6~, GETREC+12, GETREC+14, BUILD~, SETREC~, SCAN~, GETLINK~ | 
| SC( | BUILD+4, SETREC+11, SCAN+3*, GETLINK+16*, GETLINK+19* | 
| SCDATA | GETREC~, GETREC+10, GETREC+14, BUILD~, BUILD+12, SET~ | 
| SCDATA( | SET+1* | 
| SCGLB | BUILD+1~, BUILD+6*, BUILD+7*, BUILD+8*, BUILD+9*, BUILD+10*, BUILD+12, SETREC+5~, SETREC+13, SETREC+16 , ROOT~, ROOT+1*, ROOT+2*, ROOT+3*, ROOT+4*, ROOT+5*, ROOT+6*, GETLINK+6~, GETLINK+8 | 
| SCI | SETREC+5~, SETREC+11*, PCPROV+9~, PCPROV+17*, PCPROV+18, PCPROV+20, PCPROV+21 | 
| SCIEN | GETLINK~, GETLINK+10 | 
| SCII | PCPROV+9~, PCPROV+20*, PCPROV+21 | 
| SCINC | BUILD+1~, BUILD+2*, BUILD+12, GETLINK+6~, GETLINK+12*, GETLINK+15*, GETLINK+16, GETLINK+18*, GETLINK+19 | 
| SCLINK | BUILD+1~, BUILD+3*, BUILD+4*, BUILD+5, BUILD+12, SETREC+5~, SETREC+14*, SETREC+15, SETREC+16, SETREC+20* , SETREC+21*, SETREC+22, ADD~, SCAN+1~, SCAN+2*, SCAN+3*, GETLINK+6~, GETLINK+10*, GETLINK+13, GETLINK+14 | 
| SCLINKI | SETREC+5~, SETREC+22*, SETREC+23, DELETE~, DELETE+2, DELETE+3 | 
| SCNEW | SETREC+5~ | 
| SCNEW( | SETREC+15*, SETREC+21 | 
| SCOK | SETREC~, SETREC+24* | 
| SCOLD | SETREC+5~, SETREC+7 | 
| SCOLD( | SETREC+16, SETREC+21, SETREC+22 | 
| SCPP | PCPROV+9~, PCPROV+10*, PCPROV+19*, PCPROV+28, PCPROV+30, PCPROV+34 | 
| SCPR | PCPROV+9~ | 
| SCPR( | PCPROV+17, PCPROV+18, PCPROV+20, PCPROV+21 | 
| SCPRDTS | PCPROV+9~ | 
| SCPRDTS("BEGIN" | PCPROV+11* | 
| SCPRDTS("END" | PCPROV+11* | 
| SCPRDTS("INCL" | PCPROV+10* | 
| SCPRX | PCPROV+9~ | 
| SCPRX( | PCPROV+23* | 
| SCPRX("PREC" | PCPROV+28 | 
| SCPRX("PROV" | PCPROV+32 | 
| SCPRX("PROV-P" | PCPROV+34 | 
| SCPRX("PROV-U" | PCPROV+30 | 
| SCROOT | SETREC+5~, SETREC+13, SETREC+14, ROOT~, ROOT+1*, ROOT+2*, ROOT+3*, ROOT+4*, ROOT+5*, ROOT+6* , GETLINK+6~, GETLINK+8, GETLINK+10 | 
| SCSUB | PCPROV+9~, PCPROV+18*, PCPROV+19, PCPROV+20, PCPROV+21, PCPROV+22 | 
| SCTEAM | GETREC~, GETREC+8, GETREC+12, SETREC~, SETREC+7, SETREC+16, ADD~, ADD+2, GETEAM~, GETEAM+1 , SCAN~, SCAN+3, GETLINK+6~, GETLINK+12*, GETLINK+13, GETLINK+14*, GETLINK+16 | 
| SCTP | PCPROV~, PCPROV+15 | 
| SCTYPE | BUILD+1~, BUILD+6*, BUILD+7*, BUILD+8*, BUILD+9*, BUILD+10*, BUILD+12, SETREC+5~, SETREC+12*, SETREC+13 , ROOT~, ROOT+2, ROOT+3, ROOT+4, ROOT+5, ROOT+6, GETLINK~, GETLINK+8 | 
| SCX | SETREC+11*, SETREC+12, SETREC+14, PCPROV+9~, PCPROV+21*, PCPROV+23 | 
| SCY | PCPROV+9~, PCPROV+22*, PCPROV+23 | 
| U | BUILD+12, SETREC+12, SETREC+14, GETLINK+16, PCPROV+21 | 
| X | GETREC+6~, GETREC+8*, GETREC+10, BUILD+1~, BUILD+5*, BUILD+6, BUILD+7, BUILD+8, BUILD+9, BUILD+10 , SET~, SET+1, ADD+2*, PCPROV+9~, PCPROV+15* |