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