SCAPMC18 ;ALB/REW - Team APIs:ACPTCL ; 5 Jul 1995
Source file <SCAPMC18.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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 2 | SCMCBK1 SCMCQK1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ACPTCL(DFN,SCCL,SCFIELDA,SCACT,SCERR) | ;add a patient to a clinic (enrollment)
; input: ; DFN = pointer to PATIENT file (#2) ; SCCL = pointer to HOSPITAL LOCATION file (#44) ; SCFIELDA= array of additional fields to be added ; SCACT = date to activate [default=DT] ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)] |
|
APTCLQ | ||
PTCLACT(DFN,SCCL,SCDT,SCERR) | ;what is patient/clinic enrollment date on a given date-time? Return date or 0
|
|
OKDATA() | ;setup/check variables
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | OKDATA+10 |
^SC - [#44] | OKDATA+7 |
Name | Line Occurrences |
---|---|
$$OKDATA | ACPTCL+17 |
$$PTCLACT | ACPTCL+18 |
APTCLQ | ACPTCL+17, ACPTCL+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA(1 | ACPTCL+28*, ACPTCL+35* |
>> DA(2 | ACPTCL+36* |
DFN | ACPTCL~, ACPTCL+18, ACPTCL+21, ACPTCL+22, ACPTCL+28, ACPTCL+36, ACPTCL+48, PTCLACT~, PTCLACT+4, OKDATA+10 , OKDATA+11 |
>> DGQUIET | ACPTCL+25 |
DIC | ACPTCL+16~, ACPTCL+22*, ACPTCL+23, ACPTCL+33* |
DIC("DR" | ACPTCL+39!, ACPTCL+42*, ACPTCL+43* |
DIC("P" | ACPTCL+27*, ACPTCL+34* |
DIC(0 | ACPTCL+26* |
DLAYGO | ACPTCL+16~, ACPTCL+30* |
DT | OKDATA+13 |
SC | ACPTCL+16~ |
SCACT | ACPTCL~, ACPTCL+18, ACPTCL+37, OKDATA+13* |
SCCL | ACPTCL~, ACPTCL+18, ACPTCL+29, PTCLACT~, PTCLACT+4, OKDATA+4, OKDATA+5, OKDATA+7, OKDATA+8 |
SCCLLST | PTCLACT+1~ |
SCCLLST("SCCL" | PTCLACT+4 |
SCDATES | PTCLACT+1~ |
SCDATES("BEGIN" | PTCLACT+3* |
SCDATES("END" | PTCLACT+3* |
SCDT | PTCLACT~, PTCLACT+3 |
SCERR | ACPTCL~, ACPTCL+18, PTCLACT~, PTCLACT+4, OKDATA+6, OKDATA+9, OKDATA+12 |
SCESEQ | ACPTCL+16~, OKDATA+6, OKDATA+9, OKDATA+12 |
SCFIELDA | ACPTCL~, ACPTCL+38, ACPTCL+41, ACPTCL+42, ACPTCL+43 |
SCFLD | ACPTCL+16~, ACPTCL+40*, ACPTCL+41*, ACPTCL+42, ACPTCL+43 |
SCIEN | ACPTCL+16~ |
SCNEWCL | ACPTCL+16~, ACPTCL+46*, APTCLQ |
SCOK | PTCLACT+1~, PTCLACT+2*, PTCLACT+4*, PTCLACT+5, OKDATA+1~, OKDATA+2*, OKDATA+3, OKDATA+4*, OKDATA+7*, OKDATA+10* , OKDATA+14 |
SCPARM | ACPTCL+16~, OKDATA+6, OKDATA+9, OKDATA+12 |
SCPARM("CLINIC" | OKDATA+5*, OKDATA+8* |
SCPARM("PATIENT" | OKDATA+11* |
SCPTCL | ACPTCL+16~, ACPTCL+18*, ACPTCL+19, ACPTCL+45*, APTCLQ |
SCX | ACPTCL+16~, ACPTCL+23*, ACPTCL+24, ACPTCL+32, ACPTCL+47 |
U | ACPTCL+45, ACPTCL+46, APTCLQ |
X | ACPTCL+16~, ACPTCL+29*, ACPTCL+37* |
>> Y | ACPTCL+32, ACPTCL+33, ACPTCL+35, ACPTCL+45, ACPTCL+46 |