©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
SCAPMC11 ;ALB/REW - Team API's: PTTP ; JUN 30, 1995
Source file <SCAPMC11.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | (ERR,INIT)^SCAPMCU1 $$DTCHK^SCAPU1 |
| IHS Changes To ADT | 1 | $$HRCN^BDGF2 |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 4 | SCAPMC SCMCBK SCMCBK1 SCMRBK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LP | ||
| ST | ||
| 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 |
|
| PRACQ | ||
| 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)] |
|
| OKDATA() | ;check/setup variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | BLD+17 |
| ^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 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+2 |
| BLD | LP+7 |
| PRACQ | ST+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | BLD+11~, BLD+12*, BLD+13, BLD+17, BLD+19 |
| DUZ(2 | BLD+17 |
| 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+17, BLD+18, BLD+19 |
| SCLSEQ | ST+1~ |
| SCN | ST+1~, BLD+14*, BLD+15, BLD+17, BLD+18, BLD+19 |
| 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+17, BLD+18 |
| SCPTTPA0 | BLD~, BLD+9, BLD+10, BLD+12, BLD+17, BLD+18 |
| SCTP | PTTP~, LP+1, LP+3, OKDATA+4, OKDATA+5, OKDATA+8, OKDATA+9 |
| SCTPA | ST~ |
| U | LP+6, BLD+17 |