Routine: YSCLSERV

Package	Total	Call Graph
VA FileMan	9	^%DT (,C)^%DTC LIST^DIC MIX^DIC1 FILE^DICN DT^DICRW ^DIE ^DIK $$GET1^DIQ
Mental Health	3	(CL1API,CLAPI,DCON,OVRRID,REBUILD,REPORT)^YSCLSRV2 (,AUTH,DEMOG,LKUP,LOCK)^YSCLSRV3 REXMIT^YSCLTST5
Kernel	1	$$NOW^XLFDT
MailMan	1	SENDMSG^XMXAPI
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Mental Health	3	YSCLSRV2 YSCLSRV3 YSCLTST9
Outpatient Pharmacy	1	PSOCLO1

Name	Comments	DBIA/ICR reference
START	;
EXIT	;If all went well, report that too.
UNREG
DELETE	;Allow the NCCC users to delete clozapine registration at the individual sites
DELALL	;Delete all patients in file 603.01
REPORT	;send report of current registrations to the Clozapine group on Forum
OUT	;
REBUILD	;
UPDATE	;Update record with Monthly, Weekly or Bi-weekly status
RESEND	;Trigger retransmission of Clozapine data
DSET	;Set the day of the week for the roll-up to run.
DEBUG	;Turn debug mode on and off.
ADD2TXT(L)	; add line L to the Message text

