Routine: APCDEDTC

Information

APCDEDTC ; IHS/CMI/LAB - ENTER DTC FOR I/A ;

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Patient Care Component	11	INAC^APCDEA ^APCDEA3 ^APCDEIN ^APCDEKL ^APCDEMDI ^APCDEQX ^APCDFCTC ($$DTC,START)^APCDKDTC ^APCDVAR CHKEHR2^APCDVCHK EN1^APCDVD
VA Fileman	5	^%DT ^%DTC ^DIC (FILE,YN)^DICN ^DIR
IHS VA Utilities	3	^XBFMK $$EXTSET^XBFUNC EN^XBVK
IHS Patient	2	(,KILL)^AUPNPAT (MOD,VSIT01)^AUPNVSIT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
RDV
GETMNE	; GET MNEMONIC
MNEPROC	; PROCESS MNEMONICS UNTIL DONE
EOJ	; END OF JOB
GETMNEK	; KILL GETMNE SPECIFIC VARIABLES
GETTYPE	; GET TYPE OF ENCOUNTER
FINDVSIT	; INTERACTIVE MODE
GETVISIT	; GET VISIT
GETPAT	; GET PATIENT
WRITE	; WRITE VISITS FOR SELECT
GENVISIT	; GENERATE NEW VISIT
OPTION	;EP;GET OPTION FROM USER
GATHER	; GATHER VISITS FOR USER TO SELECT
GETCAT	;
TEXT	;
OPTION2	; LET USER SELECT OPTION
DISPLAY	; DISPLAY VISIT FOR USER
SELECT	; ALLOW USER TO SELECT, EXIT, OR ADD
HDR	; Write Header

External References

