©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
SCAPMC19 ;ALB/REW - Team API's ; 12 Jan 99 9:10 AM
Source file <SCAPMC19.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 |
| VA Fileman | 1 | UPDATE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OKDATA() | ;
|
|
| QT | ||
| ACPRTP(SC200,SCTP,SCFIELDA,SCEFF,SCERR) | ; assign practitioner to position
; input: ; SC200 = New Person File (#200) Pointer ; SCTP = Pointer To Team Position File (#404.57) ; SCFIELDA= array of extra field entries - scfielda('fld#')=value ; -Note: Only used if BRAND NEW POSITION - team fields (404.57) ; SCEFF = date to activate/inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCTM(404.52 - [#404.52] | ACPRTP+46, ACPRTP+52 |
| ^SCTM(404.57 - [#404.57] | OKDATA+9 |
| ^VA(200 - [#200] | OKDATA+6 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ACPRTP+23 |
| QT | ACPRTP+23, ACPRTP+31, ACPRTP+40, ACPRTP+47 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | OKDATA+5 |
| >> SC( | ACPRTP+53*, ACPRTP+54*, ACPRTP+55*, ACPRTP+59* |
| SC200 | ACPRTP~, ACPRTP+34, ACPRTP+41, ACPRTP+47, ACPRTP+49, ACPRTP+55, OKDATA+6, OKDATA+7, OKDATA+13 |
| SCACTP | ACPRTP+21~ |
| SCEFF | ACPRTP~, ACPRTP+25, ACPRTP+40, ACPRTP+54, ACPRTP+62, ACPRTP+63, OKDATA+5* |
| SCERR | ACPRTP~, ACPRTP+36, ACPRTP+38, ACPRTP+44, ACPRTP+51, ACPRTP+60, ACPRTP+61, OKDATA+8, OKDATA+11, OKDATA+15 |
| SCESEQ | ACPRTP+22~, ACPRTP+36, ACPRTP+44, ACPRTP+51, OKDATA+8, OKDATA+11, OKDATA+15 |
| SCFIELDA | ACPRTP~, ACPRTP+24, ACPRTP+56, ACPRTP+58, ACPRTP+59, OKDATA+12 |
| SCFLD | ACPRTP+57*, ACPRTP+58*, ACPRTP+59, OKDATA+2~, OKDATA+12* |
| SCHIST | ACPRTP+21~, ACPRTP+38*, ACPRTP+40, ACPRTP+46, ACPRTP+52, ACPRTP+62*, ACPRTP+63*, QT |
| SCIEN | ACPRTP+22~ |
| SCIEN(1 | ACPRTP+62, ACPRTP+63 |
| SCOK | ACPRTP+21~, ACPRTP+30*, ACPRTP+32*, ACPRTP+48*, ACPRTP+64*, QT, OKDATA+2~, OKDATA+3*, OKDATA+4, OKDATA+16 |
| >> SCOLD200 | ACPRTP+46*, ACPRTP+47 |
| SCPARM | ACPRTP+22~, ACPRTP+36, ACPRTP+44, ACPRTP+51, OKDATA+8, OKDATA+11, OKDATA+15 |
| SCPARM("MESSAGE" | ACPRTP+35*, ACPRTP+43*, ACPRTP+50*, OKDATA+14* |
| SCPARM("POSITION" | ACPRTP+33*, ACPRTP+42*, OKDATA+10* |
| SCPARM("PRACTITIONER" | ACPRTP+34*, ACPRTP+41*, ACPRTP+49*, OKDATA+7*, OKDATA+13* |
| SCPTAIEN | ACPRTP+22~ |
| SCSTATUS | ACPRTP+21~, ACPRTP+24*, ACPRTP+29, ACPRTP+31, ACPRTP+35, ACPRTP+40, ACPRTP+47, ACPRTP+52, ACPRTP+62, ACPRTP+63 |
| SCTP | ACPRTP~, ACPRTP+33, ACPRTP+38, ACPRTP+42, ACPRTP+52, ACPRTP+53, OKDATA+9, OKDATA+10 |
| SCTPDTS | ACPRTP+21~ |
| SCTPDTS("BEGIN" | ACPRTP+25* |
| SCTPDTS("END" | ACPRTP+26* |
| SCTPDTS("INCL" | ACPRTP+29* |
| SCXX | ACPRTP+21~ |
| U | ACPRTP+31, ACPRTP+38, ACPRTP+40, ACPRTP+46, ACPRTP+62, ACPRTP+63, QT |