Routine: APCDEFL

Information

APCDEFL ; IHS/CMI/LAB - EDIT VISIT LIST TEMP ;

Source file <APCDEFL.m>

Package	Total	Call Graph
Patient Care Component	5	^APCDEA3 EP^APCDEFG ^APCDEIN EN^APCDEL DEFAULT^APCDVAR
Registration	3	EN^VALM (CLEAR,FULL)^VALM1 EN^VALM2
IHS VA Utilities	2	($$VALI,ENP)^XBDIQ1 EN^XBNEW
VA Fileman	2	^DIC ^DIR
IHS Patient	1	^AUPNPAT
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
Patient Care Component	2	APCDEFM APCDELMP
IHS Changes To Scheduling	1	BSDPCC
IHS Mods To Text Integration Utilities	1	BTIUED

Name	Comments	DBIA/ICR reference
RESET	;
ADD2(F,APCDVSIT)	;EP; called by actions where type has to be selected
EN	;PEP -- main entry point for APCDEF VISIT DISPLAY
HDR	; -- header code
VINIT(M)	; -- initialize visit variables; M=mnemonic
EDIT	;EP; called by edit/delete action
EXPND	; -- expand code
EN1	;EP - called from input templates
INIT	; -- init variables and list array
PAUSE	;
EXIT	; -- exit code
GETITEM	; -- select item from list
VPOV	;;
ADD(M,APCDVSIT)	;EP; called by actions to add v file entries
MNE	;EP - called from protocol entry
VSIT	;;
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The DATA ENTRY Site Parameters have not been",!,"established for this facility. PLEASE NOTIFY YOUR SUPERVISOR!",$C(7),$C(7) Line Location: EN+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"No item selected!" Line Location: GETITEM+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"That is not an editable item, please see your supervisor for assistance.",! Line Location: EDIT+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"That is not an editable item, please see your supervisor for assistance.",! Line Location: EDIT+4
Function Call: WRITE	Prompt: !!,"Adding ",$P(^APCDTKW(APCDMNE,0),U,12),!! Line Location: ADD+4
Function Call: WRITE	Prompt: !!,"Adding ",$P(^DIC(F,0),U),! Line Location: ADD2+3
Routine Call	VALM Line Location: EN+9
Routine Call	DIC Line Location: ADD2+5 ADD2+6
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	EN+7
^APCDTKW - [#9001001]	EDIT+5, ADD+4
^APCDTKW("B"	ADD+3, ADD2+7
^DIC - [#1]	ADD2+3
^TMP("APCDEFG"	EN+2!, EN+11!, INIT+1, RESET+1!, EDIT+3

Name	Field # of Occurrence
APCDBROW	EN+11!
APCDCAT	EDIT+1~, ADD+1~, ADD2+1~, VINIT+5*
APCDCLN	EDIT+1~, VINIT+5*
APCDDATE	EDIT+1~, ADD+1~, ADD2+1~, VINIT+3*
APCDDR	GETITEM+1!, GETITEM+4, EDIT+1~, EDIT+2, EDIT+3, EDIT+4, EDIT+5
APCDLOC	EDIT+1~, ADD+1~, ADD2+1~, VINIT+5*
APCDMNE	EDIT+1~, EDIT+5, EDIT+6, ADD+1~, ADD+3, ADD+4, ADD+5, ADD2+1~, ADD2+7*, ADD2+8
APCDMNE("NAME"	EDIT+5*
APCDMODE	EDIT+1~, EDIT+6, ADD+1~, ADD+5, ADD2+1~, ADD2+8*
APCDNUM	EXIT+1!
APCDOVRR	EN+1~, EN+11!, EDIT+1~, VINIT+6*
APCDPARM	EN+1~
APCDPAT	EDIT+1~, ADD+1~, ADD2+1~, VINIT+3, MNE+2
APCDTYPE	EDIT+1~, ADD+1~, ADD2+1~, VINIT+4*
APCDVLK	EDIT+1~, EDIT+6, ADD+1~, ADD2+1~, VINIT+4
APCDVSIT	EN+3, EN+4, EN+5, RESET+2, EDIT+6, ADD~, ADD2~, VINIT+2, VINIT+4
APCDX	VINIT+1~
APCDX(	VINIT+3, VINIT+4, VINIT+5
AUPNVSIT	EXIT+1!
DFN	EN+1~, EN+5*, EN+6, MNE+2
DIC	ADD2+1~, ADD2+5*
DIC(0	ADD2+5, ADD2+6
DIR	PAUSE+1~
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
DUZ(2	EN+7
F	ADD2~, ADD2+3, ADD2+5
M	ADD~, ADD+3, VINIT~
U	EDIT+5, ADD+4, ADD2+3, ADD2+7
>> VALMBCK	RESET+2, EDIT+2, EDIT+4*
VALMCNT	INIT+1*, EXIT+1!
VALMSG	INIT+2*, EXIT+1!
>> VALMY	GETITEM+3
>> VALMY(0	GETITEM+4
>> X	HELP+1, ADD2+5
>> XQORNOD(0	GETITEM+2
Y	EN+6, EN1+2!, ADD2+4, ADD2+6, ADD2+7, ADD2+8*