Routine: DGMTUB

Information

DGMTUB ;ALB/RMO/CAW,CPM,LBD - Means Test Billing Utilities ; 7/22/02 9:32am

Source file <DGMTUB.m>

Package	Total	Call Graph
Registration	1	$$LVMT^DGMTU
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Integrated Billing	15	IBAMTC IBAMTD IBAMTD1 IBAMTED IBAMTI IBAMTS IBAMTS1 IBAMTS2 IBAUTL3 IBAUTL4 IBECEA3 IBECEAU2 IBEMTBC IBOMTE1 IBOVOP1
Registration	2	DGVPTIB1 DGVPTIB5
Scheduling	1	SDSCEDT

Name	Comments	DBIA/ICR reference
BILQ
CK(DGMT0)	;Check if patient is pending adjudication or category C ; and has agreed to pay the deductible ; Add check for GMT status (DG5.3456) ; Input -- DGMT0 Annual Means Test 0th node ; Output -- 1=TRUE and 0=FALSE	ICR #643 Status: Active Usage: Controlled Subscription
GMT(DFN,DGDT)	;Determine if patient is GMT Copay Required as of the date ; specified ; Input -- DFN Patient IEN ; DGDT Date/Time ; Output -- 1=Patient had GMT status or Pending Adjudication ; for GMT as of date specified ; 0=Patient did not have GMT status	ICR #643 Status: Active Usage: Controlled Subscription
CKDT	;Check the date of test
BILSTQ
BIL(DFN,DGDT)	;Determine if patient is pending adjudication ; or category C and has agreed to pay the deductible ; Input -- DFN Patient IEN ; DGDT Date/Time ; Output -- 1=TRUE and 0=FALSE	ICR #643 Status: Active Usage: Controlled Subscription
BILST(DFN)	;Determine the last date patient was pending adjudication ; or category C and agreed to pay the deductible ; Input -- DFN Patient IEN ; Output -- Last effective date	ICR #643 Status: Active Usage: Controlled Subscription

Name	Field # of Occurrence
C^%DTC	CKDT+3
$$LVMT^DGMTU	GMT+12

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	BIL+11, BIL+12, BIL+13, BILST+9, BILST+10, BILST+11, GMT+14

Name	Field # of Occurrence
^("PRIM"	BIL+13, BILST+11
^(0	BILST+11

Name	Field # of Occurrence
BILL	BIL+5~, BIL+6, BIL+24, BILQ
DFN	BIL~, BIL+7, BIL+11, BIL+12, BILST~, BILST+6, BILST+7, BILST+9, BILST+10, GMT~ , GMT+9, GMT+12
DGDT	BIL~, BIL+8, BIL+10, BIL+20, BIL+24, BILST+4~, BILST+5, BILST+7, BILST+9, BILST+10 , BILSTQ, CKDT+3, GMT~, GMT+10*, GMT+12
DGENDT	BILST+4~, BILST+5, CKDT+2, CKDT+3
DGMT	GMT+8~, GMT+12*, GMT+14
DGMT0	BILST+4~, BILST+11, CKDT+2, CK~, CK+6, GMT+8~, GMT+14, GMT+18
DGMTATP	CK+5~, CK+6*, CK+7
DGMTG	GMT+8~, GMT+14*, GMT+15, GMT+18
DGMTI	BILST+4~, BILST+10*, BILST+11
DGMTIDT	BILST+4~, BILST+9*, BILST+10
DGMTS	CKDT+1~, CKDT+2, CK+5~, CK+6, CK+7
DGSTA	GMT+8~, GMT+12*, GMT+13, GMT+18
DGSTDT	BILST+4~, BILST+5, CKDT+2, CKDT+3
DT	BIL+8, BILST+7, CKDT+3, GMT+10
EDAT	BIL+5~, BIL+17*, BIL+20, BIL+24
MT0	BIL+5~, BIL+13*, BIL+16, BIL+17, BIL+20, BIL+24
MTI	BIL+5~, BIL+12*, BIL+13
STOP	BIL+5~, BIL+6, BIL+11, BIL+12, BIL+20, BIL+24*
TDAT	BIL+5~, BIL+10, BIL+11, BIL+12
U	GMT+12, GMT+14, GMT+18
X	CKDT+1~, CKDT+3
X1	CKDT+1~, CKDT+3*
X2	CKDT+1~, CKDT+3*
Y	CKDT+1~, CKDT+2, CK+5~, CK+7, CK+8