Routine: APCDALV1

Name	Comments	DBIA/ICR reference
24	;
25	;
26	;
12	;
21	;
17	;
16	;
EDIT	; EDIT PASSED VARIABLES
18	;
22	;
WRITE	; WRITE VISITS FOR SELECT
19	;
INIT	;EP;INITIALIZATION/EDIT INPUT VARIABLES
PAUSE	;EP
MRG	;EP - merge two visits together
OPTION2	; LET USER SELECT OPTION
DISPLAY	; DISPLAY VISIT FOR USER
OPTION	;EP;GET OPTION FROM USER

Name	Field # of Occurrence
$$FIND1^APCDDIC	17+2, 21+2, 22+2, 24+2, 25+2
^APCDVDSP	DISPLAY+1, DISPLAY+4, MRG+8, MRG+10
EN1^APCDVMRG	MRG+12
^DIC	EDIT+19
^DIR	OPTION2+8, DISPLAY+2, MRG+1, MRG+4, PAUSE+2
$$EXTSET^XBFUNC	16+1, 19+1
$$FMTE^XLFDT	18+1, 26+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has VISITs, same date, location.",! Line Location: OPTION2+1
Function Call: WRITE	Prompt: !,"1 Create New VISIT" Line Location: OPTION2+2
Function Call: WRITE	Prompt: !,"2 Exit without selecting VISIT" Line Location: OPTION2+3
Function Call: WRITE	Prompt: !,"3 Display one of the existing VISITs" Line Location: OPTION2+4
Function Call: WRITE	Prompt: !,"4 Merge two VISITS" Line Location: OPTION2+5
Function Call: WRITE	Prompt: !!,"Or select one of the following existing VISITs:",! Line Location: OPTION2+6
Function Call: WRITE	Prompt: !,APCDAI," TIME: ",APCDAT,"TYPE: ",$P(APCDAX,U,3)," CATEGORY: ",$P(APCDAX,U,7)," CLINIC: ",$S($P(APCDAX,U,8)]"":$E($P(^DIC(40.7,$P(APCDAX,U,8),0),U),1,10),1:"<NONE>"),?56,"DEC: ",$S($P(APCDAX,U,9):$P(APCDAX,U,9),1:0) Line Location: WRITE+3
Function Call: WRITE	Prompt: ?64,"VCN: ",$P(APCDA11,U,3) Line Location: WRITE+4
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(APCDAX,U,22),0)),U) Line Location: WRITE+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"'From' and 'To' the same. Try Again!" Line Location: MRG+7
Function Call: WRITE	Prompt: !!,"***** FROM VISIT *****" Line Location: MRG+8
Function Call: WRITE	Prompt: !!,"***** TO VISIT *****" Line Location: MRG+10
Routine Call	DIC Line Location: EDIT+19
Routine Call	DIR Line Location: OPTION2+8 DISPLAY+2 MRG+1 MRG+4 PAUSE+2

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	EDIT+10
^AUPNVSIT - [#9000010]	12+1, WRITE+1
^AUTTLOC - [#9999999.06]	EDIT+12
^DD(9000010	17+2, 18+1, 21+2, 22+2, 24+2, 25+2, 26+1
^DIC(40.7 - [#40.7]	EDIT+18, WRITE+3
^DPT - [#2]	OPTION2+1
^SC - [#44]	WRITE+5
^XUSEC("APCDZVMRG"	OPTION2+5

Name	Line Occurrences
DISPLAY	OPTION2+11
EDIT	INIT+5
OPTION2	OPTION+1
PAUSE	MRG+9
WRITE	OPTION2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	16+1, 17+2, 19+1, 21+2, 22+2, 24+2, 25+2*
>> APCDA11	WRITE+1*, WRITE+4
>> APCDAC	OPTION2+8, DISPLAY+1, DISPLAY+2, MRG+1, MRG+4
APCDADF	EDIT+1, EDIT+2!, OPTION2+8
APCDAFLG	INIT+1!, INIT+6, EDIT+6, EDIT+10, EDIT+12, EDIT+13, EDIT+14, EDIT+18, EDIT+20, EDIT+21 , 12+1, 16+1, 17+1, 17+2, 18+1, 19+1, 21+1, 21+2, 22+1, 22+2 , 24+1, 24+2, 25+1, 25+2, 26+1*
APCDAFLG("ERR"	EDIT+6, EDIT+10, EDIT+12, EDIT+13, EDIT+14, EDIT+18, EDIT+20, EDIT+21, 12+1, 16+1 , 17+1, 17+2, 18+1, 19+1, 21+1, 21+2, 22+1, 22+2, 24+1, 24+2 , 25+1, 25+2, 26+1*
>> APCDAI	OPTION2+7*, WRITE+3
>> APCDAL	INIT+2, OPTION+1
>> APCDALV(	OPTION2+7, OPTION2+13, DISPLAY+1, DISPLAY+4, MRG+3, MRG+6
>> APCDALV(4	OPTION2+5, OPTION2+12, DISPLAY+2, MRG+1, MRG+4
>> APCDALVR	INIT+2
>> APCDALVR(	INIT+2
>> APCDALVR("APCDAFLG"	INIT+1!
>> APCDALVR("APCDVSIT"	INIT+1!
>> APCDAO	OPTION+1, OPTION2+9, OPTION2+12, OPTION2+13*
>> APCDAPDT	26+1
>> APCDAPPT	16+1
APCDAT	WRITE+2*, WRITE+3, WRITE+6!
>> APCDAUTO	INIT+4*
>> APCDAX	INIT+2, OPTION2+7, WRITE+1*, WRITE+2, WRITE+3, WRITE+5
APCDCAT	EDIT+7, EDIT+8, MRG+11~
APCDCLN	EDIT+15!, EDIT+16, EDIT+17, EDIT+18, EDIT+19, EDIT+20, MRG+11~
>> APCDCODT	18+1
APCDDATE	EDIT+3, EDIT+4, MRG+11~
APCDDOB	MRG+11~
APCDDOD	MRG+11~
>> APCDEVM	17+1, 17+2
>> APCDHL	22+1, 22+2
APCDLOC	EDIT+11*, EDIT+12, MRG+11~
>> APCDLS	19+1
>> APCDOLOC	EDIT+13, EDIT+14
>> APCDOPT	24+1, 24+2
APCDPAT	EDIT+9*, EDIT+10, OPTION2+1, MRG+11~
>> APCDPROT	25+1, 25+2
>> APCDPVL	12+1
APCDSEX	MRG+11~
>> APCDTBP	EDIT+21
>> APCDTPB	EDIT+21
APCDTYPE	EDIT+5*, EDIT+6, MRG+11~
>> APCDVDSP	DISPLAY+1, DISPLAY+4, MRG+8, MRG+10
>> APCDVDSP("NO	IOF" , DISPLAY+1, DISPLAY+4, MRG+8, MRG+10
>> APCDVELG	21+1, 21+2
>> APCDVMF	MRG+3*, MRG+7, MRG+8
>> APCDVMT	MRG+6*, MRG+7, MRG+10
APCDVMX	MRG+11~
APCDVSIT	INIT+3, OPTION2+13, MRG+11~
APCDVSIT("NEW"	INIT+1!
APCDVV	MRG+11~
AUPNDAYS	MRG+11~
AUPNDOB	MRG+11~
AUPNDOD	MRG+11~
AUPNPAT	MRG+11~
AUPNSEX	MRG+11~
AUPNVSIT	MRG+11~
>> DIC	EDIT+19*
>> DIC(0	EDIT+19*
DIR	OPTION2+8!, DISPLAY+2!, MRG+1!, MRG+4!, PAUSE+2!
DIR("?"	OPTION2+8, DISPLAY+2, MRG+1, MRG+4
DIR("A"	OPTION2+8, DISPLAY+2, MRG+1, MRG+4, PAUSE+2*
DIR("B"	OPTION2+8*
DIR(0	OPTION2+8, DISPLAY+2, MRG+1, MRG+4, PAUSE+2*
>> DIRUT	OPTION2+9, DISPLAY+3, MRG+2, MRG+5, PAUSE+2*
>> DUOUT	PAUSE+2
DUZ	OPTION2+5
IO	PAUSE+1
IO(0	PAUSE+1
IOST	PAUSE+1
U	INIT+3*, 12+1, 18+1, 26+1, OPTION2+1, WRITE+3, WRITE+4, WRITE+5
>> X	EDIT+19, EDIT+21, 17+2, 18+1, 21+2, 22+2, 24+2, 25+2, 26+1*
>> Y	EDIT+19, OPTION2+10*, OPTION2+11, OPTION2+12, OPTION2+13, DISPLAY+4, MRG+3, MRG+6
>> ZTQUEUED	INIT+4

Customize PDF page

Package: Patient Care Component

Routine: APCDALV1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: