SCAPMC11 ;ALB/REW - Team API's: PTTP ; JUN 30, 1995
Source file <SCAPMC11.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTTP(SCTP,SCDATES,SCLIST,SCERR) | ; -- list of patient team position assignments
; input: ; SCTP = ien of TEAM POSITION [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 ; position for entire date range ; 0: anytime in date range ; [default: 1] ; SCLIST -array name to store list ; [ex. ^TMP("SCPT",$J)] ; ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| ST | ||
| LP | ||
| PRACQ | ||
| BLD(SCLIST,SCPTTPA,SCPTTPA0) | ; build list
; SCPTTPA - ien of patient team position assignment file #404.43 ; SCEFFDT - negative of effective date ; SCN - current subscript (counter) 1->n ; SCPTTPA0 - IS 0 node of Pt Team Pos Assnt(404.43) 1st piece:pt tm ass ; ; this builds the array: ; sclist(1->n)=sc2^ptname^effdt^inactdt ; for each scpta zero node passed to it |
|
| OKDATA() | ;check/setup variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | BLD+16 |
| ^SCPT(404.42 - [#404.42] | BLD+12 |
| ^SCPT(404.43 - [#404.43] | LP+1, LP+3, LP+4 |
| ^SCTM(404.57 - [#404.57] | OKDATA+4, OKDATA+8 |
| ^TMP("SCMC" | BLD+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | BLD+11~, BLD+12*, BLD+13, BLD+16, BLD+18 |
| SCBEGIN | ST+1~, LP+6 |
| SCCNT | BLD+11~ |
| SCDATES | PTTP~ |
| SCDTS | ST+1~ |
| SCEFFDT | BLD+11~ |
| SCEND | ST+1~, LP+6 |
| SCERR | PTTP~, PRACQ, OKDATA+6, OKDATA+10 |
| SCESEQ | ST+1~, OKDATA+6, OKDATA+10 |
| SCINCL | ST+1~, LP+6 |
| SCLIST | PTTP~, LP+7, BLD~, BLD+10, BLD+14, BLD+15, BLD+16, BLD+17, BLD+18 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~, BLD+14*, BLD+15, BLD+16, BLD+17, BLD+18 |
| SCOK | OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+8*, OKDATA+11 |
| SCP | ST+1~ |
| SCPARM | ST+1~, OKDATA+6, OKDATA+10 |
| SCPARM("POSITION" | OKDATA+5* |
| SCPARM("TEAM" | OKDATA+9* |
| SCPTA | ST~ |
| SCPTA0 | ST~ |
| SCPTMA | ST~, LP*, LP+1*, LP+3 |
| SCPTPA | ST~, LP+2*, LP+3*, LP+4, LP+7 |
| SCPTPA0 | ST~, LP+4*, LP+5, LP+6, LP+7 |
| SCPTTPA | BLD~, BLD+9, BLD+10, BLD+16, BLD+17 |
| SCPTTPA0 | BLD~, BLD+9, BLD+10, BLD+12, BLD+16, BLD+17 |
| SCTP | PTTP~, LP+1, LP+3, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+9 |
| SCTPA | ST~ |
| U | LP+6, BLD+16 |
