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 |
| 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 |
