Routine: APCDPG

Information

APCDPG ; IHS/CMI/LAB - GOAL LIST UPDATE ;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
Registration	2	EN^VALM ($$FTIME,$$SETSTR,CLEAR,FULL)^VALM1
IHS Patient	1	(,KILL)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	DISP^XQORM1
Patient Care Component	1	INAC^APCDEA

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Patient Care Component	4	APCDAGOL APCDPG1 APCDPG2 APCHS82

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	;PEP main entry point for APCD PG GOAL LIST
HDR	;EP -- header code
GATHER1	;
EN1	;PEP - requires DFN to be set to patient
GETLOC	;
EOJ	;End of job cleanup
GATHER	;EP
GETPAT	;get patient
STEP
START	;
EN2	;PEP - can be called to update GOAL list, called from applications outside of PCC
ENDE	;EP - for data entry PL call
DATE(D)	;EP
EXIT	; -- exit code
TEXT	;
INIT	; -- init variables and list array
DOD(P,RETVAL)	;EP - called to check to see if patient is inactive
SS(%)	;EP
EXPND	; -- expand code
GETDATE	;

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
INAC^APCDEA	GETPAT+10
^AUPNPAT	EN1+7, ENDE+6
KILL^AUPNPAT	GETPAT+3, EOJ+5
^DIC	GETPAT+7, GETLOC+1
^DIR	DOD+4
EN^VALM	EN+2
$$FTIME^VALM1	HDR+2
$$SETSTR^VALM1	GATHER1+11, GATHER1+12, GATHER1+13
CLEAR^VALM1	EOJ+1, EN+3
FULL^VALM1	START+5, EN1+15, EN2+3, ENDE+15
$$VAL^XBDIQ1	GATHER1+13, GATHER1+23, GATHER1+26, GATHER1+29
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: START+2
Function Call: WRITE	Prompt: !! Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: GETPAT+6
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: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2
Routine Call	DIC Line Location: GETPAT+7 GETLOC+1
Routine Call	DIR Line Location: DOD+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	GETPAT+5
^AUPNGOAL - [#9000093]	GATHER1+2, GATHER1+3, GATHER1+5, GATHER1+6, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+18, GATHER1+19, GATHER1+26 , GATHER1+31, STEP, STEP+1, STEP+2, STEP+3, STEP+5, STEP+7, STEP+8
^AUPNGOAL("AA"	GATHER1+1, GATHER1+2
^AUPNGOAL("AC"	GATHER+7
^AUPNPAT - [#9000001]	EN1+5, ENDE+4, HDR+2
^AUTTLOC - [#9999999.06]	GATHER1+12, STEP+1
^DIC(4 - [#4]	GETLOC+1
^DPT - [#2]	EN1+6, ENDE+5, HDR+2, DOD+2
^TMP($J	GETPAT+1!, EOJ+2!, EN1+1!, EXIT+1!

Label References

Name	Line Occurrences
$$DATE	GATHER1+18, GATHER1+19, STEP+8
$$SS	STEP+7
DOD	GETPAT+11
EN	EN1+13, EN2+2, ENDE+13
EN1	START+5
EOJ	START+6
EXIT	START+5, EN1+9, EN1+11, EN1+16, EN2+4, ENDE+8, ENDE+10, ENDE+16
GATHER	INIT+1
GATHER1	GATHER+10
GETDATE	GETDATE+4, GETDATE+5, EN1+10
GETLOC	EN1+8
GETPAT	START+5, EN2+1

Naked Globals

Name	Field # of Occurrence
^(	GATHER1+2
^(0	GATHER1+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SS~, SS+1, SS+2, SS+3, SS+4, SS+5
>> %DT	GETDATE+4*
APCDAF	GETPAT+2!, EOJ+4!, GATHER+10*, GATHER1+8, GATHER1+9, EXIT+2!
APCDC	STEP, STEP+1, STEP+4*, STEP+5, EXIT+2!
APCDDATE	GETPAT+2!, GETDATE+1, GETDATE+6, EOJ+4!, EN1+11, ENDE+9*, ENDE+10, EXIT+2!
APCDF	GATHER1+1*, GATHER1+2, GATHER1+12, STEP+12!
APCDL	STEP+1*, STEP+2, STEP+3, STEP+5, STEP+7, STEP+8, STEP+12!, EXIT+2!
APCDLINE	INIT+2, GATHER+6, GATHER+7, GATHER+8, GATHER1+10, GATHER1+16, GATHER1+17, GATHER1+20, GATHER1+22, GATHER1+24 , GATHER1+25, GATHER1+27, GATHER1+28, GATHER1+30, GATHER1+32, STEP+4, STEP+6, STEP+9, EXIT+2!
APCDLOC	GETPAT+2!, GETLOC+1, GETLOC+3, EOJ+4!, EN1+9, ENDE+7*, ENDE+8, EXIT+2!
APCDLOOK	GETPAT+2!, EOJ+4!, EXIT+2!
APCDLR	STEP+1*, STEP+5, STEP+12!, EXIT+2!
APCDOVRR	GETPAT+2!, EOJ+4!, EN1+12, ENDE+12, INIT+3*, EXIT+2!
APCDP0	GATHER1+2*, GATHER1+12, GATHER1+13, GATHER1+18, GATHER1+19, EXIT+2!
APCDPAT	GETPAT+2!, EOJ+4!
APCDPDFN	GETPAT+2!, EOJ+4!, EXIT+2!
APCDPG	GATHER+4!, GATHER+6!, EXIT+2!
APCDPG(	GATHER+8, GATHER1+16, GATHER1+20, GATHER1+24, GATHER1+27, GATHER1+30, GATHER1+32, STEP+4, STEP+6, STEP+9
APCDPG("IDX"	GATHER+7, GATHER1+10, GATHER1+16, GATHER1+20, GATHER1+24, GATHER1+27, GATHER1+30, GATHER1+32, STEP+4, STEP+6 , STEP+9*
APCDPG(1	GATHER+7*
APCDPGI	GETPAT+2!, EOJ+4!, GATHER1+2*, EXIT+2!
APCDPGPT	START+5!, GETPAT+2!, GETPAT+4, GETPAT+9, GETPAT+10, GETPAT+11, EOJ+4!, EN1+3, EN1+4, EN1+5 , EN1+6, EN1+7, EN1+14!, ENDE+2*, ENDE+3, ENDE+4, ENDE+5, ENDE+6, ENDE+14!, HDR+2 , GATHER+7, GATHER1+1, GATHER1+2
APCDPIEN	GETPAT+2!, EOJ+4!, GATHER1+2*, GATHER1+3, GATHER1+5, GATHER1+6, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+10 , GATHER1+13, GATHER1+16, GATHER1+18, GATHER1+19, GATHER1+20, GATHER1+23, GATHER1+24, GATHER1+26, GATHER1+27, GATHER1+29 , GATHER1+30, GATHER1+31, GATHER1+32, STEP, STEP+1, STEP+2, STEP+3, STEP+4, STEP+5, STEP+6 , STEP+7, STEP+8, STEP+9, EXIT+2!
>> APCDPLD	ENDE+9
>> APCDPLL	ENDE+7
>> APCDPLV	ENDE+11
APCDQUIT	GATHER+6!
APCDRCNT	GATHER+6, GATHER+9, GATHER1+10*, GATHER1+11, GATHER1+16, GATHER1+20, GATHER1+24, GATHER1+27, GATHER1+30, GATHER1+32 , STEP+4, STEP+6, STEP+9, EXIT+2!
APCDSX	GATHER+5~
>> APCDV	ENDE+11*
APCDX	GATHER1+10, GATHER1+11, GATHER1+12, GATHER1+13, GATHER1+16, GATHER1+18, GATHER1+19, GATHER1+20, GATHER1+23, GATHER1+24 , GATHER1+26, GATHER1+27, GATHER1+29, GATHER1+30, GATHER1+31, GATHER1+32, STEP+2, STEP+3, STEP+5, STEP+7 , STEP+8, STEP+12!, EXIT+2!
>> AUPNDOB	HDR+2
>> AUPNLK("INAC"	GETPAT+5*
D	DATE~, DATE+1, DATE+2
DA	DOD+4!
>> DFN	START+5*, EN1+2, EN1+3, ENDE+1, ENDE+2
DIC	GETPAT+7!, GETLOC+1!
DIC("A"	GETLOC+1*
DIC("B"	GETLOC+1*
DIC(0	GETPAT+7, GETLOC+1
DIR	DOD+4!
DIR("A"	DOD+4*
DIR("B"	DOD+4*
DIR(0	DOD+4*
>> DIRUT	DOD+5
DT	GETDATE+5
DTIME	GETDATE+2
DUZ(2	GETPAT+5, GETLOC+1, HDR+2
IOF	START+1
>> IOINORM	HDR+2, STEP+4
>> IORVOFF	STEP+4
>> IORVON	HDR+2, STEP+4
J	START+2*, START+3!
P	DOD~, DOD+2
RETVAL	DOD~, DOD+1, DOD+5, DOD+6*
U	GETPAT+5, GETLOC+1, HDR+2, GATHER1+3, GATHER1+5, GATHER1+6, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+12 , GATHER1+13, GATHER1+18, GATHER1+19, GATHER1+26, STEP+1, STEP+3, STEP+5, STEP+7, STEP+8, DOD+2
VALM	EOJ+3!
VALMAR	EOJ+3!
VALMBCK	EOJ+3!
VALMBG	EOJ+3!
VALMCAP	EOJ+3!
>> VALMCC	EN+1*
VALMCNT	EOJ+3!, INIT+2*
VALMDN	EOJ+3!
VALMEVL	EOJ+3!
VALMHDR	EXIT+4!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4*
VALMHDR(5	HDR+5*
VALMIOXY	EOJ+3!
VALMKEY	EOJ+3!
VALMLFT	EOJ+3!
VALMLST	EOJ+3!
VALMMCON	EOJ+3!
VALMMENU	EOJ+3!
VALMOFF	EOJ+3!
VALMSGR	EOJ+3!
VALMUP	EOJ+3!
VALMWD	EOJ+1, EOJ+3!
VALMY	EOJ+3!
X	START+2, START+3!, GETPAT+10, GETPAT+11, GETDATE+2, GETDATE+3, GETDATE+5!, GATHER1+12, GATHER1+13, STEP+4* , STEP+5, STEP+6, STEP+7, STEP+8, STEP+9, HELP+1, EXIT+3!
XQORNEST	EOJ+3!
XQORS	EOJ+3!
XQORSPEW	EOJ+3!
Y	GETPAT+8, GETPAT+9, GETLOC+2, GETLOC+3, GETDATE+4, GETDATE+5, GETDATE+6, EN1+7, ENDE+6, EXIT+3! , DOD+6

Marked Items

Name	Field # of Occurrence
$T(TEXT+J	START+2

Customize PDF page

Package: Patient Care Component

Routine: APCDPG

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

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