YSCLDIS ;HINOI/RTW,HEC/hrubovcak - DISCONTINUE CLOZAPINE PATIENT STATUS ;8 Nov 2019 15:21:58
Source file <YSCLDIS.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 |
---|---|---|
Mental Health | 3 | YSCL122P YSCL154P YSCLTST5 |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ; called from XMIT^YSCLTST5
|
|
OPT | ; Outpatient orders
|
|
INP | ;Inpatient Orders
; YSDSPDRG - DISPENSE DRUG (sub-file 55.07) ; YSUNTDOS - UNIT DOSE (sub-file 55.07) |
|
SVPTINFO | ; save reason for discontinue
|
|
DSCNPT | ; discontinue patient in file #55
; ^DD(55,54,0) = 'CLOZAPINE STATUS^S' ; ^DD(55,56,0) = 'DEMOGRAPHICS SENT^S' |
|
MSGTRNS | ; transmit message
|
|
YSXMTEXT | ; build message of discontinued clozapine patients data for NCC
|
|
XTMPZRO | ;
|
|
ADD2TXT(L) | ; add line L to the Message text
|
Name | Field # of Occurrence |
---|---|
^%DTC | OPT+10, INP+14 |
LIST^DIC | START+7, OPT+2, INP+4, INP+7 |
DT^DICRW | START+1 |
^DIE | DSCNPT+4, MSGTRNS+14 |
$$GET1^DIQ | START+12, START+13, START+15, OPT+4, OPT+5, OPT+6, OPT+8, INP+9, INP+10, INP+12 , MSGTRNS+4, YSXMTEXT+17, YSXMTEXT+18, YSXMTEXT+19 |
$$SITE^VASITE | MSGTRNS+8 |
$$DT^XLFDT | XTMPZRO+2 |
$$FMADD^XLFDT | START+5, XTMPZRO+2 |
$$FMDIFF^XLFDT | START+16 |
$$NOW^XLFDT | SVPTINFO+2, MSGTRNS+11, MSGTRNS+14, XTMPZRO+3 |
SENDMSG^XMXAPI | MSGTRNS+10 |
DMG^YSCLTST5 | START+18, START+25 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^PSDRUG - [#50] | GET1^DIQ |
^PSRX - [#52] | GET1^DIQ |
^PS(55 - [#55] | Classic Fileman Calls, GET1^DIQ |
55.03 | LIST^DIC |
55.06 | GET1^DIQ, LIST^DIC |
55.07 | LIST^DIC |
^YSCL(603.01 - [#603.01] | LIST^DIC |
^YSCL(603.03 - [#603.03] | Classic Fileman Calls |
^XTV(8989.3 - [#8989.3] | GET1^DIQ |
Name | Field # of Occurrence |
---|---|
^(0 | ADD2TXT+2* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | SVPTINFO+1~, SVPTINFO+2*, SVPTINFO+3, XTMPZRO+1~, XTMPZRO+2*, XTMPZRO+3*, XTMPZRO+4, ADD2TXT+2~* |
DA | DSCNPT+3~, DSCNPT+4*, MSGTRNS+13~, MSGTRNS+14* |
DFN | START+4~, START+9*, START+12, START+13, START+15, START+20, OPT+2, INP+4, INP+7, INP+10 , INP+12, SVPTINFO+3, SVPTINFO+4, DSCNPT+4, YSXMTEXT+12*, YSXMTEXT+15*, YSXMTEXT+17, YSXMTEXT+18, YSXMTEXT+19, YSXMTEXT+20 |
DIE | DSCNPT+3~, DSCNPT+4*, MSGTRNS+13~, MSGTRNS+14* |
DR | DSCNPT+3~, DSCNPT+4*, MSGTRNS+13~, MSGTRNS+14* |
DT | START+5, START+16, START+20, OPT+9, OPT+10, INP+13, INP+14 |
DUZ | MSGTRNS+10 |
J | SVPTINFO+1~, SVPTINFO+2*, SVPTINFO+3, YSXMTEXT+1~, YSXMTEXT+22*, XTMPZRO+1~, XTMPZRO+2*, XTMPZRO+3 |
L | ADD2TXT~, ADD2TXT+1*, ADD2TXT+2 |
N | SVPTINFO+1~, SVPTINFO+2*, SVPTINFO+3, SVPTINFO+4 |
U | START+20, SVPTINFO+3, MSGTRNS+8, MSGTRNS+11, XTMPZRO+3 |
X | START+4~, OPT+1~, OPT+10, INP+3~, INP+14 |
X1 | OPT+1~, OPT+10*, INP+3~, INP+14* |
X2 | OPT+1~, OPT+10*, INP+3~, INP+14* |
XMERR | MSGTRNS+1~ |
Y | START+4~, MSGTRNS+8*, YSXMTEXT+12*, YSXMTEXT+13 |
YSBODY | MSGTRNS+1~, MSGTRNS+9*, MSGTRNS+10 |
YSCLDRG | OPT+1~, OPT+4*, OPT+5, INP+3~, INP+8*, INP+9 |
YSCLFLDA | OPT+1~, OPT+10*, OPT+11 |
YSCLFLDT | OPT+1~, OPT+6*, OPT+10 |
YSCLIPT | INP+3~, INP+5*, INP+6 |
YSCLOPT | OPT+1~, OPT+3*, OPT+4 |
YSCLORDA | INP+3~, INP+14*, INP+15 |
YSCLORDT | INP+3~, INP+10*, INP+14 |
YSCLPT | START+4~, START+10!, YSXMTEXT+16! |
YSCLPT("clozStatus" | START+13*, START+14, SVPTINFO+4 |
YSCLPT("dataFound?" | START+20*, START+22, START+23, OPT+3, OPT+9*, OPT+11*, INP+5, INP+13*, INP+15* |
YSCLPT("disconReason" | START+18*, START+24*, SVPTINFO+2, SVPTINFO+3, YSXMTEXT+20*, YSXMTEXT+22 |
YSCLPT("newReg?" | START+21*, START+24, OPT+7*, INP+11* |
YSCLPT("numDays" | START+16*, START+17, START+19 |
YSCLPT("ptName&last4" | YSXMTEXT+19*, YSXMTEXT+21 |
YSCLPT("reg#" | START+12*, START+17, START+20 |
YSCLPT("regDate" | START+15*, START+16, START+20, OPT+6, INP+10 |
YSCLPT("ssnLast4" | YSXMTEXT+18*, YSXMTEXT+19 |
YSCLRSN | YSXMTEXT+1~ |
YSCLRSN( | YSXMTEXT+22 |
YSCLRSN(1 | YSXMTEXT+2*, YSXMTEXT+3*, YSXMTEXT+4* |
YSCLRSN(2 | YSXMTEXT+5*, YSXMTEXT+6*, YSXMTEXT+7* |
YSCLRSN(3 | YSXMTEXT+8*, YSXMTEXT+9*, YSXMTEXT+10* |
YSCLRX | OPT+1~, OPT+4*, OPT+6, OPT+8 |
YSCLSPDT | OPT+1~, OPT+8*, OPT+9, INP+3~, INP+12*, INP+13 |
YSDSPDRG | INP+3~ |
YSDSPDRG("DILIST" | INP+8 |
YSEND | START+4~, START+5* |
YSFMCLOZ | START+4~ |
YSFMCLOZ("DILIST" | START+9 |
YSFROM | MSGTRNS+1~ |
YSITE | MSGTRNS+1~ |
YSLINE | INP+3~, INP+6*, INP+7, INP+10, INP+12 |
YSLN | START+4~, START+9* |
YSPTDISC | START+4~ |
YSPTDISC( | SVPTINFO+3*, YSXMTEXT+12, YSXMTEXT+15, YSXMTEXT+20 |
YSUNTDOS | OPT+1~, INP+3~ |
YSUNTDOS("DILIST" | OPT+3, OPT+4, INP+5, INP+6 |
YSXMDUZ | MSGTRNS+1~ |
YSXMINSTR | MSGTRNS+1~, MSGTRNS+10 |
YSXMINSTR("FROM" | MSGTRNS+7* |
YSXMSUBJ | MSGTRNS+1~, MSGTRNS+8*, MSGTRNS+10 |
YSXMTO | MSGTRNS+1~, MSGTRNS+10 |
YSXMTO("G.CLO | ZAPINE ROLL-UP@DOMAIN.EXT" , MSGTRNS+4* |
YSXMTO("G.PSOCLOZ" | MSGTRNS+5* |
YSXMZ | MSGTRNS+1~, MSGTRNS+10, MSGTRNS+11 |