Routine: AMHPCCL

Information

AMHPCCL ; IHS/CMI/LAB - PCC LINK FROM BH 29 May 2006 4:37 PM 03 Jun 2009 3:08 PM ;

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
Mental Health Social Services	5	PAUSE^AMHLEA EN^AMHLEDEL CALLDIE^AMHLEIN VFILES^AMHPCCL1 ($$PPAFFL,$$PPINT)^AMHUTIL
Patient Care Component	5	^APCDALV ^APCDALVR (,GETVISIT)^APCDAPI4 ^APCDCVDT ^APCDVDLT
VA Fileman	4	DD^%DT ^DIE ^DIK ^DIR
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 ^XBFMK
IHS Changes To Scheduling	1	GETVISIT^BSDAPI4
IHS Patient	1	MOD^AUPNVSIT
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMB
Patient Care Component Reports	1	($$PRIMPOV,$$PRIMPROV)^APCLV

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Mental Health Social Services	3	AMHBHRU AMHGPCCL AMHLE2
Patient Chart	1	BPCBHRU

Entry Points

Name	Comments	DBIA/ICR reference
ADD1	;
BSDADD1	;
GETCLN	;determine clinic to pass
KILL	;
SELECT	; SELECT EXISTING VISIT
SETVISIT	;set up visit values
SETCLN	;
3	;APPEND
1	;add a visit
V2
V3
4	;delete visit in PCC
BSD	;
V9
E1
E2
VF	;
GETTYPE	;get type of visit - use loc current type or affiliation of provider
WRITE	; WRITE VISITS FOR SELECT
GETCLN1	;
XIT	;CLEAN UP AND EXIT
2	;EDIT A VISIT (DELETE AND ADD V FILES)
MRG	;EP
LBULL	; SEND BULLETIN - LINK FAILURE
START	;EP - ENTRY POINT BY TASKMAN
DEL	;EP

External References

