Routine: DGREGARP

Information

DGREGARP ;ALB/DW,ERC-Address audit reports ; 8/1/08 1:21pm

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Registration	4	CNTRY^DGADDUT2 $$FOR^DGADDUTL EOP^DGREGAED LNPLUS^DGREGARP
VA Fileman	4	(C,NOW)^%DTC ($$FIND1,LIST)^DIC FIELD^DID GETS^DIQ
Kernel	3	HOME^%ZIS ^%ZISC ^%ZTLOAD
MailMan	2	^XMD $$GOTLOCAL^XMXAPIG
Pharmacy Data Management	1	$$EN^PSSRXACT

Package	Total	Caller Graph
Registration	3	DG ALL ADDRESS CHANGE REPORT DG ALL ADDRESS CHANGE WITH RX DGREGARP

Entry Points

Name	Comments	DBIA/ICR reference
PRESORT	;Sort for the report
LNPLUS	;Increase line number for the email text
HEADER	;Report header
TOTAL	;Get the total of the patients
CHKPAR	;Check if audit is on for the fields
SORT(RANGE,TYPE)	;Build the temp global to display
OLD(DGNAME,DGSSN,DGDFN)	;Get address as of 24 hours ago, assuming audits are on for all
EN(TYPE)	;Entry point
EMAIL(TYPE)	;Email the report to mailgroup.
EXIT
BUILD(TYPE,DGIEN)	;Build temp global
SCRN(TYPE,DGIEN)	;Screen Audit file to find address changes.
REPORT	;Create the address change report body
QUE	;Que the task if user invokes option
PRINT	;Create the email message.
DISP(DGA)	;
NEW(DGNAME,DGSSN,DGDFN)	;Get current address
PRSCPT(DGDFN)	;Display if the patient has active prescription
RANGE(RESULT)	;Get the range of the reports
GEN(DGNAME,DGSSN,DGDFN)	;General information for each patient
MEMBER()	;Return 0 if mail group has no local or remote member

External References

Name	Field # of Occurrence
C^%DTC	RANGE+6
NOW^%DTC	RANGE+4, HEADER+12, EMAIL+4
HOME^%ZIS	QUE+8
^%ZISC	QUE+8
^%ZTLOAD	QUE+7
CNTRY^DGADDUT2	OLD+12, NEW+16
$$FOR^DGADDUTL	OLD+11, NEW+15
EOP^DGREGAED	EN+7, EN+15
LNPLUS^DGREGARP	CHKPAR+7, HEADER+21, HEADER+23
$$FIND1^DIC	MEMBER+3
LIST^DIC	MEMBER+4
FIELD^DID	CHKPAR+4
GETS^DIQ	GEN+2, NEW+2, BUILD+4, BUILD+12
$$EN^PSSRXACT	PRSCPT+1, BUILD+3
^XMD	EMAIL+12
$$GOTLOCAL^XMXAPIG	MEMBER+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DG DAILY ADDRESS CHANGE does not have a member. Report not sent." Line Location: EN+7
Function Call: WRITE	Prompt: !!,"The report will be sent to mail group DG DAILY ADDRESS CHANGE." Line Location: EN+13
Function Call: WRITE	Prompt: !! Line Location: EN+15
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+9
Routine Call	DIC Line Location: MEMBER+4
Routine Call	%ZIS Line Location: QUE+8
Routine Call	DIC Line Location: MEMBER+3

