©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
SCMCTMU ;ALB/REW - Team-Patient Utilities ; 1 May 95
Source file <SCMCTMU.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$DATES^SCAPMCU1 ($$ACTHIST,$$GETPCTM,$$GETPRTP)^SCAPMCU2 |
| Kernel | 1 | EN^XQOR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CK | ||
| ACTTM(SCTM,SCDT) | ;is the team currently active?
; Used by computed field #300 (CURRENTLY ACTIVE?) OF file #404.51 ; Input: ; SCTM - Pointer to Team file #404.51 ; SCDT - Date to check for, Default=DT ; Returns: ; 1 if after effective date and before inactive date ; 0 if not yet active or inactivated ; -1 if error |
|
| PR(SDNPI) | ;Provider Display Data
; Input -- SDNPI New Person IEN ; Output -- Provider Display Data - Provider Name |
|
| OKPTTM(SCNODE,DA) | ;check pt team assignment - 404.42
; SCNODE is proposed new node |
|
| INSTPCTM(DFN,SCEFF) | ;return institution & team for pt's pc team
; return ptr4^institution^sctm^team name |
|
| ENROLL(DFN,CLINIC,DATE) | ;is this patient enrolled in this clinic on a date?
|
|
| WHOCLIN(SDCL,DATE) | ;give clinic & date return prt to 200
; SDCL - ien of #44 ; DATE - effective date (optional) default =DT ; Returned: ien of 200 |
|
| WHOPOS(SCTP,DATE) | ;given position & date,return pointer to 200^name of pr
|
|
| EVTQ | ||
| PTTMSCRN | ;define dic('s') to ensure patient team position assignement is ok
|
|
| DISPWHO(SCPOS,DATE) | ;given position & date, return external of 200
|
|
| RESTCONS(DFN) | ;does this patient have restricted consults?
; for a clinic in which the patient is NOT enrolled, some patients/teams ; require more authority to enroll or make appointments ; this will often be used with $$ENROLL(dfn) to see if he is enrolled |
|
| POSCLIN(SDCL,DATE) | ;given clinic & date, return ptr to team position 404.57
; SDCL - ien of Hospital Location (#44) ; Returned: If exactly one position for clinic - ien of team postion ; else null |
|
| QTOKTM | ||
| EVT(SCCVEVT,SCCVORG) | ;Invoke encounter conversion event driver
; Input -- SCCVEVT Conversion event ; 0=Estimate, 1=Convert, 2=Re-convert ; SCCVORG Originating process type ; Output -- ^TMP("SCCVEVT",$J, disposition array |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | INSTPCTM+7 |
| ^DPT - [#2] | ENROLL+10, ENROLL+12, ENROLL+13 |
| ^ORD(101 - [#101] | EVT+6 |
| ^SCPT(404.42 - [#404.42] | CK+2, OKPTTM+21, OKPTTM+23, OKPTTM+24, OKPTTM+25, OKPTTM+30 |
| ^SCPT(404.43 - [#404.43] | CK+1 |
| ^SCTM(404.51 - [#404.51] | INSTPCTM+5, INSTPCTM+7 |
| ^SCTM(404.57 - [#404.57] | POSCLIN+7, POSCLIN+8 |
| ^TMP("SCCVEVT" | EVT+8! |
| ^VA(200 - [#200] | DISPWHO+7, PR+4 |
| Name | Line Occurrences |
|---|---|
| $$WHOPOS | DISPWHO+6 |
| QTOKTM | OKPTTM+5, OKPTTM+15 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | DISPWHO+7, PR+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLINIC | ENROLL~, ENROLL+10 |
| DA | OKPTTM~, OKPTTM+5, OKPTTM+21 |
| DATE | ENROLL~, ENROLL+16, WHOCLIN~, POSCLIN~, POSCLIN+6*, POSCLIN+7, WHOPOS~, WHOPOS+4, DISPWHO~, DISPWHO+5* , DISPWHO+6 |
| DFN | ENROLL~, ENROLL+10, ENROLL+12, ENROLL+13, RESTCONS~, OKPTTM+3~, OKPTTM+6*, OKPTTM+16, OKPTTM+21, OKPTTM+23 , OKPTTM+24, OKPTTM+30, INSTPCTM~, INSTPCTM+4 |
| >> DIC("S" | CK+3* |
| DIROUT | EVT+5! |
| DT | POSCLIN+6, DISPWHO+5 |
| DTOUT | EVT+5! |
| OK | OKPTTM+3~, OKPTTM+4*, OKPTTM+15*, OKPTTM+18*, OKPTTM+21*, OKPTTM+25*, OKPTTM+28*, OKPTTM+31*, QTOKTM |
| SCACT | ENROLL+7~, ENROLL+14*, ENROLL+16, OKPTTM+3~, OKPTTM+8*, OKPTTM+10, OKPTTM+11, OKPTTM+15, OKPTTM+16, OKPTTM+21 , OKPTTM+23, OKPTTM+28 |
| SCAFT | OKPTTM+3~, OKPTTM+30*, OKPTTM+31 |
| SCB4 | OKPTTM+3~, OKPTTM+23*, OKPTTM+24 |
| >> SCB4A | OKPTTM+24*, OKPTTM+25 |
| SCCL | ENROLL+7~, ENROLL+9*, ENROLL+10*, ENROLL+12, ENROLL+13 |
| >> SCCL1 | ENROLL+11*, ENROLL+12*, ENROLL+13 |
| SCCVEVT | EVT~ |
| SCCVORG | EVT~ |
| SCD | POSCLIN+5~, POSCLIN+7*, POSCLIN+8 |
| SCDT | ACTTM~, ACTTM+10 |
| SCDTS | OKPTTM+3~, OKPTTM+12, OKPTTM+17 |
| SCDTS("BEGIN" | OKPTTM+10* |
| SCDTS("END" | OKPTTM+11* |
| SCDTS("INCL" | OKPTTM+12* |
| SCEFF | INSTPCTM~, INSTPCTM+4 |
| SCINACT | ENROLL+7~, ENROLL+15*, ENROLL+16, OKPTTM+3~, OKPTTM+9*, OKPTTM+11, OKPTTM+15, OKPTTM+28, OKPTTM+30, OKPTTM+31 |
| SCINST | INSTPCTM+2~, INSTPCTM+5*, INSTPCTM+6, INSTPCTM+7 |
| SCL1 | ENROLL+7~ |
| SCNODE | ENROLL+7~, ENROLL+13*, ENROLL+14, ENROLL+15, OKPTTM~, OKPTTM+6, OKPTTM+7, OKPTTM+8, OKPTTM+9 |
| SCOK | INSTPCTM+2~, INSTPCTM+3*, INSTPCTM+6*, INSTPCTM+7 |
| SCP | DISPWHO+4~, DISPWHO+6*, DISPWHO+7 |
| SCPOS | DISPWHO~, DISPWHO+6 |
| >> SCPTTMA | OKPTTM+21* |
| SCTM | ACTTM~, ACTTM+10, CK~, CK+2*, CK+3, OKPTTM+3~, OKPTTM+7*, OKPTTM+16, OKPTTM+17, OKPTTM+21 , OKPTTM+23, OKPTTM+24, OKPTTM+30, INSTPCTM+2~, INSTPCTM+4*, INSTPCTM+5, INSTPCTM+6, INSTPCTM+7 |
| SCTMA | CK~, CK+1*, CK+2 |
| SCTMHIST | OKPTTM+3~, OKPTTM+17*, OKPTTM+18 |
| SCTP | WHOPOS~, WHOPOS+4 |
| SCYES | ENROLL+7~, ENROLL+8*, ENROLL+16*, ENROLL+17 |
| SDCL | WHOCLIN~, POSCLIN~, POSCLIN+7, POSCLIN+8 |
| SDNPI | PR~, PR+4 |
| U | ENROLL+15, DISPWHO+7, CK+1, CK+2, OKPTTM+6, OKPTTM+7, OKPTTM+8, OKPTTM+9, OKPTTM+15, OKPTTM+18 , OKPTTM+21, OKPTTM+25, OKPTTM+28, OKPTTM+31, INSTPCTM+5, INSTPCTM+7 |
| X | POSCLIN+5~, POSCLIN+8*, POSCLIN+9, EVT+6*, EVT+7, EVT+8! |
| Y | DISPWHO+4~, DISPWHO+7*, DISPWHO+8, PR+3~, PR+4*, PR+5, CK+1 |