©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
SCAPMC30 ;ALB/REW - TEAM APIs:TPCL ; 30 Jun 95
Source file <SCAPMC30.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | BLD^SCAPMC24 (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 $$OKARRAY^SCAPU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TPCL(SC44,SCDATES,SCPOSA,SCUSRA,SCPURPA,SCROLEA,SCLIST,SCERR) | ; -- list of positions for a clinic
; input: ; SC44 = ien of HOSPITAL LOCATION <FILE#44> [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) ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| CLTPQ | ||
| OKDATA() | ;check/setup variables - return 1 if ok; 0 if error
|
|
| ST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | OKDATA+4 |
| ^SCTM(404.51 - [#404.51] | ST+12 |
| ^SCTM(404.57 - [#404.57] | ST+5, ST+6, ST+11, ST+14 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+4 |
| CLTPQ | ST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| SC44 | TPCL~, ST+5, ST+9, OKDATA+4, OKDATA+5 |
| SCACTHIS | ST~, ST+16*, ST+17, ST+18 |
| SCBEGIN | ST+1~ |
| SCDATES | TPCL~, ST+16 |
| SCDTS | ST+1~ |
| SCEND | ST+1~ |
| SCERR | TPCL~, ST+10, ST+16, CLTPQ, OKDATA+6 |
| SCESEQ | ST+1~, ST+10, OKDATA+6 |
| SCINCL | ST+1~ |
| SCLIST | TPCL~, ST+18 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~ |
| SCND | ST~ |
| SCOK | ST~, ST+3*, ST+5, OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+7 |
| SCP | ST~, ST+12*, ST+13 |
| SCPARM | ST+1~, ST+10, OKDATA+6 |
| SCPARM("CLINIC" | ST+9*, OKDATA+5* |
| SCPARM("POSITION" | ST+8* |
| SCPOSA | TPCL~ |
| SCPTTP | ST~ |
| SCPTTP0 | ST~ |
| SCPURPA | TPCL~, ST+13 |
| SCR | ST~, ST+14*, ST+15, ST+18 |
| SCROLEA | TPCL~, ST+15 |
| SCTM | ST~, ST+11*, ST+12, ST+18 |
| SCTP | ST~, ST+5*, ST+6, ST+8, ST+11, ST+14, ST+16, ST+18 |
| >> SCTP0 | ST+6*, ST+7 |
| SCTPCL | ST~ |
| SCU | ST~ |
| SCUSRA | TPCL~ |
| U | ST+11, ST+12, ST+14 |