Routine: DGYSPOST

Information

DGYSPOST ;ALB/MLI - POST-INIT FOR PATCH DG*5.3*54 ; 10 APRIL 95

Source file <DGYSPOST.m>

Package	Total	Call Graph
Kernel	2	^%ZTLOAD $$NOW^XLFDT
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
EN	; entry point
TEXT	; text to display
SSNXREF	; update SSN x-ref in ^DPT if not currently set
LINE(TEXT)	; add text to mail message
MAIL	; generate an e-mail bulletin when done
ARMCLN	; loop through ^DGPM("ARM" and make sure entries are valid
DQ	; called to begin processing

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+2
Function Call: WRITE	Prompt: !,X Line Location: EN+2
Function Call: WRITE	Prompt: !,"Task queued: ",ZTSK Line Location: EN+5
Function Call: WRITE	Prompt: "...RUNNING IMMEDIATELY" Line Location: EN+6
Function Call: WRITE	Prompt: !,"Done!" Line Location: EN+6
Function Call: WRITE	Prompt: !,">> Resetting SSN cross-reference on PATIENT file (#2)..." Line Location: SSNXREF+2
Function Call: WRITE	Prompt: "." Line Location: SSNXREF+4
Function Call: WRITE	Prompt: !,">> Checking ARM cross-reference on PATIENT MOVEMENT file (#405)..." Line Location: ARMCLN+2
Function Call: WRITE	Prompt: "." Line Location: ARMCLN+8

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	ARMCLN+6
^DGPM("ARM"	ARMCLN+4, ARMCLN+7!
^DPT - [#2]	SSNXREF+3, SSNXREF+5, ARMCLN+7
^DPT("SSN"	SSNXREF+6

Name	Field # of Occurrence
^(	SSNXREF+6*

Name	Field # of Occurrence
CT	ARMCLN+1~, ARMCLN+3, ARMCLN+5, ARMCLN+8
DFN	SSNXREF+1~, SSNXREF+3, SSNXREF+4, SSNXREF+5, SSNXREF+6, ARMCLN+1~, ARMCLN+6, ARMCLN+7
DGCOUNT	MAIL+2, MAIL+11!, LINE+1
DGSTART	DQ+1~, DQ+2*, MAIL+4
DGTEXT	MAIL+11!
DGTEXT(	LINE+1*
DIFROM	MAIL+1~
DUZ	MAIL+9
I	EN+1~, EN+2, ARMCLN+1~, ARMCLN+3, ARMCLN+4*, ARMCLN+7
J	ARMCLN+1~, ARMCLN+4*, ARMCLN+6, ARMCLN+7
TEXT	LINE~, LINE+1
X	EN+1~, EN+2, SSNXREF+1~, SSNXREF+5, SSNXREF+6
XMDUZ	MAIL+9*, MAIL+11!
XMN	MAIL+7*, MAIL+11!
XMSUB	MAIL+7*, MAIL+11!
XMTEXT	MAIL+8*, MAIL+11!
XMY	MAIL+11!
XMY(	MAIL+9*
ZTDESC	EN+3*, EN+7!
ZTIO	EN+3*, EN+7!
>> ZTQUEUED	SSNXREF+2, SSNXREF+4, ARMCLN+2, ARMCLN+8
ZTRTN	EN+3*, EN+7!
ZTSK	EN+5, EN+7!

Name	Field # of Occurrence
$T(TEXT+I	EN+2