SCAPMC7 ;ALB/REW - Team APIs:INPTTM ; 5 Jul 1995
Source file <SCAPMC7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INPTTM(DFN,SCPTTM,SCINACT,SCERR) | ;inactivate patient from a team (pt tm assgn - #404.42
; input: ; DFN = pointer to PATIENT file (#2) ; SCPTTM = pointer to pt team assign file (#404.42) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
| APTTMQ | ||
| PTTMACT(DFN,SCTM,SCDT,SCERR) | ;is patient assigned to a team on a given date-time?
|
|
| OKDATA() | ;check/setup variables - return 1 if ok/0 if error
|
|
| INPTATM(DFNA,SCTM,SCFIELDA,SCACT,SCERR,SCNEWTM,SCOLDTM,SCBADTM) | ;list of patients assigned to a team (404.42)
; input: as per ACPTTM (above with the following change:) ; DFNA = is the literal value of a patient array (e.g. "scpt" ; there is at least one scpt(dfn)="" defined ; SCNEWTM = Subset of DFNA that was NEWLY assigned to Team [returned] ; SCOLDTM = Subset of DFNA that was already assigned -Team [returned] ; SCBADTP = Subset of DFNA that was NOT assigned to Team [returned] ; Note: The above three arrays return data in a user determined array ; output: Count of Patients: ; 1 2 3 4 ; total assigned^newly assigned^assigned prior^not assigned |
|
| INPTSCTM(DFN,SCTM,SCINACT,SCERR) | ;inactivate patient from a team - using last pt team assignment - Note: This uses pointer to 404.51 (team) not 404.42 as input
; input: ; DFN = pointer to PATIENT file (#2) ; SCTM = pointer to TEAM file (#404.51) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
