Routine: APCDEL

Information

APCDEL ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 21-SEP-1996 ;

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Patient Care Component	3	^APCDEIN (EN1,EN2)^APCDEKL ^APCDVLK
IHS Patient	2	KILL^AUPNPAT MOD^AUPNVSIT
IHS VA Utilities	2	$$VAL^XBDIQ1 ^XBFMK
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Registration	2	EN^VALM ($$FTIME,CLEAR,FULL)^VALM1
VA Fileman	2	^DIC ^DIE

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Patient Care Component	3	APCDEFL APCDEL1 APCDELM
IHS Changes To ADT	1	BDGPCCE2

Entry Points

Name	Comments	DBIA/ICR reference
EN	;PEP -- main entry point for APCDELM PCC DATA ENTRY
HDR	;EP -- header code
EOJ	;
GATHER	;EP
GETPAT	; GET PATIENT
GETVISIT	;
START	;
INIT	;EP -- init variables and list array
INIT3	;EP
INIT2	;EP
TEXT	;
EXIT	; -- exit code
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^APCDEIN	START+9, EN+11
EN1^APCDEKL	EOJ+2
EN2^APCDEKL	EOJ+3
^APCDVLK	GETVISIT+3
KILL^AUPNPAT	EOJ+7
MOD^AUPNVSIT	GETVISIT+4
^DIC	GETPAT+3
^DIE	GETVISIT+5
EN^VALM	EN+12
$$FTIME^VALM1	HDR+1
CLEAR^VALM1	EN+13
FULL^VALM1	START+10
$$VAL^XBDIQ1	HDR+3
^XBFMK	EN+15, EOJ+4
$$FMTE^XLFDT	HDR+3
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: !!,"No PATIENT selected!" Line Location: START+6
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: START+8
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+12
Routine Call	DIE Line Location: GETVISIT+5
Routine Call	DIC Line Location: GETPAT+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDTKW - [#9001001]	GATHER+6, GATHER+7, GATHER+8, INIT2+6, INIT2+7, INIT2+8, INIT3+5, INIT3+6, INIT3+7
^APCDTKW("AD"	GATHER+2
^APCDTKW("AH"	INIT3+2
^APCDTKW("ASEC"	INIT2+2
^AUPNPAT - [#9000001]	HDR+2
^AUPNVSIT - [#9000010]	EN+8, EN+9, HDR+3
^DPT - [#2]	EN+10, HDR+1
^TMP("APCDEL"	EN+14!, GATHER+1!, GATHER+6, GATHER+7, GATHER+8, INIT2+1!, INIT2+6, INIT2+7, INIT2+8, INIT3+1! , INIT3+5, INIT3+6, INIT3+7*

Label References

Name	Line Occurrences
EN	START+10
EOJ	START+6, START+8, START+11
EXIT	START+10
GATHER	INIT+1
GETPAT	START+5
GETVISIT	START+7

Naked Globals

Name	Field # of Occurrence
^(0	GATHER+6, GATHER+7, GATHER+8, INIT2+6, INIT2+7, INIT2+8, INIT3+5, INIT3+6, INIT3+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDANS	EXIT+1!, EOJ+5!
APCDC	EXIT+1!, EOJ+5!
APCDCNTL	EN+14!
APCDCRIT	EXIT+1!
APCDCSEL	EN+14!
APCDCSEL(	GATHER+6, GATHER+7, GATHER+8, INIT2+6, INIT2+7, INIT2+8, INIT3+5, INIT3+6, INIT3+7
APCDCUT	EN+14!, GATHER+1!, GATHER+4, GATHER+7, GATHER+8, GATHER+9!, INIT2+4, INIT2+7, INIT2+8, INIT3+3* , INIT3+6, INIT3+7, EXIT+1!, EOJ+5!
APCDDISP	EN+14!, GATHER+1!, GATHER+9!, INIT2+1!, INIT2+9!, INIT3+1!, INIT3+8!, EOJ+5!
APCDDISP(	GATHER+5, GATHER+6, GATHER+7, GATHER+8, INIT2+5, INIT2+6, INIT2+7, INIT2+8, INIT3+4, INIT3+5* , INIT3+6, INIT3+7
APCDHIGH	EN+14!, GATHER+1!, GATHER+2, GATHER+4, INIT2+1!, INIT2+2, INIT2+4, INIT3+1!, INIT3+2*, INIT3+3 , EOJ+5!
APCDI	EXIT+1!, EOJ+5!
APCDLOOK	GETVISIT+1*, GETVISIT+4, EXIT+1!
APCDMNE	EXIT+1!
APCDMOD	EXIT+1!
APCDMODE	EXIT+1!
APCDOTHR	INIT2+9!, INIT3+8!
>> APCDOVRR	INIT+2*
APCDPAT	START+5, START+6, START+10!, GETPAT+2, GETPAT+5*, GETVISIT+5, EN+6, EN+10, HDR+1, HDR+2 , EOJ+5!
APCDSEL	EN+14!, GATHER+1!, INIT2+1!, INIT3+1!, EXIT+1!, EOJ+5!
APCDSEL(	GATHER+2, GATHER+5, GATHER+6, GATHER+7, GATHER+8, INIT2+2, INIT2+5, INIT2+6, INIT2+7, INIT2+8 , INIT3+2*, INIT3+4, INIT3+5, INIT3+6, INIT3+7
APCDTEXT	EXIT+1!
APCDVLK	GETVISIT+2!, EXIT+1!
APCDVSIT	START+8, GETVISIT+1*, EN+7, EN+8, EN+9, HDR+3, EOJ+5!
APCDX	EXIT+1!
APCDY	EXIT+1!
APCHIGH	EXIT+1!
>> AUPNVSIT	GETVISIT+4*
C	EN+14!, GATHER+5, GATHER+6, GATHER+7, GATHER+8, GATHER+10, INIT2+5, INIT2+6, INIT2+7, INIT2+8 , INIT2+10, INIT3+4, INIT3+5, INIT3+6, INIT3+7, INIT3+9, EOJ+6!
>> DA	GETVISIT+5*
DIC	GETPAT+3*!
DIC(0	GETPAT+3*
>> DIE	GETVISIT+5*
DISP	EXIT+1!
>> DR	GETVISIT+5*
DUZ(2	HDR+2
I	EN+14!, GATHER+5, GATHER+6, GATHER+7, INIT2+5, INIT2+6, INIT2+7, INIT3+4*, INIT3+5, INIT3+6 , EOJ+6!
IOF	START+1
>> IOINORM	HDR+1
>> IORVON	HDR+1
J	START+2, START+3!, EN+14!, GATHER+5, GATHER+7, GATHER+8, INIT2+5, INIT2+7, INIT2+8, INIT3+4 , INIT3+6*, INIT3+7
K	EN+14!, GATHER+5, GATHER+8, INIT2+5, INIT2+8, INIT3+4, INIT3+7
U	EN+9, HDR+1, HDR+2, HDR+3, GATHER+6, GATHER+7, GATHER+8, INIT2+6, INIT2+7, INIT2+8 , INIT3+5, INIT3+6, INIT3+7
VALMCNT	GATHER+10, INIT2+10, INIT3+9*, EOJ+1!
VALMHDR	EOJ+1!
VALMHDR(2	HDR+1, HDR+2
VALMHDR(3	HDR+3*
X	START+2, START+3!, EN+14!, GATHER+2, INIT2+2, INIT3+2, HELP+1*, EOJ+6!
Y	GETPAT+4, GETPAT+5, GATHER+2, INIT2+2, INIT3+2*, EOJ+6!

Marked Items

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

Customize PDF page

Package: Patient Care Component

Routine: APCDEL

Information

Source Information

Call Graph

Call Graph Total: 13

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