Routine: APCDKULD

Information

APCDKULD ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ; 28 Jul 2017 10:40 AM

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	6	^DIC DD^DIK 1^DIK1 EN^DIQ EN^DIQ1 ^DIR
IHS Patient	2	KILL^AUPNPAT MOD^AUPNVSIT
Patient Care Component	2	^APCDVDSP ^APCDVLK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component	1	APCDCAF1

Entry Points

Name	Comments	DBIA/ICR reference
MENU	;;
WRITE	;
GETTO	;EP
SURE	;
DSPLY3	;
DIK	;
PROCESS	; PROCESS ONE V FILE
EOJ	;
DSPLY41	;
GETFROM	;EP
GETPAT	; GET PATIENT
EP1	;EP
GETVFILE	;
START	;EP
ORDPROV	;
PROCESS2	; PROCESS ONE V FILE ENTRY
ASK	;ask for each v file
DSPLY4	;
UNLINK	;
DSPLY	;

External References

Name	Field # of Occurrence
^APCDVDSP	GETFROM+8, GETTO+8, UNLINK+11
^APCDVLK	GETFROM+5, GETTO+5
KILL^AUPNPAT	EOJ+3
MOD^AUPNVSIT	UNLINK+9, UNLINK+10
^DIC	GETPAT+3
DD^DIK	DIK+2, DIK+4
1^DIK1	DIK+2, DIK+4
EN^DIQ	PROCESS2+5
EN^DIQ1	DSPLY3+4
^DIR	GETVFILE+6, SURE+6, ORDPROV+2, ORDPROV+6, ASK+3, PROCESS2+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"No patient selected." Line Location: START+3
Function Call: WRITE	Prompt: !,$C(7),"No from visit selected." Line Location: START+5
Function Call: WRITE	Prompt: !,$C(7),"No TO visit selected." Line Location: START+8
Function Call: WRITE	Prompt: !,$C(7),"From and To visits are the same!",! Line Location: START+9
Function Call: WRITE	Prompt: !,$C(7),"No V Files selected." Line Location: EP1+2
Function Call: WRITE	Prompt: !!,$C(7),"BYE" Line Location: EP1+4
Function Call: WRITE	Prompt: !,"Bye" Line Location: EP1+7
Function Call: WRITE	Prompt: !,"Bye" Line Location: EP1+9
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!,"Enter the visit that the ITEMS WILL BE REMOVED FROM",! Line Location: GETFROM+1
Function Call: WRITE	Prompt: !!,"Enter the visit that the ITEMS WILL BE APPENDED TO",! Line Location: GETTO+1
Function Call: WRITE	Prompt: !! Line Location: GETVFILE+1
Function Call: WRITE	Prompt: !?10,APCDJ,") ",APCDX Line Location: GETVFILE+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"There are NO ",$P(APCDVFIL,";;",1)," to REPOINT!!",!! Line Location: SURE+2
Function Call: WRITE	Prompt: !!,"I will move the following from the FROM visit to the TO visit" Line Location: SURE+3
Function Call: WRITE	Prompt: !!,"==============",$J("",APCDZ),$P(APCDVNM,"V ",2)_"'s",$J("",APCDY),"==============" Line Location: DSPLY3+1
Function Call: WRITE	Prompt: ! Line Location: DSPLY3+2
Function Call: WRITE	Prompt: ! Line Location: DSPLY4+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>39 Line Location: DSPLY41+1
Function Call: WRITE	Prompt: ! Condition for execution: (APCDT+$L(APCDX))>79 Line Location: DSPLY41+1
Function Call: WRITE	Prompt: ?APCDT,APCDX Line Location: DSPLY41+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>39 Line Location: WRITE+2
Function Call: WRITE	Prompt: ! Condition for execution: (APCDT+$L(APCDX))>79 Line Location: WRITE+2
Function Call: WRITE	Prompt: ?APCDT,APCDH,": ",@APCDRVON,APCDV,@APCDRVOF Line Location: WRITE+2
Function Call: WRITE	Prompt: !!,"*********",! Line Location: PROCESS2+4
Function Call: WRITE	Prompt: ! Line Location: PROCESS2+6
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: GETVFILE+6 SURE+6 ORDPROV+2 ORDPROV+6 ASK+3 PROCESS2+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	UNLINK+5, UNLINK+6, UNLINK+7
^DD(	DSPLY4+2
^DIC - [#1]	SURE+1, PROCESS+2
^UTILITY("DIQ1"	DSPLY3+3!, DSPLY4+2, PROCESS2+5!

Label References

Name	Line Occurrences
ASK	EP1+8
DIK	PROCESS2+3
DSPLY	SURE+4
DSPLY3	DSPLY+2
DSPLY4	DSPLY3+5
DSPLY41	DSPLY4+2
EOJ	START+3, START+5, START+8, START+9, EP1+2, EP1+4, EP1+7, EP1+9, EP1+11
GETFROM	START+4
GETPAT	START+2
GETTO	START+7
GETVFILE	EP1+1
ORDPROV	EP1+5
PROCESS	UNLINK+8
PROCESS2	PROCESS+5
SURE	EP1+3
UNLINK	EP1+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+1!
A	EOJ+1!
APCDASK	EOJ+2!, ASK+2, ASK+5, PROCESS2+3
APCDCAT	EOJ+2!
APCDCLN	EOJ+2!
APCDDATE	EOJ+2!
>> APCDH	WRITE+2
APCDJ	EOJ+2!, GETVFILE+3!, GETVFILE+4*, GETVFILE+5!
APCDLOC	EOJ+2!
APCDLOOK	GETFROM+4, GETFROM+6, GETFROM+7!, GETTO+4, GETTO+6, GETTO+7!
>> APCDOP	ORDPROV+1, ORDPROV+9, PROCESS2+2
APCDPAT	START+3, EOJ+2!, GETPAT+2, GETPAT+5
APCDQUIT	EP1+4, EP1+7, EP1+9, EOJ+2!, SURE+2, SURE+5!, SURE+7, ORDPROV+3, ORDPROV+7, ORDPROV+8* , ASK+1!, ASK+4*
>> APCDRVOF	WRITE+2
>> APCDRVON	WRITE+2
APCDT	DSPLY4+3!, DSPLY41+1, WRITE+2, WRITE+3!
APCDTEXT	EOJ+2!, GETVFILE+3!, GETVFILE+5!
APCDTYPE	EOJ+2!
>> APCDV	WRITE+1*, WRITE+2
>> APCDVDFN	DSPLY+1, DSPLY+2, DSPLY3+4, DSPLY4+2
>> APCDVDG	DSPLY+1*, DSPLY3+4, PROCESS2+5
>> APCDVDSP	GETFROM+8, GETTO+8, UNLINK+11*
APCDVFIL	EP1+2, EP1+5, EOJ+2!, GETVFILE+2!, GETVFILE+9*, SURE+1, SURE+2, UNLINK+8, DSPLY+1
>> APCDVFLE	ORDPROV+6, DSPLY+1*, DSPLY4+2
>> APCDVI	DSPLY+2*, DSPLY3+1, DSPLY3+2
>> APCDVIGR	DSPLY+1*, DSPLY+2
APCDVLDT	EOJ+2!
APCDVLK	GETFROM+3!, GETTO+3!
APCDVMF	START+5, START+9, EOJ+2!, GETFROM+2, GETFROM+6, GETFROM+8, SURE+2, UNLINK+3, UNLINK+4, UNLINK+5 , UNLINK+7, UNLINK+10, PROCESS+3, PROCESS+5
APCDVMFL	UNLINK+8*, UNLINK+12!, PROCESS+2, PROCESS+4
APCDVMG	EOJ+2!, SURE+1, SURE+2, UNLINK+12!, PROCESS+2, PROCESS+3, PROCESS+5, PROCESS2+1, DIK+2, DIK+3* , DIK+4
APCDVML	UNLINK+12!, PROCESS+5*
APCDVMN	UNLINK+12!, PROCESS+5*, PROCESS2+1, PROCESS2+5, DIK+2, DIK+3, DIK+4
APCDVMQF	UNLINK+1!, UNLINK+3, UNLINK+4, UNLINK+5, UNLINK+6, UNLINK+7*
APCDVMT	START+8, START+9, EOJ+2!, GETTO+2, GETTO+6, GETTO+8, UNLINK+3, UNLINK+4, UNLINK+6, UNLINK+7 , UNLINK+9, UNLINK+11, DIK+3
APCDVMUX	UNLINK+12!, PROCESS+1*
APCDVMX	UNLINK+12!
>> APCDVNM	DSPLY+1*, DSPLY3+1
APCDVSIT	EOJ+2!
APCDX	GETVFILE+3!, GETVFILE+4, GETVFILE+5!, DSPLY3+1, DSPLY4+2, DSPLY4+3!, DSPLY41+1, WRITE+2, WRITE+3!
APCDY	DSPLY3+1, DSPLY4+2, DSPLY4+3!
APCDZ	EOJ+2!, DSPLY3+1*
AUPNDAYS	EOJ+4!
AUPNDOB	EOJ+4!
AUPNDOD	EOJ+4!
AUPNPAT	EOJ+4!
AUPNSEX	EOJ+4!
AUPNVSIT	EOJ+4!, UNLINK+9, UNLINK+10
B	EOJ+1!
>> D0	DSPLY3+4, PROCESS2+5
DA	EOJ+1!, ORDPROV+2!, ORDPROV+6!, ASK+3!, DSPLY3+4, PROCESS2+5, PROCESS2+7!, DIK+2!, DIK+4!
DIC	EOJ+1!, GETPAT+3!, DSPLY3+4, PROCESS2+5*
DIC(0	GETPAT+3*
DIE	EOJ+1!
DIK	DIK+2!, DIK+4!
DIR	GETVFILE+6!, SURE+6!, ORDPROV+2!, ORDPROV+6!, ASK+3!, PROCESS2+7!
DIR("A"	GETVFILE+6, SURE+6, ORDPROV+2, ORDPROV+6, ASK+3, PROCESS2+7
DIR("B"	GETVFILE+6, SURE+6, ORDPROV+2, ASK+3, PROCESS2+7*
DIR(0	GETVFILE+6, SURE+6, ORDPROV+2, ORDPROV+6, ASK+3, PROCESS2+7
>> DIRUT	GETVFILE+6, GETVFILE+7, SURE+6, SURE+7, ORDPROV+3, ORDPROV+7, ASK+4, PROCESS2+8
DIU	EOJ+1!
DIV	EOJ+1!
DIW	EOJ+1!
DIY	EOJ+1!
DR	EOJ+1!, DSPLY3+4, PROCESS2+5
>> DUOUT	GETVFILE+6, SURE+6
U	UNLINK+2*, UNLINK+7, DSPLY4+2, PROCESS2+2, DIK+3
X	EOJ+1!, PROCESS2+1~, PROCESS2+2, DIK+2, DIK+4*
Y	EOJ+1!, GETPAT+4, GETPAT+5, GETVFILE+8, SURE+7, ORDPROV+4, ORDPROV+8, ORDPROV+9, ASK+5, PROCESS2+9
Z	EOJ+1!
>> ZTQUEUED	PROCESS+4, DIK+1

Marked Items

Name	Field # of Occurrence
$T(MENU+APCDJ	GETVFILE+4
$T(MENU+Y	GETVFILE+9

Customize PDF page

Package: Patient Care Component

Routine: APCDKULD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items