Routine: PSO613P

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$DT,$$FMADD,$$FMTH,$$HTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA FileMan	3	FILE^DIE ENALL^DIK $$GET1^DIQ
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
FGRND	; Run in foreground
QUE	; Task to background
EN	; Main entry point to clean up clozapine registration date.
REGDATE	; LOOP THROUGH #55 and find bad date time stamps
MAIL	;Send message
RESTORE	; LOOP THROUGH ^XTMP and RESTORE bad date time stamps
INIT	; Initialize variables DGPREFIX, DGSRVR, DGREGION, and DGKEY ;
REIX5252	; Reindex new AC Mumps type cross reference in file 52.52

Name	Field # of Occurrence
^%ZTLOAD	QUE+19
FILE^DIE	REGDATE+10, RESTORE+11
ENALL^DIK	REIX5252+4
$$GET1^DIQ	REGDATE+3
$$DT^XLFDT	INIT+2
$$FMADD^XLFDT	INIT+2
$$FMTH^XLFDT	QUE+5, MAIL+2
$$HTE^XLFDT	QUE+9, EN+2, MAIL+2
$$NOW^XLFDT	QUE+5, MAIL+2, INIT+2
^XMD	MAIL+10
BMES^XPDUTL	QUE+7, QUE+22, QUE+24, RESTORE+3, RESTORE+6, RESTORE+12, INIT+6, INIT+7
MES^XPDUTL	QUE+8, QUE+9, QUE+10, QUE+11, QUE+12, QUE+21

FileNo	Call Tags
^PS(52.52 - [#52.52]	Classic Fileman Calls
^PS(55 - [#55]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	REGDATE+2
^TMP("PSOTEXT"	MAIL+5, MAIL+6, MAIL+7*, MAIL+11!
^XTMP("PSO613P"	REGDATE+9, RESTORE+5, RESTORE+7, INIT+4

Name	Field # of Occurrence
^(	RESTORE+7

Name	Field # of Occurrence
DIFROM	MAIL+1~
DIK	REIX5252+1~, REIX5252+2*
DIK(1	REIX5252+3*
DUZ	MAIL+4, MAIL+9
FGRND	FGRND+1~*, QUE+15
I	MAIL+1~
JOBN	QUE+1~, QUE+3*, QUE+8, QUE+14, QUE+16
NAMSP	QUE+1~, QUE+2*, QUE+17
PATCH	QUE+1~, QUE+4*
>> PS90	INIT+2*, INIT+4
PSCNT	EN+1~, REGDATE+5, REGDATE+6, MAIL+7, RESTORE+1~, RESTORE+4, RESTORE+8, RESTORE+9, RESTORE+12, INIT+5
>> PSDESC	INIT+3*, INIT+4
PSDFN	EN+1~, REGDATE+1, REGDATE+2, REGDATE+3, REGDATE+8, REGDATE+9, RESTORE+1~, RESTORE+4, RESTORE+7, RESTORE+10
PSLAST	RESTORE+1~, RESTORE+5*, RESTORE+6, RESTORE+7
PSNEW	EN+1~, REGDATE+7*, REGDATE+8
>> PSNOW	REGDATE+9, INIT+2*, INIT+4, INIT+7
PSREG	EN+1~
PSREG(55	REGDATE+8, RESTORE+10
PSVAL	EN+1~, REGDATE+3, REGDATE+4, REGDATE+7, REGDATE+9, RESTORE+1~, RESTORE+7, RESTORE+10
REG	RESTORE+1~
RESTART	QUE+1~
SBJM	QUE+1~, QUE+14, QUE+16, MAIL+8
STARTH	EN+1~, EN+2*, MAIL+5
>> STOPH	MAIL+2*, MAIL+6
XMDUZ	MAIL+1~, MAIL+3, MAIL+8
XMSUB	MAIL+1~, MAIL+8*
XMTEXT	MAIL+1~, MAIL+8*
XMY	MAIL+1~
XMY(	MAIL+4, MAIL+9
XPDQUES	QUE+25!
Y	QUE+1~, QUE+5, MAIL+2
ZTDESC	QUE+1~, QUE+16*
ZTDTH	QUE+1~, QUE+5*, QUE+9, EN+2
ZTIO	QUE+1~, QUE+17*
ZTQUEUED	QUE+1~
ZTREQ	QUE+1~
ZTRTN	QUE+1~, QUE+17*
ZTSAVE	QUE+1~
ZTSAVE("DUZ"	QUE+18*
ZTSAVE("JOBN"	QUE+18*
ZTSAVE("SBJM"	QUE+18*
ZTSAVE("ZTDTH"	QUE+18*
ZTSAVE("ZTSK"	QUE+23*
ZTSK	QUE+1~, QUE+20, QUE+21, MAIL+5, RESTORE+3, RESTORE+12, INIT+6, INIT+7