©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
SCAPMC24 ;ALB/REW - Team API's:TPTM ; 27 Jun 99 3:05 PM
Source file <SCAPMC24.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | (ERR,INIT)^SCAPMCU1 $$ACTHIST^SCAPMCU2 ($$OKARRAY,$$OKUSRCL)^SCAPU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TPTM(SCTM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR) | ; -- positions for a pract
; input: ; SCTM = ien of TEAM File (#404.51) [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] ; SCUSRA -array of pointers to user file - 8930 ; if none are defined - returns all usr classes ; if @SCPURPA@('exclude') is defined - exclude listed usr class ; SCROLEA - array of pointers to std position file 403.46 (per scusra) ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| QTVALBLD | ||
| ST | ||
| TPVALBLD(SCTP,SCDATES,SCPOSA,SCUSA,SCPURPA,SCROLEA,SCLIST,SCERR) | ;
; this validates a team position & builds sclist array ; returns 1 if ok, 0 if error |
|
| BLD(SCLIST,SCTM,SCTP,SCACTHIS,SCR) | ; -- build list of positions
|
|
| PRACQ | ||
| OKDATA() | ;setup/check variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCTM(404.51 - [#404.51] | OKDATA+4 |
| ^SCTM(404.57 - [#404.57] | ST+6, TPVALBLD+5, TPVALBLD+9, BLD+15, BLD+19, BLD+27 |
| ^SCTM(404.59 - [#404.59] | TPVALBLD+6 |
| ^SD(403.46 - [#403.46] | BLD+27 |
| ^USR(8930 - [#8930] | BLD+27 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+3 |
| $$TPVALBLD | ST+6 |
| BLD | TPVALBLD+14 |
| PRACQ | ST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| SCACTHIS | ST~, TPVALBLD+7*, TPVALBLD+8, TPVALBLD+14, TPVALBLD+15, BLD~, BLD+16, BLD+27, BLD+31 |
| SCBEGIN | ST+1~ |
| SCCNT | BLD+14~ |
| SCDATES | TPTM~, ST+6, TPVALBLD~, TPVALBLD+4 |
| SCDDDD | TPVALBLD+3~, TPVALBLD+4* |
| SCDDDD("END" | TPVALBLD+15* |
| SCDTS | ST+1~ |
| SCEFFDT | BLD+14~ |
| SCEND | ST+1~ |
| SCERR | TPTM~, ST+6, PRACQ, TPVALBLD~, TPVALBLD+7, QTVALBLD, OKDATA+6 |
| SCESEQ | ST+1~, OKDATA+6 |
| SCINCL | ST+1~ |
| SCLIST | TPTM~, ST+6, TPVALBLD~, TPVALBLD+14, BLD~, BLD+16, BLD+17, BLD+18, BLD+27, BLD+31 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~, BLD+14~, BLD+17*, BLD+18, BLD+27, BLD+31 |
| SCND | ST~, TPVALBLD+9*, TPVALBLD+10, TPVALBLD+12 |
| SCOK | OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+7 |
| SCPARM | ST+1~, OKDATA+6 |
| SCPARM("Team" | OKDATA+5* |
| SCPOSA | ST+6, TPVALBLD~ |
| SCPTTP | ST~ |
| SCPTTP0 | ST~, BLD+27 |
| SCPURPA | ST+6, TPVALBLD~ |
| SCR | ST~, TPVALBLD+3~, TPVALBLD+12*, TPVALBLD+13, TPVALBLD+14, BLD~, BLD+27 |
| SCROLEA | TPTM~, ST+6, TPVALBLD~, TPVALBLD+13 |
| SCTM | TPTM~, ST+6, TPVALBLD+3~, BLD~, BLD+15*, BLD+16, BLD+27, BLD+31, OKDATA+4, OKDATA+5 |
| SCTP | ST~, ST+5*, ST+6*, TPVALBLD~, TPVALBLD+5, TPVALBLD+6, TPVALBLD+7, TPVALBLD+9, TPVALBLD+14, BLD~ , BLD+15, BLD+16, BLD+19, BLD+27, BLD+31 |
| SCTP0 | TPVALBLD+3~, TPVALBLD+5*, TPVALBLD+14 |
| SCTPA | ST~, ST+5* |
| SCTPDT | TPVALBLD+3~, TPVALBLD+6* |
| SCTPTM | ST~ |
| SCU | TPVALBLD+3~, TPVALBLD+10*, TPVALBLD+11 |
| SCUSA | ST+6, TPVALBLD~ |
| SCUSR | BLD+14~, BLD+19*, BLD+27 |
| SCUSRA | TPTM~, TPVALBLD+11 |
| U | TPVALBLD+10, TPVALBLD+12, TPVALBLD+14, TPVALBLD+15, BLD+15, BLD+16, BLD+19, BLD+27, BLD+31 |