SCAPMC22 ;ALB/REW - Team API's ; December 1, 1995
Source file <SCAPMC22.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INPTTP(DFN,SCPTTPA,SCINACT,SCERR) | ;inactivate patient from a position (pt tm pos assgn - #404.43
; input: ; DFN = pointer to PATIENT file (#2) ; SCPTTPA = pointer to pt team assign file (#404.43) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
APTTPQ | ||
PTTPACT(DFN,SCTP,SCDT,SCERR) | ;is patient assigned to a position on a given date-time?
|
|
OKDATA() | ;check/setup variables - return 1 if ok/0 if error
|
|
INPTSCTP(DFN,SCTP,SCINACT,SCERR) | ;inactivate patient from a position - using last pt position assignment - Note: This uses pointer to 404.57 (position) not 404.43 as input
; input: ; DFN = pointer to PATIENT file (#2) ; SCTP = pointer to POSITION file (#404.57) ; SCINACT = date to inactivate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |