Routine: APCDPL

Information

APCDPL ; IHS/CMI/LAB - PROBLEM LIST UPDATE ;

Source Information

Source file <APCDPL.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC $$GET1^DIQ
IHS Patient	2	(,KILL)^AUPNPAT $$ASKCL^AUPNVPLC
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Registration	2	EN^VALM ($$FTIME,$$SETSTR,CLEAR,FULL)^VALM1
Patient Care Component	1	INAC^APCDEA
Patient Care Component Reports	1	($$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Patient Care Component	5	APCDAPRB APCDEH1 APCDEL1 APCDETP1 APCDPL1
Diabetes Registry	1	BDMPL
IHS Changes To ADT	1	BDGPCCEL
Mental Health Social Services	1	AMHPL

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	;PEP main entry point for APCD PL PROBLEM 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
NOTE
START	;
EN2	;PEP - can be called to update problem list, called from applications outside of PCC
ENDE	;EP - for data entry PL call
EXIT	; -- exit code
TEXT	;
INIT	; -- init variables and list array
EXPND	; -- expand code
GETDATE	;

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
INAC^APCDEA	GETPAT+10
$$LASTNAP^APCLAPI6	GATHER+12
$$LASTPLR^APCLAPI6	GATHER+8
$$LASTPLU^APCLAPI6	GATHER+10
^AUPNPAT	EN1+7, ENDE+6
KILL^AUPNPAT	GETPAT+3, EOJ+5
$$ASKCL^AUPNVPLC	GATHER1+9
^DIC	GETPAT+7, GETLOC+1
$$GET1^DIQ	GATHER1+8, GATHER1+15, GATHER1+17
EN^VALM	EN+2
$$FTIME^VALM1	HDR+2
$$SETSTR^VALM1	GATHER1+4, GATHER1+5, GATHER1+6
CLEAR^VALM1	EOJ+1, EN+3
FULL^VALM1	START+5, EN1+15, EN2+3, ENDE+16
$$VAL^XBDIQ1	GATHER1+5, GATHER1+9, GATHER1+11, GATHER1+12, GATHER1+13
$$EXTSET^XBFUNC	GATHER1+5
$$FMTE^XLFDT	GATHER+9, GATHER+11, GATHER+14, GATHER1+6, NOTE+4
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

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNPROB - [#9000011]	GET1^DIQ
9000011.13	GET1^DIQ
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	GETPAT+5
^AUPNPAT - [#9000001]	EN1+5, ENDE+4, HDR+2
^AUPNPROB - [#9000011]	GATHER1+2, GATHER1+16, GATHER1+17, NOTE, NOTE+1, NOTE+2, NOTE+4
^AUPNPROB("AA"	GATHER1+1, GATHER1+2
^AUPNPROB("AC"	GATHER+7
^AUTTLOC - [#9999999.06]	GATHER1+4, NOTE+1
^DIC(4 - [#4]	GETLOC+1
^DPT - [#2]	EN1+6, ENDE+5, HDR+2
^TMP($J	GETPAT+1!, EOJ+2!, EN1+1!, GATHER+4!, GATHER+7, GATHER+9, GATHER+11, GATHER+14, GATHER+15, GATHER1+3 , GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+14, GATHER1+15, GATHER1+18, NOTE+3, NOTE+5, NOTE+6*, EXIT+1!
^VA(200 - [#200]	GATHER+9, GATHER+11, GATHER+14

Name	Line Occurrences
EN	EN1+13, EN2+2, ENDE+14
EN1	START+5
EOJ	START+6
EXIT	START+5, EN1+9, EN1+11, EN1+16, EN2+4, ENDE+8, ENDE+10, ENDE+17
GATHER	INIT+1
GATHER1	GATHER+17
GETDATE	GETDATE+4, GETDATE+5, EN1+10
GETLOC	EN1+8
GETPAT	START+5, EN2+1

Name	Field # of Occurrence
^(	GATHER1+2
^(0	GATHER1+4, NOTE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+4*
APCDAF	GETPAT+2!, EOJ+4!, GATHER+17*, GATHER1+2, EXIT+2!
APCDC	NOTE, NOTE+1, NOTE+3*, 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+4, NOTE+9!
APCDL	NOTE+1*, NOTE+2, NOTE+4, NOTE+9!, EXIT+2!
APCDLINE	INIT+2, GATHER+6, GATHER+7, GATHER+9, GATHER+11, GATHER+14, GATHER+15, GATHER1+3, GATHER1+7, GATHER1+8 , GATHER1+9, GATHER1+11, GATHER1+14, GATHER1+15, GATHER1+18, NOTE+3, NOTE+5, NOTE+6*, 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	NOTE+1*, NOTE+4, NOTE+9!, EXIT+2!
APCDOVRR	GETPAT+2!, EOJ+4!, EN1+12, ENDE+13, INIT+3*, EXIT+2!
APCDP0	GATHER1+2*, GATHER1+4, GATHER1+5, GATHER1+6, GATHER1+9, GATHER1+10, GATHER1+12, GATHER1+13, EXIT+2!
APCDPAT	GETPAT+2!, EOJ+4!
APCDPDFN	GETPAT+2!, EOJ+4!, EXIT+2!
APCDPIEN	GETPAT+2!, EOJ+4!, GATHER1+2*, GATHER1+3, GATHER1+5, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+11, GATHER1+12 , GATHER1+13, GATHER1+14, GATHER1+15, GATHER1+16, GATHER1+17, GATHER1+18, NOTE, NOTE+1, NOTE+2, NOTE+3 , NOTE+4, NOTE+5, NOTE+6, EXIT+2!
APCDPL	GATHER+6!, EXIT+2!
>> APCDPLD	ENDE+9
>> APCDPLL	ENDE+7
APCDPLPT	START+5!, GETPAT+2!, GETPAT+4, GETPAT+9, GETPAT+10, 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+15!, HDR+2, GATHER+7 , GATHER+8, GATHER+10, GATHER+12, GATHER1+1, GATHER1+2
>> APCDPLV	ENDE+11
APCDPRB	GETPAT+2!, EOJ+4!, GATHER1+2*, EXIT+2!
APCDQUIT	GATHER+6!
APCDRCNT	GATHER+6, GATHER+16, GATHER1+3*, GATHER1+4, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+14, GATHER1+15, GATHER1+18 , NOTE+3, NOTE+5, NOTE+6, EXIT+2!
APCDSX	GATHER+5~, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12*, GATHER+14
>> APCDV	ENDE+11, ENDE+12
APCDX	GATHER1+3, GATHER1+4, GATHER1+5, GATHER1+6, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+11, GATHER1+12, GATHER1+13 , GATHER1+14, GATHER1+15, GATHER1+16, GATHER1+17, GATHER1+18, NOTE+2, NOTE+4, NOTE+9!, EXIT+2!
>> AUPNDOB	HDR+2
>> AUPNLK("INAC"	GETPAT+5*
>> 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
DT	GETDATE+5, GATHER+8, GATHER+10, GATHER+12
DTIME	GETDATE+2
DUZ(2	GETPAT+5, GETLOC+1, HDR+2
IOF	START+1
>> IOINHI	GATHER1+8, GATHER1+9
>> IOINORM	GATHER1+8, GATHER1+9, NOTE+3, NOTE+6
>> IORVOFF	HDR+2, NOTE+3
>> IORVON	HDR+2, NOTE+3
J	START+2*, START+3!
U	GETPAT+5, GETLOC+1, HDR+2, GATHER+9, GATHER+11, GATHER+14, GATHER1+2, GATHER1+4, GATHER1+5, GATHER1+6 , GATHER1+9, GATHER1+10, GATHER1+12, GATHER1+13, NOTE+1, NOTE+4
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*
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, GETDATE+2, GETDATE+3, GETDATE+5!, GATHER1+4, GATHER1+5, GATHER1+15, GATHER1+17 , NOTE+3, NOTE+4, NOTE+5, 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!

Customize PDF page

Package: Patient Care Component

Routine: APCDPL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 8

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