Routine: PXDATE

Information

PXDATE ;SLC/PKR - Routines for dealing with dates. ;12/19/2022

Source Information

Source file <PXDATE.m>

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^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: 13

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

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(X,%DT)	;Is X a valid FileMan date?

External References

Name	Field # of Occurrence
^%DT	VFMDATE+2
^DIR	GETDT+21
$$GETDT^PXDATE	EVENTDT+3
$$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
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
PROMPT	EVENTDT+1~, EVENTDT+2*, EVENTDT+3, GETDT~, GETDT+18
>> PXCEEND	EVENTDT+4*
REQTIME	GETDT~, GETDT+16*, GETDT+17
U	GETDT+11
VISITDT	GETDT+10~, GETDT+11*, GETDT+12, GETDT+13
X	GETDT+10~, GETDT+22, GETDT+23, VFMDATE~
Y	GETDT+10~, GETDT+22, GETDT+23, GETDT+24, VFMDATE+1~, VFMDATE+3
YEAR	ISLEAP~, ISLEAP+2*, ISLEAP+3

Customize PDF page

Package: PCE Patient Care Encounter