Routine: IVMPTRN

Information

IVMPTRN ;ALB/MLI,SEK,RTK,BRM,BAJ,LBD,KUM - IVM BACKGROUND JOB/TRANSMISSIONS TO IVM CENTER; 10/28/2005 ; 7/13/10 4:11pm

Package	Total	Call Graph
Income Verification Match	10	MONITOR^IVMCQ2 EN^IVMLDEMC EN^IVMPBUL ($$CLEAR,$$CLOSED,$$STATUS)^IVMPLOG CLOSE^IVMPTRN1 (FILE,FILE1)^IVMPTRN3 ENTRY^IVMPTRN4 EN^IVMPTRN5 FULL^IVMPTRN7 (CLEAN,INIT)^IVMUFNC
Registration	7	$$FINDCUR^DGENA $$UPD^DGENDBS BATCH^DGENQRY1 $$LYR^DGMTSCU1 $$LST^DGMTU (MTPRIME,RXPRIME)^DGMTU4 $$SITE^VASITE
VA FileMan	2	^DIE $$GET1^DIQ
Kernel	1	$$NOW^XLFDT
Scheduling	1	CLOSE^SDQ

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
Income Verification Match	2	IVM BACKGROUND JOB IVMPTRN4

Entry Points

Name	Comments	DBIA/ICR reference
BGJ	; - IVM Nightly Background Job
END	; - cleanup
REG	; Creates FULL query transmission for patient's ; that exist in file (#301.5) "ATR" x-ref
RESP(IVMINCYR,IVMREC)	; Response to the Master Query.
QRY(YEAR)	; See if Master Query has been satisfied for YEAR. ; Input: YEAR - The income year being checked
QRYQ
FUTUREMT	;
FUTURERX	;
FUTURECK(TYPE,FDATE,IVMPAT,MTIEN)	; ; Check the Future MT or CP xref for a valid income test entry, ; and Delete all invalid xref entries.
GETMTDT(DFN,IVMDT)	;Get date of primary Means Test or RX Copay Test (IVM2143)

External References