Name	Field # of Occurrence
DD^%DT	LBULL+2
PAUSE^AMHLEA	ADD1+4
EN^AMHLEDEL	DEL+2
CALLDIE^AMHLEIN	VF+1, VF+2, VF+3, VF+4
VFILES^AMHPCCL1	VF+5, 2+34, 3+8
$$PPAFFL^AMHUTIL	GETTYPE+4
$$PPINT^AMHUTIL	START+3
^APCDALV	ADD1+9
^APCDALVR	2+15
^APCDAPI4	ADD1+3
GETVISIT^APCDAPI4	BSDADD1+3
^APCDCVDT	2+21
^APCDVDLT	4+13
$$PRIMPOV^APCLV	WRITE+11
$$PRIMPROV^APCLV	WRITE+9
MOD^AUPNVSIT	4+12
GETVISIT^BSDAPI4	ADD1+3
^DIE	2+8, 2+9, MRG+2, DEL+3, SETCLN+3
^DIK	2+26, 2+27, 2+28, 2+29, 2+30, 2+31, 2+32, 2+33, 3+5, 3+6 , 3+7, 4+3, 4+4, 4+5, 4+6, 4+7, 4+8, 4+9, 4+10
^DIR	SELECT+5
$$VAL^XBDIQ1	WRITE+10
$$VALI^XBDIQ1	2+14, SETVISIT+21, BSD+25
^XBFMK	XIT+4
$$FMTE^XLFDT	SELECT+1
^XMB	LBULL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PCC Visit not created, try again." Line Location: ADD1+10
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Error changing PCC Visit Date and Time...PLEASE NOTIFY SITE MANAGER",! Line Location: 2+22
Function Call: WRITE	Prompt: !,"Deleting associated PCC Visit.",! Line Location: 4+1
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT($P(AMHR0,U,8),0),U)," has one or more VISITs on ",$$FMTE^XLFDT($P(AMHR0,U)),".",!,"If one of these is your visit, please select it",! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,AMHC," Create New Visit",! Line Location: SELECT+3
Function Call: WRITE	Prompt: !,AMHC," TIME: ",AMHVLT,"LOC: ",AMHVLOC," TYPE: ",$P(AMHX,U,3)," CAT: ",$P(AMHX,U,7)," CLINIC: ",$S($P(AMHX,U,8)]"":$E($P(^DIC(40.7,$P(AMHX,U,8),0),U),1,8),1:"<NONE>") Line Location: WRITE+6
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(AMHX,U,22),0)),U) Line Location: WRITE+8
Function Call: WRITE	Prompt: !?3,"Provider on Visit: ",AMHTIU Line Location: WRITE+9
Function Call: WRITE	Prompt: !?3,"TIU Note: ",$$VAL^XBDIQ1(9000010.28,AMHTIU,.01)," AUTHOR: ",$$VAL^XBDIQ1(9000010.28,AMHTIU,1202) Line Location: WRITE+10
Function Call: WRITE	Prompt: !?3,"Primary POV: ",AMHTIU," Narrative: ",$E($$PRIMPOV^APCLV(AMHV1,"N"),1,40) Line Location: WRITE+11
Routine Call	DIE Line Location: 2+8 2+9 MRG+2 DEL+3 SETCLN+3
Routine Call	DIR Line Location: SELECT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVMSR - [#9000010.01]	Classic Fileman Calls
^AUPNVPRV - [#9000010.06]	Classic Fileman Calls
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls
^AUPNVXAM - [#9000010.13]	Classic Fileman Calls
^AUPNVPED - [#9000010.16]	Classic Fileman Calls
^AUPNVCPT - [#9000010.18]	Classic Fileman Calls
^AUPNVTM - [#9000010.19]	Classic Fileman Calls
^AUPNVHF - [#9000010.23]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	START+1, START+5, START+6, 1+1, VF+4, 2+1, 3+1, XIT+2, DEL+2
^AMHREC("AVISIT"	MRG+1, DEL+1
^AMHSITE - [#9002013]	START+3, VF+2, VF+3, SETVISIT+9, SETVISIT+13, GETTYPE+1, BSD+5, BSD+22
^AMHTSET - [#9002012.1]	SETVISIT+8, GETCLN+5, GETCLN+6, BSD+13
^APCCCTRL - [#9001000]	VF+4, GETTYPE+3, GETTYPE+5
^AUPNVCPT("AD"	2+29, 4+6
^AUPNVHF("AD"	2+31, 4+8
^AUPNVMSR("AD"	2+33, 4+10
^AUPNVNOT("AD"	WRITE+10
^AUPNVPED("AD"	2+30, 4+7
^AUPNVPOV("AD"	2+27, 3+6, 4+4
^AUPNVPRV("AD"	2+26, 3+5, 4+3
^AUPNVSIT - [#9000010]	2+8, 2+9, 2+17, 4+13, SELECT+2
^AUPNVTM("AD"	2+28, 3+7, 4+5
^AUPNVXAM("AD"	2+32, 4+9
^AUTTLOC - [#9999999.06]	WRITE+4
^DIC(19 - [#19]	BSD+20
^DIC(40.7 - [#40.7]	GETCLN+5, GETCLN+6, GETCLN1+3, GETCLN1+4, WRITE+6
^DPT - [#2]	LBULL+2, SELECT+1
^SC - [#44]	WRITE+8

Label References

Name	Line Occurrences
1	2+7, 2+8, 2+9, 3+3
@(	START+7, ADD1+11
ADD1	ADD1+10
BSD	ADD1+4
BSDADD1	SELECT+6, SELECT+7
GETCLN	SETVISIT+15, BSD+14
GETCLN1	GETCLN+4
GETTYPE	SETVISIT+4, BSD+8
KILL	SETVISIT+1, XIT+1, BSD+4
LBULL	V2, V3, V9, E1, E2
SETCLN	BSDADD1+6
SETVISIT	ADD1+8, 2+10
V9	2+16
VF	ADD1+2, ADD1+6
WRITE	SELECT+2
XIT	START+8

Naked Globals

Name	Field # of Occurrence
^(0	GETTYPE+1, WRITE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHA	XIT+3!, SELECT+2*
AMHACTN	START+6, START+7, XIT+3!
>> AMHBL	START+4, ADD1+4, ADD1+5, ADD1+10
AMHBN	ADD1+11, 2+16, XIT+3!, LBULL+2, LBULL+3!
>> AMHC	SELECT+2, SELECT+3, SELECT+5, SELECT+7, WRITE+1*, WRITE+6
AMHCOM	XIT+3!
AMHDUZ	XIT+3!
>> AMHERR	ADD1+1, ADD1+4, BSDADD1+4, BSDADD1+5
AMHERROR	XIT+3!, V2, V3, V9, E1, E2*, LBULL+2, LBULL+3!
AMHGOT	XIT+3!
>> AMHGUIV	ADD1+2
AMHHOLDC	XIT+3!, BSD+3!, BSD+15*, SELECT+6, SELECT+7, SETCLN+2
AMHIN	BSD+3!, BSDADD1+3, SELECT+9!
AMHIN("APCDAPPT"	BSD+17*
AMHIN("APCDCAF"	BSD+22*
AMHIN("APCDEVM"	BSD+19*
AMHIN("APCDOLOC"	BSD+18*
AMHIN("APCDOPT"	BSD+20*
AMHIN("CLINIC	CODE" , SELECT+6, SELECT+7
AMHIN("FORCE	ADD" , BSD+5, BSD+6, SELECT+6, SELECT+7
AMHIN("HOS LO	C" , BSD+25*
AMHIN("PAT"	BSD+10*
AMHIN("SITE"	BSD+11*
AMHIN("SRV CA	T" , BSD+13*
AMHIN("TIME R	ANGE" , BSD+23*
AMHIN("USR"	BSD+24*
AMHIN("VISIT	DATE" , BSD+7, TYPE" , BSD+9
AMHLOOK	XIT+3!
AMHP	XIT+3!
>> AMHR	START+1, START+3, START+5, START+6, 1+1, VF+1, VF+4, 2+1, 2+8, 2+9 , 2+14, 3+1, SETVISIT+21, GETTYPE+4, XIT+2, LBULL+2, BSD+25
AMHR0	START+6*, 2+6, 2+17, 2+19, 3+2, SETVISIT+3, SETVISIT+5, SETVISIT+6, SETVISIT+8, SETVISIT+18 , SETVISIT+19, SETVISIT+20, GETCLN+3, GETCLN1+1, GETCLN1+3, GETTYPE+3, XIT+3!, LBULL+2, BSD+7, BSD+10 , BSD+11, BSD+13, BSD+17, BSD+18, BSD+19, SELECT+1
>> AMHRDEL	DEL+2*
AMHRES	XIT+3!
AMHTIU	WRITE+9, WRITE+10, WRITE+11*, WRITE+12!
AMHV	BSDADD1+2!, BSDADD1+3
AMHV(	BSDADD1+6, SELECT+2
AMHV(0	BSDADD1+4, BSDADD1+6
AMHV1	SELECT+2!*, WRITE+1, WRITE+9, WRITE+10, WRITE+11
>> AMHVDLT	4+2, 4+3, 4+4, 4+5, 4+6, 4+7, 4+8, 4+9, 4+10, 4+12 , 4+13
AMHVFILE	XIT+3!, E2, LBULL+2, LBULL+3!
AMHVISIT	XIT+3!
AMHVLOC	WRITE+3, WRITE+4, WRITE+5*, WRITE+6, WRITE+12!
AMHVLT	WRITE+2*, WRITE+6, WRITE+12!
AMHVSIT	ADD1+2, ADD1+5, ADD1+12, VF+1, VF+2, VF+3, VF+4, 2+6, 2+7, 2+8 , 2+9, 2+12, 2+17, 2+18, 2+26, 2+27, 2+28, 2+29, 2+30, 2+31 , 2+32, 2+33, 3+2, 3+3, 3+5, 3+6, 3+7, XIT+3!, V9, BSDADD1+6* , SELECT+8*, SETCLN+2
AMHX	2+26, 2+27, 2+28, 2+29, 2+30, 2+31, 2+32, 2+33, 3+5, 3+6 , 3+7, 4+3, 4+4, 4+5, 4+6, 4+7, 4+8, 4+9, 4+10, XIT+3! , SELECT+2, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> AMHX1(	SELECT+8, WRITE+1*
>> AMHX11	SELECT+2*, WRITE+7
APCDAFLG	KILL+1!
APCDALVR	KILL+1!, XIT+3!, BSDADD1+1!, SELECT+9!
APCDALVR("APCDADD"	SETVISIT+13, SETVISIT+14
APCDALVR("APCDAFLG"	ADD1+10, ADD1+11, 2+16
APCDALVR("APCDANE"	SETVISIT+11*
APCDALVR("APCDAPPT"	SETVISIT+18*
APCDALVR("APCDATMP"	2+11*
APCDALVR("APCDAUTO"	SETVISIT+9, SETVISIT+10
APCDALVR("APCDCAT"	SETVISIT+8*, SETVISIT+16
APCDALVR("APCDCLN"	SETVISIT+16, SETVISIT+17, GETCLN+1, GETCLN+5, GETCLN+6, GETCLN1+1, GETCLN1+2, GETCLN1+3, GETCLN1+4, BSD+15
APCDALVR("APCDDATE"	SETVISIT+3*
APCDALVR("APCDEVM"	SETVISIT+20*
APCDALVR("APCDHL"	2+14, SETVISIT+21
APCDALVR("APCDLOC"	2+13, SETVISIT+6
APCDALVR("APCDOLOC"	SETVISIT+19*
APCDALVR("APCDPAT"	SETVISIT+5*
APCDALVR("APCDTYPE"	GETTYPE+1, GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+6*, BSD+9
APCDALVR("APCDVSIT"	ADD1+12, 2+12*
APCDALVR("AUPNTALK"	SETVISIT+2*
APCDANE	KILL+1!
APCDAPPT	KILL+1!
APCDATMP	KILL+1!
APCDAUTO	KILL+1!
APCDCAT	KILL+1!
APCDCLN	KILL+1!
APCDCVDT	2+23!
APCDCVDT("ERR	OR FLAG" , 2+22
APCDCVDT("TALK"	2+20*
APCDCVDT("VIS	IT DATE/TIME" , 2+19, IT DFN" , 2+18
APCDLOC	KILL+1!
APCDOLOC	KILL+1!
APCDPAT	KILL+1!
APCDTAT	KILL+1!
APCDTLOU	KILL+1!
APCDTNQ	KILL+1!
APCDTPOV	KILL+1!
APCDTPRO	KILL+1!
APCDTPRV	KILL+1!
APCDTPS	KILL+1!
APCDTTOP	KILL+1!
APCDTYPE	KILL+1!
APCDVDLT	4+2, 4+13, XIT+3!, DEL+1
>> APCDVMF	MRG+1
>> APCDVMT	MRG+2
AUPNTALK	KILL+1!
AUPNVSIT	4+12*!
>> C4	GETCLN1+3
DA	VF+1!, VF+2!, VF+3!, VF+4!, 2+8!, 2+9!, 2+26!, 2+27!, 2+28!, 2+29! , 2+30!, 2+31!, 2+32!, 2+33!, 3+5!, 3+6!, 3+7!, 4+3!, 4+4!, 4+5! , 4+6!, 4+7!, 4+8!, 4+9!, 4+10!, XIT+3!, SELECT+5!, MRG+1, MRG+2!, DEL+1* , DEL+2, DEL+3!, SETCLN+1~, SETCLN+2*
DIE	VF+1!, VF+2!, VF+3!, VF+4!, 2+8!, 2+9!, XIT+3!, MRG+2!, DEL+3!, SETCLN+1~ , SETCLN+2*
DIK	2+26!, 2+27!, 2+28!, 2+29!, 2+30!, 2+31!, 2+32!, 2+33!, 3+5!, 3+6! , 3+7!, 4+3!, 4+4!, 4+5!, 4+6!, 4+7!, 4+8!, 4+9!, 4+10*!
DIR	SELECT+4!, SELECT+5!
DIR("A"	SELECT+5*
DIR(0	SELECT+5*
>> DIRUT	SELECT+6
DIU	2+8!, 2+9!, XIT+3!
DIV	2+8!, 2+9!, XIT+3!
DIW	2+8!, 2+9!, XIT+3!
DR	VF+1!, VF+2!, VF+3!, VF+4!, 2+8!, 2+9!, 2+26!, 2+27!, 2+28!, 2+29! , 2+30!, 2+31!, 2+32!, 2+33!, 3+5!, 3+6!, 3+7!, 4+3!, 4+4!, 4+5! , 4+6!, 4+7!, 4+8!, 4+9!, 4+10!, XIT+3!, MRG+2!, DEL+3, SETCLN+1~, SETCLN+2*
DUZ	BSD+24
DUZ(2	START+3, VF+2, VF+3, VF+4, SETVISIT+9, SETVISIT+13, GETTYPE+1, GETTYPE+5, BSD+5, BSD+22
P	START+2~, START+3*
U	START+1, START+3, VF+2, VF+3, VF+4, 2+6, 2+9, 2+17, 2+19, 3+2 , SETVISIT+3, SETVISIT+5, SETVISIT+6, SETVISIT+8, SETVISIT+9, SETVISIT+13, SETVISIT+18, SETVISIT+19, SETVISIT+20, GETCLN+3 , GETCLN+5, GETCLN+6, GETCLN1+1, GETCLN1+3, 4+13, GETTYPE+1, GETTYPE+3, GETTYPE+5, LBULL+2, BSD+5 , BSD+7, BSD+10, BSD+11, BSD+13, BSD+17, BSD+18, BSD+19, BSD+20, BSD+22, BSDADD1+4 , BSDADD1+6, SELECT+1, WRITE+4, WRITE+6, WRITE+7, WRITE+8, DEL+2
>> V	BSDADD1+6*
X	START+2~, START+3, GETCLN+2~, GETCLN+3, GETCLN+4, GETCLN+5, GETCLN+6, GETTYPE+3, GETTYPE+4, GETTYPE+5* , XIT+3!
XMB	LBULL+1!, LBULL+2*, LBULL+3!
XMB(1	LBULL+2*
XMB(2	LBULL+2*
XMB(3	LBULL+2*
XMB(4	LBULL+2*
XMB(5	LBULL+2*
>> XQY0	BSD+20
Y	XIT+3!, LBULL+2*, SELECT+7, SELECT+8
>> ZTQUEUED	START+4, SETVISIT+10, SETVISIT+14, BSD+6

Marked Items

Name	Field # of Occurrence
$T(GETVISIT^BSDAPI4	ADD1+3
$T(^APCDAPI4	ADD1+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHPCCL

Information

Source Information

Call Graph

Call Graph Total: 21

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