Routine: APCDPE1

Package	Total	Call Graph
Patient Care Component	4	(GETPAT,INAC)^APCDEA ^APCDEIN ^APCDEKL ^APCDPE2
VA Fileman	3	^%DT ^DIC ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Patient Care Component	1	APCDPE

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; Write Header
GETLOC	; GET LOCATION OF ENCOUNTER
GETTEMP	;
GETTYPE	; GET TYPE OF ENCOUNTER
GETPAT	; GET PATIENT
EDTIME
GETTIME	;
EOJ	; END OF JOB
GETCAT	; GET SERVICE CATEGORY
GETCLIN	;
PROCESS	; PROCESS PATIENT
PROC1	;********* loop through patients
GETDATE	; GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
GETPAT^APCDEA	GETPAT+1
INAC^APCDEA	PROC1+7
^APCDEIN	HDR+5
^APCDEKL	EOJ+1
^APCDPE2	PROCESS+4
^DIC	GETLOC+3, GETCLIN+4, GETTEMP+2
^DIR	GETTYPE+4, GETCAT+4, PROC1+3
$$FMTE^XLFDT	PROCESS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HDR+2
Function Call: WRITE	Prompt: "The following PCC Data Items will be prompted for for each visit created:" Line Location: HDR+3
Function Call: WRITE	Prompt: !?10,$P(^APCDTKW(APCDCSEL(X),0),U),?16,$S($P(^APCDTKW(APCDCSEL(X),0),U,12)]"":$P(^APCDTKW(APCDCSEL(X),0),U,12),1:$P(^APCDTKW(APCDCSEL(X),0),U,6)) Line Location: HDR+4
Function Call: WRITE	Prompt: !! Line Location: GETLOC+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETDATE+2
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+5
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETTIME+3
Function Call: WRITE	Prompt: APCDBEEP," Time Required!" Line Location: GETTIME+6
Function Call: WRITE	Prompt: !,"Enter time of visit, or 'D' for default." Line Location: GETTIME+7
Function Call: WRITE	Prompt: " ",X Line Location: GETTIME+8
Function Call: WRITE	Prompt: APCDBEEP Line Location: EDTIME+2
Function Call: WRITE	Prompt: ! Line Location: EDTIME+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: PROCESS+1
Function Call: WRITE	Prompt: !!,"Generating PCC Visit for ",$P(^DPT(APCDPAT,0),U)," DOB: ",$$FMTE^XLFDT($P(^DPT(APCDPAT,0),U,3)),!! Line Location: PROCESS+1
Function Call: WRITE	Prompt: ! Line Location: GETTEMP+2
Routine Call	DIC Line Location: GETLOC+3 GETCLIN+4 GETTEMP+2
Routine Call	DIR Line Location: GETTYPE+4 GETCAT+4 PROC1+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDTKW - [#9001001]	HDR+4
^DIBT(	PROC1+6
^DIC(4 - [#4]	GETLOC+2
^DIC(40.7 - [#40.7]	GETCLIN+3
^DPT - [#2]	PROCESS+1
^TMP("APCD"	EDTIME+1

Label References

Name	Line Occurrences
EOJ	GETLOC+4, PROC1+4, PROC1+5, PROC1+6, PROC1+12
GETCAT	GETCLIN+5
GETDATE	GETDATE+4, GETDATE+5, EDTIME+2, EDTIME+3, PROCESS+2
GETLOC	GETTYPE+5
GETPAT	PROC1+11
GETTEMP	PROC1+6
GETTIME	GETTIME+6, GETTIME+7
GETTYPE	GETCAT+5
PROC1	GETCAT+8
PROCESS	PROC1+9, PROC1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+4*
>> APCDBEEP	GETTIME+6, EDTIME+2
>> APCDCAT	GETCAT+1, GETCAT+6, GETCAT+8, GETTIME+2
>> APCDCSEL(	HDR+4
>> APCDDATE	GETDATE+1, GETDATE+7, GETTIME+5, EDTIME, EDTIME+4, PROCESS+3
>> APCDDEFC	GETCLIN+3
>> APCDDEFL	GETLOC+2
>> APCDDEFS	GETCAT+3
>> APCDDEFT	GETTYPE+3
>> APCDFLG	HDR+6
>> APCDLOC	GETLOC+2, GETLOC+5
APCDODAT	GETDATE+6!
>> APCDPAT	PROC1+6, PROC1+7, PROC1+8, PROC1+11*, PROCESS+1
>> APCDPECL	GETCLIN+1, GETCLIN+6
>> APCDPEPP	PROC1+2*
>> APCDPEX	PROC1+6*
>> APCDTEMP	PROC1+6, GETTEMP+3, GETTEMP+4
>> APCDTIME	GETTIME+1, GETTIME+2, GETTIME+3, GETTIME+4, EDTIME
>> APCDTYPE	GETTYPE+1, GETTYPE+6, GETTIME+2
DA	GETTYPE+2!, GETCAT+2!, GETCLIN+2!, PROC1+3!, GETTEMP+2!
DIC	GETLOC+3!, GETCLIN+2!, GETCLIN+4!, GETTEMP+2*!
DIC("A"	GETCLIN+4, GETTEMP+2
DIC("B"	GETLOC+2, GETCLIN+3
DIC("S"	GETTEMP+2*
DIC(0	GETLOC+3, GETCLIN+4, GETTEMP+2*
DICR	GETTEMP+2!
DIR	GETTYPE+2!, GETTYPE+4!, GETCAT+2!, GETCAT+4!, GETCLIN+2!, PROC1+3!
DIR("A"	GETTYPE+4, GETCAT+4, PROC1+3*
DIR("B"	GETTYPE+3, GETCAT+3, PROC1+3*
DIR(0	GETTYPE+4, GETCAT+4, PROC1+3*
DIROUT	GETTYPE+2!, GETCAT+2!, GETCLIN+2!
DIRUT	GETTYPE+2!, GETTYPE+5, GETCAT+2!, GETCAT+5, GETCLIN+2!, PROC1+4
DR	GETTEMP+2!
DT	GETDATE+5
DTIME	GETDATE+2, GETTIME+3
DTOUT	GETTYPE+2!, GETCAT+2!, GETCLIN+2!
DUOUT	GETTYPE+2!, GETCAT+2!, GETCLIN+2!
IOF	HDR+1, PROCESS+1
U	HDR+4, GETLOC+2, GETCLIN+3, PROCESS+1
X	HDR+4, GETTYPE+5, GETCAT+5, PROC1+7, PROC1+8, GETDATE+2, GETDATE+3, GETDATE+5!, GETDATE+7, GETTIME+3* , GETTIME+5, GETTIME+6, GETTIME+7, GETTIME+8, EDTIME, EDTIME+2, EDTIME+3, EDTIME+4
>> Y	GETLOC+4, GETLOC+5, GETTYPE+6, GETCAT+6, GETCLIN+5, GETCLIN+6, PROC1+5, GETDATE+4, GETDATE+5, GETTEMP+3 , GETTEMP+4

Customize PDF page

Package: Patient Care Component

Routine: APCDPE1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: