Routine: APCDCVD

Information

APCDCVD ; IHS/CMI/LAB - CHANGE VISIT DATE ;

Source file <APCDCVD.m>

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC YN^DICN EN^DIQ ^DIR
Patient Care Component	4	^APCDCVDT EN1^APCDEKL ^APCDVDSP ^APCDVLK
IHS Patient	1	VSIT01^AUPNVSIT
Kernel	1	$$FMTE^XLFDT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: APCDCVD+4
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: APCDCVD+6
Function Call: WRITE	Prompt: ! Line Location: APCDCVD+8
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"The date and time of the VISIT is ",Y,! Line Location: VISIT+3
Function Call: WRITE	Prompt: !!,"Bye" Line Location: VISIT+5
Function Call: WRITE	Prompt: !,"The new visit date and time will be: ",$$FMTE^XLFDT(Y,1) Line Location: VISIT+6
Function Call: WRITE	Prompt: " <WAIT>" Line Location: VISIT+13
Function Call: WRITE	Prompt: !,"Updating the Date Last Modified failed!!" Line Location: VISIT+18
Function Call: WRITE	Prompt: ! Line Location: DSPLY+1
Function Call: WRITE	Prompt: !,"Do you want to see V FILE entries" Line Location: DSPLY+3
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: VISIT+10

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	VISIT+2

Name	Field # of Occurrence
>> %	DSPLY+3*
%DT	VISIT+4*!, EOJ+1!
%DT("A"	VISIT+4*
%X	EOJ+1!
%Y	DSPLY+3*, DSPLY+4, EOJ+1!
APCDCVDT	EOJ+2!
APCDCVDT("TALK"	VISIT+16*
APCDCVDT("VIS	IT DATE/TIME" , VISIT+15, IT DFN" , VISIT+14
>> APCDDATE	VISIT+2
APCDLOOK	GETVISIT+1*, GETVISIT+4!
>> APCDPAT	APCDCVD+4, GETPAT+2, GETPAT+5
>> APCDVDSP	DSPLY+5*
APCDVLK	GETVISIT+2!
>> APCDVSIT	APCDCVD+6, APCDCVD+9, GETVISIT+1*, VISIT+14, DSPLY+2, DSPLY+5
APCDX	VISIT+9*, VISIT+15, EOJ+2!
D0	EOJ+1!
DA	APCDCVD+9!, VISIT+10!, DSPLY+2!
DI	EOJ+1!
DIC	APCDCVD+9!, GETPAT+3!, DSPLY+2*!
DIC(0	GETPAT+3*
DIQ	APCDCVD+9!, DSPLY+2!
DIR	VISIT+10!
DIR("A"	VISIT+10*
DIR("B"	VISIT+10*
DIR(0	VISIT+10*
>> DIRUT	VISIT+11
DK	EOJ+1!
DL	EOJ+1!
DQ	EOJ+1!
DX	EOJ+1!
S	EOJ+1!
X	VISIT+7*, VISIT+8, VISIT+9, EOJ+1!
Y	GETPAT+4, GETPAT+5, VISIT+2*, VISIT+3, VISIT+5, VISIT+6, VISIT+7, VISIT+12, VISIT+18, EOJ+1!