Routine: IVMADDRP

Information

IVMADDRP ;ALB/PHH,EG,ERC,BAJ,CKN - IVM ADDRESS UPLOAD LOG REPORT ; 7/11/06 4:36pm

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT BMES^XPDUTL
VA FileMan	2	^DIC ^DIR
Registration	1	($$CNTRYI,$$FORIEN)^DGADDUTL

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

Package	Total	Caller Graph
Income Verification Match	1	IVM ADDRESS CHANGE LOG REPORT

Entry Points

Name	Comments	DBIA/ICR reference
DOS()	;detail or summary
GETPAT()	;get a patient
ENDDATE()	;get an end date, default to TODAY
SORTORD()	;get sort order for summary
START	; Generate Report
BUILD(SDATE,EDATE,DOS,DFN,SO)	; Build the Report
ADDIEN	;
C
GETINF	;
REPORT	; Display the Report
DETAIL
SUMMARY
SORT2
SUMPR
TOTAL(CNT)	;
CSZ(CITY,STATE,ZIP)	;format city, state and zip into one line
PCP(PCODE,CITY,PROV)	;format postal code, city, province for foreign address
FSSN(SSN)	; Format the SSN
HEADER	; Print the header
PAUSE(RESP)	; Prompt user for next page or quit

External References

