YSCLDIS ;HINOI/RTW,HEC/HRUBOVCAK - DISCONTINUE CLOZAPINE PATIENT STATUS ; Jun 12, 2023@17:11
Source file <YSCLDIS.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 5 | ^%DTC LIST^DIC DT^DICRW ^DIE $$GET1^DIQ |
Pharmacy Data Management | 3 | LAB^PSS50 (PSS431,PSS433)^PSS55 PSS^PSS781 |
Kernel | 1 | ($$DT,$$FMADD,$$FMDIFF,$$NOW)^XLFDT |
MailMan | 1 | SENDMSG^XMXAPI |
Mental Health | 1 | DMG^YSCLTST5 |
Outpatient Pharmacy | 1 | RX^PSO52API |
Registration | 1 | $$SITE^VASITE |
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 |
---|---|---|
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
; YS*5.01*227 - Change to use Fileman parameter field instead of hard-coded discontinue period |
|
XTMPZRO | ;
|
|
ADD2TXT(L) | ; add line L to the Message text
|
Name | Field # of Occurrence |
---|---|
^%DTC | OPT+14, INP+17 |
LIST^DIC | START+9 |
DT^DICRW | START+1 |
^DIE | DSCNPT+4, MSGTRNS+14 |
$$GET1^DIQ | START+6, MSGTRNS+4, YSXMTEXT+18, YSXMTEXT+19, YSXMTEXT+20 |
RX^PSO52API | OPT+4 |
LAB^PSS50 | OPT+8, INP+11 |
PSS431^PSS55 | INP+5 |
PSS433^PSS55 | INP+6 |
PSS^PSS781 | START+15 |
$$SITE^VASITE | MSGTRNS+8 |
$$DT^XLFDT | XTMPZRO+2 |
$$FMADD^XLFDT | START+7, OPT+3, XTMPZRO+2 |
$$FMDIFF^XLFDT | START+20 |
$$NOW^XLFDT | SVPTINFO+3, MSGTRNS+11, MSGTRNS+14, XTMPZRO+3 |
SENDMSG^XMXAPI | MSGTRNS+10 |
DMG^YSCLTST5 | START+22, START+30 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^PS(55 - [#55] | Classic Fileman Calls, GET1^DIQ |
^YSCL(603.01 - [#603.01] | LIST^DIC |
^YSCL(603.03 - [#603.03] | Classic Fileman Calls, GET1^DIQ |
^XTV(8989.3 - [#8989.3] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("XMERR" | MSGTRNS+2! |
^TMP($J | START+8!, START+12!, START+16, START+17, START+19, START+25*, OPT+5, OPT+6, OPT+9, OPT+10 , OPT+12, OPT+17!, INP+7, INP+8, INP+9, INP+12, INP+13, INP+15, INP+20!, MSGTRNS+2! , MSGTRNS+9, MSGTRNS+16!, ADD2TXT+2* |
^XTMP("YSCLDIS" | SVPTINFO+4*, SVPTINFO+5*, MSGTRNS+11*, XTMPZRO+2, XTMPZRO+4* |
Name | Field # of Occurrence |
---|---|
^(0 | ADD2TXT+2* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | SVPTINFO+1~, SVPTINFO+3*, SVPTINFO+4, XTMPZRO+1~, XTMPZRO+2*, XTMPZRO+3*, XTMPZRO+4, ADD2TXT+2~* |
DA | DSCNPT+3~, DSCNPT+4*, MSGTRNS+13~, MSGTRNS+14* |
DCONPD | START+4~, START+6*, START+24, OPT+3, OPT+16, INP+19, SVPTINFO+3, YSXMTEXT+4, YSXMTEXT+7 |
DFN | START+4~, START+11*, START+15, START+16, START+17, START+19, START+25, OPT+4, OPT+5, OPT+6 , OPT+10, OPT+12, INP+5, INP+6, SVPTINFO+4, SVPTINFO+5, DSCNPT+4, YSXMTEXT+13*, YSXMTEXT+16*, YSXMTEXT+18 , YSXMTEXT+19, YSXMTEXT+20, YSXMTEXT+21 |
DIE | DSCNPT+3~, DSCNPT+4*, MSGTRNS+13~, MSGTRNS+14* |
DR | DSCNPT+3~, DSCNPT+4*, MSGTRNS+13~, MSGTRNS+14* |
DT | START+7, START+20, START+25, OPT+3, OPT+13, OPT+14, INP+16, INP+17 |
DUZ | MSGTRNS+10 |
I | OPT+1~, OPT+5*, OPT+6, OPT+10, OPT+12 |
J | SVPTINFO+1~, SVPTINFO+3*, SVPTINFO+4, YSXMTEXT+2~, YSXMTEXT+23*, XTMPZRO+1~, XTMPZRO+2*, XTMPZRO+3 |
L | ADD2TXT~, ADD2TXT+1*, ADD2TXT+2 |
N | SVPTINFO+1~, SVPTINFO+3*, SVPTINFO+4, SVPTINFO+5 |
U | START+17, START+19, START+25, OPT+6, OPT+10, OPT+12, SVPTINFO+4, MSGTRNS+8, MSGTRNS+11, XTMPZRO+3 |
X | START+4~, OPT+1~, OPT+14, INP+3~, INP+17 |
X1 | OPT+1~, OPT+14*, INP+3~, INP+17* |
X2 | OPT+1~, OPT+14*, INP+3~, INP+17* |
XMERR | MSGTRNS+1~ |
Y | START+4~, MSGTRNS+8*, YSXMTEXT+13*, YSXMTEXT+14 |
YSBODY | MSGTRNS+1~, MSGTRNS+9*, MSGTRNS+10 |
YSCLDRG | OPT+1~, OPT+6*, OPT+8, OPT+9, INP+3~, INP+8*, INP+9*, INP+11, INP+12 |
YSCLFLDA | OPT+1~, OPT+14*, OPT+16 |
YSCLFLDT | OPT+1~, OPT+10*, OPT+14 |
YSCLIPT | INP+3~, INP+7*, INP+8, INP+9, INP+13, INP+15 |
YSCLOPT | OPT+1~ |
YSCLORDA | INP+3~, INP+17*, INP+19 |
YSCLORDT | INP+3~, INP+13*, INP+17 |
YSCLPT | START+4~, START+12!, YSXMTEXT+17! |
YSCLPT("clozStatus" | START+17*, START+18, SVPTINFO+5 |
YSCLPT("dataFound?" | START+25*, START+27, START+28, OPT+5, OPT+13*, OPT+16*, INP+7, INP+16*, INP+19* |
YSCLPT("disconReason" | START+22*, START+29*, SVPTINFO+3, SVPTINFO+4, YSXMTEXT+21*, YSXMTEXT+23 |
YSCLPT("newReg?" | START+26*, START+29, OPT+11*, INP+14* |
YSCLPT("numDays" | START+20*, START+21, START+24 |
YSCLPT("ptName&last4" | YSXMTEXT+20*, YSXMTEXT+22 |
YSCLPT("reg#" | START+16*, START+21, START+25 |
YSCLPT("regDate" | START+19*, START+20, START+25, OPT+10, INP+13 |
YSCLPT("ssnLast4" | YSXMTEXT+19*, YSXMTEXT+20 |
YSCLRSN | YSXMTEXT+2~ |
YSCLRSN( | YSXMTEXT+23 |
YSCLRSN(1 | YSXMTEXT+3*, YSXMTEXT+4*, YSXMTEXT+5* |
YSCLRSN(2 | YSXMTEXT+6*, YSXMTEXT+7*, YSXMTEXT+8* |
YSCLRSN(3 | YSXMTEXT+9*, YSXMTEXT+10*, YSXMTEXT+11* |
YSCLRX | OPT+1~, OPT+6* |
YSCLSPDT | OPT+1~, OPT+12*, OPT+13, INP+3~, INP+15*, INP+16 |
YSDSPDRG | INP+3~ |
YSEND | START+4~, START+7* |
YSFMCLOZ | START+4~ |
YSFMCLOZ("DILIST" | START+11 |
YSFROM | MSGTRNS+1~ |
YSITE | MSGTRNS+1~ |
YSLINE | INP+3~ |
YSLN | START+4~, START+11* |
YSPTDISC | START+4~ |
YSPTDISC( | SVPTINFO+4*, YSXMTEXT+13, YSXMTEXT+16, YSXMTEXT+21 |
YSSTDT | OPT+1~, OPT+3*, OPT+4 |
YSUNTDOS | OPT+1~, INP+3~ |
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 |