Routine: XUPSPAID

Information

XUPSPAID ;CS/GRR/RAM/DW - New Person file Update & Report ; 1 Jan 2004

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	6	HOME^%ZIS ^%ZISC ^%ZTLOAD $$FORMAT^XLFNAME7 ($$CJ,$$LJ,$$RJ)^XLFSTR NOTICE^XUPSPD1
VA FileMan	4	DD^%DT NOW^%DTC ^DIE ^DIR
MailMan	1	^XMD

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: 2

Package	Total	Caller Graph
Kernel	2	XUPS PREUPDATE NPF REPORTS XUPS UPDATE NEW PERSON FILE

Entry Points

Name	Comments	DBIA/ICR reference
EN	; - entry point
QUE	;Que the task
EN1	;
REPORT	;Pre-update reports
RECORD	;Process the record
HD(NODE)	; -- Report header
FL(NODE,DATA)	; -- format line
HD1(NODE)	; -- Report header
FL1(NODE,DATA)	; -- format line
UPDSEX	;Update SEX if NPF SEX is null
UPDDOB	;Update DOB if NPF DOB is null
NAME(NAME)	; Return "LastName,FirstName".
DOB(DOB)	; format DOB
PSDT()	; format date
XM(XMSUB,X)	;Email the report

External References

