SCAPMC21 ;ALB/REW - Team APIs:ACPTTP ; 5 Jul 1995
Source file <SCAPMC21.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | OKDATA+4 |
^SCTM(404.57 - [#404.57] | ACPTTP+21, OKDATA+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | ACPTTP~, ACPTTP+26, ACPTTP+32, ACPTTP+43, ACPTTP+52, ACPTATP+9~, ACPTATP+12*, ACPTATP+13, ACPTATP+17, ACPTATP+18 , ACPTATP+21, ACPTATP+23, OKDATA+4, OKDATA+5, CHKPC~, CHKPC+4 |
DFNA | ACPTATP~, ACPTATP+12 |
DT | ACPTATP+25, OKDATA+8 |
HISTPTTP | ACPTTP+18~ |
SC | ACPTTP+18~ |
SC( | ACPTTP+36*, ACPTTP+40*, TM+5*, TM+6*, TM+7*, TM+8* |
SCACT | ACPTTP~, ACPTTP+23, ACPTTP+29, ACPTTP+36, ACPTTP+43, ACPTTP+52, TM+8, ACPTATP~, ACPTATP+13, OKDATA+8* , CHKPC+4 |
>> SCADDFLD | ACPTATP+25 |
SCAPTDT | ACPTTP+19~ |
SCAPTDT("BEGIN" | ACPTTP+23* |
SCAPTDT("END" | ACPTTP+24* |
SCAPTDT("INCL" | ACPTTP+25* |
SCAPTTPE | ACPTTP+19~ |
SCAPTTPO | ACPTTP+19~ |
SCAPTTPO("SCTP" | ACPTTP+33 |
SCBADTP | ACPTATP~, ACPTATP+23, ACPTATP+25 |
SCCNT | ACPTATP+9~, ACPTATP+11*, ACPTATP+16*, ACPTATP+20*, ACPTATP+26 |
SCERR | ACPTTP~, ACPTTP+41, ACPTTP+52, TM+9, TM+10, ACPTATP~, ACPTATP+13, OKDATA+7 |
SCESEQ | ACPTTP+18~, OKDATA+7 |
SCFIELDA | ACPTTP~, ACPTTP+26, ACPTTP+37, ACPTTP+39, ACPTTP+40, ACPTTP+46, ACPTTP+47, ACPTTP+48, ACPTTP+49, ACPTTP+50 , ACPTTP+51, TM+2, TM+4, TM+5, ACPTATP~, ACPTATP+13, CHKPC+3, CHKPC+5, CHKPC+7 |
SCFLD | ACPTTP+18~, ACPTTP+38*, ACPTTP+39*, ACPTTP+40, TM+3*, TM+4*, TM+5 |
SCIEN | ACPTTP+18~, TM+10! |
SCIEN(1 | TM+12 |
SCMAINA | ACPTTP~, ACPTTP+47, ACPTTP+48, ACPTTP+49, ACPTTP+50, ACPTTP+51, ACPTTP+52, ACPTATP~, OKDATA+9* |
SCMESS | ACPTTP+19~, ACPTTP+27*, ACPTTP+30*, APTTPQ |
SCNEWTM | ACPTTP+19~, ACPTATP~, ACPTATP+18 |
SCNEWTP | ACPTTP+19~, TM+13*, APTTPQ, ACPTATP~, ACPTATP+17, ACPTATP+25 |
SCNOMAIL | ACPTATP+9~, ACPTATP+10*, ACPTATP+24! |
SCOK | OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+10, CHKPC+1~, CHKPC+2*, CHKPC+6*, CHKPC+8*, QTCKPC |
SCOLDTP | ACPTATP~, ACPTATP+21, ACPTATP+25 |
SCPARM | ACPTTP+18~, OKDATA+7 |
SCPARM("PATIENT" | OKDATA+5* |
SCPARM("POSITION" | OKDATA+6* |
SCPTTMA | ACPTTP+18~, ACPTTP+43*, ACPTTP+46, ACPTTP+52*, TM, TM+6, APTTPQ |
SCPTTPA | ACPTTP+18~, ACPTTP+33*, ACPTTP+35, ACPTTP+36, ACPTTP+40, TM+12*, TM+14, APTTPQ |
SCTM | ACPTTP+18~, ACPTTP+21*, ACPTTP+33, ACPTTP+43, ACPTTP+52 |
SCTMFLDA | ACPTTP+19~ |
SCTP | ACPTTP~, ACPTTP+21, ACPTTP+29, ACPTTP+33, TM+7, ACPTATP~, ACPTATP+13, ACPTATP+25, OKDATA+4, OKDATA+6 , CHKPC+4 |
SCX | ACPTTP+19~, ACPTTP+29*, ACPTTP+30, ACPTATP+9~, ACPTATP+13*, ACPTATP+15, ACPTATP+17, ACPTATP+18, ACPTATP+19, ACPTATP+21 , ACPTATP+22, ACPTATP+23, CHKPC+1~, CHKPC+4*, CHKPC+6, CHKPC+8 |
SCYESTM | ACPTTP~, ACPTTP+46, ACPTATP~, ACPTATP+13 |
U | ACPTTP+21, ACPTTP+30, APTTPQ, ACPTATP+15, ACPTATP+18, ACPTATP+19, ACPTATP+23, CHKPC+8 |