;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