Routine: IVMLDEMD

Information

IVMLDEMD ;ALB/PJR/PHH/BLD - IVM DEMOGRAPHIC UPLOAD FILE DATE OF DEATH FIELDS ; 7/20/05 9:22am

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC ^DIE ^DIK ^DIR
Income Verification Match	3	($$DEMO,DELETE)^IVMLDEM5 ($$CKINPAT,AUTOREJ,SNDBULL)^IVMLDEMB (DELENT,RESET)^IVMLDEMU
Registration	3	^DGBUL (DEMOG,DISCHRGE,LINE,XFR)^DGDEATH (,KILL)^DGPATV
Scheduling	2	$$PCMMXMY^SCAPMC25 $$PCMAIL^SCMCMM
Master Patient Index VistA	1	$$A31^MPIFA31B

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

Package	Total	Caller Graph
Income Verification Match	3	IVMLDEM4 IVMLDEMB IVMPRECA

Entry Points

Name	Comments	DBIA/ICR reference
DOD(DFN,IVMDA2,IVMDA1,IVMDA)	; function to upload Date of Death ; fields and return a flag
ASK	;;
LOOP	; - loop through DOD fields
DODDEL	;
CKDEL
AUTODOD(DFN)	; ; function to automatically upload Date of Death ; fields and return a flag
AUTOADD	;
AUTODEL	;
DEM5	;
CKAUTO
CKDUZ	; Check to preserve DUZ for "Last Edited By"
UPLOAD(DFN,IVMFIELD,IVMVALUE)	; - file Date of Death fields received from IVM ; Input: DFN - as patient IEN ; IVMFIELD - as the field number to be updated ; IVMVALUE - as the value of the field
DODQ	; - return --> 1 if uploadable field is a Date of Death field ; --> 0 if nothing uploadable
CLEAN(IVMI)	; ; Remove any Date of Death related entries from IVM UPLOAD DEM
REM501(IVMI,IVMJ)	; ; Delete 301.501 entry to remove from ASEG x-ref
REM511(IVMI,IVMJ,IVMN)	; ; Delete 301.511 entry to remove from IVM UPLOAD DEM
REMASEG(IVMI,IVMJ)	; ; Delete invalid ASEG x-ref entries
BULL(DFN)	; Date of Death Deletion Bulletin

External References

