SCAPMC21 ;ALB/REW - Team APIs:ACPTTP ; 5 Jul 1995
Source file <SCAPMC21.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACPTTP(DFN,SCTP,SCFIELDA,SCACT,SCERR,SCYESTM,SCMAINA) | ;add/edit a patient to a position (pt TP assgn - #404.43
; input: ; DFN = pointer to PATIENT file (#2) ; SCTP = pointer to TEAM POSTION file (#404.57) ; SCFIELDA= array of extra field entries - scfielda('fld#')=value ; SCACT = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] ; SCYESTM = Should team assignment be made, if none active now?[1=YES] ; SCMAINA= array of extra field entries for 404.42 (only if scyestm=1) |
|
| TM | ||
| APTTPQ | ||
| ACPTATP(DFNA,SCTP,SCFIELDA,SCACT,SCERR,SCYESTM,SCMAINA,SCNEWTP,SCNEWTM,SCOLDTP,SCBADTP) | ;list of patients to a position (pt TP assgn - #404.43 and possibly #404.42
; input: as per ACPTTP (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 ; SCNEWTP = Subset of DFNA that was NEWLY assigned to a Position ; SCNEWTM = Subset of DFNA that was NEWLY assigned to a Team ; SCOLDTP = Subset of DFNA that was already assigned to Position ; SCBADTP = Subset of DFNA that was NOT assigned to Position ; output: Count of Patients (New or Old) assigned to Position |
|
| OKDATA() | ;setup/check variables
|
|
| CHKPC(DFN) | ;not stand-alone
|
|
| QTCKPC |
