Routine: YSCLTST2

Information

YSCLTST2 ;DALOI/LB/RLM - TRANSMIT RX AND LAB DATA FOR CLOZAPINE ; Nov 11, 2018@03:34

Package	Total	Call Graph
VA FileMan	7	^%DT C^%DTC (FIND,LIST)^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
Mental Health	4	ABORT^YSCLTEST END1^YSCLTST3 CL1^YSCLTST4 (REX,REXMIT)^YSCLTST5
Kernel	2	$$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Lab Service	1	RR^LR7OR1
MailMan	1	^XMD
Outpatient Pharmacy	1	$$GETREGYS^PSOCLUTL
Pharmacy Data Management	1	PSS^PSS781
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 17

Package	Total	Caller Graph
Mental Health	10	YSCL RETRANSMIT DATA YSCL TEST LINK YSCLHLAB YSCLSRV2 YSCLTEST YSCLTST1 YSCLTST3 YSCLTST4 YSCLTST5 YSCLTST6
Inpatient Medications	3	PSGNE3 PSGOE41 PSGOE91
Order Entry Results Reporting	2	ORALWORD ORKLR
Outpatient Pharmacy	2	PSOCLO1 PSOCLOU

Entry Points

Name	Comments	DBIA/ICR reference
TRANSMIT	; send remote and local, kill and quit
END	;
REXMIT	; retransmit lab and RX data ; must be a tuesday
DATE
FLSET	;Set up file 603.02
EN(DRG)	;
CL1(DFN,DAYS)	;The routine was split due to size	ICR #4556 Status: Active Usage: Controlled Subscription
CL(DFN,PSORCLOZ)	; patient must be in both file #55 and #603.01 to get lab results	ICR #4556 Status: Active Usage: Controlled Subscription
ALTANC	;
KILL	;
OVERRIDE(DFN)	;Check for an over-ride. SEE RQ12.11	ICR #4556 Status: Active Usage: Controlled Subscription
ZEOR	;YSCLTST2
GET55(DFN,CLOZ55)	; JCH - PSO7612 - Get Clozapine "SAND" node from file 55 via PDM API

External References