Name	Field # of Occurrence
NOW^%DTC	AUTODEL+14
^DGBUL	BULL+13
DEMOG^DGDEATH	BULL+9
DISCHRGE^DGDEATH	LOOP+19
LINE^DGDEATH	BULL+7, BULL+8, BULL+10
XFR^DGDEATH	LOOP+19
^DGPATV	BULL+6
KILL^DGPATV	BULL+14
^DIE	AUTODEL+19, UPLOAD+9, REM501+5
^DIK	REM511+5
^DIR	ASK+7, DODDEL+6
$$DEMO^IVMLDEM5	DEM5+1
DELETE^IVMLDEM5	DEM5+2
$$CKINPAT^IVMLDEMB	AUTODOD+23
AUTOREJ^IVMLDEMB	AUTODOD+29
SNDBULL^IVMLDEMB	AUTODOD+29
DELENT^IVMLDEMU	LOOP+15, DODDEL+21, AUTOADD+13, AUTODEL+11
RESET^IVMLDEMU	DODQ+3
$$A31^MPIFA31B	AUTODEL+9
$$PCMMXMY^SCAPMC25	BULL+11
$$PCMAIL^SCMCMM	BULL+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !,"Filing Date of Death fields... " Line Location: ASK+9
Function Call: WRITE	Prompt: "completed.",! Line Location: LOOP+17
Function Call: WRITE	Prompt: ! Line Location: DODDEL+1
Function Call: WRITE	Prompt: !,"Filing Date of Death deletions... " Line Location: DODDEL+8
Function Call: WRITE	Prompt: "completed.",! Line Location: DODDEL+23
Routine Call	DIE Line Location: AUTODEL+19 UPLOAD+9 REM501+5
Routine Call	DIR Line Location: ASK+7 DODDEL+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	AUTODOD+31, AUTODOD+34, AUTODOD+37, AUTODEL+1, CKAUTO+10, CKDUZ+9, CKDUZ+10, BULL+1, BULL+2, BULL+5
^HL(771.3 - [#771.3]	AUTODOD+18
^IVM(301.5 - [#301.5]	DOD+21, LOOP+4, LOOP+7, DODDEL+11, DODDEL+14, CKDEL+2, CKDEL+6, AUTODOD+19, AUTODOD+30, AUTODOD+32 , AUTODOD+35, AUTOADD+5, AUTOADD+8, AUTODEL+4, AUTODEL+6, CKAUTO+2, CKAUTO+6, CKDUZ+2, CKDUZ+6, CLEAN+3 , CLEAN+4, CLEAN+5, CLEAN+6, REMASEG+2!
^IVM(301.92 - [#301.92]	LOOP+3, LOOP+12, DODDEL+10, CKDEL+1, AUTOADD+4, AUTOADD+11, AUTODEL+3, CKAUTO+1, CKDUZ+1

Label References

Name	Line Occurrences
AUTOADD	AUTODOD+33, AUTODOD+36, AUTODOD+38
AUTODEL	AUTODOD+30, AUTODOD+32, AUTODOD+35
BULL	AUTODOD+30, AUTODOD+32, AUTODOD+35
CKAUTO	AUTODOD+30, AUTODOD+32, AUTODOD+35
CKDEL	ASK+1
CKDUZ	AUTODOD+33, AUTODOD+36, AUTODOD+38
CLEAN	AUTOADD+16, AUTODEL+21
DEM5	AUTODOD+30, AUTODOD+32, AUTODOD+33, AUTODOD+35, AUTODOD+36, AUTODOD+38
DODDEL	ASK+1
DODQ	DOD+18, DOD+21, ASK+8, LOOP+24, DODDEL+7, DODDEL+28, AUTODOD+17, AUTODOD+20, AUTODOD+23, AUTODOD+30 , AUTODOD+36, AUTODOD+40
REM501	CLEAN+9
REM511	CLEAN+7
REMASEG	CLEAN+4
UPLOAD	LOOP+12, LOOP+18, DODDEL+18, DODDEL+24, AUTOADD+11, AUTOADD+15, AUTODEL+9, AUTODEL+15, AUTODEL+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AUTODEL+16
CKADD	AUTODOD+10~, AUTODOD+13, AUTODOD+33, AUTODOD+36, CKAUTO, CKAUTO+10*
CKDEL	DOD+12~, ASK+1, CKDEL, CKDEL+9, AUTODOD+10~, AUTODOD+13, AUTODOD+30, AUTODOD+32, AUTODOD+35, CKAUTO , CKAUTO+9*
CKDUZ	AUTODOD+10~, AUTODOD+13, AUTOADD+15, CKDUZ+10
DA	AUTODEL+17~, AUTODEL+18, UPLOAD+7~, UPLOAD+8, REM501+2~, REM501+3, REM511+2~, REM511+3
DA(1	REM501+3, REM501+4, REM511+3, REM511+4
DA(2	REM511+3*, REM511+4
DELDATA	DOD+12~, AUTODOD+10~
DFN	DOD~, DOD+18, LOOP+12, LOOP+18, DODDEL+18, DODDEL+24, AUTODOD~, AUTODOD+23, AUTODOD+31, AUTODOD+34 , AUTODOD+37, AUTOADD+11, AUTOADD+15, AUTODEL+1, AUTODEL+9, AUTODEL+15, AUTODEL+16, AUTODEL+18, CKAUTO+10, CKDUZ+9 , CKDUZ+10, UPLOAD~, UPLOAD+8, BULL~, BULL+1, BULL+2, BULL+5, BULL+11, BULL+12
DFNDOD	AUTODEL+1~*, AUTODEL+9
DGB	BULL+4~, BULL+13*
DGCT	BULL+5, BULL+12, BULL+14!
DGDAUTO	DOD+12~, LOOP+1, AUTODOD+10~, AUTOADD+1
DGDEATH	BULL+4~, BULL+5*, BULL+13, BULL+14!
DGPCMM	BULL+4~, BULL+11*
DIE	AUTODEL+17~, AUTODEL+18, UPLOAD+7~, UPLOAD+8, REM501+2~, REM501+4*
DIK	REM511+2~, REM511+4*
DIR	ASK+7!, DODDEL+6!
DIR("?"	ASK+5, DODDEL+4
DIR("A"	ASK+2, ASK+3, ASK+4, DODDEL+1, DODDEL+2, DODDEL+3
DIR("B"	ASK+6, DODDEL+5
DIR(0	ASK+6, DODDEL+5
DODFIELD	DOD+12~, LOOP+2, LOOP+3, LOOP+8, LOOP+9, DODDEL+9, DODDEL+10, DODDEL+18, AUTODOD+9~, AUTOADD+3* , AUTOADD+4, AUTODEL+2*, AUTODEL+3, AUTODEL+9
DODMPI	AUTODEL+1~, AUTODEL+9*
DODREJDT	AUTODOD+24~
DR	AUTODEL+17~, AUTODEL+18, UPLOAD+7~, UPLOAD+8, REM501+2~, REM501+5*
DT	BULL+12
DUZ	LOOP+18
>> IVM3015	AUTODOD+16
IVM92	CLEAN+2~, CLEAN+6*, CLEAN+7, CLEAN+8
>> IVMCNTR	AUTODOD+28*
IVMDA	DOD~, DOD+18, DOD+21
IVMDA1	DOD~, DOD+18, DOD+21, LOOP+4, LOOP+7, LOOP+15, DODDEL+11, DODDEL+14, DODDEL+21, CKDEL+2 , CKDEL+6, AUTODOD+10~, AUTODOD+18, AUTODOD+19, AUTODOD+20, AUTOADD+5, AUTOADD+8, AUTOADD+13, AUTODEL+4, AUTODEL+6 , AUTODEL+11, DEM5+1, DEM5+2, CKAUTO+2, CKAUTO+6, CKDUZ+2, CKDUZ+6
IVMDA2	DOD~, DOD+18, DOD+21, LOOP+4, LOOP+7, LOOP+15, DODDEL+11, DODDEL+14, DODDEL+21, CKDEL+2 , CKDEL+6, AUTODOD+10~, AUTODOD+16*, AUTODOD+17, AUTODOD+19, AUTODOD+30, AUTODOD+32, AUTODOD+35, AUTOADD+5, AUTOADD+8 , AUTOADD+13, AUTOADD+16, AUTODEL+4, AUTODEL+6, AUTODEL+11, AUTODEL+21, DEM5+1, DEM5+2, CKAUTO+2, CKAUTO+6 , CKDUZ+2, CKDUZ+6
IVMDODUP	LOOP+1*, LOOP+20!
IVMENT4	AUTODOD+10~, AUTODOD+13*
IVMFIELD	UPLOAD~, UPLOAD+8
IVMFLAG	DOD+12~, DOD+15, ASK+8, LOOP+12, LOOP+17, DODDEL+7, DODDEL+23, AUTODOD+9~, AUTODOD+13, AUTOADD+11 , AUTOADD+15, AUTODEL+9*, AUTODEL+13, DODQ+3, DODQ+4
IVMI	DOD+12~, LOOP+3, LOOP+4, DODDEL+10, DODDEL+11, CKDEL+1, CKDEL+2, AUTODOD+9~, AUTOADD+4, AUTOADD+5 , AUTODEL+3, AUTODEL+4, CKAUTO+1, CKAUTO+2, CKDUZ+1*, CKDUZ+2, CLEAN~, CLEAN+3, CLEAN+4, CLEAN+5 , CLEAN+6, CLEAN+7, CLEAN+9, REM501~, REM501+3, REM511~, REM511+3, REMASEG~, REMASEG+2
IVMJ	DOD+12~, LOOP+4, LOOP+7, LOOP+15, DODDEL+11, DODDEL+14, DODDEL+21, CKDEL+2, CKDEL+3, CKDEL+6 , AUTODOD+9~, AUTOADD+5, AUTOADD+8, AUTOADD+13, AUTODEL+4, AUTODEL+6, AUTODEL+11, CKAUTO+2, CKAUTO+3, CKAUTO+6 , CKDUZ+2, CKDUZ+3, CKDUZ+6, CLEAN+2~, CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+7, CLEAN+9 , REM501~, REM501+3, REM511~, REM511+3, REMASEG~, REMASEG+2
IVMN	CLEAN+2~, CLEAN+5*, CLEAN+6, CLEAN+7, REM511~, REM511+3
IVMNODE	DOD+12~, LOOP+7, LOOP+8, LOOP+9, LOOP+12, DODDEL+14, DODDEL+15, CKDEL+6, CKDEL+7, CKDEL+9 , AUTODOD+9~, AUTOADD+8, AUTOADD+11, AUTODEL+6, AUTODEL+7, CKAUTO+6, CKAUTO+7, CKAUTO+9, CKAUTO+10, CKDUZ+6* , CKDUZ+7, CKDUZ+9
IVMPTR	DOD+12~, DOD+21*, AUTODOD+9~
>> IVMSEG	AUTODOD+30, AUTODOD+31, AUTODOD+34, AUTODOD+37
IVMTEXT	AUTODOD+28!
IVMTEXT(1	AUTODOD+28
IVMTEXT(2	AUTODOD+28
IVMVALUE	UPLOAD~
OTHFLG	CLEAN+2~, CLEAN+5, CLEAN+8, CLEAN+9
U	AUTODEL+1, CLEAN+6, CLEAN+7, CLEAN+8
>> VALMBCK	LOOP+22, DODDEL+26
X	BULL+4~, BULL+13*
XMSUB	AUTODOD+28, BULL+4~, BULL+5*
Y	DOD+12~, ASK+8, DODDEL+7

Customize PDF page

Package: Income Verification Match