SCMCTPU ;ALB/REW - Team Position Utilities ; 9 Jun 1995
Source file <SCMCTPU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| 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 |
|
| QTACTTP | ||
| ITSCF(CRITERIA,REPORT,X) | ;
|
|
| AKEY(REPORT,SORT,X) | ;
|
|
| IPTF(POSITION,TEAM,X) | ;input transform for 404.57
|
|
| OKACTTP(SCNODE,ACTDT) | ;input transform for position assigned date for 404.43
|
|
| QTOKAC | ||
| OKINTP(SCNODE,INACTDT) | ;input transform for inactivation date for 404.43
|
|
| QTOKIN | ||
| OKTP(DA,SCX) | ;used by team position field of 404.43
|
|
| QTOKTP | ||
| OKROLE(DA,SCX) | ;used by role .05 field of 404.43
|
|
| QTOKRL | ||
| USEUSR() | ;should user class functionality be employed?
; Returned [1=Use USR Class,0=Don't) |
|
| ACCLIN(SC44,DATE) | ;is clinic active on this date?
; Return: 1=Yes,0=N0 |
