Routine: APCDEGP

Package	Total	Call Graph
VA Fileman	6	^%DT ^%DTC ^DIC FILE^DICN ^DIE ^DIR
IHS VA Utilities	5	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC EN^XBVK
Patient Care Component	5	GETPAT^APCDEA (EDUC1,POV1,PROV1)^APCDEGP0 ^APCDEGP1 ^APCDEIN (,EN2)^APCDEKL
Kernel	2	^%ZISC $$FMTE^XLFDT
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	KILL^AUPNPAT
Patient Care Component Reports	1	$$CLINIC^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
GETLOC	; GET LOCATION OF ENCOUNTER
EOJ	;
GETCLN	;
EOP	;EP - End of page.
PRINT	;
GETREST	;
EDUC	;
DISPLAY	;display all info and do you want to continue
POV	;
FORMID	;
INIT	; Write Header
TEXT	;
REPRINT	;EP - called from option
GETDATE	; GET DATE OF ENCOUNTER
GETTIME	;
GETTYPE	; GET TYPE OF ENCOUNTER
GETPAT	; GET PATIENT
START	;
CLNCHK	;
RXIT	;
PROCESS	;process visit
PROV	;
EDTIME
GETCAT	; GET SERVICE CATEGORY

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
^%DTC	GETPAT+4
^%ZISC	REPRINT+17
GETPAT^APCDEA	GETPAT+2
EDUC1^APCDEGP0	EDUC+6
POV1^APCDEGP0	POV+3
PROV1^APCDEGP0	PROV+3
^APCDEGP1	PROCESS+1
^APCDEIN	INIT+7
^APCDEKL	EOJ+3
EN2^APCDEKL	EOJ+2
$$CLINIC^APCLV	REPRINT+15
KILL^AUPNPAT	INIT+11, RXIT+3
^DIC	GETLOC+3, GETCLN+3, REPRINT+8
FILE^DICN	FORMID+2
^DIE	FORMID+6
^DIR	PRINT+2, GETTYPE+3, GETCAT+3, EDUC+1, DISPLAY+18, EOP+5
$$ICDDX^ICDEX	DISPLAY+13
^XBDBQUE	PRINT+6
$$VAL^XBDIQ1	REPRINT+15
^XBFMK	INIT+1, GETLOC+1, GETCLN+1, FORMID+3, FORMID+5, REPRINT+7, RXIT+2
$$EXTSET^XBFUNC	DISPLAY+2, DISPLAY+3
EN^XBVK	EOJ+4, RXIT+1
$$FMTE^XLFDT	DISPLAY+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Okay, start over and re-enter the information.",! Line Location: GETREST+2
Function Call: WRITE	Prompt: !! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!!! Line Location: PRINT+8
Function Call: WRITE	Prompt: !?80-$L(APCDEGX)\2,APCDEGX Line Location: INIT+3
Function Call: WRITE	Prompt: !! Line Location: INIT+5
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+2
Function Call: WRITE	Prompt: APCDBEEP," Time Required!" Line Location: GETTIME+5
Function Call: WRITE	Prompt: !,"Enter time of visit, or 'D' for default." Line Location: GETTIME+6
Function Call: WRITE	Prompt: " ",X Line Location: GETTIME+7
Function Call: WRITE	Prompt: APCDBEEP Line Location: EDTIME+2
Function Call: WRITE	Prompt: ! Line Location: EDTIME+3
Function Call: WRITE	Prompt: !,"WARNING: No Clinic Type entered for this visit and clinic is required!",!,$C(7) Line Location: CLNCHK+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"NO PRIMARY PROVIDER INDICATED!!!",!! Line Location: PROV+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"NO PURPOSE OF VISIT ENTERED" Line Location: POV+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"NO EDUCATION ENTERED" Line Location: EDUC+7
Function Call: WRITE	Prompt: !!!,"The following information will be used for the visits being created for",!,"this group form. Please review the information for accuracy.",! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !,"Visit Date:",?14,$$FMTE^XLFDT(APCDDATE),?40,"Type: ",$$EXTSET^XBFUNC(9000010,.03,APCDTYPE) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,"Location:",?14,$E($P(^DIC(4,APCDLOC,0),U),1,15),?40,"Service Category: ",$$EXTSET^XBFUNC(9000010,.07,APCDCAT) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Clinic:",?14,$S(APCDCLIN]"":$P(^DIC(40.7,$E(APCDCLIN,2,99),00),U),1:"") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !!,"Providers:" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,"POV's:" Line Location: DISPLAY+11
Function Call: WRITE	Prompt: !,"Education topics:" Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+18
Function Call: WRITE	Prompt: !!,"Failure to create FORM ID. Notify programmer.",! Line Location: FORMID+3
Function Call: WRITE	Prompt: !!,"The form ID for this group form is ",$P(^APCDGRP(APCDFID,0),U),".",!,"Please make a note of this. It will be needed if and when you need to ",!,"re-print forms.",!! Line Location: FORMID+7
Function Call: WRITE	Prompt: !!,"This option should be used to re-print group encounter forms.",!!,"You must know the group ID form number or the date of the group visit." Line Location: REPRINT+4
Function Call: WRITE	Prompt: !!,"Only group forms entered after PCC Data Entry Patch 5 was installed",!,"are available for re-printing.",!! Line Location: REPRINT+5
Function Call: WRITE	Prompt: !!,"Please enter the group ID form or the date of the visit.",! Line Location: REPRINT+6
Function Call: WRITE	Prompt: !!,"No form selected" Line Location: REPRINT+9
Function Call: WRITE	Prompt: !!,"There are no visits to print.",! Line Location: REPRINT+12
Function Call: WRITE	Prompt: !,"The following visit forms will be printed: " Line Location: REPRINT+13
Routine Call	DIE Line Location: FORMID+6
Routine Call	DIC Line Location: GETLOC+3 GETCLN+3 REPRINT+8
Routine Call	DIR Line Location: PRINT+2 GETTYPE+3 GETCAT+3 EDUC+1 DISPLAY+18 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^APCDGRP - [#9001002.3]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDGRP - [#9001002.3]	FORMID+7, REPRINT+11
^AUTNPOV - [#9999999.27]	DISPLAY+13
^AUTTEDT - [#9999999.09]	DISPLAY+17
^AUTTLOC - [#9999999.06]	GETLOC+5
^DIC(4 - [#4]	DISPLAY+3
^DIC(40.7 - [#40.7]	DISPLAY+4
^TMP("APCD"	EDTIME+1
^TMP("APCDEGP"	INIT+10!, EOJ+1!, PROV+1!, POV+1!, EDUC+4!, DISPLAY+5, DISPLAY+7, DISPLAY+10, DISPLAY+12, DISPLAY+14 , DISPLAY+16, DISPLAY+17
^VA(200 - [#200]	DISPLAY+8

Label References

Name	Line Occurrences
CLNCHK	GETCLN+4
DISPLAY	GETREST+2
EDUC	GETREST+1, EDUC+7
EOJ	START+2, START+4
EOP	GETREST+2
GETCAT	START+3
GETCLN	GETREST+1
GETDATE	START+3, GETDATE+4, GETDATE+5, GETTIME+4, EDTIME+2, EDTIME+3
GETLOC	START+3
GETPAT	GETREST+4
GETREST	START+3
GETTIME	GETTIME+5, GETTIME+6
GETTYPE	START+3
INIT	START+1
POV	GETREST+1
PRINT	REPRINT+16
PROV	GETREST+1
RXIT	REPRINT+1, REPRINT+9, REPRINT+12, REPRINT+18
START	GETREST+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+6!
%DT	EOJ+6!, GETDATE+4*
%W	EOJ+6!
%Y	EOJ+6!
>> APCDBEEP	GETTIME+5, EDTIME+2
>> APCDCAT	START+3, GETCAT+1, GETCAT+6*, CLNCHK+1, DISPLAY+3
>> APCDCLIN	GETREST+1, GETCLN+3, GETCLN+4, GETCLN+5, GETCLN+7*, CLNCHK+1, DISPLAY+4
>> APCDDATE	START+3, GETDATE+1, GETDATE+6, GETTIME+4, EDTIME, EDTIME+4*, GETPAT+4, DISPLAY+2, FORMID+2
>> APCDEDUC	GETREST+1, EDUC+6
>> APCDEGC	PROV+3, POV+3, POV+4, EDUC+6*, EDUC+7
APCDEGCL	GETREST+1, GETCLN+2!, GETCLN+7, CLNCHK+2
APCDEGJ	INIT+3*, INIT+4!
>> APCDEGLC	GETLOC+5*, CLNCHK+1
>> APCDEGP("FORMS"	GETREST+3!, PRINT+1, REPRINT+11*, REPRINT+12, REPRINT+14
>> APCDEGPC	PROV+3*
>> APCDEGPR	GETREST+1, PROV+3, PROV+4*
>> APCDEGPS	PROV+3*, PROV+4
APCDEGX	INIT+3*, INIT+4!
>> APCDFID	FORMID+4, FORMID+6, FORMID+7, REPRINT+10, REPRINT+11
>> APCDFLG	INIT+8
>> APCDLOC	START+3, GETLOC+2, GETLOC+5*, DISPLAY+3
>> APCDMODE	INIT+9*
>> APCDPAT	GETREST+4, GETPAT+1, GETPAT+3
>> APCDPOV	GETREST+1, POV+3
>> APCDQUIT	START+2, GETREST+1, GETREST+2, INIT+6, INIT+8, PROV+2, PROV+4, POV+2, POV+4, EDUC+5* , DISPLAY+19, DISPLAY+20, FORMID+3*
>> APCDTIME	GETTIME+1, GETTIME+2, GETTIME+3, EDTIME*
>> APCDTYPE	START+3, GETTYPE+2, GETTYPE+6*, CLNCHK+1, DISPLAY+2
AUPNDAYS	EOJ+5!, GETPAT+4*
AUPNDOB	EOJ+5!, GETPAT+4
AUPNDOD	EOJ+5!
AUPNPAT	EOJ+5!
AUPNSEX	EOJ+5!
>> C	DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, DISPLAY+14*, DISPLAY+15
D0	FORMID+2!
DA	EOJ+6!, GETLOC+3!, GETTYPE+1!, GETCAT+2!, GETCLN+3!, EDUC+1!, DISPLAY+18!, FORMID+6*!
DD	FORMID+2!, FORMID+3!
DFOUT	EOP+4!
DI	EOJ+6!
DIADD	INIT+1!, FORMID+2*, FORMID+3!, FORMID+5!
DIC	EOJ+6!, GETLOC+3!, GETCLN+3!, FORMID+2!, REPRINT+8
DIC("A"	GETLOC+3, GETCLN+3
DIC("DR"	FORMID+2*
DIC(0	GETLOC+3, GETCLN+3, FORMID+2, REPRINT+8
DIE	EOJ+6!, FORMID+6*!
DIG	EOJ+6!
DIH	EOJ+6!
DIPGM	EOJ+6!
DIR	PRINT+2!, EOJ+6!, GETTYPE+1!, GETTYPE+3!, GETCAT+2!, GETCAT+3!, EDUC+1!, DISPLAY+18!, EOP+3~
DIR("A"	PRINT+2, GETTYPE+3, GETCAT+3, EDUC+1, DISPLAY+18, EOP+5
DIR("B"	PRINT+2, EDUC+1, DISPLAY+18*
DIR(0	PRINT+2, GETTYPE+3, GETCAT+3, EDUC+1, DISPLAY+18, EOP+5
DIRUT	PRINT+2*, PRINT+3, EOJ+6!, GETTYPE+4, GETCAT+4, POV+3, EDUC+2, EDUC+6, DISPLAY+19, EOP+4!
DIU	EOJ+6!
DIV	EOJ+6!
DIW	EOJ+6!
DLAYGO	INIT+1!, FORMID+2*, FORMID+3!, FORMID+5!
DLOUT	EOP+4!
DO	FORMID+2!
DQ	EOJ+6!
DR	EOJ+6!, FORMID+3!, FORMID+6*!
DT	GETDATE+5, FORMID+2
DTIME	GETDATE+2, GETTIME+2
DTOUT	EOJ+6!, EOP+4!
DUOUT	PRINT+2, EOJ+6!, EOP+4!
DUZ	FORMID+2
IO("S"	EOP+2
IOF	INIT+2, REPRINT+3
IOST	EOP+1
>> IOT	EOP+2
U	GETLOC+5, DISPLAY+3, DISPLAY+4, DISPLAY+7, DISPLAY+8, DISPLAY+12, DISPLAY+13, DISPLAY+16, DISPLAY+17, FORMID+7
X	EOJ+6!, GETTYPE+1!, GETTYPE+5, GETCAT+2!, GETCAT+5, GETDATE+2, GETDATE+3, GETDATE+5!, GETDATE+6, GETTIME+2 , GETTIME+4, GETTIME+5, GETTIME+6, GETTIME+7, EDTIME, EDTIME+2, EDTIME+3, EDTIME+4, GETCLN+4, GETCLN+5 , GETPAT+4, DISPLAY+5, DISPLAY+7, DISPLAY+10, DISPLAY+12, DISPLAY+14, DISPLAY+16, DISPLAY+17, FORMID+2, REPRINT+11* , REPRINT+14*, REPRINT+15
X1	EOJ+6!, GETPAT+4*
X2	EOJ+6!, GETPAT+4*
>> XBNS	PRINT+5*
>> XBRC	PRINT+5*
>> XBRP	PRINT+5*
>> XBRX	PRINT+5*
Y	PRINT+4, EOJ+6!, GETLOC+4, GETLOC+5, GETTYPE+1!, GETTYPE+6, GETCAT+2!, GETCAT+6, GETDATE+4, GETDATE+5 , GETCLN+4, GETCLN+5, GETCLN+6, GETCLN+7, EDUC+3, DISPLAY+7, DISPLAY+8, DISPLAY+12, DISPLAY+13, DISPLAY+16* , DISPLAY+17, DISPLAY+20, FORMID+2, FORMID+4, REPRINT+9, REPRINT+10
>> Z	DISPLAY+7, DISPLAY+8, DISPLAY+12, DISPLAY+13, DISPLAY+16, FORMID+6
>> ZTQUEUED	EOP+2
ZTSAVE	EOJ+6!

Customize PDF page

Package: Patient Care Component

Routine: APCDEGP

Information

Source Information

Call Graph

Call Graph Total: 21

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items