Name	Field # of Occurrence
^%ZIS	IVMADDRP+30
HOME^%ZIS	IVMADDRP+38
^%ZISC	IVMADDRP+40
^%ZTLOAD	IVMADDRP+36
$$CNTRYI^DGADDUTL	GETINF+25, DETAIL+19
$$FORIEN^DGADDUTL	DETAIL+20
^DIC	GETPAT+2
^DIR	DOS+4, ENDDATE+4, SORTORD+4, PAUSE+4
$$FMADD^XLFDT	IVMADDRP+19, IVMADDRP+20
$$FMTE^XLFDT	ENDDATE+2, DETAIL+24, SUMPR+6, HEADER+9
BMES^XPDUTL	IVMADDRP+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Report Cancelled!" Line Location: IVMADDRP+30
Function Call: WRITE	Prompt: !!,"Report "_$S($D(ZTSK):"Queued!",1:"Cancelled!") Line Location: IVMADDRP+37
Function Call: WRITE	Prompt: ! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: START+5
Function Call: WRITE	Prompt: !?80-$L(X)\2,X,! Line Location: REPORT+3
Function Call: WRITE	Prompt: !,$$FSSN(SSN),?12,$E(NAME,1,20) Line Location: DETAIL+23
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT($P(CHDTTM,".",1)) Line Location: DETAIL+24
Function Call: WRITE	Prompt: ?49,$E(ADDR1,1,30),! Line Location: DETAIL+27
Function Call: WRITE	Prompt: ?49,$E(ADDR2,1,30),! Line Location: DETAIL+28
Function Call: WRITE	Prompt: ?49,$E(ADDR3,1,30),! Line Location: DETAIL+29
Function Call: WRITE	Prompt: ?49,$E(CSZ,1,30),! Line Location: DETAIL+30
Function Call: WRITE	Prompt: ?49,$E(DGCNTRY,1,30),! Line Location: DETAIL+31
Function Call: WRITE	Prompt: ?49,"SOURCE: ",SOURCE,! Line Location: DETAIL+32
Function Call: WRITE	Prompt: ?49,"SITE: ",SITE Line Location: DETAIL+33
Function Call: WRITE	Prompt: !?49,"BAI: ",BAI Line Location: DETAIL+34
Function Call: WRITE	Prompt: !,$$FSSN(SSN),?12,$E(NAME,1,20) Line Location: SUMPR+5
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT($O(^XTMP("IVMADDRP",$J,SORT1,SORT2,"DATE",""),-1)) Line Location: SUMPR+6
Function Call: WRITE	Prompt: ?73,$J($FN(X,","),5) Line Location: SUMPR+8
Function Call: WRITE	Prompt: !!,"Total records found meeting criteria: ",CNT,! Line Location: TOTAL+2
Function Call: WRITE	Prompt: # Line Location: HEADER+5
Function Call: WRITE	Prompt: "IVM ADDRESS CHANGE LOG REPORT",?71,PGHDR Line Location: HEADER+8
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(SDATE)_" THRU "_$$FMTE^XLFDT(EDATE) Line Location: HEADER+9
Function Call: WRITE	Prompt: !!,"SSN",?12,"NAME",?35,"CHANGE DATE",?49,"PRIOR ADDRESS" Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"---",?12,"----",?35,"-----------",?49,"--------------" Line Location: HEADER+12
Function Call: WRITE	Prompt: !!,"SSN",?12,"NAME",?35,"LAST UPDATED",?69,"# ENTRIES" Line Location: HEADER+15
Function Call: WRITE	Prompt: !,"---",?12,"----",?35,"------------",?69,"---------" Line Location: HEADER+16
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	%ZIS Line Location: IVMADDRP+30
Routine Call	%ZIS Line Location: IVMADDRP+38
Routine Call	DIC Line Location: GETPAT+2
Routine Call	DIR Line Location: DOS+4 ENDDATE+4 SORTORD+4 PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	GETINF+14
^DIC(5 - [#5]	GETINF+20
^DPT - [#2]	GETINF+9, GETINF+10, GETINF+12
^HL(779.004 - [#779.004]	GETINF+25
^IVM(301.7 - [#301.7]	BUILD+5, ADDIEN+3, C+2, C+3, GETINF+4, GETINF+5, GETINF+6
^XTMP("IVMADDRP"	START+2!, START+6!, GETINF+30, GETINF+31, GETINF+36, GETINF+37, GETINF+38*, REPORT+2, REPORT+9, DETAIL+3 , DETAIL+4, DETAIL+5, SUMMARY+2, SORT2+2, SORT2+3, SUMPR+2, SUMPR+6, SUMPR+7

Label References

Name	Line Occurrences
$$BUILD	START+4
$$CSZ	DETAIL+25
$$DOS	IVMADDRP+9
$$ENDDATE	IVMADDRP+11
$$FSSN	DETAIL+23, SUMPR+5
$$GETPAT	IVMADDRP+15
$$PAUSE	HEADER+3
$$PCP	DETAIL+26
$$SORTORD	IVMADDRP+17
ADDIEN	BUILD+5
C	BUILD+2
DETAIL	REPORT+9
GETINF	ADDIEN+3, C+4
HEADER	REPORT+1, DETAIL+22, SUMPR+4, TOTAL+1
REPORT	START+5
SORT2	SUMMARY+2
START	IVMADDRP+40
SUMMARY	REPORT+5
SUMPR	SORT2+4
TOTAL	DETAIL+37, SUMMARY+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	IVMADDRP+6~, IVMADDRP+28!, IVMADDRP+29*
ADDIEN	ADDIEN+1~, ADDIEN+2, ADDIEN+3, C~, C+1, C+2, C+3, GETINF+4, GETINF+5, GETINF+6 , GETINF+30
ADDR	DETAIL~
ADDR1	GETINF+1~, GETINF+15, GETINF+30, DETAIL+1~, DETAIL+7, DETAIL+27
ADDR2	GETINF+1~, GETINF+16, GETINF+30, DETAIL~, DETAIL+1~, DETAIL+8, DETAIL+28
ADDR3	GETINF+2~, GETINF+17, GETINF+30, DETAIL+1~, DETAIL+9, DETAIL+29
BAI	GETINF+2~, GETINF+28, GETINF+30, DETAIL+1~, DETAIL+18, DETAIL+34
BDT	IVMADDRP+7~, IVMADDRP+13*, IVMADDRP+19
CHDTTM	BUILD+3~, BUILD+4, BUILD+5, ADDIEN+3, C~, C+3, C+4, GETINF+30, GETINF+37, DETAIL~ , DETAIL+2, DETAIL+4*, DETAIL+5, DETAIL+24
CITY	GETINF+1~, GETINF+18, GETINF+30, DETAIL~, DETAIL+10, DETAIL+25, DETAIL+26, CSZ~, CSZ+3, PCP~ , PCP+4, PCP+5, PCP+6
CNT	DETAIL+1~, DETAIL+2, DETAIL+35, DETAIL+37, SUMMARY~, SUMMARY+1, SUMMARY+3, SORT2+4, TOTAL~, TOTAL+2
COUNTRY	GETINF+2~, GETINF+24, GETINF+25, GETINF+26, GETINF+30, DETAIL+17, DETAIL+19, DETAIL+20
CRT	START+1~, START+3*, HEADER+3, HEADER+6
CSZ	DETAIL~, DETAIL+25, DETAIL+26, DETAIL+30
DFN	IVMADDRP+7~, IVMADDRP+8, IVMADDRP+14, IVMADDRP+15, START+4, BUILD~, BUILD+2, C+2, GETINF+1~, GETINF+7* , GETINF+8, GETINF+9, GETINF+10, GETINF+12, GETINF+30
DGBAI	GETINF+2~, GETINF+27*, GETINF+28
DGCNTRY	DETAIL+1~, DETAIL+19, DETAIL+21, DETAIL+31
DGFOR	DETAIL+1~, DETAIL+20, DETAIL+21, DETAIL+25, DETAIL+26
DIC	GETPAT+1~, GETPAT+2*
DIC(0	GETPAT+2*
DIR	DOS+1~, ENDDATE+1~, SORTORD+1~, PAUSE+1~
DIR("?"	ENDDATE+2*
DIR("A"	DOS+3, ENDDATE+3, SORTORD+3*
DIR("B"	ENDDATE+2*
DIR(0	DOS+2, ENDDATE+2, SORTORD+2, PAUSE+3
DIRUT	PAUSE+1~
DOS	IVMADDRP+9*, IVMADDRP+10, IVMADDRP+14, IVMADDRP+17, START+4, BUILD~, GETINF+29, GETINF+33, REPORT+5, HEADER+10 , HEADER+14
DT	ENDDATE+2
DTOUT	PAUSE+1~
DUOUT	PAUSE+1~
EDATE	IVMADDRP+6~, IVMADDRP+18, IVMADDRP+19, IVMADDRP+20, START+4, BUILD~, BUILD+5, C+4, HEADER+9
FMTSSN	FSSN+1~, FSSN+3, FSSN+4, FSSN+6, FSSN+7, FSSN+8*, FSSN+10
HDR	IVMADDRP+6~, IVMADDRP+18*
HDR(	HEADER+7
IDX	HEADER+1~, HEADER+7*
IO	START+5
IO("Q"	IVMADDRP+31
IOP	IVMADDRP+28!
IOSL	DETAIL+22, SUMPR+4, TOTAL+1
IOST	START+3
MSG	IVMADDRP+6~, IVMADDRP+27
MSG(1	IVMADDRP+23*
MSG(2	IVMADDRP+24*
MSG(3	IVMADDRP+25*
MSG(4	IVMADDRP+26*
NAME	GETINF+1~, GETINF+12, GETINF+30, GETINF+34, GETINF+36, DETAIL~, DETAIL+6, DETAIL+23, SORT2~, SUMPR+3* , SUMPR+5
NODE0	GETINF+1~, GETINF+4*, GETINF+7
NODE1	GETINF+1~, GETINF+5*, GETINF+13, GETINF+15, GETINF+16, GETINF+18, GETINF+19, GETINF+21, GETINF+22, GETINF+23 , GETINF+24, GETINF+27
NODE2	GETINF+2~, GETINF+6*, GETINF+17
PAGE	IVMADDRP+6~, HEADER+3, HEADER+4*
PCODE	GETINF+2~, GETINF+23, GETINF+30, DETAIL+16, DETAIL+26, PCP~, PCP+3
PGHDR	HEADER+1~, HEADER+4*, HEADER+8
POP	IVMADDRP+6~, IVMADDRP+30
PROV	GETINF+2~, GETINF+22, GETINF+30, DETAIL+15, DETAIL+26, PCP~, PCP+8, PCP+9, PCP+10
QUIT	DETAIL+1~, DETAIL+2, DETAIL+4, DETAIL+22, DETAIL+37, SUMMARY~, SUMMARY+1, SUMMARY+2, SUMMARY+3, SORT2+2 , SUMPR+4, HEADER+2, HEADER+3
RESP	PAUSE~, PAUSE+5*, PAUSE+6
SDATE	IVMADDRP+6~, IVMADDRP+18, IVMADDRP+20, START+4, BUILD~, BUILD+4, C+4, HEADER+9
SIEN	GETINF+2~, GETINF+13*, GETINF+14
SITE	GETINF+2~, GETINF+3, GETINF+14, GETINF+30, DETAIL+1~, DETAIL+14*, DETAIL+33
SO	IVMADDRP+7~, IVMADDRP+8, IVMADDRP+17, START+4, BUILD~, GETINF+34, GETINF+35
SORT1	GETINF+1~, GETINF+34, GETINF+36, GETINF+37, GETINF+38, SUMMARY~, SUMMARY+1, SUMMARY+2*, SORT2+2, SORT2+3 , SUMPR+2, SUMPR+6, SUMPR+7
SORT2	GETINF+1~, GETINF+35, GETINF+36, GETINF+37, GETINF+38, SORT2+1, SORT2+2*, SORT2+3, SUMPR+2, SUMPR+6 , SUMPR+7
SOURCE	GETINF+2~, GETINF+13, GETINF+30, DETAIL+1~, DETAIL+13, DETAIL+32
SSN	GETINF+1~, GETINF+10, GETINF+11, GETINF+30, GETINF+31, GETINF+34, GETINF+35, GETINF+36, REPORT+6~, REPORT+8 , REPORT+9, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+23, SORT2~, SUMPR+3, SUMPR+5, FSSN~, FSSN+2 , FSSN+3, FSSN+4, FSSN+5, FSSN+7, FSSN+8
STATE	GETINF+1~, GETINF+19, GETINF+20, GETINF+30, DETAIL~, DETAIL+11*, DETAIL+25, CSZ~, CSZ+4, CSZ+5 , CSZ+6
U	IVMADDRP+7~, IVMADDRP+8, GETPAT+1~, GETPAT+3, GETINF+1~, GETINF+3, GETINF+36, DETAIL+1~, DETAIL+2, DETAIL+6 , DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16 , DETAIL+17, DETAIL+18, SUMPR~, SUMPR+1, SUMPR+3, PAUSE+1~
X	IVMADDRP+6~, IVMADDRP+11, IVMADDRP+12, IVMADDRP+13, DOS+1~, GETPAT+1~, ENDDATE+1~, SORTORD+1~, START+1~, START+4 , REPORT+3~, DETAIL+1~, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12 , DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, SUMPR~, SUMPR+2, SUMPR+3, SUMPR+7 , SUMPR+8, CSZ+1~, CSZ+2, CSZ+3, CSZ+5, CSZ+6, CSZ+9, CSZ+10, CSZ+12, PCP+1~ , PCP+2, PCP+3, PCP+5, PCP+6, PCP+9, PCP+10, PCP+12, PAUSE+1~
Y	DOS+1~, DOS+5, GETPAT+1~, GETPAT+3, ENDDATE+1~, ENDDATE+5, SORTORD+1~, SORTORD+5, PAUSE+1~, PAUSE+5
ZIP	GETINF+1~, GETINF+21, GETINF+30, DETAIL~, DETAIL+12, DETAIL+25, CSZ~, CSZ+8, CSZ+9, CSZ+10
ZTDESC	IVMADDRP+6~, IVMADDRP+33*
ZTREQ	IVMADDRP+6~, START+7*
ZTRTN	IVMADDRP+6~, IVMADDRP+32*
ZTSAVE	IVMADDRP+6~
ZTSAVE("DFN"	IVMADDRP+35*
ZTSAVE("DOS"	IVMADDRP+35*
ZTSAVE("EDATE"	IVMADDRP+34*
ZTSAVE("PAGE"	IVMADDRP+34*
ZTSAVE("SDATE"	IVMADDRP+34*
ZTSAVE("SO"	IVMADDRP+35*
ZTSK	IVMADDRP+6~, IVMADDRP+37, START+7

Customize PDF page

Package: Income Verification Match