Name	Field # of Occurrence
^%DT	TRANSMIT+1, DATE+1
C^%DTC	CL+16
$$S^%ZTLOAD	TRANSMIT+2
FIND^DIC	OVERRIDE+5
LIST^DIC	EN+3, CL+4, CL+17
FILE^DICN	FLSET+12
^DIE	TRANSMIT+22
$$GET1^DIQ	TRANSMIT+3, TRANSMIT+4, TRANSMIT+5, EN+2, EN+8, CL+10, CL+11, CL+12, CL+14, CL+16 , CL+19, CL+20, CL+21, CL+32, CL+41, CL+42, CL+46, ALTANC+2, ALTANC+10, ALTANC+11 , ALTANC+15, OVERRIDE+8
^DIR	REXMIT+3, FLSET+4, FLSET+7
RR^LR7OR1	CL+24
$$GETREGYS^PSOCLUTL	CL+7
PSS^PSS781	GET55+3
$$SITE^VASITE	TRANSMIT+1
$$FMTE^XLFDT	OVERRIDE+10
$$NOW^XLFDT	TRANSMIT+22
^XMD	TRANSMIT+15, TRANSMIT+21
ABORT^YSCLTEST	TRANSMIT+2
END1^YSCLTST3	END+1
CL1^YSCLTST4	CL1+1
REX^YSCLTST5	REXMIT+5
REXMIT^YSCLTST5	DATE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"This option specifies the blood tests associated with the Clozapine" Line Location: FLSET+1
Function Call: WRITE	Prompt: !,"reporting software. Two tests must be defined. The first is the White" Line Location: FLSET+2
Function Call: WRITE	Prompt: !,"Blood Count. The second is the Granulocyte (or Neutrophil) percentage." Line Location: FLSET+3
Function Call: WRITE	Prompt: !! Line Location: FLSET+4
Function Call: WRITE	Prompt: !! Line Location: FLSET+7
Function Call: WRITE	Prompt: !,"National Override expired at midnight on "_YSCXDATE Line Location: OVERRIDE+10
Routine Call	DIC Line Location: OVERRIDE+5
Routine Call	DIC Line Location: EN+3 CL+4 CL+17
Routine Call	DIE Line Location: TRANSMIT+22
Routine Call	DIR Line Location: REXMIT+3 FLSET+4 FLSET+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
50.02	GET1^DIQ, LIST^DIC
^PS(55 - [#55]	GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ
^YSCL(603.01 - [#603.01]	FIND^DIC, GET1^DIQ, LIST^DIC
^YSCL(603.02 - [#603.02]	Classic Fileman Calls
^YSCL(603.03 - [#603.03]	Classic Fileman Calls, GET1^DIQ
603.41	GET1^DIQ, LIST^DIC
^XTV(8989.3 - [#8989.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	CL+50, ALTANC+19
^TMP("LRRR"	CL+2!, CL+25, CL+26, CL+27, CL+28, KILL+4!
^TMP("YSCL"	TRANSMIT+17, TRANSMIT+21
^TMP($J	GET55+4
^YSCL(603.01 - [#603.01]	CL+8

Label References

Name	Line Occurrences
ALTANC	CL+33
DATE	DATE+1
END	TRANSMIT+2, DATE+1, DATE+5
GET55	OVERRIDE+4
KILL	CL+51, ALTANC+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	TRANSMIT+1, DATE, DATE+1!
%DT("A"	DATE*
%DT(0	DATE*
>> ANQRE	OVERRIDE+9*
ARRAY	CL+4~, CL+17!, OVERRIDE+1~
ARRAY("DILIST"	CL+5, CL+18, CL+23
CLOZ55	GET55~, GET55+2!
CLOZ55(	GET55+4*
CNT	EN+4*, EN+5!, EN+6!
>> DA	TRANSMIT+22*
DAYS	CL1~
DD	FLSET+12!
DFN	CL1~, CL~, CL+3, CL+4, CL+7, CL+8, CL+12, CL+24, CL+25, CL+26 , CL+27, CL+28, OVERRIDE~, OVERRIDE+4, OVERRIDE+5, GET55~, GET55+1, GET55+3, GET55+4
>> DIC	FLSET+12*
>> DIC("DR"	FLSET+12*
>> DIC(0	FLSET+12*
>> DIE	TRANSMIT+22*
DIR	REXMIT+3!, FLSET+4!, FLSET+7!, FLSET+14!
DIR("A"	REXMIT+2, FLSET+4, FLSET+7*
DIR(0	REXMIT+2, FLSET+4, FLSET+7*
>> DIROUT	FLSET+5, FLSET+8
>> DIRUT	FLSET+5, FLSET+8
DO	FLSET+12!
>> DR	TRANSMIT+22*
DRG	EN~, EN+2, EN+8
DT	TRANSMIT+15, TRANSMIT+20, DATE, CL+16, CL+24, OVERRIDE+9, OVERRIDE+10, OVERRIDE+11
>> DTOUT	FLSET+5, FLSET+8
>> DUOUT	FLSET+5, FLSET+8
FDA	KILL+2!
I	EN+4, EN+6, EN+7, EN+9!, CL+18, CL+23
IOF	FLSET+1
LAB	EN+1!
LAB(	EN+8*
LAB("BAD TEST	" , EN+5*
LAB("NOT"	EN+2*
LABT	EN+7*, EN+8, EN+9!
ORYSIEN	CL+14~*
>> PSGCFLG	OVERRIDE+10
PSOCZPTS	OVERRIDE+3~
PSOCZPTS("DILIST"	OVERRIDE+6
PSOERR	OVERRIDE+3~
PSORCLOZ	CL~, CL+14
RESULTS	CL+2~, KILL+2!
RESULTS(	CL+29, CL+32, CL+41, CL+42, CL+43, CL+45, CL+46, CL+47, CL+49, CL+50 , ALTANC+2, ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+14, ALTANC+15, ALTANC+16, ALTANC+18*, ALTANC+19
RESULTS1	CL+28*, CL+29, KILL+2!
X	TRANSMIT+1, DATE+1, FLSET+12, FLSET+14!, CL+16, OVERRIDE+3~, OVERRIDE+10*
X1	CL+16*, KILL+3!
X2	CL+16*, KILL+3!
>> XMDUZ	TRANSMIT+15*
>> XMSUB	TRANSMIT+15, TRANSMIT+20
>> XMTEXT	TRANSMIT+15, TRANSMIT+21
XMY	TRANSMIT+8!, TRANSMIT+16!
XMY(	TRANSMIT+10, TRANSMIT+13
XMY("G.CLOZAP	INE DEBUG" , TRANSMIT+14, TRANSMIT+19, INE DEBUG@FO-DALLAS.DOMAIN.EXT" , TRANSMIT+11, TRANSMIT+19, INE ROLL-UP@DOMAIN.EXT" , TRANSMIT+18*
XMY("G.PSOCLOZ"	TRANSMIT+18*
XMY("G.RUCLRXLAB@FO-DALLAS.DOMAIN.EXT"	TRANSMIT+11*
XMZ	TRANSMIT+1!, TRANSMIT+17, TRANSMIT+21!
Y	TRANSMIT+1, REXMIT+3!, DATE+1, FLSET+5, FLSET+6, FLSET+8, FLSET+9, FLSET+14!, OVERRIDE+3~
Y15	KILL+2!
YSARRAY	EN+3~
YSARRAY("DILIST"	EN+4, EN+6, EN+7
YSCLA	CL+18, CL+19, CL+20, CL+21, CL+31, CL+32, CL+39, CL+40, CL+41, CL+42 , CL+43, CL+47, ALTANC+1, ALTANC+2, ALTANC+8*, ALTANC+9, ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+16 , KILL+2!
YSCLA1	CL+32, ALTANC+2, KILL+2!
YSCLFRQ	CL+2~, CL+7, CL+10, CL+11, CL+12, CL+52, CL+53, CL+54, CL+56, CL+58 , ALTANC+22, ALTANC+23, ALTANC+24, ALTANC+25
YSCLGRN	FLSET+9*, FLSET+10, FLSET+12, FLSET+14!
YSCLIEN	CL+2~, CL+7, CL+8, CL+10, CL+14, OVERRIDE+1~, OVERRIDE+6*, OVERRIDE+8
>> YSCLLN	TRANSMIT+7, TRANSMIT+21
YSCLMTCH	CL+39, CL+41, CL+42, CL+44, CL+46, CL+48, CL+50, ALTANC+8, ALTANC+10, ALTANC+11 , ALTANC+13, ALTANC+15, ALTANC+17, ALTANC+19, KILL+2!
YSCLMULT	CL+36, CL+37, CL+40, CL+41, CL+50, ALTANC+5, ALTANC+6, ALTANC+9, ALTANC+10, ALTANC+19 , KILL+2!
>> YSCLNOW	TRANSMIT+1*, TRANSMIT+15, TRANSMIT+20
YSCLOVRD	OVERRIDE+1~, OVERRIDE+8*, OVERRIDE+9, OVERRIDE+10, OVERRIDE+11
YSCLPSN	OVERRIDE+3~, OVERRIDE+4*, OVERRIDE+6
YSCLPSN(	OVERRIDE+4
YSCLRANC	CL+2~, ALTANC+4*, ALTANC+5, ALTANC+6, ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+14, ALTANC+15, ALTANC+16 , ALTANC+18, ALTANC+19
YSCLRANC(	CL+41, CL+42, CL+46, CL+50, CL+52, CL+53, CL+54, CL+56, CL+58, ALTANC+6* , ALTANC+10, ALTANC+11, ALTANC+15, ALTANC+19, ALTANC+22, ALTANC+23, ALTANC+24, ALTANC+25
YSCLRWBC	CL+2~, CL+35, CL+36, CL+37, CL+41, CL+42, CL+43, CL+45, CL+46, CL+47 , CL+49, CL+50, CL+52, CL+53, CL+54, CL+56, CL+58, ALTANC+4, ALTANC+20, ALTANC+22 , ALTANC+23, ALTANC+24, ALTANC+25
YSCLRWBC(	CL+37, CL+42, CL+46, CL+52, CL+53, CL+54, CL+56, CL+58, ALTANC+20, ALTANC+23 , ALTANC+24, ALTANC+25
YSCLSB1	CL+25*, CL+26, CL+27, CL+28, KILL+2!
YSCLSD	CL+16*, CL+24, KILL+2!
YSCLSGS	CL+44, CL+45, CL+46, CL+48, CL+49, CL+50, ALTANC+13, ALTANC+14, ALTANC+15, ALTANC+17* , ALTANC+18*, ALTANC+19, KILL+2!
>> YSCLSITE	TRANSMIT+1*, TRANSMIT+15, TRANSMIT+20
YSCLTA	CL+27*, CL+28, KILL+2!
>> YSCLTDT	CL+26*, CL+27, CL+28, CL+29
YSCLTFR	CL+19~, CL+21*, CL+22
YSCLTL	CL+23*, CL+24, CL+29, KILL+3!
YSCLTLS	KILL+3!
YSCLTLS(	CL+22*, CL+39, CL+40, ALTANC+8, ALTANC+9
YSCLTLS("A"	ALTANC+1, ALTANC+2
YSCLTLS("B"	CL+44, ALTANC+13
YSCLTLS("T"	CL+48, ALTANC+17
YSCLTLS("W"	CL+31, CL+32
YSCLTNM	CL+19~*, CL+22
>> YSCLTPT	CL+39, CL+40, CL+41, CL+42, CL+43, CL+46, CL+47, CL+50, ALTANC+8, ALTANC+9 , ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+15, ALTANC+16, ALTANC+19
YSCLTTP	CL+19~, CL+20*, CL+22
YSCLWBC	FLSET+6*, FLSET+10, FLSET+12, FLSET+14!
YSCLXANC	CL+2~
YSCLXANC(	ALTANC+1*
YSCLXWBC	CL+2~, CL+34
YSCLXWBC(	CL+31*
YSCLYANC	CL+2~, ALTANC+3
YSCLYANC(	ALTANC+2*, ALTANC+5, ALTANC+6
YSCLYANC(0	ALTANC+4
YSCLYWBC	CL+2~, CL+33, CL+34
YSCLYWBC(	CL+32*, CL+36, CL+37
YSCLYWBC(0	CL+35
>> YSCXDATE	OVERRIDE+10*
>> YSDBGST	TRANSMIT+5*, TRANSMIT+13
>> YSDEBUG	TRANSMIT+3*, TRANSMIT+10, TRANSMIT+13, TRANSMIT+15, TRANSMIT+18, TRANSMIT+20
>> YSDRG	EN+3
>> YSLN	EN+7*, EN+8
>> YSPROD	TRANSMIT+3*, TRANSMIT+9, TRANSMIT+18, TRANSMIT+19
>> YSPRODST	TRANSMIT+4*, TRANSMIT+10
>> YSSTOP	TRANSMIT+2*
ZTDESC	DATE+3*, FLSET+14!
>> ZTDTH	DATE+4*
>> ZTIO	DATE+4*
>> ZTRTN	DATE+4*
>> ZTSAVE("YSCLED"	DATE+4*

Customize PDF page

Package: Mental Health