Routine: YSCLHLOP

Package	Total	Call Graph
VA FileMan	4	DT^DICRW (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Mental Health	3	(GET,GETCLZOR)^YSCLHLGT XMI1PT^YSCLHLMA $$EOR^YSCLHLPR
Kernel	2	^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$HTFM,$$NOW)^XLFDT
MailMan	1	SENDMSG^XMXAPI
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Mental Health	4	YSCL HL7 CLOZ RETRANSMIT YSCL HL7 CLOZ TRANSMISSION YSCL HL7 QUEUE TRANSMISSION YSCLHLMA

Name	Comments	DBIA/ICR reference
RETRANS	; entry point from TaskMan to retransmit HL7 messages
DLYHL7	; Clozapine HL7 Message Transmission [YSCL HL7 CLOZ TRANSMISSION] TaskMan entry point
GETCLZRX(RXRSLT,DFN)	; RXRSLT passed by ref., get clozapine prescriptions ; YSRXIEN is IEN in PRESCRIPTION file (#52)
UPDT4RX(YSHLRST,YSDFN,HLO)	; update file #603.05 for prescriptions, save MailMan text ; YSHRSLT, HLO both passed by ref.
UPDT4OR(YSHRLST,YSDFN,YSGORD)	; update file #603.05 for orders, save MailMan text ; YSHRSLT passed by ref.
HLOCNTR	; count of HLO messages sent
ASK2QUE	;
RETRHL7	; Retransmit Clozapine HL7 Messages [YSCL HL7 CLOZ RETRANSMIT]
BLDPTLST
UPDTFL(YSDFN,YSFMUPDT)	; update file & sub-file ; YSFMUPDT - data for ^DIE, passed by ref.
SNDMSG	; send MailMan message
ADD2TXT(TXLN)	; add TXLN to MailMan message text
RUNCHK(YSRSLT)	; Boolean function, zero if transmission NOT running ; there is user interaction if ZTSK not true
XTMPZRO	;set zero node in ^XTMP("YSCLHL7") ; update ^XTMP("YSCLHL7",0) with purge date and $$NOW

Name	Field # of Occurrence
^%ZTLOAD	ASK2QUE+17, RETRHL7+19
DT^DICRW	DLYHL7+1, ASK2QUE+3, RETRHL7+2
FILE^DIE	DLYHL7+9, DLYHL7+61
UPDATE^DIE	UPDTFL+6, UPDTFL+11
$$GET1^DIQ	GETCLZRX+7, BLDPTLST+7, BLDPTLST+9, SNDMSG+8, SNDMSG+22, SNDMSG+23, SNDMSG+25, SNDMSG+33, SNDMSG+34, SNDMSG+36
^DIR	ASK2QUE+11, ASK2QUE+13, ASK2QUE+21, RETRHL7+13, RETRHL7+15, RETRHL7+23, RUNCHK+11
$$SITE^VASITE	SNDMSG+3
$$DT^XLFDT	XTMPZRO+3
$$FMADD^XLFDT	XTMPZRO+3
$$FMTE^XLFDT	SNDMSG+5, RUNCHK+10
$$HTFM^XLFDT	DLYHL7+36
$$NOW^XLFDT	DLYHL7+5, DLYHL7+8, DLYHL7+22, DLYHL7+60, RETRHL7+4, SNDMSG+5, XTMPZRO+3
SENDMSG^XMXAPI	SNDMSG+47
GET^YSCLHLGT	DLYHL7+29, DLYHL7+51
GETCLZOR^YSCLHLGT	DLYHL7+46
XMI1PT^YSCLHLMA	DLYHL7+32, DLYHL7+52
$$EOR^YSCLHLPR	SNDMSG+45

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PS(55 - [#55]	GET1^DIQ
^HLA - [#777]	GET1^DIQ
^HLB - [#778]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	DLYHL7+39, DLYHL7+41, DLYHL7+43, GETCLZRX+4
^PSDRUG("ACLOZ"	DLYHL7+13, GETCLZRX+6
^PSRX - [#52]	GETCLZRX+4, GETCLZRX+5
^TMP("XMERR"	SNDMSG+2!
^TMP($J	DLYHL7+2!, DLYHL7+18, DLYHL7+23!, DLYHL7+24, DLYHL7+41, DLYHL7+64!, UPDT4RX+7, UPDT4OR+8, HLOCNTR+1, BLDPTLST+10 , SNDMSG+2!, SNDMSG+3, SNDMSG+4, SNDMSG+20, SNDMSG+27, SNDMSG+31, SNDMSG+38, ADD2TXT+1, ADD2TXT+2*
^XTMP("YSCLHL7"	DLYHL7+5, DLYHL7+6, DLYHL7+11!, DLYHL7+63!, RETRHL7+4, RUNCHK+3, RUNCHK+9, RUNCHK+13, XTMPZRO+4, XTMPZRO+5*
^YSCL(603.01 - [#603.01]	BLDPTLST+5, BLDPTLST+6
^YSCL(603.05 - [#603.05]	DLYHL7+28, DLYHL7+50, UPDTFL+4

Name	Line Occurrences
$$RUNCHK	ASK2QUE+4, RETRHL7+6
ADD2TXT	SNDMSG+5, SNDMSG+6, SNDMSG+9, SNDMSG+10, SNDMSG+13, SNDMSG+14, SNDMSG+16, SNDMSG+19, SNDMSG+28, SNDMSG+30 , SNDMSG+39, SNDMSG+42, SNDMSG+44, SNDMSG+45
BLDPTLST	DLYHL7+17
GETCLZRX	DLYHL7+25
HLOCNTR	UPDT4RX+6, UPDT4OR+7
SNDMSG	DLYHL7+16, DLYHL7+20, DLYHL7+58
UPDT4OR	DLYHL7+56
UPDT4RX	DLYHL7+34
UPDTFL	UPDT4RX+13, UPDT4OR+14
XTMPZRO	DLYHL7+11, DLYHL7+63

Name	Field # of Occurrence
^(0	HLOCNTR+1, ADD2TXT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	ADD2TXT+1~, ADD2TXT+2, XTMPZRO+2~, XTMPZRO+3, XTMPZRO+4
CNT	SNDMSG+1~, SNDMSG+17, SNDMSG+21, SNDMSG+26, SNDMSG+32*, SNDMSG+37
DFN	GETCLZRX~, GETCLZRX+4
>> DILOCKTM	DLYHL7+5, RUNCHK+3
DIR	ASK2QUE+6!, ASK2QUE+13!, ASK2QUE+19!, RETRHL7+2~, RETRHL7+8!, RETRHL7+15!, RETRHL7+21!, RUNCHK+6~
DIR("A"	ASK2QUE+6, ASK2QUE+7, ASK2QUE+8, ASK2QUE+9, ASK2QUE+10, ASK2QUE+13, ASK2QUE+19, ASK2QUE+20, RETRHL7+8, RETRHL7+9 , RETRHL7+10, RETRHL7+11, RETRHL7+12, RETRHL7+15, RETRHL7+21, RETRHL7+22, RUNCHK+7, RUNCHK+8, RUNCHK+9, RUNCHK+10
DIR("B"	ASK2QUE+6, RETRHL7+8
DIR(0	ASK2QUE+6, ASK2QUE+13, ASK2QUE+19, RETRHL7+8, RETRHL7+15, RETRHL7+21, RUNCHK+7*
DRUGIEN	GETCLZRX+2~, GETCLZRX+4!, GETCLZRX+5*, GETCLZRX+6
DTOUT	ASK2QUE+1~, ASK2QUE+11, RETRHL7+2~, RETRHL7+13
DUOUT	ASK2QUE+1~, ASK2QUE+11, RETRHL7+2~, RETRHL7+13
DUZ	SNDMSG+8, SNDMSG+10, SNDMSG+41, SNDMSG+47
HLIEN	SNDMSG+1~, SNDMSG+20, SNDMSG+22, SNDMSG+23, SNDMSG+27, SNDMSG+31, SNDMSG+33, SNDMSG+34, SNDMSG+38
HLO	DLYHL7+26~, DLYHL7+34, DLYHL7+52~, UPDT4RX~, UPDT4OR+2~, SNDMSG+22~, SNDMSG+33~
HLO("Rx#"	DLYHL7+27*, DLYHL7+28, DLYHL7+30, UPDT4RX+7, UPDT4RX+12
HLO("body"	SNDMSG+23, SNDMSG+25, SNDMSG+34, SNDMSG+36
HLO("ien"	UPDT4RX+5, UPDT4RX+7, UPDT4RX+10, UPDT4OR+6, UPDT4OR+8, UPDT4OR+11
HLO("msgId"	SNDMSG+22, SNDMSG+26, SNDMSG+33, SNDMSG+37
HLO("type"	UPDT4RX+4, UPDT4RX+7, UPDT4RX+11, UPDT4OR+5, UPDT4OR+8, UPDT4OR+12, SNDMSG+25, SNDMSG+26, SNDMSG+36, SNDMSG+37
J	UPDTFL+2~, UPDTFL+10, XTMPZRO+2~, XTMPZRO+4
L	SNDMSG+1~, SNDMSG+26, SNDMSG+28, SNDMSG+37, SNDMSG+39
N	DLYHL7+3~, DLYHL7+5, DLYHL7+6, DLYHL7+11, XTMPZRO+2~, XTMPZRO+3, XTMPZRO+4, XTMPZRO+5
NHL7	HLOCNTR+1~, SNDMSG+1~, SNDMSG+3, SNDMSG+16, SNDMSG+18
PRFLIEN	GETCLZRX+2~, GETCLZRX+4*
RXRSLT	GETCLZRX~, GETCLZRX+2!, GETCLZRX+8
RXRSLT(	GETCLZRX+8*
TXLN	ADD2TXT~, ADD2TXT+2
U	DLYHL7+6, DLYHL7+11, DLYHL7+27, GETCLZRX+5, UPDT4RX+4, UPDT4RX+5, UPDT4RX+7, UPDT4OR+5, UPDT4OR+6, UPDT4OR+8 , RETRHL7+4, BLDPTLST+6, SNDMSG+6, SNDMSG+25, SNDMSG+28, SNDMSG+36, SNDMSG+39, SNDMSG+46, RUNCHK+10, XTMPZRO+4 , XTMPZRO+5
V	RETRHL7+2~, RUNCHK+6~, RUNCHK+9*, RUNCHK+10
X	DLYHL7+3~, DLYHL7+13, RETRHL7+2~, BLDPTLST+1~, BLDPTLST+6, SNDMSG+1~, SNDMSG+8, SNDMSG+10, SNDMSG+14, SNDMSG+27* , SNDMSG+28, SNDMSG+38, SNDMSG+39, SNDMSG+44, RUNCHK+6~, RUNCHK+9*, RUNCHK+10
Y	DLYHL7+3~, ASK2QUE+12, RETRHL7+2~, RETRHL7+14, SNDMSG+1~
YSCLABRT	DLYHL7+3~, DLYHL7+12, DLYHL7+14, DLYHL7+18*, SNDMSG+12
YSCLABRT(	SNDMSG+14
YSCLABRT(1	DLYHL7+15, DLYHL7+19
YSCLARR	DLYHL7+26~, DLYHL7+29, DLYHL7+32, DLYHL7+44~, DLYHL7+46, DLYHL7+51, DLYHL7+52
YSCLARR("*RPT"	DLYHL7+46
YSCLARR("MED_RX#/ORDER#"	DLYHL7+30*, DLYHL7+31, DLYHL7+48, DLYHL7+50
YSCLZDRUG	DLYHL7+3~
YSCLZDRUG(	DLYHL7+13*
YSCLZDRUG(0	DLYHL7+14
YSDFN	DLYHL7+3~, DLYHL7+22, DLYHL7+24, DLYHL7+25, DLYHL7+29, DLYHL7+34, DLYHL7+41, DLYHL7+43, DLYHL7+46, DLYHL7+51 , DLYHL7+56, UPDT4RX~, UPDT4RX+13, UPDT4OR~, UPDT4OR+14, BLDPTLST+1~, BLDPTLST+6, BLDPTLST+7, BLDPTLST+9, BLDPTLST+10 , UPDTFL~, UPDTFL+4, UPDTFL+5, UPDTFL+9
YSFLD	BLDPTLST+1~, BLDPTLST+9*
YSFMERR	DLYHL7+3~, DLYHL7+60!, GETCLZRX+7!, UPDTFL+2~, UPDTFL+7!
YSFMFDA	DLYHL7+3~, DLYHL7+60!
YSFMFDA(	DLYHL7+8, DLYHL7+60
YSFMIEN	UPDTFL+2~, UPDTFL+7!
YSFMIEN(1	UPDTFL+5*
YSFMROOT	UPDTFL+2~, UPDTFL+7!
YSFMROOT(	UPDTFL+5, UPDTFL+10
YSFMUPDT	UPDT4RX+8~, UPDT4RX+13, UPDT4OR+9~, UPDT4OR+14, UPDTFL~
YSFMUPDT(	UPDT4RX+9, UPDT4RX+10, UPDT4RX+11, UPDT4RX+12, UPDT4OR+10, UPDT4OR+11, UPDT4OR+12, UPDT4OR+13, UPDTFL+10
YSFMUPDT(0	UPDTFL+9
YSFROM	SNDMSG+1~
YSGORD	DLYHL7+44~, DLYHL7+49, DLYHL7+51, DLYHL7+55, DLYHL7+56, UPDT4OR~, UPDT4OR+8, UPDT4OR+13
YSHL7	RETRANS+3~
YSHL7("allowDups"	RETRANS+4*, DLYHL7+28, DLYHL7+50, SNDMSG+7
YSHLRSLT	DLYHL7+26~, DLYHL7+32, DLYHL7+34, DLYHL7+52~, DLYHL7+56
YSHLRSLT(	UPDT4RX+2, UPDT4RX+4, UPDT4RX+5, UPDT4OR+3, UPDT4OR+5, UPDT4OR+6
YSHLRSLT(0	DLYHL7+33, DLYHL7+53
YSHLRST	UPDT4RX~
YSHRLST	UPDT4OR~
YSIEN	BLDPTLST+1~, BLDPTLST+5*, BLDPTLST+6
YSIENS	UPDTFL+2~, UPDTFL+9*, UPDTFL+10
YSILENT	DLYHL7+3~
YSITE	SNDMSG+1~, SNDMSG+3*, SNDMSG+6, SNDMSG+46
YSNOW	DLYHL7+3~, DLYHL7+22*, DLYHL7+39, UPDT4RX+9, UPDT4OR+10
YSNWIEN	DLYHL7+26~, UPDT4RX+2~, UPDT4RX+4, UPDT4RX+5, UPDT4OR+2~, UPDT4OR+3, UPDT4OR+5, UPDT4OR+6
YSORDT	DLYHL7+36, DLYHL7+39, DLYHL7+40, DLYHL7+41, DLYHL7+43, DLYHL7+64!
YSORDT("LAST"	DLYHL7+40*
YSORLST	DLYHL7+3~
YSORNUM	DLYHL7+48~*, DLYHL7+55
YSPSRX	DLYHL7+3~
YSRSLT	RUNCHK~, RUNCHK+2, RUNCHK+4, RUNCHK+14
YSRXIEN	DLYHL7+3~, DLYHL7+25, DLYHL7+27, DLYHL7+29, GETCLZRX+2~, GETCLZRX+4!, GETCLZRX+5, GETCLZRX+7, GETCLZRX+8
YSRXIEN(0	GETCLZRX+5*, GETCLZRX+8
YSRXLST	DLYHL7+3~, DLYHL7+25
YSRXLST(	DLYHL7+25, DLYHL7+27
YSRXPT	BLDPTLST+1~, BLDPTLST+7!, BLDPTLST+10
YSRXPT(	BLDPTLST+9*
YSRXPT(54	BLDPTLST+7*, BLDPTLST+9
YSUBFL	UPDTFL+2~, UPDTFL+9*, UPDTFL+10
YSUDSIEN	DLYHL7+42~, DLYHL7+43*, DLYHL7+46, DLYHL7+49
YSUNSNT	DLYHL7+37~, DLYHL7+44~, DLYHL7+45, DLYHL7+53*
YSXMBODY	SNDMSG+1~, SNDMSG+4*, SNDMSG+47
YSXMSUBJ	SNDMSG+1~, SNDMSG+46*, SNDMSG+47
YSXMTO	SNDMSG+1~, SNDMSG+47
YSXMTO(	SNDMSG+41*, SNDMSG+44
YSXMTO("G.YSC	LHL7 LOGS" , SNDMSG+41*
YSXMZ	SNDMSG+1~, SNDMSG+47
ZTDESC	ASK2QUE+15~, ASK2QUE+16, RETRHL7+17~, RETRHL7+18
ZTDTH	ASK2QUE+15~, ASK2QUE+16, RETRHL7+17~, RETRHL7+18
ZTIO	ASK2QUE+15~, ASK2QUE+16, RETRHL7+17~, RETRHL7+18
ZTRTN	ASK2QUE+15~, ASK2QUE+16, RETRHL7+17~, RETRHL7+18
ZTSK	RETRANS+2, DLYHL7+6, DLYHL7+11, ASK2QUE+2, ASK2QUE+15~, ASK2QUE+20, RETRHL7+4, RETRHL7+17~, RETRHL7+22, RUNCHK+5 , XTMPZRO+5

Customize PDF page

Package: Mental Health

Routine: YSCLHLOP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items