Routine: DGMTOFA

Information

DGMTOFA ;ALB/CAW/AEG/PWC - Future Appointments who will require MT ; 4/21/11 10:57am

Source Information

Source file <DGMTOFA.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Registration	4	^DGINPW ^DGMTOFA1 $$LST^DGMTU ($$CLINIC,$$DIV,$$RANGE,CLOSE)^DGMTUTL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	C^%DTC YN^DICN
Scheduling	1	$$SDAPI^SDAMA301

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Registration	4	DG CO-PAY TEST FUTURE LIST DG MEANS TEST FUTURE LIST DGMTCOM DGMTM

Entry Points

Name	Comments	DBIA/ICR reference
LTR
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
CBLD3(DGCLN)	; Build array of specified Clinics for specified Divisions
SC(DFN)	; Check if patient is SC 0% non-compensable ; Input -- DFN Patient IEN ; Output -- 1=Yes and 0=No
LETTER()	; ; Input - none ; Output - DGYN - yes/no
DOM(DFN,DGT)	; Screen out dom patient ; Input: DFN - Patient IEN ; DGT - Date of visit
SDAM	; Build TMP Global with Appointment API Data for Report
ENQ	;
EN	;
CLN1	; Loop through appointments
MT	; Is patient going to need to complete a MT/Copay by appt?
MAIN	;
SCQ

External References

Name	Field # of Occurrence
C^%DTC	MT+12
^%ZIS	EN+5
^%ZISC	ENQ+1
^%ZTLOAD	QUE+6
^DGINPW	DOM+6
^DGMTOFA1	MAIN+7
$$LST^DGMTU	MT+1
$$CLINIC^DGMTUTL	EN+3
$$DIV^DGMTUTL	EN+2
$$RANGE^DGMTUTL	EN+1
CLOSE^DGMTUTL	MAIN+8
YN^DICN	LTR
$$SDAPI^SDAMA301	SDAM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Do you want to generate letters" Line Location: LTR+0
Function Call: WRITE	Prompt: !!,"Enter 'Y'es to generate letters from the listing or",!,"Enter 'N'o to produce the listing, but not the letters." Line Location: LTR+3
Routine Call	%ZIS Line Location: EN+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	MT+22
^DG(43 - [#43]	DOM+6
^DGMT(408.31 - [#408.31]	MT+1, MT+9, MT+14, MT+17
^DIC(42 - [#42]	DOM+6
^DIC(8 - [#8]	MT+11, SC+6
^DPT - [#2]	MT+10, MT+22, SC+6, SC+9, SC+11
^IVM(301.5	MT+20
^SC - [#44]	MAIN+2, MAIN+4, MT+22
^TMP("DGMTL"	ENQ+2!, MT+22*
^TMP("DGMTO"	ENQ+2!, MAIN+1!, MT+22*
^TMP($J	ENQ+3!, SDAM+5*, SDAM+6!, CLN1+3, CLN1+4, CLN1+5, CLN1+6

Label References

Name	Line Occurrences
$$DOM	CLN1+7
$$QUE	EN+7
$$SC	MT+11
CBLD3	MAIN+2, MAIN+4, MAIN+5
CLN1	MAIN+6
ENQ	EN+1, EN+2, EN+3, EN+5, EN+6
LTR	LTR+3
MAIN	EN+6
MT	CLN1+9
SCQ	SC+7, SC+9
SDAM	MAIN+6

Naked Globals

Name	Field # of Occurrence
^(	MAIN+2, SC+6
^(0	MT+22, DOM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LETTER+4~, LTR*, LTR+2, LTR+3
>> %ZIS	EN+5*
CLNARRAY	ENQ+3!
CLNARRAY(	CBLD3+1*, CBLD3+2, SDAM+3, SDAM+4
DFN	ENQ+2!, SC~, SC+6, SC+9, SC+11, DOM~
>> DG1	DOM+6
DGA1	DOM+4~
DGAPT	ENQ+2!
DGARRAY	ENQ+3!, SDAM+5
DGARRAY("FLDS"	SDAM+2*
DGARRAY(1	SDAM+1*
DGARRAY(2	SDAM+4*
DGBEG	ENQ+2!, SDAM+1, CLN1+2
DGCLN	ENQ+2!, MAIN+2, MAIN+4, MAIN+5, CBLD3~, CBLD3+1, CLN1+3, CLN1+4, CLN1+5, CLN1+6 , MT+22
DGDATE	ENQ+2!, CLN1+2, CLN1+5, CLN1+6, CLN1+7, MT+1, MT+12, MT+22
DGDFN	ENQ+2!, CLN1+4*, CLN1+5, CLN1+6, CLN1+7, MT+1, MT+10, MT+11, MT+20, MT+22
DGDIV	ENQ+2!, MAIN+4*
DGEND	ENQ+2!, SDAM+1, CLN1+2
DGFLG	ENQ+2!
DGI	DOM+4~
DGINFO	ENQ+2!
DGINP	DOM+4~
DGLINE	ENQ+2!
DGLST	ENQ+2!, CLN1+2*
DGMT	ENQ+2!, MT+1*, MT+9, MT+12, MT+14, MT+17, MT+22
DGMT1	ENQ+2!, MT+1*, MT+12, MT+14, MT+17
DGMTYPT	ENQ+2!, MT+1, MT+3
DGNXTMT	MT+19~, MT+20, MT+21, MT+22
DGPAGE	ENQ+2!
DGSTOP	ENQ+2!
DGT	DOM~
DGTMP	ENQ+2!, ENQ+3!, CLN1+2~, CLN1+6*, CLN1+8, MT+22
DGTMP1	ENQ+2!
DGTMP2	ENQ+2!
DGXFR0	DOM+4~
DGYN	ENQ+2!, LTR+2*, LTR+4
DIW	ENQ+2!
DIWF	ENQ+2!
DIWR	ENQ+2!
DIWT	ENQ+2!
DN	ENQ+2!
DT	MT+20
I	ENQ+3!, MAIN+1, CBLD3+1, CBLD3+2, SDAM+3*, SDAM+4
IO("Q"	EN+6, QUE+3!
MTQ	MT+2~, MT+3, MT+11
>> POP	EN+5
SDCNT	ENQ+3!
SDFORM	ENQ+2!
SDLET	ENQ+2!
U	MAIN+2, MAIN+4, CLN1+8, MT+1, MT+9, MT+12, MT+14, MT+17, MT+22, DOM+6
VA	ENQ+2!
VAERR	ENQ+2!
VAUTC	ENQ+2!, MAIN+2, MAIN+4, MAIN+5
VAUTC(	MAIN+5
VAUTD	ENQ+2!, MAIN+2, MAIN+4
VAUTD(	MAIN+4
X	QUE+5, MT+2~, MT+10, MT+11, MT+12
>> X1	MT+12*
>> X2	MT+12*
Y	EN+7, SC+3~, SC+4, SC+6, SC+7, SC+9, SC+11, SCQ, DOM+4~, DOM+5 , DOM+6*, DOM+7
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ+1
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7

Customize PDF page

Package: Registration

Routine: DGMTOFA

Call Graph Total: 10

Caller Graph Total: 4