Name	Field # of Occurrence
$$FINDCUR^DGENA	REG+32
$$UPD^DGENDBS	FUTUREMT+14, FUTURERX+13
BATCH^DGENQRY1	BGJ+6
$$LYR^DGMTSCU1	BGJ+12
$$LST^DGMTU	RESP+22, FUTUREMT+16, FUTURERX+15, GETMTDT+5, GETMTDT+7
MTPRIME^DGMTU4	FUTUREMT+17
RXPRIME^DGMTU4	FUTURERX+16
^DIE	RESP+42
$$GET1^DIQ	REG+32
MONITOR^IVMCQ2	BGJ+9
EN^IVMLDEMC	BGJ+34
EN^IVMPBUL	REG+40
$$CLEAR^IVMPLOG	REG+27
$$CLOSED^IVMPLOG	RESP+18
$$STATUS^IVMPLOG	REG+23, RESP+26
CLOSE^IVMPTRN1	RESP+23
FILE^IVMPTRN3	REG+48
FILE1^IVMPTRN3	RESP+37
ENTRY^IVMPTRN4	BGJ+27
EN^IVMPTRN5	BGJ+30
FULL^IVMPTRN7	REG+37, RESP+30
CLEAN^IVMUFNC	END+4
INIT^IVMUFNC	REG+9, RESP+11
CLOSE^SDQ	REG+42
$$SITE^VASITE	REG+6, RESP+9
$$NOW^XLFDT	RESP+42

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^IVM(301.9 - [#301.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	FUTURECK+9, FUTURECK+10
^DPT - [#2]	REG+27
^IVM(301.5 - [#301.5]	REG+14, REG+16, REG+20, RESP+14, RESP+15, FUTUREMT+9, FUTUREMT+11, FUTUREMT+12, FUTUREMT+13!, FUTUREMT+15 , FUTUREMT+16!, FUTURERX+8, FUTURERX+10, FUTURERX+11, FUTURERX+12!, FUTURERX+14, FUTURERX+15!, FUTURECK+6!, FUTURECK+8
^IVM(301.9 - [#301.9]	QRY+11, QRY+12, QRY+13
^ORD(101 - [#101]	REG+7, RESP+10
^TMP($J	END+5!, REG+8!

Label References

Name	Line Occurrences
$$FUTURECK	FUTUREMT+13, FUTURERX+12
$$GETMTDT	REG+34
$$QRY	BGJ+18, BGJ+21
END	BGJ+18, BGJ+21, BGJ+24, BGJ+27
FUTUREMT	BGJ+3
FUTURERX	BGJ+3
QRYQ	QRY+10, QRY+11, QRY+12
REG	BGJ+24
RESP	BGJ+18, BGJ+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+3!
ADDRDT	BGJ+34~
ADDRDT(0	BGJ+34*
ADDRDT(1	BGJ+34*
DA	END+2!, RESP+5~, RESP+42*
DA(1	RESP+42*
DATA	FUTUREMT+6~, FUTUREMT+14!, FUTURERX+5~, FUTURERX+13!
DATA(	FUTUREMT+14, FUTURERX+13
DFN	END+2!, REG+20, REG+21, REG+27, REG+32, REG+34, REG+37, RESP+5~, RESP+14, RESP+15 , RESP+22, RESP+23, RESP+30, FUTUREMT+6~, FUTUREMT+15, FUTUREMT+16, FUTURERX+5~, FUTURERX+14, FUTURERX+15, GETMTDT~ , GETMTDT+2, GETMTDT+5, GETMTDT+7
DIE	END+2!, RESP+5~, RESP+42*
DIK	END+2!
DR	END+2!, RESP+5~, RESP+42*
DT	BGJ+12, FUTUREMT+9, FUTUREMT+16, FUTURERX+8, FUTURERX+15
EVENTS	REG+18~, REG+23, REG+37, RESP+5~, RESP+26, RESP+30
FDATE	FUTUREMT+6~, FUTUREMT+8, FUTUREMT+9, FUTUREMT+11, FUTUREMT+12, FUTUREMT+13, FUTUREMT+16, FUTURERX+5~, FUTURERX+7, FUTURERX+8 , FUTURERX+10, FUTURERX+11, FUTURERX+12, FUTURERX+15, FUTURECK~, FUTURECK+6, FUTURECK+10
>> HL	REG+9, RESP+11
>> HLEID	REG+6, REG+7, REG+9, RESP+9, RESP+10, RESP+11
>> HLMTN	REG+5, REG+6, RESP+8, RESP+9
IDT	GETMTDT+1~, GETMTDT+3*, GETMTDT+5, GETMTDT+7
IVM	QRY+9~, QRY+12*, QRY+13, QRY+14
IVMCT	END+2!, REG+37, RESP+30
>> IVMCURYR	BGJ+12*, BGJ+21
IVMDA	END+2!, REG+15, REG+16, REG+20, REG+23, REG+27, RESP+5~, RESP+15*, RESP+18, RESP+26
IVMDT	END+2!, REG+20*, REG+21, REG+34, GETMTDT~, GETMTDT+2, GETMTDT+3
IVMEVENT	REG+45~, REG+47, RESP+34~, RESP+36
IVMGTOT	END+2!, REG+37, RESP+30
IVMINCYR	END+2!, RESP~, RESP+14, RESP+15, RESP+22, RESP+23
IVMINS	END+2!
IVMIY	END+3!, REG+13, REG+14, REG+16
IVMMTDT	END+2!, REG+34, REG+37, RESP+5~, RESP+22, RESP+23, RESP+30
IVMNODE	END+3!, REG+20*
IVMPAT	END+3!, FUTUREMT+6~, FUTUREMT+10, FUTUREMT+11, FUTUREMT+12, FUTUREMT+13, FUTUREMT+14, FUTUREMT+15, FUTUREMT+16, FUTURERX+5~ , FUTURERX+9, FUTURERX+10, FUTURERX+11, FUTURERX+12, FUTURERX+13, FUTURERX+14, FUTURERX+15, FUTURECK~, FUTURECK+6, FUTURECK+8
IVMPID	END+3!
IVMPREYR	BGJ+12*, BGJ+18, END+3!
IVMQDT	END+3!
>> IVMQUERY	REG+37, RESP+30
>> IVMQUERY(	REG+42!
>> IVMQUERY("LTD"	REG+12!
>> IVMQUERY("OVIS"	REG+12!
IVMREC	BGJ+18, BGJ+21, END+3!, RESP~, RESP+30, RESP+42
IVMSTAT	END+3!
MT	GETMTDT+1~, GETMTDT+5*
MTDT	GETMTDT+1~, GETMTDT+5*, GETMTDT+9, GETMTDT+13, GETMTDT+15
MTIEN	FUTUREMT+6~, FUTUREMT+12, FUTUREMT+13, FUTUREMT+16, FUTUREMT+17, FUTURERX+5~, FUTURERX+11, FUTURERX+12, FUTURERX+15, FUTURERX+16 , FUTURECK~, FUTURECK+6, FUTURECK+9, FUTURECK+10
MTREC	FUTURECK+3~, FUTURECK+6
MTSTA	GETMTDT+1~, GETMTDT+5*
NODE	FUTUREMT+6~, FUTUREMT+16, FUTURERX+5~, FUTURERX+15
RX	GETMTDT+1~, GETMTDT+7*
RXDT	GETMTDT+1~, GETMTDT+7*, GETMTDT+9, GETMTDT+13
RXSTA	GETMTDT+1~, GETMTDT+7*, GETMTDT+13
TYPE	FUTURECK~, FUTURECK+6
VAFPID	END+3!
VALID	FUTURECK+3~, FUTURECK+8, FUTURECK+9, FUTURECK+10, FUTURECK+12
X	END+3!, REG+27!, QRY+9~, QRY+10, QRY+11, QRY+12, QRY+14*, QRYQ
Y	QRY+9~, QRY+11*, QRY+12
YEAR	QRY~, QRY+10, QRY+11, QRY+12
Z	REG+42, QRY+9~, QRY+13, QRY+14
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Income Verification Match