FileNo	Call Tags
^DPT - [#2]	FIELD^DID, GETS^DIQ
^XMB(3.8 - [#3.8]	FIND1^DIC
3.812	LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEADER+12, EMAIL+4
^DIA(2	RANGE+8, RANGE+9, RANGE+12, RANGE+13, SORT+4, SCRN+2, BUILD+2, BUILD+8, BUILD+16
^TMP($J	EN+2!, EN+3!, REPORT+6, REPORT+8, REPORT+10, GEN+9, GEN+11, GEN+13, GEN+15, OLD+1 , OLD+2, OLD+3, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9, OLD+10, DISP+2* , DISP+5, DISP+8, DISP+12, DISP+15, DISP+19, DISP+22, DISP+25, DISP+28, PRSCPT+4, EXIT+1! , EXIT+2!, CHKPAR+8, BUILD+9, BUILD+14, BUILD+16, HEADER+4, HEADER+6, HEADER+9, HEADER+11, HEADER+16* , HEADER+18, HEADER+20, HEADER+22, HEADER+24, TOTAL+6, TOTAL+8, EMAIL+10*

Label References

Name	Line Occurrences
$$MEMBER	EN+6
$$SCRN	SORT+4
BUILD	SORT+5
CHKPAR	PRINT+3
DISP	OLD+14, NEW+18
EMAIL	PRINT+8
GEN	REPORT+11
HEADER	PRINT+4
LNPLUS	GEN+8, GEN+10, GEN+12, GEN+14, DISP+1, DISP+4, DISP+7, DISP+11, DISP+14, DISP+18 , DISP+21, DISP+24, DISP+27, PRSCPT+3, HEADER+3, HEADER+5, HEADER+8, HEADER+10, HEADER+15, HEADER+17 , HEADER+19, TOTAL+5, TOTAL+7, EMAIL+9
NEW	REPORT+13
OLD	REPORT+12
PRESORT	PRINT+5
PRINT	EN+10
PRSCPT	REPORT+14
QUE	EN+14
RANGE	PRESORT+2
REPORT	PRINT+6
SORT	PRESORT+4
TOTAL	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RANGE+5, RANGE+6, HEADER+12, EMAIL+2~, EMAIL+4
DFN	PRINT+1~, PRINT+2*
DG12	REPORT+2~, GEN+6*, GEN+15
DGA	REPORT+3~, DISP~
DGA("ADD1"	DISP+2
DGA("ADD2"	DISP+3, DISP+5
DGA("ADD3"	DISP+6, DISP+8
DGA("CITY"	DISP+10, DISP+12, DISP+17, DISP+19
DGA("CNTRY"	DISP+20, DISP+22
DGA("CNTY"	DISP+13, DISP+15
DGA("HPHN"	DISP+23, DISP+25
DGA("OPHN"	DISP+26, DISP+28
DGA("PCODE"	DISP+19
DGA("PROV"	DISP+17, DISP+19
DGA("ST"	DISP+10, DISP+12
DGA("TAG"	DISP+2
DGA("ZIP"	DISP+12
DGAGO	RANGE+2~, RANGE+7, RANGE+9, RANGE+10, RANGE+13
DGBEGIN	RANGE+2~, RANGE+11, RANGE+12, RANGE+14, RANGE+15*, RANGE+16, SORT+1~
DGCNT	TOTAL+1~, TOTAL+3*, TOTAL+4, TOTAL+8
DGCURR	NEW+1!, BUILD+1~, BUILD+11!
DGCURR(2	NEW+3, NEW+4, NEW+5, NEW+6, NEW+7, NEW+8, NEW+9, NEW+10, NEW+11, NEW+12 , NEW+13, NEW+14, BUILD+5, BUILD+6, BUILD+14
DGDATE	REPORT+2~, GEN+4*, GEN+13
DGDFN	REPORT+1~, REPORT+5, REPORT+9, REPORT+10, REPORT+11, REPORT+12, REPORT+13, REPORT+14, GEN~, GEN+2 , GEN+3, GEN+4, GEN+5, GEN+6, OLD~, OLD+1, OLD+2, OLD+3, OLD+4, OLD+5 , OLD+6, OLD+7, OLD+8, OLD+9, OLD+10, NEW~, NEW+2, NEW+3, NEW+4, NEW+5 , NEW+6, NEW+7, NEW+8, NEW+9, NEW+10, NEW+11, NEW+12, NEW+13, NEW+14, PRSCPT~ , PRSCPT+1, SORT+1~, BUILD+1~, BUILD+2, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+9 , BUILD+12, BUILD+14, BUILD+16
DGEND	RANGE+2~, RANGE+11, RANGE+13, RANGE+14, RANGE+16, SORT+1~, SORT+3*, SORT+4
DGFLD	CHKPAR+1~, SORT+1~, SCRN+1~, SCRN+2, SCRN+3, SCRN+4, BUILD+1~, BUILD+8, BUILD+16
DGFOR	REPORT+3~, OLD+11, OLD+15, DISP+9, DISP+16, NEW+15*
DGIEN	MEMBER+1~, MEMBER+3, MEMBER+4, SORT+1~, SORT+2, SORT+4*, SORT+5, SCRN~, SCRN+2, BUILD~ , BUILD+2, BUILD+8, BUILD+16
DGLINE	PRINT+1~, PRINT+2, GEN+9, GEN+11, GEN+13, GEN+15, DISP+2, DISP+5, DISP+8, DISP+12 , DISP+15, DISP+19, DISP+22, DISP+25, DISP+28, PRSCPT+4, CHKPAR+8, LNPLUS+1, HEADER+4, HEADER+6 , HEADER+9, HEADER+11, HEADER+16, HEADER+18, HEADER+20, HEADER+22, HEADER+24, TOTAL+6, TOTAL+8, EMAIL+10
DGN	REPORT+3~, NEW+16, NEW+18, CHKPAR+1~, CHKPAR+2, CHKPAR+4, BUILD+1~, BUILD+11!, BUILD+13, BUILD+14
DGN("ADD1"	NEW+3*
DGN("ADD2"	NEW+4*
DGN("ADD3"	NEW+5*
DGN("CITY"	NEW+6*
DGN("CNTRY"	NEW+14*, NEW+15, NEW+16
DGN("CNTY"	NEW+9*
DGN("HPHN"	NEW+11*
DGN("OPHN"	NEW+10*
DGN("PCODE"	NEW+13*
DGN("PROV"	NEW+12*
DGN("ST"	NEW+7*
DGN("TAG"	NEW+17*
DGN("ZIP"	NEW+8*
DGNAME	REPORT+1~, REPORT+5, REPORT+6, REPORT+8, REPORT+10, REPORT+11, REPORT+12, REPORT+13, GEN~, GEN+11 , OLD~, OLD+1, OLD+2, OLD+3, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9 , OLD+10, NEW~, BUILD+1~, BUILD+5*, BUILD+7, BUILD+9, BUILD+14, BUILD+16
DGNOW	RANGE+2~, RANGE+5, RANGE+8, RANGE+10, RANGE+12
DGO	REPORT+3~, OLD+12, OLD+14
DGO("ADD1"	OLD+1*
DGO("ADD2"	OLD+2*
DGO("ADD3"	OLD+3*
DGO("CITY"	OLD+4*
DGO("CNTRY"	OLD+10*, OLD+11, OLD+12
DGO("CNTY"	OLD+7*
DGO("PCODE"	OLD+9*
DGO("PROV"	OLD+8*
DGO("ST"	OLD+5*
DGO("TAG"	OLD+13*
DGO("ZIP"	OLD+6*
DGPRSCRP	REPORT+4~, PRSCPT+1*, PRSCPT+2
DGR	REPORT+2~, GEN+1!, CHKPAR+1~, CHKPAR+3!
DGR("AUDIT"	CHKPAR+6
DGR("DIERR"	CHKPAR+5
DGR("LABEL"	CHKPAR+8
DGR(2	GEN+3, GEN+4, GEN+5, GEN+6
DGRMT	MEMBER+1~
DGRMT("DILIST"	MEMBER+5
DGRNG	EN+1~, PRESORT+1~, PRESORT+2, PRESORT+3, PRESORT+4
DGSRC	REPORT+2~, GEN+5*, GEN+15
DGSRT	EN+1~
DGSSN	REPORT+1~, REPORT+5, REPORT+7, REPORT+8, REPORT+10, REPORT+11, REPORT+12, REPORT+13, GEN~, GEN+11 , OLD~, OLD+1, OLD+2, OLD+3, OLD+4, OLD+5, OLD+6, OLD+7, OLD+8, OLD+9 , OLD+10, NEW~, BUILD+1~, BUILD+6, BUILD+7, BUILD+9, BUILD+14, BUILD+16
DGTOTAL	EN+1~, BUILD+15*, TOTAL+3, EMAIL+8
DGUSER	REPORT+2~, GEN+3*, GEN+13
DIFROM	EMAIL+2~
ERR	QUE+1~
IEN	PRINT+1~, PRINT+2*
IOP	QUE+1~
POP	QUE+1~
RANGE	SORT~, SORT+2, SORT+3
RDT	HEADER+1~, HEADER+13, HEADER+22, EMAIL+3~, EMAIL+5, EMAIL+6
RESULT	MEMBER+1~, MEMBER+2, MEMBER+5, MEMBER+6, RANGE~, RANGE+1!, RANGE+10, RANGE+14, RANGE+16*
SSN	PRINT+1~, PRINT+2*
TYPE	EN~, EN+4, QUE+6, PRESORT+4, PRINT+8, SORT~, SORT+4, SORT+5, SCRN~, BUILD~ , BUILD+3, HEADER+2, HEADER+7, EMAIL~, EMAIL+6
U	MEMBER+5, RANGE+16, SORT+2, SORT+3, SCRN+2, BUILD+2, BUILD+8, BUILD+16
X	QUE+1~, RANGE+3~, RANGE+7
X1	RANGE+3~, RANGE+6*
X2	RANGE+3~, RANGE+6*
XMDUZ	EN+1~
XMSUB	EN+1~, EMAIL+6*
XMTEXT	EN+1~, EMAIL+11*
XMY	EN+1~
XMY("G.DG DAI	LY ADDRESS CHANGE" , EMAIL+7*
Y	HEADER+1~, HEADER+12, HEADER+13, EMAIL+4, EMAIL+5
ZTDESC	QUE+1~, QUE+6*
ZTIO	QUE+1~, QUE+3*
>> ZTQUEUED	EN+7, EN+9, EN+12, EXIT, EMAIL+2
>> ZTREQ	EXIT*
ZTRTN	QUE+1~, QUE+5*
ZTSAVE	QUE+1~
ZTSAVE("TYPE"	QUE+4*
ZTSK	QUE+1~, QUE+9
ZUSR	QUE+1~

Customize PDF page

Package: Registration

Routine: DGREGARP

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: