©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
SCAPMC14 ;ALB/REW - Team API's: PTPR ; JUN 30, 1995
Source file <SCAPMC14.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | ($$PTCL,$$PTTP,$$TPPR)^SCAPMC (ERR,INIT)^SCAPMCU1 SETASCL^SCRPRAC2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTPR(SC200,SCDATES,SCPURPA,SCROLEA,SCLIST,SCERR,SCYESCL) | ; -- list patients for a pract (scyescl NOT supported)
; input: ; SC200 = ien of NEW PERSON file(#200) [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 ; SCROLEA-array of pointer to 403.46 (per SCPURPA) ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] ; SCYESCL = Boolean to indicate 1=use associated clinics 0=don't ; default=0 |
|
| OKDATA() | ;setup/check variables
|
|
| PRACQ | ||
| ST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(200 - [#200] | OKDATA+5, OKDATA+9 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+3 |
| PRACQ | ST+3, ST+5, ST+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNAME | ST+21~, ST+22 |
| NODE | ST~, ST+9* |
| SC200 | PTPR~, ST+5, OKDATA+5, OKDATA+6, OKDATA+9, OKDATA+10 |
| SC44 | ST+21~, ST+22 |
| SC44( | ST+24 |
| SCBEGIN | ST+1~ |
| SCCNT | ST+23~*, ST+24* |
| SCDATES | PTPR~, ST+5, ST+13, ST+14, ST+15 |
| SCDTPR | ST+12~ |
| SCDTPR("BEGIN" | ST+13* |
| SCDTPR("END" | ST+14* |
| SCDTPR("INCL" | ST+15* |
| SCDTS | ST+1~ |
| SCEND | ST+1~ |
| SCERR | PTPR~, ST+5, ST+16, ST+24, PRACQ, OKDATA+7, OKDATA+11 |
| SCESEQ | ST+1~, OKDATA+7, OKDATA+11 |
| SCINCL | ST+1~ |
| SCLIST | PTPR~, ST+16, ST+24 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~ |
| SCOK | ST~, ST+9, ST+16*, ST+17, ST+24*, OKDATA+1~, OKDATA+2*, OKDATA+4, OKDATA+5*, OKDATA+9* , OKDATA+12 |
| SCP | ST+1~ |
| SCPARM | ST+1~, OKDATA+7, OKDATA+11 |
| SCPARM("PRACT" | OKDATA+6*, OKDATA+10* |
| SCPTA | ST~ |
| SCPTA0 | ST~ |
| SCPURPA | PTPR~, ST+5 |
| SCROLEA | PTPR~, ST+5 |
| SCTEMP | ST~ |
| SCTEMP( | ST+9, ST+10, ST+11 |
| SCTEMP(0 | ST+6 |
| SCTM | ST~ |
| SCTP | ST~, ST+7*, ST+9*, ST+16, ST+22 |
| SCUSR | ST~ |
| SCX | ST~, ST+9*, ST+10, ST+11 |
| SCYESCL | PTPR~, ST+18, OKDATA+3* |
| TPACT | ST~, ST+10*, ST+13 |
| TPINACT | ST~, ST+11*, ST+14 |
| U | ST+10, ST+11 |