©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
SCMCTPU ;ALB/REW - Team Position Utilities ; 9 Jun 1995
Source file <SCMCTPU.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 1 | $$DATES^SCAPMCU1 |
| VA Fileman | 1 | EN^DDIOL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| USEUSR() | ;should user class functionality be employed?
; Returned [1=Use USR Class,0=Don't) |
|
| QTOKTP | ||
| OKACTTP(SCNODE,ACTDT) | ;input transform for position assigned date for 404.43
|
|
| QTOKAC | ||
| AKEY(REPORT,SORT,X) | ;
|
|
| OKINTP(SCNODE,INACTDT) | ;input transform for inactivation date for 404.43
|
|
| IPTF(POSITION,TEAM,X) | ;input transform for 404.57
|
|
| ACTTP(SCTP,SCDT) | ;is the team position currently active?
; Used by computed field #300 (CURRENTLY ACTIVE?) OF file #404.57 ; Input: ; SCTP - Pointer to Team Position file #404.57 ; SCDT - Date to check for, Default=DT ; Returns ; status^status change date ; status: ; 1 if after effective date and before inactive date ; 0 if not yet active or inactivated ; -1 if error |
|
| OKTP(DA,SCX) | ;used by team position field of 404.43
|
|
| OKROLE(DA,SCX) | ;used by role .05 field of 404.43
|
|
| ACCLIN(SC44,DATE) | ;is clinic active on this date?
; Return: 1=Yes,0=N0 |
|
| ITSCF(CRITERIA,REPORT,X) | ;
|
|
| QTOKRL | ||
| QTACTTP | ||
| ACTPTTM(SCPTTM,SCDT) | ;is the patient- team assignment currently active?
; Used by computed field #300 (CURRENTLY ACTIVE?) OF file #404.57 ; Input: ; SCPTTM - Pointer to Patient Team Assignment file -404.42 ; SCDT - Date to check for, Default=DT ; Returns ; status^status change date ; status: ; 1 if after effective date and before inactive date ; 0 if not yet active or inactivated already ; -1 if error |
|
| QTOKIN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | ACCLIN+3 |
| ^SCPT(404.42 - [#404.42] | ACTPTTM+15, OKTP+8, OKROLE+7 |
| ^SCPT(404.43 - [#404.43] | OKTP+2, OKROLE+2 |
| ^SCTM(404.57 - [#404.57] | IPTF+4, IPTF+5, IPTF+7, OKTP+6 |
| ^SD(404.91 - [#404.91] | USEUSR+2 |
| ^SD(404.92 - [#404.92] | AKEY+8, AKEY+9, AKEY+10 |
| ^SD(404.93 - [#404.93] | ITSCF+8, ITSCF+9, ITSCF+10 |
| Name | Line Occurrences |
|---|---|
| $$ACTPTTM | OKACTTP+10 |
| $$ACTTP | OKACTTP+9, OKINTP+11 |
| QTOKAC | OKACTTP+5 |
| QTOKIN | OKINTP+5 |
| QTOKTP | OKTP+5, OKROLE+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTDT | OKACTTP~, OKACTTP+5, OKACTTP+7, OKACTTP+9, OKACTTP+10 |
| CRITERIA | ITSCF~, ITSCF+8*, ITSCF+10 |
| DA | ITSCF+7, ITSCF+8, ITSCF+9, AKEY+7, AKEY+8, AKEY+9, IPTF+3, IPTF+4, IPTF+5, OKTP~ , OKTP+2, OKROLE~, OKROLE+2 |
| DATE | ACCLIN~, ACCLIN+4 |
| >> DGQUIET | ITSCF+11, AKEY+11, IPTF+8 |
| >> DIUTIL | IPTF+2 |
| DT | ACTPTTM+14, ACTTP+14 |
| EFFDT | ACTPTTM+13~, ACTTP+13~, ACTTP+17*, QTACTTP |
| INACTDT | OKINTP~, OKINTP+5, OKINTP+9, OKINTP+11 |
| OK | OKACTTP+2~, OKACTTP+3*, OKACTTP+5*, OKACTTP+7*, OKACTTP+9*, OKACTTP+10*, QTOKAC, OKINTP+2~, OKINTP+3*, OKINTP+5* , OKINTP+7*, OKINTP+9*, OKINTP+11*, QTOKIN, OKTP+1~, OKTP+3*, OKTP+5*, OKTP+8*, QTOKTP, OKROLE+1~ , OKROLE+3*, OKROLE+5*, OKROLE+9*, QTOKRL |
| POSITION | IPTF~, IPTF+4*, IPTF+7 |
| REPORT | ITSCF~, ITSCF+9*, ITSCF+10, AKEY~, AKEY+8*, AKEY+10 |
| SC44 | ACCLIN~, ACCLIN+3 |
| SCDT | ACTPTTM~, ACTPTTM+14*, ACTPTTM+17, ACTTP~, ACTTP+14*, ACTTP+15 |
| SCNODE | ACTPTTM+13~, ACTPTTM+15*, ACTPTTM+17, OKACTTP~, OKACTTP+5, OKACTTP+7, OKACTTP+9, OKACTTP+10, OKINTP~, OKINTP+5 , OKINTP+7, OKINTP+9, OKINTP+11, OKTP+1~, OKTP+2*, OKTP+5, OKTP+7, OKROLE+1~, OKROLE+2*, OKROLE+5 , OKROLE+6 |
| SCOK | ACTPTTM+13~ |
| SCPC | OKROLE+1~, OKROLE+7*, OKROLE+9 |
| SCPTTM | ACTPTTM~, ACTPTTM+15 |
| SCPTTMA | OKTP+1~, OKTP+7*, OKTP+8, OKROLE+1~, OKROLE+6*, OKROLE+7 |
| SCTM | OKTP+1~, OKTP+6*, OKTP+8 |
| SCTP | ACTTP~, ACTTP+15 |
| SCX | ACTTP+13~, ACTTP+15*, ACTTP+16, ACTTP+17, OKTP~, OKTP+5, OKTP+6, OKROLE~, OKROLE+5, OKROLE+9 , ACCLIN+2~, ACCLIN+3*, ACCLIN+4 |
| SORT | AKEY~, AKEY+9*, AKEY+10 |
| STATUS | ACTPTTM+13~, ACTTP+13~, ACTTP+16*, ACTTP+17, QTACTTP |
| TEAM | IPTF~, IPTF+5*, IPTF+7 |
| U | ACTPTTM+17, ACTTP+16, ACTTP+17, QTACTTP, ITSCF+8, ITSCF+9, AKEY+8, AKEY+9, IPTF+4, IPTF+5 , OKACTTP+5, OKACTTP+7, OKACTTP+9, OKACTTP+10, OKINTP+7, OKINTP+9, OKINTP+11, OKTP+6, OKTP+7, OKTP+8 , OKROLE+5, OKROLE+6, OKROLE+7, OKROLE+9 |
| X | ITSCF~, ITSCF+7, ITSCF+12!, AKEY~, AKEY+7, AKEY+12!, IPTF~, IPTF+3, IPTF+9! |