YSCLSRV3 ;DALOI/RLM,HEC/hrubovcak - Clozapine data server ;16 Oct 2019 19:31:54
Source file <YSCLSRV3.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 |
|---|---|---|
| RXACTV(YSRXIEN) | ; (#100) STATUS [1S], '0' FOR ACTIVE;
|
|
| DEMOG | ;
|
|
| LOCK | ;Lock out ability to dispense Clozapine
|
|
| AUTH | ;List authorized Clozapine providers
|
|
| LKUP | ; lookup patients in file #603.01
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | AUTH+41 |
| LIST^DIC | LKUP+9, LKUP+14 |
| DT^DICRW | YSCLSRV3+10 |
| FIELD^DID | LKUP+24 |
| UPDATE^DIE | AUTH+37 |
| ^DIK | AUTH+43 |
| $$GET1^DIQ | RXACTV+2, LKUP+30, LKUP+32 |
| $$SITE^VASITE | LKUP+3 |
| $$FMTE^XLFDT | YSCLSRV3+27, LKUP+31 |
| $$HTFM^XLFDT | YSCLSRV3+19 |
| $$NOW^XLFDT | LKUP+31 |
| SENDMSG^XMXAPI | LKUP+37 |
| $$DEA^XUSER | AUTH+15, AUTH+27, AUTH+29 |
| OWNSKEY^XUSRB | AUTH+32 |
| ADD2TXT^YSCLSERV | YSCLSRV3+12, YSCLSRV3+13, YSCLSRV3+14, YSCLSRV3+15, YSCLSRV3+16, YSCLSRV3+30, DEMOG+4, DEMOG+5, LOCK+2, LOCK+3 , AUTH+2, AUTH+6, AUTH+7, AUTH+8, AUTH+11, AUTH+12, AUTH+13, AUTH+16, AUTH+20, AUTH+24 , AUTH+26, AUTH+28, AUTH+30, AUTH+31, AUTH+33, AUTH+34, AUTH+38, AUTH+39, AUTH+42, AUTH+44 , LKUP+4, LKUP+8, LKUP+12, LKUP+16, LKUP+20, LKUP+25, LKUP+27, LKUP+29 |
| EXIT^YSCLSERV | YSCLSRV3+32, DEMOG+6, LOCK+4, AUTH+1, AUTH+45 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | LIST^DIC |
| 200.051 | FIND1^DIC |
| ^PSRX - [#52] | GET1^DIQ |
| ^YSCL(603.01 - [#603.01] | FIELD^DID, LIST^DIC |
| ^YSCL(603.03 - [#603.03] | GET1^DIQ |
| ^XTV(8989.3 - [#8989.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("UPPERCASE" | AUTH+22 |
| ^DPT - [#2] | YSCLSRV3+22, YSCLSRV3+23, YSCLSRV3+27 |
| ^PS(55 - [#55] | YSCLSRV3+22, YSCLSRV3+23, YSCLSRV3+24, DEMOG+2, DEMOG+3* |
| ^PSDRUG - [#50] | YSCLSRV3+25, YSCLSRV3+26 |
| ^PSRX - [#52] | YSCLSRV3+24, YSCLSRV3+25 |
| ^TMP("DIERR" | AUTH+21! |
| ^TMP($J | YSCLSRV3+11!, YSCLSRV3+28*, YSCLSRV3+30, YSCLSRV3+31!, LKUP+1!, LKUP+37 |
| ^VA(200 - [#200] | AUTH+5, AUTH+6, AUTH+10, AUTH+11, AUTH+15, AUTH+16, AUTH+26, AUTH+27 |
| ^XUSEC("PSOLOCKCLOZ" | AUTH+4 |
| ^XUSEC("PSZ CLOZAPINE" | AUTH+9 |
| ^XUSEC("YSCL AUTHORIZED" | AUTH+14 |
| ^YSCL(603.01 - [#603.01] | DEMOG+1 |
| ^YSCL(603.03 - [#603.03] | LOCK+2*, LOCK+3* |
| Name | Line Occurrences |
|---|---|
| $$RXACTV | YSCLSRV3+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | YSCLSRV3+18~, YSCLSRV3+28*, YSCLSRV3+30* |
| >> DA | AUTH+41*, AUTH+42 |
| >> DA(1 | AUTH+43* |
| DFN | YSCLSRV3+18~, YSCLSRV3+22*, YSCLSRV3+23, YSCLSRV3+24, YSCLSRV3+28 |
| >> DIK | AUTH+43* |
| DRUGIEN | YSCLSRV3+18~, YSCLSRV3+24!, YSCLSRV3+25*, YSCLSRV3+26 |
| DUZ | AUTH+35, AUTH+40, LKUP+37 |
| DUZ(0 | AUTH+35*, AUTH+40* |
| FLD | LKUP+18~, LKUP+22*, LKUP+24, LKUP+25 |
| >> RET | AUTH+32 |
| >> RET(0 | AUTH+33, AUTH+34, AUTH+35, AUTH+40 |
| RXPTR | YSCLSRV3+18~, YSCLSRV3+24* |
| U | YSCLSRV3+25, YSCLSRV3+27, YSCLSRV3+28, LKUP+4 |
| X | YSCLSRV3+18~, YSCLSRV3+28*, YSCLSRV3+30*, LOCK+1*, LOCK+2, LOCK+3, AUTH+22*, AUTH+23, LKUP+2~, LKUP+3* , LKUP+4, LKUP+30*, LKUP+31, LKUP+32*, LKUP+33, LKUP+34 |
| >> XMER | LOCK+1, AUTH+22, LKUP+5 |
| >> XMREC | LOCK+1, AUTH+22, LKUP+5 |
| >> XMRG | LOCK+1, AUTH+22, LKUP+5, LKUP+7, LKUP+8 |
| >> Y | AUTH+22 |
| >> YSCLA | DEMOG+1*, DEMOG+2, DEMOG+3, AUTH+4*, AUTH+5, AUTH+6, AUTH+9*, AUTH+10, AUTH+11, AUTH+14* , AUTH+15, AUTH+16 |
| >> YSCLAA | AUTH+27* |
| >> YSCLB | DEMOG+3*, DEMOG+4 |
| >> YSCLC | DEMOG+2*, DEMOG+5 |
| >> YSCLDEA | AUTH+15*, AUTH+16, AUTH+23*, AUTH+27, AUTH+28, AUTH+30, AUTH+31 |
| >> YSCLDEA1 | AUTH+23*, AUTH+29*, AUTH+30, AUTH+31 |
| >> YSCLDUZ | AUTH+23*, AUTH+27*, AUTH+28, AUTH+29, AUTH+32, AUTH+36, AUTH+41, AUTH+43 |
| >> YSCLDUZ(0 | AUTH+35*, AUTH+40* |
| >> YSCLERR | AUTH+38, AUTH+39 |
| >> YSCLFDA( | AUTH+37* |
| >> YSCLFDA(200 | AUTH+36* |
| >> YSCLIEN | AUTH+23* |
| >> YSCLLN | AUTH+3*, AUTH+24 |
| >> YSCLST | DEMOG+4, DEMOG+5, LOCK+2, LOCK+3, AUTH+20, AUTH+24, AUTH+26, AUTH+28, AUTH+30, AUTH+31 , AUTH+33, AUTH+34, AUTH+38, AUTH+39, AUTH+42, AUTH+44 |
| >> YSCLSTN | DEMOG+4, DEMOG+5 |
| >> YSCLSUB | AUTH+1 |
| >> YSCLYN | AUTH+15*, AUTH+16, AUTH+23*, AUTH+24, AUTH+25*, AUTH+33, AUTH+34, AUTH+35, AUTH+39, AUTH+40 |
| YSERR | LKUP+23~ |
| YSFMERR | RXACTV+1~, LKUP+2~, LKUP+6!, LKUP+13! |
| YSFMRSLT | LKUP+2~, LKUP+6!, LKUP+13! |
| YSFMRSLT("DILIST" | LKUP+10, LKUP+15, LKUP+19, LKUP+20, LKUP+22, LKUP+25 |
| YSIEN | LKUP+18~, LKUP+19*, LKUP+20, LKUP+22, LKUP+25 |
| YSLBL | LKUP+23~ |
| YSLBL("LABEL" | LKUP+24, LKUP+25 |
| YSLN | YSCLSRV3+18~, YSCLSRV3+27*, YSCLSRV3+28 |
| YSPT | YSCLSRV3+18~, YSCLSRV3+23!, LKUP+2~, LKUP+6! |
| YSPT("name" | LKUP+10*, LKUP+11, LKUP+14 |
| YSPT("ssn" | AUTH+15*, AUTH+16, AUTH+23*, AUTH+26, AUTH+27, AUTH+28, AUTH+31, AUTH+33, AUTH+34, AUTH+38 , AUTH+39, AUTH+42, AUTH+44, LKUP+7*, LKUP+8, LKUP+9, LKUP+12, LKUP+16, LKUP+20 |
| YSPT(0 | YSCLSRV3+23*, YSCLSRV3+28 |
| YSPT(55 | YSCLSRV3+23*, YSCLSRV3+27 |
| YSRX | YSCLSRV3+18~, YSCLSRV3+24!*, YSCLSRV3+25 |
| YSRX(0 | YSCLSRV3+25*, YSCLSRV3+27 |
| YSRXIEN | RXACTV~, RXACTV+2 |
| YSV | YSCLSRV3+18~ |
| YSV("t-28" | YSCLSRV3+19*, YSCLSRV3+27 |
| YSXMINST | LKUP+2~, LKUP+37 |
| YSXMINST("FROM" | LKUP+35* |
| >> YSXMSUB | LKUP+31*, LKUP+37 |
| YSXMY | LKUP+2~, LKUP+37 |
| YSXMY("G.CLOZ | APINE ROLL-UP" , LKUP+34*, APINE ROLL-UP@DOMAIN.EXT" , LKUP+33* |
| YSXMZ | LKUP+2~, LKUP+37 |