Name	Field # of Occurrence
^%DT	RDV+2, GENVISIT+4
^%DTC	RDV+8
INAC^APCDEA	GETPAT+8
^APCDEA3	MNEPROC+5, GETMNE+6
^APCDEIN	HDR+5
^APCDEKL	EOJ+1
^APCDEMDI	GETPAT+9
^APCDEQX	GETMNE+7
^APCDFCTC	MNEPROC+10
$$DTC^APCDKDTC	MNEPROC+9
START^APCDKDTC	MNEPROC+9
^APCDVAR	HDR+7
CHKEHR2^APCDVCHK	MNEPROC+7
EN1^APCDVD	DISPLAY+1, DISPLAY+4
^AUPNPAT	GENVISIT+1, SELECT+5
KILL^AUPNPAT	EOJ+4
MOD^AUPNVSIT	RDV+7
VSIT01^AUPNVSIT	GENVISIT+5
^DIC	GETPAT+4, MNEPROC+2, GETMNE+2
FILE^DICN	GENVISIT+11
YN^DICN	GETPAT+6
^DIR	GETCAT+3, GETTYPE+4, FINDVSIT+7, OPTION2+7, DISPLAY+2
^XBFMK	EOJ+3
$$EXTSET^XBFUNC	FINDVSIT+5
EN^XBVK	EOJ+1
$$FMTE^XLFDT	FINDVSIT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"That SERIVCE CATEGORY is not appropriate for this option!" Line Location: GETCAT+6
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: RDV+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: RDV+0
Function Call: WRITE	Prompt: ! Line Location: MNEPROC+1
Function Call: WRITE	Prompt: !!,"Error Occurred. Could not find TC mnemonic!" Line Location: MNEPROC+3
Function Call: WRITE	Prompt: ! Line Location: MNEPROC+13
Function Call: WRITE	Prompt: ! Line Location: GETMNE+1
Function Call: WRITE	Prompt: !!,"Switching to Modify Mode for ONE Mnemonic ONLY!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !!,"Switching back to ENTER Mode!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !,"Visit NOT Created!" Line Location: GENVISIT+10
Function Call: WRITE	Prompt: !!,"No "_$$EXTSET^XBFUNC(9000010,.07,APCDCAT)_" Visits for ",$P(^DPT(APCDPAT,0),U),!,"on ",$$FMTE^XLFDT(APCDDATE)," at ",$P(^DIC(4,DUZ(2),0),U),".",! Line Location: FINDVSIT+5
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has VISITs, same date, location.",! Line Location: OPTION2+1
Function Call: WRITE	Prompt: !,"1 Exit without selecting VISIT" Line Location: OPTION2+2
Function Call: WRITE	Prompt: !,"2 Display one of the existing VISITs" Line Location: OPTION2+3
Function Call: WRITE	Prompt: !,"3 Create new Visit",! Line Location: OPTION2+4
Function Call: WRITE	Prompt: !,"Or select one of the following existing VISITs:",! Line Location: OPTION2+5
Function Call: WRITE	Prompt: !,APCDAI," TIME: ",APCDAT," TYPE: ",$P(APCDAX,U,3)," CATEGORY: ",$P(APCDAX,U,7)," CLINIC: ",$S($P(APCDAX,U,8)]"":$E($P(^DIC(40.7,$P(APCDAX,U,8),0),U),1,13),1:"<NONE>"),?72,"DEC: ",$S($P(APCDAX,U,9):$P(APCDAX,U,9),1:0) Line Location: WRITE+3
Routine Call	DIC Line Location: GETPAT+4 MNEPROC+2 GETMNE+2
Routine Call	DIR Line Location: GETCAT+3 GETTYPE+4 FINDVSIT+7 OPTION2+7 DISPLAY+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	GETPAT+3, GETTYPE+3
^AUPNVSIT - [#9000010]	RDV+7, GATHER+1, SELECT+5, WRITE+1
^AUPNVSIT("AA"	FINDVSIT+4
^DIC(4 - [#4]	FINDVSIT+5
^DIC(40.7 - [#40.7]	WRITE+3
^DPT - [#2]	FINDVSIT+5, OPTION2+1

Label References

Name	Line Occurrences
DISPLAY	OPTION2+10
EOJ	HDR+10
FINDVSIT	RDV+6, FINDVSIT+12
GATHER	FINDVSIT+4
GENVISIT	FINDVSIT+10, OPTION2+11
GETCAT	HDR+9, GETCAT+6
GETMNE	MNEPROC+7, GETMNE+8
GETMNEK	MNEPROC+11
GETPAT	HDR+9
GETTYPE	GENVISIT+9
GETVISIT	HDR+9
MNEPROC	HDR+9
OPTION	SELECT+3
OPTION2	OPTION+1
RDV	RDV, RDV+3
SELECT	FINDVSIT+11
WRITE	OPTION2+6

Naked Globals

Name	Field # of Occurrence
^(0	RDV+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETPAT+6*, EOJ+2!
%1	EOJ+2!
%DT	RDV+2, GENVISIT+4, EOJ+2!
A	EOJ+2!
>> APCDAC	FINDVSIT+3, GATHER+5, SELECT+1, OPTION2+7, DISPLAY+1, DISPLAY+2
>> APCDADF	SELECT+1*, OPTION2+7
>> APCDAFLG	GENVISIT+4, GENVISIT+6, GENVISIT+12, SELECT+4
>> APCDAFLG("ERR"	GENVISIT+4, GENVISIT+6, GENVISIT+12*
>> APCDAI	FINDVSIT+4, GATHER+1, GATHER+5, OPTION2+6, WRITE+3
>> APCDAL	FINDVSIT+4, OPTION+1
APCDALV	FINDVSIT+1!, FINDVSIT+5
APCDALV(	GATHER+5*, OPTION2+6, OPTION2+13, DISPLAY+1, DISPLAY+4
APCDALV(4	FINDVSIT+12
>> APCDAO	FINDVSIT+12, SELECT+2, SELECT+4, OPTION+1, OPTION2+8, OPTION2+11, OPTION2+12, OPTION2+13*
APCDAT	WRITE+2*, WRITE+3, WRITE+4!
>> APCDAVD	FINDVSIT+2, FINDVSIT+4
>> APCDAVDC	FINDVSIT+2*, FINDVSIT+4
>> APCDAX	GATHER+1, GATHER+2, GATHER+3, GATHER+4, OPTION2+6, WRITE+1*, WRITE+2, WRITE+3
>> APCDCAT	HDR+9, GETCAT+1, GETCAT+5, GETCAT+6, RDV+7, FINDVSIT+5, FINDVSIT+7, GATHER+4
>> APCDCLN	RDV+7*
>> APCDDATE	GETVISIT+1, RDV+5, RDV+7, RDV+8, GENVISIT+3, GENVISIT+4, GENVISIT+6, GENVISIT+11, GENVISIT+12, FINDVSIT+2 , FINDVSIT+5
>> APCDDOB	GENVISIT+2*
>> APCDDOD	GENVISIT+2*
APCDEQX	MNEPROC+7, GETMNE+7, GETMNEK+1!
>> APCDFLG	HDR+6
APCDFV	MNEPROC+10*!
APCDJ	HDR+2*, HDR+3!
>> APCDLOC	RDV+7, GENVISIT+7
APCDLOOK	GENVISIT+11!
>> APCDMNE	MNEPROC+4, GETMNE+4
>> APCDMNE("NAME"	MNEPROC+4, GETMNE+4
APCDMOD	GETMNE+5!, GETMNE+8!
>> APCDMODE	GETMNE+8*
APCDMPQ	MNEPROC+6, MNEPROC+7, MNEPROC+12!, GETMNE+3, GETMNE+7*
>> APCDNOXV	HDR+8*
>> APCDPARM	HDR+7, GETPAT+6, MNEPROC+10
>> APCDPAT	HDR+8, HDR+9, GETPAT+2, GETPAT+7, GETPAT+8, RDV+7*, GENVISIT+1, FINDVSIT+4, FINDVSIT+5, OPTION2+1
APCDREGU	MNEPROC+12!
>> APCDSEX	GENVISIT+2*
>> APCDTYPE	RDV+7, GENVISIT+10, GETTYPE+1, GETTYPE+6*
APCDVLK	GETMNE+8*!
APCDVSIT	HDR+9, GETVISIT+1, RDV+7, RDV+8, MNEPROC+9, MNEPROC+10, GETMNE+8, GETMNEK+1!, GENVISIT+13, SELECT+5 , OPTION2+13, DISPLAY+1, DISPLAY+4*
APCDVSIT("NEW"	GENVISIT+14*
APCDX	HDR+2*, HDR+3!, GETMNEK+1!
>> AUPNDAYS	RDV+8*
>> AUPNDOB	RDV+8, GENVISIT+2
>> AUPNDOD	GENVISIT+2
>> AUPNLK("INAC"	GETPAT+3*
>> AUPNSEX	GENVISIT+2
>> AUPNVSIT	RDV+7*
DA	GETCAT+2!, GETTYPE+2!, FINDVSIT+7!
DD	GENVISIT+11!
DI	EOJ+2!
DIC	GETPAT+4!, MNEPROC+2!, GETMNE+2, GENVISIT+11!
DIC("A"	GETMNE+2*!
DIC("DR"	GENVISIT+11*
DIC("S"	GETMNE+2*!
DIC(0	GETPAT+4, MNEPROC+2, GETMNE+2, GENVISIT+11
DIGG	EOJ+2!
DIPGM	EOJ+2!
DIR	GETCAT+2!, GETCAT+3!, GETTYPE+2!, GETTYPE+4!, FINDVSIT+7!, OPTION2+7!, DISPLAY+2!
DIR("?"	OPTION2+7, DISPLAY+2
DIR("A"	GETCAT+3, GETTYPE+4, FINDVSIT+7, OPTION2+7, DISPLAY+2*
DIR("B"	GETTYPE+3, FINDVSIT+7, OPTION2+7*
DIR(0	GETCAT+3, GETTYPE+4, FINDVSIT+7, OPTION2+7, DISPLAY+2*
DIROUT	GETCAT+2!, GETTYPE+2!
DIRUT	GETCAT+2!, GETCAT+4, GETTYPE+2!, GETTYPE+5, FINDVSIT+8, OPTION2+8, DISPLAY+3
DISYS	EOJ+2!
DLAYGO	GENVISIT+11*!
DO	GENVISIT+11!
DQ	EOJ+2!
DTIME	RDV
DTOUT	GETCAT+2!, GETTYPE+2!
DUOUT	GETCAT+2!, GETTYPE+2!
DUZ("AG"	GETPAT+9
DUZ(2	GETPAT+3, GENVISIT+7, GETTYPE+3, FINDVSIT+5, GATHER+3
DX	EOJ+2!
IOF	HDR+1
IOY	EOJ+2!
POP	EOJ+2!
S	EOJ+2!
U	GETPAT+3, GETPAT+6, RDV+7, MNEPROC+4, MNEPROC+10, GETMNE+4, GETTYPE+3, FINDVSIT+5, GATHER+2, GATHER+3 , GATHER+4, SELECT+5, OPTION2+1, WRITE+3
X	GETPAT+8, RDV, RDV+1, RDV+3, RDV+8, MNEPROC+2, GENVISIT+4, GENVISIT+6, GENVISIT+11, GETTYPE+5* , EOJ+2!
>> X1	RDV+8*
>> X2	RDV+8*
Y	GETCAT+4, GETCAT+5, GETPAT+5, GETPAT+7, RDV+4!, RDV+5, MNEPROC+3, MNEPROC+4, GETMNE+3, GETMNE+4 , GENVISIT+1!, GENVISIT+4, GENVISIT+12, GENVISIT+13, GETTYPE+6, EOJ+2!, FINDVSIT+9, SELECT+5!, OPTION2+9, OPTION2+10 , OPTION2+11, OPTION2+12, OPTION2+13, DISPLAY+4
>> ZTQUEUED	GENVISIT+11
>> ZTSK	GENVISIT+11

Marked Items

Name	Field # of Occurrence
$T(TEXT+APCDJ	HDR+2

Customize PDF page

Package: Patient Care Component

Routine: APCDEDTC

Information

Source Information

Call Graph

Call Graph Total: 22

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items