Routine: PXDATE

Information

PXDATE ;SLC/PKR - Routines for dealing with dates. ;Dec 02, 2021@12:26:15

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	^%DT ^DIR
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT
PCE Patient Care Encounter	1	($$GETDT,$$ISLEAP)^PXDATE

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: 12

Package	Total	Caller Graph
PCE Patient Care Encounter	12	PXAIVAL PXAIVSTV PXCEHF PXCEPED PXCEPOV1 PXCEPRV PXCESC PXCESK PXCEVIMM PXCEXAM PXCPTAPI PXDATE

Entry Points

Name	Comments	DBIA/ICR reference
EVENTDT(DEFAULT,HELP)	;Edit Event Date and Time.
FUTURE(DATE)	;Return 1 if DATE is in the future.
GETDT(REQTIME,BEFORE,AFTER,DEFAULT,PROMPT,HELP)	;General date/time entry
ISLEAP(YEAR)	;Given a 3 digit FileMan year return 1 if it is a leap year,
VFMDATE(DATE,%DT)	;Is DATE a valid internal FileMan date?

External References

Name	Field # of Occurrence
^%DT	VFMDATE+23
^DIR	GETDT+21
$$GETDT^PXDATE	EVENTDT+3
$$ISLEAP^PXDATE	VFMDATE+11
$$FMADD^XLFDT	GETDT+12, GETDT+13
$$FMTE^XLFDT	GETDT+19
$$NOW^XLFDT	FUTURE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PXK"	GETDT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	VFMDATE~
AFTER	GETDT~, GETDT+12
AFTERDT	GETDT+10~, GETDT+12*, GETDT+15
BEFORE	GETDT~, GETDT+13
BEFOREDT	GETDT+10~, GETDT+13*, GETDT+15
DATE	FUTURE~, FUTURE+1, VFMDATE~, VFMDATE+6, VFMDATE+14, VFMDATE+23
DAY	VFMDATE+1~, VFMDATE+7*, VFMDATE+12
DEFAULT	EVENTDT~, EVENTDT+3, GETDT~, GETDT+19, GETDT+23
DIR	GETDT+10~
DIR("??"	GETDT+20*
DIR("A"	GETDT+18*
DIR("B"	GETDT+19*
DIR(0	GETDT+15, GETDT+17
DIRUT	EVENTDT+1~, EVENTDT+4
EVENTDT	EVENTDT+1~, EVENTDT+3*, EVENTDT+4, EVENTDT+5
HELP	EVENTDT~, EVENTDT+3, GETDT~, GETDT+20
HOUR	VFMDATE+1~, VFMDATE+16*, VFMDATE+17
MAXDAY	VFMDATE+1~
MAXDAY(	VFMDATE+12
MAXDAY(0	VFMDATE+2*
MAXDAY(1	VFMDATE+3*
MAXDAY(10	VFMDATE+5*
MAXDAY(11	VFMDATE+5*
MAXDAY(12	VFMDATE+5*
MAXDAY(2	VFMDATE+3, VFMDATE+11
MAXDAY(3	VFMDATE+3*
MAXDAY(4	VFMDATE+3*
MAXDAY(5	VFMDATE+4*
MAXDAY(6	VFMDATE+4*
MAXDAY(7	VFMDATE+4*
MAXDAY(8	VFMDATE+4*
MAXDAY(9	VFMDATE+5*
MINUTES	VFMDATE+1~, VFMDATE+16*, VFMDATE+18
MONTH	VFMDATE+1~, VFMDATE+7*, VFMDATE+10, VFMDATE+11, VFMDATE+12
PROMPT	EVENTDT+1~, EVENTDT+2*, EVENTDT+3, GETDT~, GETDT+18
>> PXCEEND	EVENTDT+4*
REQTIME	GETDT~, GETDT+16*, GETDT+17
SECONDS	VFMDATE+1~, VFMDATE+16*, VFMDATE+19
TIME	VFMDATE+1~, VFMDATE+14*, VFMDATE+15, VFMDATE+16
U	GETDT+11
VALID	VFMDATE+1~, VFMDATE+8, VFMDATE+9, VFMDATE+10, VFMDATE+11, VFMDATE+12, VFMDATE+13, VFMDATE+17, VFMDATE+18, VFMDATE+19 , VFMDATE+20
VISITDT	GETDT+10~, GETDT+11*, GETDT+12, GETDT+13
X	GETDT+10~, GETDT+22, GETDT+23, VFMDATE+22~, VFMDATE+23*
Y	GETDT+10~, GETDT+22, GETDT+23, GETDT+24, VFMDATE+22~, VFMDATE+24
YEAR	ISLEAP~, ISLEAP+2, ISLEAP+3, VFMDATE+1~, VFMDATE+7, VFMDATE+8, VFMDATE+11
YMD	VFMDATE+1~, VFMDATE+6*, VFMDATE+7

Customize PDF page

Package: PCE Patient Care Encounter