Name	Field # of Occurrence
DD^%DT	PSDT+4
NOW^%DTC	PSDT+4
HOME^%ZIS	QUE+9
^%ZISC	QUE+9
^%ZTLOAD	QUE+8
^DIE	UPDSEX+7, UPDDOB+7
^DIR	EN+14
$$FORMAT^XLFNAME7	NAME+7
$$CJ^XLFSTR	HD+18, HD+27, HD+36, FL+19, FL+29, HD1+29, FL1+16
$$LJ^XLFSTR	HD+17, HD+19, HD+20, HD+26, HD+28, HD+29, HD+35, HD+37, HD+38, FL+18 , FL+20, FL+21, FL+28, FL+30, FL+31, HD1+18, HD1+19, HD1+20, HD1+21, HD1+27 , HD1+28, HD1+30, FL1+14, FL1+15, FL1+18
$$RJ^XLFSTR	HD+21, HD+30, HD+39, FL+22, FL+32, HD1+22, HD1+31, FL1+19
^XMD	XM+7
NOTICE^XUPSPD1	EN1+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," *********************************************" Line Location: EN+5
Function Call: WRITE	Prompt: !," This option will UPDATE eligible New Person" Line Location: EN+6
Function Call: WRITE	Prompt: !," file (#200) entries with missing DOB or SEX" Line Location: EN+7
Function Call: WRITE	Prompt: !," *********************************************" Line Location: EN+8
Function Call: WRITE	Prompt: !!,"The reports will be sent to you via MailMan",! Line Location: EN+10
Function Call: WRITE	Prompt: ! Line Location: QUE+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED AS TASK#"_ZTSK,1:"REQUEST CANCELLED!") Line Location: QUE+10
Routine Call	DIE Line Location: UPDSEX+7 UPDDOB+7
Routine Call	DIR Line Location: EN+14
Routine Call	%ZIS Line Location: QUE+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRSPC - [#450]	EN1+17, RECORD+7, RECORD+13
^TMP(	HD+4, HD+8, HD+10, HD+12, HD+15, HD+24, HD+33, HD+42, HD+45, FL+25 , FL+35, FL+38, HD1+5, HD1+9, HD1+11, HD1+13, HD1+16, HD1+25, HD1+34, HD1+37 , FL1+22, FL1+25
^TMP("XUPS DIFF"	EN1+5!, REPORT+13, REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+48!
^TMP("XUPS PAID"	EN1+4!, REPORT+8, REPORT+9, REPORT+29, REPORT+30, REPORT+47!, RECORD+37, RECORD+43, RECORD+49, RECORD+55 , RECORD+61*
^TMP("XUPS UPD"	EN1+6!, REPORT+34, REPORT+36, REPORT+38, REPORT+40, REPORT+42*, REPORT+49!
^VA(200 - [#200]	RECORD+22, RECORD+23

Label References

Name	Line Occurrences
$$DOB	FL+20, FL+30, FL1+18
$$NAME	RECORD+35
FL	REPORT+10
FL1	REPORT+31
HD	REPORT+6
HD1	REPORT+27
QUE	EN+17
RECORD	EN1+17
REPORT	EN1+23
UPDDOB	RECORD+57
UPDSEX	RECORD+45
XM	REPORT+44, REPORT+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSDT+2~, PSDT+4, XM+2~
C1	HD+1~, HD+17, HD+24, HD+26, HD+33, HD+35, HD+42, FL+15~, FL+18, FL+25 , FL+28, FL+35, HD1+2~, HD1+18, HD1+25, HD1+27, HD1+34, FL1+11~, FL1+14, FL1+22
C2	HD+1~, HD+18, HD+24, HD+27, HD+33, HD+36, HD+42, FL+15~, FL+19, FL+25 , FL+29, FL+35, HD1+2~, HD1+19, HD1+25, HD1+28, HD1+34, FL1+11~, FL1+15, FL1+22
C3	HD+1~, HD+19, HD+24, HD+28, HD+33, HD+37, HD+42, FL+15~, FL+20, FL+25 , FL+30, FL+35, HD1+2~, HD1+20, HD1+25, HD1+29, HD1+34, FL1+11~, FL1+16, FL1+22
C4	HD+1~, HD+20, HD+24, HD+29, HD+33, HD+38, HD+42, FL+15~, FL+21, FL+25 , FL+31, FL+35, HD1+2~, HD1+21, HD1+25, HD1+30, HD1+34, FL1+11~, FL1+17, FL1+18* , FL1+22
C5	HD+1~, HD+21, HD+24, HD+30, HD+33, HD+39, HD+42, FL+15~, FL+22, FL+25 , FL+32, FL+35, HD1+2~, HD1+22, HD1+25, HD1+31, HD1+34, FL1+11~, FL1+19, FL1+22
CNT	REPORT+2~, REPORT+3, REPORT+12, REPORT+13, REPORT+14, REPORT+15, REPORT+16, REPORT+17, REPORT+18, REPORT+19 , REPORT+20, REPORT+21, REPORT+22, REPORT+23, REPORT+26, REPORT+33, REPORT+34, REPORT+35, REPORT+36, REPORT+37* , REPORT+38, REPORT+39, REPORT+40, REPORT+41, REPORT+42, HD+3, HD+4, HD+7, HD+8, HD+9* , HD+10, HD+11, HD+12, HD+14, HD+15, HD+23, HD+24, HD+32, HD+33, HD+41* , HD+42, HD+44, HD+45, FL+24, FL+25, FL+34, FL+35, FL+37, FL+38, HD1+4* , HD1+5, HD1+8, HD1+9, HD1+10, HD1+11, HD1+12, HD1+13, HD1+15, HD1+16, HD1+24* , HD1+25, HD1+33, HD1+34, HD1+36, HD1+37, FL1+21, FL1+22, FL1+24, FL1+25
CNTD	REPORT+2~, REPORT+3, REPORT+11, REPORT+23
CNTG	REPORT+2~, REPORT+3*
CNTU	REPORT+2~, REPORT+3, REPORT+32, REPORT+42
DA	UPDSEX+3~, UPDSEX+4, UPDDOB+3~, UPDDOB+4
DATA	REPORT+2~, REPORT+9, REPORT+10, REPORT+30, REPORT+31, RECORD+2~, RECORD+13, RECORD+14, RECORD+15, RECORD+16 , RECORD+17, RECORD+22, RECORD+24, RECORD+25, RECORD+26, RECORD+30, RECORD+31, RECORD+37, RECORD+49, RECORD+61 , FL~, FL+5, FL+6, FL+7, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13 , FL1~, FL1+4, FL1+5, FL1+6, FL1+8, FL1+9
DATA1	REPORT+2~, RECORD+2~, RECORD+33, RECORD+41, RECORD+43, RECORD+53*, RECORD+55
DIE	UPDSEX+3~, UPDSEX+4, UPDDOB+3~, UPDDOB+4
DIFROM	XM+2~
DIR	EN+14!
DIR("?"	EN+13*
DIR("A"	EN+12*
DIR("B"	EN+12*
DIR(0	EN+12*
DIRUT	EN+2~, EN+15
DOB	DOB~, DOB+2, DOB+4
DR	UPDSEX+3~, UPDSEX+6, UPDDOB+3~, UPDDOB+6
DUZ	XM+5
ERR	QUE+1~
IEN	EN1+1~, EN1+16, EN1+17, REPORT+2~, REPORT+7, REPORT+8, REPORT+9, REPORT+28, REPORT+29, REPORT+30 , RECORD+7, RECORD+13
IEN200	RECORD+2~, RECORD+7*, RECORD+9, RECORD+22, RECORD+23, RECORD+31, RECORD+33, RECORD+37, RECORD+43, RECORD+49 , RECORD+55, RECORD+61, UPDSEX+4, UPDDOB+4
IOP	QUE+1~
NAME	NAME~, NAME+7
NODE	HD~, HD+4, HD+6, HD+8, HD+10, HD+12, HD+15, HD+24, HD+33, HD+42 , HD+45, FL~, FL+25, FL+35, FL+38, HD1~, HD1+5, HD1+7, HD1+9, HD1+11 , HD1+13, HD1+16, HD1+25, HD1+34, HD1+37, FL1~, FL1+22, FL1+25
NPFDOB	RECORD+4~, RECORD+25, RECORD+30, RECORD+52, RECORD+59, FL+2~, FL+7, FL+20, FL1+2~, FL1+8* , FL1+17, FL1+18, UPDDOB+5
NPFIEN	FL+2~, FL+9, FL+22, FL1+2~, FL1+9, FL1+19
NPFNM	RECORD+4~, RECORD+23, RECORD+30, RECORD+33, RECORD+35, FL+2~, FL+5, FL+18, FL1+2~, FL1+5* , FL1+15
NPFSEX	RECORD+4~, RECORD+24, RECORD+30, RECORD+40, RECORD+47, FL+2~, FL+6, FL+19, FL1+2~, FL1+6* , FL1+7*, FL1+16, UPDSEX+5
NPFSSN	RECORD+4~, RECORD+26, RECORD+28, RECORD+30, RECORD+33, FL+2~, FL+8, FL+21, FL1+2~, FL1+4* , FL1+14
PAIDDOB	RECORD+15, RECORD+31, RECORD+51, RECORD+53, RECORD+59, FL+3~, FL+12, FL+30
PAIDNM	RECORD+3~, RECORD+14, RECORD+31, RECORD+35, FL+3~, FL+10, FL+28
PAIDOB	RECORD+3~
PAIDSEX	RECORD+3~, RECORD+17, RECORD+19, RECORD+31, RECORD+39, RECORD+41, RECORD+47, FL+3~, FL+11*, FL+29
PAIDSSN	RECORD+3~, RECORD+16, RECORD+28, RECORD+31, FL+3~, FL+13, FL+31
POP	QUE+1~
RESULT	NAME+2~, NAME+4, NAME+10, NAME+12
STDNM	NAME+2~, NAME+7*, NAME+10
U	RECORD+23, RECORD+30, RECORD+31, RECORD+33, RECORD+41, RECORD+53, FL+5, FL+6, FL+7, FL+8 , FL+9, FL+10, FL+11, FL+12, FL+13, FL1+4, FL1+5, FL1+6, FL1+8, FL1+9
X	EN+2~, QUE+1~, XM~, XM+6
XMDUZ	XM+4~, XM+5*
XMSUB	XM~
XMTEXT	XM+4~, XM+6*
XMY	XM+4~
XMY(	XM+5*
XUNPFT	EN1+1~, EN1+2, EN1+19, RECORD+10
XUPSACT	EN+4, EN+19!, QUE+6, QUE+7, EN1+21, RECORD+44, RECORD+56, UPDSEX+1, UPDDOB+1
XUPSDIFF	EN1+1~
XUPSDIFF("DOB"	EN1+11, REPORT+21, RECORD+60
XUPSDIFF("NAME"	EN1+9, REPORT+17, RECORD+36
XUPSDIFF("SEX"	EN1+10, REPORT+19, RECORD+48
XUPSDIFF("SSN"	EN1+8*
XUPSUPD	EN1+1~
XUPSUPD("DOB"	EN1+14, REPORT+40, RECORD+54
XUPSUPD("SEX"	EN1+13, REPORT+38, RECORD+42
XUT	EN1+1~, EN1+21
XUT(1	EN1+19*
XUT(2	EN1+20*
XUUPDT	EN1+1~, EN1+2, EN1+20, RECORD+46, RECORD+58*
Y	EN+2~, EN+15, PSDT+4*, PSDT+6
ZTDESC	QUE+1~, QUE+6, QUE+7
ZTIO	QUE+1~, QUE+3*
>> ZTQUEUED	XM+2
ZTRTN	QUE+1~, QUE+4*
ZTSAVE	QUE+1~
ZTSAVE("XUPSACT"	QUE+5*
ZTSK	QUE+1~, QUE+10
ZUSR	QUE+1~

Customize PDF page

Package: Kernel