©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
SCUTBK11 ;ALB/SCK - Scheduling Broker Utilities; 2/2/96 ;9/7/96 17:28
Source file <SCUTBK11.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | $$TPPT^SCAPMC $$TMPT^SCAPMC3 $$GETPRTP^SCAPMCU2 $$OKPREC2^SCMCLK (CHK,TMP)^SCUTBK |
| VA Fileman | 3 | FIND^DIC FILE^DIE CLEAN^DILF |
| IHS Changes To Scheduling | 1 | PTLOOKUP^BSDSCRPC |
| Registration | 1 | ($$DOB,$$SSN)^DPTLK1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMQ | ||
| PARSE(SC) | ;
|
|
| PSLTQ | ||
| FINDP(SCOUT,SCIN) | ; patient lookup used by SC PATIENT LOOKUP rpc
; input: ; SCIN("VALUE") = value to lookup ; Lookup uses multiple index lookup of File #2 ; output: ; SCOUT = location of data = ^TMP("DILIST",$J,i,0) ; for i=1:number of records returned: ; DFN^patient name^DOB^PID^DOD ; 1 2 3 4 5 |
|
| SECKEY(SCOK,SCKEY) | ;
|
|
| VFILE(SCOK,SC) | ;
|
|
| PSLST(SCDATA,SC) | ;
|
|
| TMLST(SCDATA,SC) | ;
; -- Return a list of teams for a patient. Pass in the DFN and ; optionally a date range and/or a team purpose to restrict the ; team look up. Return only the team entry, strip out any other ; array items. |
|
| PSALSTQ | ||
| PSMBR(SCPIEN,SCPDT) | ;
|
|
| PSALST(SCDATA,SC) | ;
|
| Name | Field # of Occurrence |
|---|---|
| PTLOOKUP^BSDSCRPC | FINDP+14 |
| FIND^DIC | FINDP+18 |
| FILE^DIE | VFILE+10 |
| CLEAN^DILF | FINDP+19 |
| $$DOB^DPTLK1 | FINDP+25 |
| $$SSN^DPTLK1 | FINDP+27 |
| $$TPPT^SCAPMC | PSLST+26, PSALST+27 |
| $$TMPT^SCAPMC3 | TMLST+17 |
| $$GETPRTP^SCAPMCU2 | PSMBR+4 |
| $$OKPREC2^SCMCLK | PSMBR+6 |
| CHK^SCUTBK | TMLST+8, PSLST+18, VFILE+3, SECKEY+2, PSALST+18 |
| TMP^SCUTBK | TMLST+9, PSLST+19, VFILE+4, PSALST+19 |
| RPC Name | Call Tags |
|---|---|
| SC TEAM LIST | TMLST |
| SC PATIENT LOOKUP | FINDP |
| SC POSITION MEMBERS | PSLST |
| SC FILE SINGLE VALUE | VFILE |
| SC KEY CHECK | SECKEY |
| SCMC POSITION ASSIGN LIST | PSALST |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.43 - [#404.43] | PSLST+40, PSALST+37 |
| ^SCTM(404.57 - [#404.57] | PSLST+40, PSALST+37 |
| ^TMP("DILIST" | FINDP+15, FINDP+20, FINDP+23, FINDP+34*, FINDP+35! |
| ^TMP($J | PSLST+25!, PSLST+30*, PSLST+33*, PSLST+37, PSLST+39, PSLST+40, PSLST+42!, PSALST+26!, PSALST+30*, PSALST+34 , PSALST+36, PSALST+37, PSALST+39! |
| ^XUSEC( | SECKEY+4 |
| Name | Line Occurrences |
|---|---|
| $$PSMBR | PSLST+40, PSALST+37 |
| PARSE | PSLST+21, VFILE+7, PSALST+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CNT | PSLST+24*, PSLST+35*, PSLST+40, PSLST+41*, PSALST+25*, PSALST+32*, PSALST+37, PSALST+38* |
| DFN | TMLST+6~, TMLST+11*, TMLST+17 |
| >> DIERR | FINDP+19 |
| DSSN | FINDP+22~, FINDP+28*, FINDP+30*, FINDP+31 |
| DT | PSLST+38, PSALST+23, PSALST+35 |
| DUZ | SECKEY+4 |
| >> I | TMLST+19*, PSLST+27*, PSLST+29, PSLST+30, PSLST+33, PSLST+36*, PSLST+37*, PSLST+39, PSLST+40, PSALST+28* , PSALST+29, PSALST+30, PSALST+33*, PSALST+34*, PSALST+36, PSALST+37 |
| NODE | FINDP+22~, FINDP+23*, FINDP+25*, FINDP+27, FINDP+29, FINDP+31*, FINDP+34 |
| PLID | FINDP+22~, FINDP+29*, FINDP+30*, FINDP+31 |
| SC | PARSE~, TMLST~, FINDP+21~*, FINDP+23, FINDP+34, PSLST~, PSLST+21, VFILE~, VFILE+7, PSALST~ , PSALST+21 |
| SC("BEGIN" | PARSE+4, TMLST+12 |
| SC("DFN" | PARSE+1, TMLST+11 |
| SC("END" | PARSE+5, PARSE+6, TMLST+14 |
| SC("FIELD" | PARSE+9 |
| SC("FILE" | PARSE+7 |
| SC("IEN" | PARSE+8 |
| SC("INCL" | TMLST+13 |
| SC("PIEN" | PARSE+2 |
| SC("PURP" | TMLST+15 |
| SC("TEAM" | PARSE+3 |
| SC("TEAMASSIGN" | PSALST+22 |
| SC("VALUE" | PARSE+10 |
| SCD | TMLST+6~, PSLST+16~, PSALST+16~ |
| SCD( | TMLST+19, PSLST+27, PSLST+29, PSLST+30, PSLST+33, PSALST+28, PSALST+29, PSALST+30 |
| SCDATA | TMLST~, PSLST~, PSALST~ |
| SCDATA( | TMLST+19*, PSLST+40*, PSALST+37* |
| SCDFN | PARSE+1*, PSLST+16~, PSLST+26, PSALST+16~, PSALST+27 |
| SCDT | TMLST+6~, PSLST+16~, PSLST+26, PSALST+16~, PSALST+27 |
| SCDT("BEGIN" | PARSE+4*, TMLST+12*, TMLST+13, PSLST+22, PSALST+23 |
| SCDT("END" | PARSE+5*, TMLST+14* |
| SCDT("INCL" | PARSE+6*, TMLST+13* |
| SCDTE | PSLST+16~, PSLST+22*, PSLST+38*, PSLST+40, PSALST+16~, PSALST+23*, PSALST+35*, PSALST+37 |
| SCER1 | TMLST+6~, PSLST+16~, PSALST+16~ |
| SCFDA | VFILE+1~ |
| SCFDA( | VFILE+8* |
| SCFIELD | PARSE+9*, VFILE+1~, VFILE+8 |
| SCFILE | PARSE+7*, VFILE+1~, VFILE+8 |
| SCIEN | PARSE+8*, VFILE+1~, VFILE+8 |
| SCIN | FINDP~ |
| SCIN("VALUE" | FINDP+14, FINDP+18 |
| SCIND | PSLST+16~, PSALST+16~ |
| SCKEY | SECKEY~, SECKEY+4 |
| SCLIST | TMLST+6~ |
| SCMBR | PSMBR+2~, PSMBR+4*, PSMBR+5*, PSMBR+8 |
| SCMSG | VFILE+1~ |
| SCMSG("DIERR" | VFILE+12 |
| SCOK | TMLST+6~, TMLST+17*, PSLST+26*, VFILE~, VFILE+6*, VFILE+13*, SECKEY~, SECKEY+4*, PSALST+27* |
| SCOUNT | FINDP+20~*, FINDP+21 |
| SCOUT | FINDP~, FINDP+15!*, FINDP+36!* |
| SCPDT | PSMBR~, PSMBR+4, PSMBR+6 |
| SCPIEN | PARSE+2*, PSLST+39*, PSLST+40, PSMBR~, PSMBR+4, PSMBR+6, PSALST+36*, PSALST+37 |
| SCPP | PSMBR+2~, PSMBR+6*, PSMBR+7 |
| SCPRCP | PSMBR+2~, PSMBR+7*, PSMBR+8 |
| SCPRP | PSLST+16~, PSALST+16~ |
| SCPST | PSLST+16~, PSALST+16~ |
| SCPTTMA | PSALST+16~, PSALST+22*, PSALST+29 |
| SCPURP | TMLST+6~, TMLST+15* |
| SCRLE | PSLST+16~, PSALST+16~ |
| SCTM | PARSE+3*, PSLST+16~, PSLST+28, PSLST+29, PSLST+32, PSALST+16~ |
| SCUSR | PSLST+16~, PSALST+16~ |
| SCVAL | PARSE+10*, VFILE+1~, VFILE+8 |
| SSN | FINDP+22~, FINDP+27*, FINDP+28, FINDP+30 |
| U | FINDP+25, FINDP+29, FINDP+31, FINDP+34, PSLST+29, PSLST+30, PSLST+33, PSLST+39, PSLST+40, PSMBR+5 , PSMBR+7, PSMBR+8, PSALST+29, PSALST+30, PSALST+36, PSALST+37 |