Routine: GMTSDA

Information

GMTSDA ; SLC/DLT,KER/NDBI - Appointments ; 5/21/07 11:12am

Source file <GMTSDA.m>

Package	Total	Call Graph
Health Summary	2	($$NDBI,$$ROK,REGDTM4)^GMTSU CKP^GMTSUP
NDBI	1	CVP^A7RHSM
Registration	1	SDA^VADPT

Name	Comments	DBIA/ICR reference
PAST	; Gets Patient's Past Appointments for date range
FUTURE	; Gets Patient's Future Appointments
PRINT	; Output
END	; Clean-up and Quit

Name	Line Occurrences
Function Call: WRITE	Prompt: "RSA ERROR",! Line Location: PAST+5
Function Call: WRITE	Prompt: "DATABASE NOT AVAILABLE",! Line Location: PAST+6
Function Call: WRITE	Prompt: "DATABASE NOT AVAILABLE",! Line Location: FUTURE+2
Function Call: WRITE	Prompt: X,?18,$E($P(ADATE(0),"^",2),1,25),?58,$E($P(ADATE(0),"^",3),1,21) Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	PAST+15
^SC - [#44]	PAST+14, PAST+15
^SCE - [#409.68]	PAST+13, PAST+14, PAST+15
^SCE("ADFN"	PAST+9, PAST+10
^UTILITY("GMTSVASD"	PAST+7, PAST+12, PAST+15, PAST+17, PAST+19, END+1!
^UTILITY("VASD"	PAST+7, FUTURE+3, END+1!

Name	Line Occurrences
END	PAST+5, PAST+6, PAST+17, PAST+21, FUTURE+2, FUTURE+4
PRINT	PAST+20, FUTURE+3

Name	Field # of Occurrence
^(	PAST+7, PAST+20, FUTURE+3
^(0	PAST+15

Name	Field # of Occurrence
%I	END+1!
ADATE	PAST+7, PAST+20, FUTURE+3*, PRINT+1, END+1!
ADATE(0	PAST+20, FUTURE+3, PRINT+2
>> DFN	PAST+9, PAST+10
DT	PAST+2
GMDT	PAST+1~, PAST+8, PAST+9, PAST+10, PAST+11, PAST+15
>> GMI	PAST+10*, PAST+13, PAST+14, PAST+15
GMIDT	PAST+1~, PAST+11*, PAST+12, PAST+15
>> GMTS1	PAST+2
>> GMTSBEG	PAST+2
>> GMTSNDM	PAST+3, FUTURE+1
>> GMTSQIT	PRINT+1
IDATE	PAST+18, PAST+19, PAST+20, END+1!
IDATES	END+1!
MAX	PAST+1~, PAST+3, PAST+19, FUTURE+1~, FUTURE+3
U	PAST+7, PAST+13, PAST+14, PAST+15, FUTURE+3
>> VAERR	PAST+5, PAST+6, FUTURE+2
VASD	END+1!
VASD("F"	PAST+2*, PAST+8
VASD("T"	PAST+2*, PAST+9
VASD("W"	PAST+4*
X	PAST+1, PRINT+1, PRINT+2, END+1!
Y	PAST+7, FUTURE+3, END+1!
YCNT	PAST+7, PAST+18, PAST+19, PAST+20, FUTURE+3, END+1!
Z	END+1!