©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
SCAPMC17 ;ALB/REW - Team API's ; 12 Jan 99 9:09 AM
Source file <SCAPMC17.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 |
| VA Fileman | 1 | UPDATE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QT | ||
| ACTPNM(SCTPNM,SCTMNM,SCFIELDA,SCMAINA,SCEFF,SCERR) | ; -- change position status (add if need be)
; input: ; SCTPNM = External Value of Position Name ; SCTMNM = External Value of Team Name ; SCFIELDA = similar to above -used for history entries (404.59) ; SCMAINA = array of extra field entries - scfielda('fld#')=value ; -Note: Only used if BRAND NEW POSITION - team fields (404.57) ; SCEFF = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ACTP(SCTP,SCFIELDA,SCEFF,SCERR) | ; change position status using ien
; input: ; SCTP = Pointer to TEAM POSTION File (#404.57) ; SCFIELDA= array of extra field entries - for history entries (404.59) ; SCEFF = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| OKNMDATA() | ;
|
|
| QTNM | ||
| OKDATA() | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCTM(404.51 - [#404.51] | ACTPNM+26 |
| ^SCTM(404.57 - [#404.57] | ACTPNM+30, ACTP+21, OKDATA+6, OKNMDATA+7 |
| ^SCTM(404.59 - [#404.59] | ACTP+42 |
| Name | Line Occurrences |
|---|---|
| $$ACTP | ACTPNM+41 |
| $$OKDATA | ACTP+22 |
| $$OKNMDATA | ACTPNM+25 |
| QT | ACTP+22, ACTP+30, ACTP+38 |
| QTNM | ACTPNM+25, ACTPNM+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | OKDATA+5, OKNMDATA+5 |
| SC | ACTPNM+21~ |
| SC( | ACTPNM+32*, ACTPNM+33*, ACTPNM+37*, ACTP+43*, ACTP+44*, ACTP+48* |
| SCACTM | ACTPNM+21~, ACTPNM+23* |
| SCACTP | ACTPNM+41*, QTNM, ACTP+19~ |
| SCEFF | ACTPNM~, ACTPNM+41, ACTP~, ACTP+24, ACTP+38, ACTP+44, ACTP+51, ACTP+52, OKDATA+5*, OKNMDATA+5* |
| SCERR | ACTPNM~, ACTPNM+29, ACTPNM+38, ACTPNM+39, ACTPNM+41, ACTP~, ACTP+34, ACTP+36, ACTP+41, ACTP+50 , OKDATA+8, OKDATA+12, OKNMDATA+11, OKNMDATA+15 |
| SCESEQ | ACTPNM+22~, ACTPNM+29, ACTP+20~, ACTP+34, ACTP+41, OKDATA+8, OKDATA+12, OKNMDATA+11, OKNMDATA+15 |
| SCFIELDA | ACTPNM~, ACTPNM+41, ACTP~, ACTP+23, ACTP+45, ACTP+47, ACTP+48, OKDATA+9, OKNMDATA+12 |
| SCFLD | ACTPNM+21~, ACTPNM+35*, ACTPNM+36*, ACTPNM+37, ACTP+46*, ACTP+47*, ACTP+48, OKDATA+2~, OKDATA+9*, OKNMDATA+2~ , OKNMDATA+8*, OKNMDATA+10, OKNMDATA+12*, OKNMDATA+14 |
| SCHIST | ACTP+19~, ACTP+36*, ACTP+38, ACTP+42, ACTP+51*, ACTP+52*, QT |
| SCIEN | ACTPNM+22~, ACTPNM+39!, ACTP+20~ |
| SCIEN(1 | ACTPNM+40, ACTP+51, ACTP+52 |
| SCMAINA | ACTPNM~, ACTPNM+34, ACTPNM+36, ACTPNM+37, OKNMDATA+8 |
| SCOK | ACTP+19~, ACTP+29*, ACTP+31*, ACTP+53*, QT, OKDATA+2~, OKDATA+3*, OKDATA+4, OKDATA+13, OKNMDATA+2~ , OKNMDATA+3*, OKNMDATA+4, OKNMDATA+16 |
| SCPARM | ACTPNM+22~, ACTPNM+29, ACTP+20~, ACTP+34, ACTP+41, OKDATA+8, OKDATA+12, OKNMDATA+11, OKNMDATA+15 |
| SCPARM("MESSAGE" | ACTP+33*, ACTP+40*, OKDATA+11*, OKNMDATA+10*, OKNMDATA+14* |
| SCPARM("POSITION" | ACTP+39*, OKDATA+7* |
| SCPARM("TEAM" | ACTPNM+28*, ACTP+32*, OKDATA+10*, OKNMDATA+9*, OKNMDATA+13* |
| SCPTAIEN | ACTPNM+22~, ACTP+20~ |
| SCSTATUS | ACTP+19~, ACTP+23*, ACTP+28, ACTP+30, ACTP+33, ACTP+38, ACTP+42, ACTP+51, ACTP+52 |
| SCTM | ACTPNM+21~, ACTPNM+26*, ACTPNM+27, ACTPNM+28, ACTPNM+30, ACTPNM+33, ACTP+19~, ACTP+21*, ACTP+32, OKDATA+10 , OKNMDATA+9, OKNMDATA+13 |
| SCTMNM | ACTPNM~, ACTPNM+26 |
| SCTP | ACTPNM+30*, ACTPNM+31, ACTPNM+40*, ACTPNM+41, QTNM, ACTP~, ACTP+21, ACTP+36, ACTP+39, ACTP+42 , ACTP+43, OKDATA+6, OKDATA+7 |
| SCTPDTS | ACTP+19~ |
| SCTPDTS("BEGIN" | ACTP+24* |
| SCTPDTS("END" | ACTP+25* |
| SCTPDTS("INCL" | ACTP+28* |
| SCTPNM | ACTPNM~, ACTPNM+30, ACTPNM+32, OKNMDATA+7 |
| SCXX | ACTP+19~ |
| U | QTNM, ACTP+21, ACTP+30, ACTP+36, ACTP+38, ACTP+51, ACTP+52, QT |