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 |
