©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
SCAPMC3 ;ALB/REW - Team API's:TMPT ; 6/3/99 3:18pm
Source file <SCAPMC3.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 ($$DTCHK,$$OKARRAY)^SCAPU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMPT(DFN,SCDATES,SCPURPA,SCLIST,SCERR) | ; -- list of teams for a patient
; input: ; DFN = ien of PATIENT file [required] ; SCDATES("BEGIN") = begin date to search (inclusive) ; [default: TODAY] ; ("END") = end date to search (inclusive) ; [default: TODAY] ; ("INCL") = 1: only use patients who were assigned to ; team for entire date range ; 0: anytime in date range ; [default: 1] ; SCPURPA -array of pointers to team purpose file 403.47 ; if none are defined - returns all teams ; if @SCPURPA@('exclude') is defined - exclude listed teams ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| OKDATA() | ;setup/check variables
|
|
| BLD(SCLIST,SCPTA,SCPTA0) | ; -- build list of patient's teams
|
|
| PRACQ | ||
| ST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | OKDATA+8, OKDATA+12 |
| ^SC(403.47 | BLD+20 |
| ^SCPT(404.42 - [#404.42] | ST+6, ST+11, ST+12 |
| ^SCTM(404.51 - [#404.51] | ST+8, BLD+17 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+3 |
| BLD | ST+15 |
| PRACQ | ST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | TMPT~, ST+6, ST+11, OKDATA+8, OKDATA+12, OKDATA+13 |
| >> PATIENT | OKDATA+9 |
| SCBEGIN | ST+1~, ST+14 |
| SCCNT | BLD+12~ |
| SCDATES | TMPT~, ST+7 |
| SCDTS | ST+1~ |
| SCEFFDT | BLD+12~ |
| SCEND | ST+1~, ST+14 |
| SCERR | TMPT~, ST+7, PRACQ, OKDATA+7, OKDATA+10, OKDATA+14 |
| SCESEQ | ST+1~, OKDATA+7, OKDATA+10, OKDATA+14 |
| SCINCL | ST+1~, ST+14 |
| SCLIST | TMPT~, ST+15, BLD~, BLD+14, BLD+15, BLD+16, BLD+20, BLD+21 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~, BLD+12~, BLD+15*, BLD+16, BLD+20, BLD+21 |
| SCOK | OKDATA+1~, OKDATA+2*, OKDATA+4, OKDATA+5*, OKDATA+8*, OKDATA+12*, OKDATA+15 |
| SCP | ST~, ST+1~, ST+8*, ST+9, BLD+12~, BLD+17*, BLD+20 |
| SCPARM | ST+1~, OKDATA+7, OKDATA+10, OKDATA+14 |
| SCPARM("PATIENT" | OKDATA+9*, OKDATA+13* |
| SCPARM("PURPOSE" | OKDATA+6* |
| SCPC | BLD+12~, BLD+19*, BLD+20 |
| SCPTA | ST~, ST+10*, ST+11*, ST+12, ST+15, BLD~, BLD+14, BLD+20, BLD+21 |
| SCPTA0 | ST~, ST+12*, ST+13, ST+14, ST+15, BLD~, BLD+13, BLD+19, BLD+20 |
| SCPURPA | TMPT~, ST+9, OKDATA+3*, OKDATA+5, OKDATA+6 |
| SCTM | ST~, ST+5*, ST+6*, ST+7, ST+8, ST+11, BLD+12~, BLD+13*, BLD+14, BLD+17 , BLD+20, BLD+21 |
| SCTMNODE | BLD+12~, BLD+17*, BLD+20 |
| SCTMPT | ST~ |
| U | ST+8, ST+14, BLD+13, BLD+17, BLD+19, BLD+20 |