Name	Field # of Occurrence
^%DT	RESEND+4, RESEND+6
^%DTC	RESEND+9
C^%DTC	RESEND+5, RESEND+7, RESEND+8
LIST^DIC	START+47, START+50, START+58, UNREG+8, UNREG+10, UNREG+16, DELETE+4, DELETE+7, DELETE+10, DELALL+7 , UPDATE+1, UPDATE+13, UPDATE+15
MIX^DIC1	START+54, UNREG+13
FILE^DICN	START+57, UNREG+15
DT^DICRW	START+2
^DIE	UPDATE+18, DSET+4, DEBUG+3, DEBUG+6
^DIK	DELETE+15, DELALL+11
$$GET1^DIQ	START+3, EXIT+1, EXIT+6, DELALL+10, UPDATE+19
$$SITE^VASITE	START+4, START+5
$$NOW^XLFDT	EXIT+2
SENDMSG^XMXAPI	EXIT+18
CL1API^YSCLSRV2	START+36
CLAPI^YSCLSRV2	START+35
DCON^YSCLSRV2	START+37
OVRRID^YSCLSRV2	START+34
REBUILD^YSCLSRV2	REBUILD+1
REPORT^YSCLSRV2	REPORT+1
^YSCLSRV3	START+30
AUTH^YSCLSRV3	START+33
DEMOG^YSCLSRV3	START+32
LKUP^YSCLSRV3	START+9
LOCK^YSCLSRV3	START+31
REXMIT^YSCLTST5	RESEND+13

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ, LIST^DIC
^YSCL(603.01 - [#603.01]	Classic Fileman Calls, LIST^DIC
^YSCL(603.03 - [#603.03]	Classic Fileman Calls, GET1^DIQ
^XTV(8989.3 - [#8989.3]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	START+8
^DD("DD"	RESEND+14
^TMP($J	START+2!, EXIT+18, EXIT+20!, ADD2TXT+2*

Name	Line Occurrences
ADD2TXT	START+10, START+16, EXIT+14, EXIT+15, EXIT+16, DELALL+2, DELALL+3, OUT+1, DSET+3, DSET+5 , DEBUG+2, DEBUG+5
DEBUG	START+29
DELALL	START+11, DELETE+1, DELETE+3
DELETE	START+20
DSET	START+28
EXIT	DELETE+18, DELALL+4, REPORT+1, REBUILD+1, UPDATE+20, RESEND+2, RESEND+4, RESEND+6, RESEND+9, RESEND+15 , DSET+3, DSET+6, DEBUG+7
OUT	START+40, START+41, START+42, START+43, START+48, START+51, START+54, START+60, UNREG+2, UNREG+3 , UNREG+4, UNREG+9, UNREG+11, UNREG+13, UNREG+17, DELETE+5, DELETE+8, DELETE+11, DELETE+16, DELALL+10 , UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+12, UPDATE+14, UPDATE+16, UPDATE+19, RESEND+2, RESEND+4 , RESEND+6, RESEND+9, RESEND+14
REPORT	START+22
RESEND	START+25
UNREG	START+7
UPDATE	START+26

Name	Field # of Occurrence
^(0	ADD2TXT+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+21!
%DT	EXIT+21!, RESEND+4!, RESEND+6!
%H	EXIT+21!
C	ADD2TXT+2~*
D	START+46, EXIT+21!, UNREG+7
DA	EXIT+21!, DELETE+15, DELALL+11, UPDATE+18, DSET+4, DEBUG+3, DEBUG+6
DD	START+56!, EXIT+21!, UNREG+15!
DFN	START+48, UNREG+9, DELALL+6~, DELALL+9*, DELALL+10
DIC	START+46, START+56, EXIT+21!, UNREG+7, UNREG+15
DIC("DR"	START+57, UNREG+15
DIC(0	START+46, START+57, UNREG+7*
DIE	EXIT+21!, UPDATE+18, DSET+4, DEBUG+3, DEBUG+6
DIK	EXIT+21!, DELETE+15, DELALL+11
DO	START+57!, UNREG+15!
>> DR	UPDATE+18, DSET+4, DEBUG+3, DEBUG+6
DUZ	EXIT+18
G	EXIT+15~*
>> I	DELALL+8, DELALL+9, DELALL+10, UPDATE+2, UPDATE+3, UPDATE+4
L	ADD2TXT~, ADD2TXT+1*, ADD2TXT+2
>> PSCLOZ	START+7, UNREG
RET	EXIT+21!
>> SSN	UNREG+7
U	START+4, START+5, RESEND+2, RESEND+3, RESEND+6, RESEND+8
X	START+8, START+46, START+47, START+57, EXIT+21!, UNREG+7, UNREG+8, UNREG+15, RESEND+4, RESEND+5 , RESEND+6, RESEND+7, RESEND+8, RESEND+9, DSET+1, DSET+2, DSET+3, DSET+4, DSET+5
>> X1	RESEND+5, RESEND+7, RESEND+8, RESEND+9
>> X2	RESEND+5, RESEND+7, RESEND+8, RESEND+9
XMDUN	EXIT+2*, EXIT+21!
XMDUZ	EXIT+2*, EXIT+21!
XMER	START+38, EXIT+21!, DELETE+2, UPDATE+6, DSET+1
XMFROM	START+10, EXIT+21!, RESEND+14
XMREC	START+38, EXIT+22!, DELETE+2, UPDATE+6, RESEND+1, DSET+1
XMRG	START+38, START+40, START+41, START+42, START+43, START+46, START+50, START+56, START+57, START+58 , EXIT+22!, UNREG+2, UNREG+3, UNREG+4, UNREG+10, UNREG+15, UNREG+16, DELETE+2, DELETE+3, DELETE+4 , DELETE+5, DELETE+7, DELETE+8, DELETE+11, OUT+1, UPDATE+6*, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10 , UPDATE+11, RESEND+2, RESEND+3, RESEND+6, RESEND+8, DSET+1
XMSUB	EXIT+2*, EXIT+18, EXIT+22!
XMTEXT	EXIT+22!
XMY	EXIT+5!, EXIT+18, EXIT+22!
XMY(	EXIT+15
XMY("G.CLOZAP	INE DEBUG@FO-DALLAS.DOMAIN.EXT" , EXIT+9, INE ROLL-UP" , EXIT+10, INE ROLL-UP@DOMAIN.EXT" , EXIT+8*
XMY("G.PSOCLOZ"	EXIT+10*
XMZ	EXIT+22!
XQDATE	START+10, EXIT+22!
XQSUB	START+8, EXIT+22!, DELETE+1
Y	START+8, START+54, EXIT+22!, UNREG+13, RESEND+4, RESEND+5, RESEND+6, RESEND+7, RESEND+14*
YSA	EXIT+22!
YSACTION	START+14, START+15, START+16, EXIT+22!
YSARRAY	UPDATE+1~
YSARRAY(	UPDATE+3*
YSARRAY("B"	UPDATE+4*, UPDATE+12
YSARRAY("DILIST"	UPDATE+2, UPDATE+3, UPDATE+4, UPDATE+5!
YSCL28	EXIT+23!
YSCLA	EXIT+23!, DELETE+13, DELETE+15, DELALL+6~, DELALL+8, DELALL+11
YSCLAA	EXIT+23!
YSCLB	EXIT+23!
YSCLC	EXIT+23!
YSCLDA	EXIT+23!, UPDATE+14*, UPDATE+15, UPDATE+19
YSCLDA1	EXIT+23!, UPDATE+16*, UPDATE+18
YSCLDATA	EXIT+23!
YSCLDEA1	EXIT+23!
YSCLDFN	EXIT+24!, DELETE+8*, DELETE+10
YSCLDM	EXIT+24!
YSCLDOC	EXIT+24!
YSCLDOM	EXIT+24!
YSCLDR	EXIT+24!
YSCLDRA	EXIT+24!
YSCLDRB	EXIT+24!
YSCLDTA	EXIT+24!
YSCLDUZ	EXIT+25!
YSCLED	EXIT+25!
>> YSCLEDDT	RESEND+6, RESEND+7, RESEND+8*, RESEND+9
YSCLER	START+40, START+41, START+42, START+43, START+48, START+52, START+54, START+60, EXIT+25!, UNREG+2* , UNREG+3, UNREG+4, UNREG+9, UNREG+12, UNREG+13, UNREG+17, DELETE+5, DELETE+8, DELETE+11, DELETE+16 , DELALL+10, OUT+1, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+12, UPDATE+14, UPDATE+16, UPDATE+19* , RESEND+2, RESEND+4, RESEND+6, RESEND+9, RESEND+14*
YSCLERR	EXIT+24!
YSCLFDA	EXIT+25!
YSCLFRQ	EXIT+25!
YSCLLNT	EXIT+25!
YSCLNM	EXIT+25!, UPDATE+11*, UPDATE+12, UPDATE+19
YSCLOVR	EXIT+25!
YSCLPT	START+54, START+57, EXIT+26!, UNREG+13, UNREG+15
YSCLREGN	DELALL+6~, DELALL+9*, DELALL+10
YSCLREX	RESEND+10~, RESEND+11*
YSCLRPT	EXIT+26!
YSCLRX	EXIT+27!
YSCLSAND	EXIT+27!
YSCLSD1	EXIT+26!
YSCLSDT	EXIT+26!, RESEND+12*, RESEND+14
YSCLSITE	EXIT+25!
YSCLSSN	EXIT+26!, UPDATE+11*, UPDATE+13
YSCLST	START+4*, START+10, START+16, EXIT+2, EXIT+26!, OUT+1
>> YSCLSTDT	RESEND+3, RESEND+4, RESEND+5, RESEND+8, RESEND+9, RESEND+12
YSCLSTN	START+5*, EXIT+26!, DEBUG+2, DEBUG+5
YSCLSUB	START+8*, START+9, START+10, START+11, START+14, START+15, START+20, START+22, START+25, START+26 , START+28, START+29, START+30, START+31, START+32, START+33, START+34, START+35, START+36, START+37 , EXIT+2, EXIT+26!, DEBUG+1, DEBUG+4
YSCLTC	EXIT+26!
>> YSCLTRDT	RESEND+12*
YSCLTYPE	EXIT+22!
YSCLWB	EXIT+27!, UPDATE+11*, UPDATE+18, UPDATE+19
YSCLX	EXIT+27!
YSCLYN	EXIT+27!
YSDEBUG	START+3, START+10, START+16, EXIT+1, EXIT+2, EXIT+8, EXIT+27!, DEBUG+2, DEBUG+5
YSFMARRY	START+47~, START+50!, START+58!, UNREG+8~, UNREG+10!, UNREG+16!, DELETE+4~, DELETE+7~, DELETE+10!, DELALL+6~ , UPDATE+13~, UPDATE+15!
YSFMARRY("DILIST"	START+48, START+51, START+52, START+59, START+60, UNREG+9, UNREG+11, UNREG+12, UNREG+17, DELETE+5 , DELETE+8, DELETE+11, DELETE+13, DELALL+8, DELALL+9, DELALL+10, UPDATE+14, UPDATE+16
YSFREQ	START+47~, START+56*, START+57
YSI	EXIT+27!
YSOFF	EXIT+27!, DSET+2*, DSET+3
YSPR	EXIT+27!
YSPROD	EXIT+5~, EXIT+6*, EXIT+7, EXIT+10
YSXMZ	EXIT+5~, EXIT+18
ZTQUEUED	EXIT+27!
ZTSK	EXIT+27!, RESEND+14

Customize PDF page

Package: Mental Health

Routine: YSCLSERV

Information

Source Information

Call Graph

Call Graph Total: 15

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: