Routine: IVMLDEM6

Information

IVMLDEM6 ;ALB/KCL,BRM,PHH,CKN,LBD,SJD - IVM DEMOGRAPHIC UPLOAD FILE ADDRESS ;09/02/19 8:24pm

Package	Total	Call Graph
Income Verification Match	5	($$DEMO,DELETE)^IVMLDEM5 ($$ADRDTCK,$$PHNDTCK)^IVMLDEM9 (DELENT,RESET)^IVMLDEMU (ADDRCHNG,DEMBULL)^IVMPREC6 PHONE^IVMPREC9
Registration	2	(GETPRIOR,GETUPDTS,UPDADDLG)^DGADDUTL EN^DGCLEAR
VA FileMan	2	(,FILE,UPDATE)^DIE ^DIR
Kernel	1	$$NOW^XLFDT
Pharmacy Data Management	1	$$EN^PSSRXACT

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

Package	Total	Caller Graph
Income Verification Match	4	IVMLDEM4 IVMLDEM9 IVMPREC8 IVMPREC9
Registration	1	DGRSTBAD

Entry Points

Name	Comments	DBIA/ICR reference
ADDR(DFN,IVMDA2,IVMDA1,IVMDA,IVMPPICK)	; - function to check if uploadable field ; is an address field and return a flag
ASK
ASK1	; - phone selected to be uploaded
LOOP	;
ADDRQ	; - return --> 1 if uploadable field is an address field ; --> 0 if uploadable field is not an address field
UPLOAD(DFN,IVMFIELD,IVMVALUE)	; - file address fields received from IVM
PHONE	; - ask user to delete phone # [Residence] from Patient (#2) file
AUTOADDR(DFN,IVMPPICK,NOUPDT,NOPHUP)	; ; this functionality is copied from above and modified to allow ; an automated upload of patient address information as stipulated ; in the business requirements for Address Indexing to support GMT
ADDRDT(DFN,IVMDA2,IVMDA1)	; ; - validate Address Change Dt/Tm before filing ; if incoming address is accepted and the change date is older ; than what's on file, then use today's date for Addr Chg Dt/Tm
PHONDT(DFN,IVMDA2,IVMDA1)	; ; - validate Residence Number Change Dt/Tm before filing ; if incoming phone number is accepted and the change date is ; older than what's on file, then use today's date for ; Residence Number Change Dt/Tm (IVM2152)
PHARM(DFN)	;does this patient have active pharmacy prescriptions?

External References

Name	Field # of Occurrence
GETPRIOR^DGADDUTL	LOOP+1, AUTOADDR+31
GETUPDTS^DGADDUTL	LOOP+35, AUTOADDR+75
UPDADDLG^DGADDUTL	LOOP+36, AUTOADDR+76
EN^DGCLEAR	LOOP+5, AUTOADDR+35
^DIE	UPLOAD+79
FILE^DIE	UPLOAD+17, UPLOAD+22, UPLOAD+26, UPLOAD+30, UPLOAD+33, UPLOAD+67, ADDRDT+12, PHONDT+13
UPDATE^DIE	UPLOAD+83, UPLOAD+86
^DIR	ASK+7, ASK+18, ASK1+10
$$DEMO^IVMLDEM5	AUTOADDR+70
DELETE^IVMLDEM5	AUTOADDR+71
$$ADRDTCK^IVMLDEM9	ASK+14, ADDRDT+5
$$PHNDTCK^IVMLDEM9	ASK1+3, PHONDT+6
DELENT^IVMLDEMU	LOOP+30, AUTOADDR+54, AUTOADDR+67
RESET^IVMLDEMU	ADDRQ+3
ADDRCHNG^IVMPREC6	LOOP+32, AUTOADDR+72
DEMBULL^IVMPREC6	AUTOADDR+58
PHONE^IVMPREC9	PHONE+1
$$EN^PSSRXACT	PHARM+4
$$NOW^XLFDT	ADDRDT+11, PHONDT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: ASK+11
Function Call: WRITE	Prompt: !! Line Location: ASK1+1
Function Call: WRITE	Prompt: !,"Filing PHONE NUMBER [RESIDENCE] field... " Line Location: ASK1+18
Function Call: WRITE	Prompt: "completed.",! Line Location: LOOP+33
Routine Call	DIE Line Location: UPLOAD+79
Routine Call	DIE Line Location: UPLOAD+17 UPLOAD+22 UPLOAD+26 UPLOAD+30 UPLOAD+33 UPLOAD+67 ADDRDT+12 PHONDT+13
Routine Call	DIE Line Location: UPLOAD+83 UPLOAD+86
Routine Call	DIR Line Location: ASK+7 ASK+18 ASK1+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HL(771.3 - [#771.3]	AUTOADDR+39
^IVM(301.5 - [#301.5]	ADDR+27, LOOP+8, LOOP+11, AUTOADDR+40, AUTOADDR+44, AUTOADDR+47, ADDRDT+8, ADDRDT+9, PHONDT+9, PHONDT+10
^IVM(301.92 - [#301.92]	ASK, LOOP+7, LOOP+14, LOOP+21, LOOP+27, AUTOADDR+43, AUTOADDR+53, AUTOADDR+60, ADDRDT+7, PHONDT+8
^TMP($J	LOOP+22, LOOP+24, AUTOADDR+61*

Label References

Name	Line Occurrences
$$PHARM	ASK+12
ADDRDT	ASK+24
ADDRQ	ADDR+24, ADDR+27, ASK, ASK+9, ASK+20, ASK1+12
ASK1	ASK+1, ASK+10, ASK+21, ASK+26
LOOP	ASK+28, ASK1+13
PHONDT	ASK1+16
UPLOAD	LOOP+27, AUTOADDR+64

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	UPLOAD+10~, UPLOAD+78*, UPLOAD+79!
DELFLG	AUTOADDR+21~, AUTOADDR+24*, AUTOADDR+35, AUTOADDR+58
DFN	ADDR~, ADDR+24, ASK+12, ASK+14, ASK+24, ASK1+3, ASK1+16, LOOP+1, LOOP+5, LOOP+27 , LOOP+32, LOOP+35, LOOP+36, UPLOAD~, UPLOAD+15, UPLOAD+20, UPLOAD+24, UPLOAD+28, UPLOAD+31, UPLOAD+65 , UPLOAD+78, UPLOAD+83, UPLOAD+86, AUTOADDR~, AUTOADDR+29, AUTOADDR+31, AUTOADDR+35, AUTOADDR+64, AUTOADDR+72, AUTOADDR+75 , AUTOADDR+76, ADDRDT~, ADDRDT+5, PHONDT~, PHONDT+6, PHARM~, PHARM+4
DGCURR	LOOP+34~, LOOP+35, LOOP+36, AUTOADDR+74~, AUTOADDR+75, AUTOADDR+76
DGPRIOR	LOOP+1~, LOOP+36, AUTOADDR+31~, AUTOADDR+76
DIE	UPLOAD+10~, UPLOAD+78*, UPLOAD+79!
DIR	ASK+7!, ASK+18!, ASK1+10!
DIR("?"	ASK+5, ASK+15, ASK+16, ASK1+7, ASK1+8*
DIR("A"	ASK+2, ASK+3, ASK+4, ASK+11, ASK+12, ASK+13, ASK+14, ASK1+1, ASK1+2, ASK1+4 , ASK1+5, ASK1+6
DIR("B"	ASK+6, ASK+17, ASK1+9*
DIR(0	ASK+6, ASK+17, ASK1+9*
DR	UPLOAD+10~, UPLOAD+78*, UPLOAD+79!
ERR	ADDRDT+6~, PHONDT+7~
FDA	UPLOAD+10~, ADDRDT+6~, PHONDT+7~
FDA(	ADDRDT+11, PHONDT+12
FDA(2	UPLOAD+16, UPLOAD+21, UPLOAD+25, UPLOAD+29, UPLOAD+32, UPLOAD+66, UPLOAD+83, UPLOAD+86
IEN92	ADDRDT+6~, ADDRDT+7, ADDRDT+8, ADDRDT+9, PHONDT+7~, PHONDT+8, PHONDT+9, PHONDT+10
IENS	UPLOAD+10~, UPLOAD+15, UPLOAD+16, UPLOAD+20, UPLOAD+21, UPLOAD+24, UPLOAD+25, UPLOAD+28, UPLOAD+29, UPLOAD+31* , UPLOAD+32, UPLOAD+65, UPLOAD+66, ADDRDT+6~, ADDRDT+10, ADDRDT+11, PHONDT+7~, PHONDT+11*, PHONDT+12
>> IVM3015	AUTOADDR+37
IVMAFLD	ADDR+18~, LOOP+21, LOOP+22, LOOP+24, AUTOADDR+21~, AUTOADDR+60, AUTOADDR+61, AUTOADDR+64
IVMAVAL	ADDR+18~, LOOP+21, LOOP+22, LOOP+24, AUTOADDR+21~, AUTOADDR+60, AUTOADDR+61, AUTOADDR+64
>> IVMCAFG	UPLOAD+21, UPLOAD+29
>> IVMCAVL	UPLOAD+29
IVMDA	ADDR~, ADDR+24, ADDR+27, ADDRDT+6~, ADDRDT+9, ADDRDT+10, PHONDT+7~, PHONDT+10, PHONDT+11
IVMDA1	ADDR~, ADDR+24, ADDR+27, ASK+14, ASK+24, ASK1+3, ASK1+16, LOOP+8, LOOP+11, LOOP+30 , AUTOADDR+39, AUTOADDR+40, AUTOADDR+41, AUTOADDR+44, AUTOADDR+47, AUTOADDR+54, AUTOADDR+67, AUTOADDR+70, AUTOADDR+71, ADDRDT~ , ADDRDT+5, ADDRDT+8, ADDRDT+9, ADDRDT+10, PHONDT~, PHONDT+6, PHONDT+9, PHONDT+10, PHONDT+11
IVMDA2	ADDR~, ADDR+24, ADDR+27, ASK+14, ASK+24, ASK1+3, ASK1+16, LOOP+8, LOOP+11, LOOP+30 , AUTOADDR+37*, AUTOADDR+38, AUTOADDR+40, AUTOADDR+44, AUTOADDR+47, AUTOADDR+54, AUTOADDR+67, AUTOADDR+70, AUTOADDR+71, ADDRDT~ , ADDRDT+5, ADDRDT+8, ADDRDT+9, ADDRDT+10, PHONDT~, PHONDT+6, PHONDT+9, PHONDT+10, PHONDT+11
IVMFIELD	UPLOAD~, UPLOAD+14, UPLOAD+16, UPLOAD+19, UPLOAD+23, UPLOAD+25, UPLOAD+27, UPLOAD+32, UPLOAD+39, UPLOAD+41 , UPLOAD+43, UPLOAD+45, UPLOAD+47, UPLOAD+49, UPLOAD+51, UPLOAD+53, UPLOAD+55, UPLOAD+57, UPLOAD+59, UPLOAD+61 , UPLOAD+63, UPLOAD+66, UPLOAD+72, UPLOAD+73, UPLOAD+74, UPLOAD+75, UPLOAD+76*, UPLOAD+78, UPLOAD+83, UPLOAD+86
IVMFLAG	ADDR+18~, ADDR+21, ASK+8, ASK+19, ASK1+11, LOOP+27, LOOP+33, ADDRQ+3, ADDRQ+4, AUTOADDR+21~ , AUTOADDR+24, AUTOADDR+29, AUTOADDR+38, AUTOADDR+41, AUTOADDR+64*, AUTOADDR+73, AUTOADDR+77
IVMFNAM	ADDR+18~, LOOP+14*, LOOP+16, LOOP+18
IVMI	ADDR+18~, LOOP+7, LOOP+8, AUTOADDR+21~, AUTOADDR+43, AUTOADDR+44
IVMJ	ADDR+18~, LOOP+8, LOOP+11, LOOP+30, AUTOADDR+21~, AUTOADDR+44, AUTOADDR+47, AUTOADDR+54, AUTOADDR+67
IVMNODE	ADDR+18~, LOOP+11, LOOP+12, LOOP+14, LOOP+21, LOOP+27, AUTOADDR+21~, AUTOADDR+47, AUTOADDR+48, AUTOADDR+53 , AUTOADDR+60
IVMPPICK	ADDR~, ASK+1, ASK+9, ASK+10, ASK+20, ASK+21, ASK+26, ASK1+12, ASK1+13*, LOOP+3 , LOOP+16, LOOP+18, AUTOADDR~
IVMPTR	ADDR+18~, ADDR+27*, ASK, AUTOADDR+21~
IVMVALUE	UPLOAD~, UPLOAD+14, UPLOAD+23, UPLOAD+32, UPLOAD+64, UPLOAD+72, UPLOAD+73, UPLOAD+74, UPLOAD+75, UPLOAD+76 , UPLOAD+83, UPLOAD+86
IVMZCT	UPLOAD+10~, UPLOAD+37, UPLOAD+39, UPLOAD+41, UPLOAD+43, UPLOAD+45, UPLOAD+47, UPLOAD+49, UPLOAD+51, UPLOAD+53* , UPLOAD+55, UPLOAD+57, UPLOAD+59, UPLOAD+61, UPLOAD+63*, UPLOAD+64
NOPHUP	AUTOADDR~, AUTOADDR+26*, AUTOADDR+54
NOUPDT	AUTOADDR~, AUTOADDR+25*, AUTOADDR+35, AUTOADDR+61, AUTOADDR+64
U	LOOP+14, AUTOADDR+53
>> VALMBCK	LOOP+40*
Y	ADDR+18~, ASK+9, ASK+10, ASK+20, ASK+21, ASK1+12, ASK1+13, AUTOADDR+21~

Customize PDF page

Package: Income Verification Match