©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
SCAPMC23 ;ALB/REW - Team API's:TPPT ; JUN 30, 1995
Source file <SCAPMC23.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OKDATA() | ;setup/check variables
|
|
| PRACQ | ||
| TPPT(DFN,SCDATES,SCPOSA,SCUSRA,SCPURPA,SCROLEA,SCYESCL,SCLIST,SCERR) | ; -- positions for a patient
; input: ; DFN = ien of PATIENT file(#2) [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] ; SCPOSA -array of pointers to team position - 404.57 (per SCPURPA) ; SCUSRA -array of pointers to user file - 8930 (per SCPURPA array) ; 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 ; SCROLEA - array of pointers to std position file 403.46 (per SCPURPA) ; SCYESCL -boolean[0-NO(default)/1-YES] Include pts asc. via enrollment? ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | OKDATA+5 |
| ^SCPT(404.43 - [#404.43] | ST+6, ST+7, ST+12, ST+13 |
| ^SCTM(404.51 - [#404.51] | ST+28 |
| ^SCTM(404.57 - [#404.57] | ST+24 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+3 |
| PRACQ | ST+3, ST+35, ST+36, ST+37, ST+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | TPPT~, ST+6, ST+7, ST+12, ST+36, ST+37, OKDATA+5, OKDATA+6 |
| >> ENR("BEGIN" | ST+45* |
| >> ENR("END" | ST+46* |
| >> ENR("INCL" | ST+47* |
| >> INDX | ST+39*, ST+40* |
| >> SC44 | ST+44*, ST+48 |
| SCACTHIS | ST~, ST+17*, ST+19*, ST+20*, ST+21*, ST+22, ST+33 |
| SCBEGIN | ST+1~, ST+16, ST+45 |
| SCDATES | TPPT~, ST+17, ST+36, ST+37 |
| SCDTS | ST+1~ |
| SCEND | ST+1~, ST+16, ST+46 |
| SCENROLL | ST~ |
| SCENROLL( | ST+40 |
| SCENROLL(0 | ST+38, ST+40 |
| SCERR | TPPT~, ST+17, ST+36, ST+37, ST+43, ST+48, PRACQ, OKDATA+7 |
| SCESEQ | ST+1~, ST+43, OKDATA+7 |
| SCINCL | ST+1~, ST+16, ST+47 |
| SCLIST | TPPT~, ST+33, ST+48 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~ |
| SCND | ST~, ST+24*, ST+25, ST+27, ST+31 |
| SCOK | OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+5*, OKDATA+9 |
| >> SCP | ST+28*, ST+29 |
| SCPARM | ST+1~, ST+43, OKDATA+7 |
| SCPARM("Enrol | l Xref" , ST+42* |
| SCPARM("Patient" | OKDATA+6* |
| SCPOSA | TPPT~, ST+23, ST+48 |
| >> SCPTA | ST+30* |
| SCPTBEG | ST~, ST+14*, ST+16, ST+19 |
| SCPTEND | ST~, ST+15*, ST+16, ST+20 |
| SCPTPA | ST+1~, ST+11*, ST+12*, ST+13, ST+21 |
| SCPTTP | ST~, ST+7*, ST+12 |
| SCPTTP0 | ST~, ST+13*, ST+14, ST+15 |
| SCPTTPI | ST~ |
| SCPURPA | TPPT~, ST+29, ST+36, ST+48 |
| SCR | ST~, ST+31*, ST+32, ST+33 |
| SCROLEA | TPPT~, ST+32, ST+48 |
| SCTEAMA | ST~ |
| SCTM | ST~, ST+27*, ST+28, ST+33 |
| SCTP | ST~, ST+5*, ST+6*, ST+7, ST+12, ST+17, ST+23, ST+24, ST+33 |
| SCTPA | ST~, ST+5* |
| SCTPPT | ST~ |
| SCU | ST~, ST+25*, ST+26 |
| SCUSRA | TPPT~, ST+26, ST+48 |
| >> SCX | ST+40*, ST+41, ST+42, ST+44, ST+45, ST+46 |
| SCYESCL | TPPT~, ST+35, OKDATA+4* |
| U | ST+14, ST+15, ST+19, ST+20, ST+21, ST+25, ST+27, ST+28, ST+31, ST+44 , ST+45, ST+46 |