Routine: DGYPSDE2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

DGYPSDE2 ;ALB/GAH - EST. FILE SIZE NEEDED FOR OUT PATIENT ENCOUNTER FILE ; 10/10/2006

Source Information

Source file <DGYPSDE2.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Scheduling	2	$$INP^SDAM2 $$SDAPI^SDAMA301
Registration	1	BLD^DGYPSDE3
VA Fileman	1	C^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
EXEMPTQ
DECR(DFN)	; DECREMENT ARRAY WITH THE CLASS CNTS
STATUS(DFN,DGT,DGCL,DGORG)	;
AEDIT	;FOR THE PAST YEAR PICK UP ALL ADD/EDITS FROM THE STOP CODE FILE
START
INCR(DFN)	; INCREMENT ARRAY WITH CLASS CNTS
EXEMPT(DGSTOP,DGAPTY)	;
DUPL	; FOR EACH A/E RUN THROUGH THE APPTS LOOOK FOR ASSOC. APPTS ; IF FOUND AND THEY HAVE A CLASSIFICATION CALL DECR
DISAPP	; FOR THE LAST YR PICK UP ALL APPT. AND DISP. FROM PATIENT FILE ; SDAMA301 = APPOINTMENTS, "DIS" = DISPOSTIONS

Name	Field # of Occurrence
C^%DTC	START+2
BLD^DGYPSDE3	DECR+1, INCR+1
$$INP^SDAM2	STATUS+2
$$SDAPI^SDAMA301	START+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	DISAPP+15, EXEMPT+2
^DPT - [#2]	DISAPP+12, DISAPP+13
^SC - [#44]	DISAPP+8, DISAPP+10, DUPL+13, STATUS+3
^SDV - [#409.5]	AEDIT+3, AEDIT+4, AEDIT+7, AEDIT+8, DUPL+3
^TMP($J	START+12!, DISAPP+2, DISAPP+3, DISAPP+4, DUPL+9, DUPL+10

Name	Line Occurrences
$$EXEMPT	DISAPP+8, DISAPP+15, AEDIT+10, DUPL+13
$$STATUS	DISAPP+8, DISAPP+15, AEDIT+10, DUPL+13
AEDIT	START+11
DECR	DUPL+13
DISAPP	START+11
DUPL	AEDIT+11
EXEMPTQ	EXEMPT+3, EXEMPT+4
INCR	DISAPP+8, DISAPP+15, AEDIT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	START~, START+7, DISAPP+2, DISAPP+3, DISAPP+4, DISAPP+8, DISAPP+12, DISAPP+13, DISAPP+15, DUPL+4* , DUPL+9, DUPL+10, DUPL+13, DECR~, DECR+1, INCR~, INCR+1, STATUS~, STATUS+2
>> DG1YR	START+2*, START+5, DISAPP+14, AEDIT+5
DGAE	START+1~, AEDIT+6, AEDIT+7, AEDIT+8, DUPL+3
DGAE0	AEDIT+8~*, AEDIT+10
DGAEDT	START+1~, AEDIT+2, AEDIT+3, AEDIT+4, AEDIT+5, AEDIT+7, AEDIT+8, DUPL+3, DUPL+6
DGAPT	START+1~, DISAPP+3*, DISAPP+4, DISAPP+8
DGAPT0	DISAPP+4~*, DISAPP+5
DGAPTY	EXEMPT~, EXEMPT+4
DGARRAY	START+1~, START+6, START+12!
DGARRAY("FLDS"	START+5*
DGARRAY("SORT"	START+5*
DGARRAY(1	START+5*
DGBEG	DUPL+2~, DUPL+6*, DUPL+7, DUPL+8
DGCL	DUPL+5*, DUPL+13, STATUS~, STATUS+3
DGCL(	START+10, DECR+5, INCR+5*
DGCLAR	START~
DGCLAR(1	START+9*
DGCLAR(2	START+9*
DGCLAR(3	START+9*
DGCLAR(4	START+9*
DGCLN	DISAPP+4~, DISAPP+5*, DISAPP+8, DISAPP+10
DGCNT	START~, START+7, START+10
DGCSC	START~, DUPL+3*, DUPL+5
DGDISP	START+1~, DISAPP+12*, DISAPP+13, DISAPP+15
DGDTE	START~
DGEND	DUPL+2~, DUPL+7*, DUPL+9
DGI	START~, DUPL+8, DUPL+9, DUPL+10, DUPL+13
DGI0	DUPL+10~*, DUPL+11, DUPL+13
DGICL	DUPL+10~, DUPL+11*, DUPL+13
DGIST	DUPL+10~, DUPL+11*, DUPL+12
DGITP	DUPL+10~, DUPL+11*, DUPL+13
DGNODE	START+1~, DISAPP+13, DISAPP+14, AEDIT+4, AEDIT+10, DUPL+4
DGNUM	START~
DGORG	STATUS~, STATUS+3
DGPCL	START+1~
DGSTAT	DISAPP+4~, DISAPP+5*, DISAPP+6
DGSTOP	EXEMPT~, EXEMPT+2*, EXEMPT+3
DGT	STATUS~, STATUS+2
DGTYP	DISAPP+4~, DISAPP+5*, DISAPP+8
DGYPCL	DECR+1~, INCR+1~
DGYPCL(	DECR+4, INCR+4
DGYPCL(0	DECR+2, INCR+2
>> DGYPPCL	DECR+3, DECR+4, DECR+5, INCR+3, INCR+4, INCR+5
>> DGYR("AE"	START+7, AEDIT+12
>> DGYR("AP"	START+7, DISAPP+9
>> DGYR("CR"	START+7, DISAPP+10
>> DGYR("DI"	START+7, DISAPP+16
DT	START+2, START+3
SDCNT	START+1~, START+6*, START+12!
>> TDT	START+3*, START+5, DISAPP+14, AEDIT+5
U	DISAPP+5, DISAPP+8, DISAPP+10, DISAPP+14, AEDIT+10, DUPL+4, DUPL+5, DUPL+11, DUPL+13, STATUS+3 , EXEMPT+2
>> X	START+2
X1	START~, START+2*
X2	START~, START+2*
Y	STATUS+1~, STATUS+2, STATUS+3, STATUS+4, STATUS+5, EXEMPT+1~, EXEMPT+3, EXEMPT+4, EXEMPT+5*, EXEMPTQ

Customize PDF page

Package: Registration

Routine: DGYPSDE2

Call Graph Total: 4