Routine: AMHLEDV

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Mental Health Social Services	7	^AMHDVD EN^AMHEKL (PCCLINK,RECCHECK)^AMHLE2 (DEL,OTHER,PAUSE)^AMHLEA GATHER^AMHLEDV1 (,CALLDIE)^AMHLEIN ($$ALLOWP,$$ALLOWVI,$$PPINT,NALLOWP)^AMHUTIL
VA Fileman	6	^DDS ^DIC (FILE,YN)^DICN ^DIE IX1^DIK ^DIR
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Mental Health Social Services	2	AMHLEP1 AMHUTIL

Package

Total

Caller Graph

Mental Health Social Services

AMHLEP1 AMHUTIL

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
HELP	;EP -- help code
BACK	;
EXPND	; -- expand code
PAUSE	;EP
POVS	;
GETPAT1
NEWDATE	;get new date
DISPLAY	;EP-DISPLAY AN ACTIVITY RECORD
SELECT	;select record, get new date, confirm, duplicate
HDR	;EP -- header code
CREATE	;
GETVISIT	;
INIT	;EP -- init variables and list array
LBLK(V,L)	;left blank fill
GETDATE	;EP
DUPLICAT	;
EN	; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
GETPAT	;EP
PROVS	;
XIT	;kill variables and quit
RBLK(V,L)	;EP - right blank fill
GETPROV	;
START	;
EP1	;EP
GETHRN	;
EXIT	; -- exit code
SM	;

External References

Name	Field # of Occurrence
^AMHDVD	DISP+2
EN^AMHEKL	XIT+2
PCCLINK^AMHLE2	SM+7
RECCHECK^AMHLE2	SM+4
DEL^AMHLEA	SM+4
OTHER^AMHLEA	SM+6
PAUSE^AMHLEA	GETPAT1+5
GATHER^AMHLEDV1	INIT+2, BACK+3
^AMHLEIN	START+4, EP1+4
CALLDIE^AMHLEIN	CREATE+7
$$ALLOWP^AMHUTIL	GETPAT1+5
$$ALLOWVI^AMHUTIL	GETVISIT+6
$$PPINT^AMHUTIL	GETVISIT+7
NALLOWP^AMHUTIL	GETPAT1+5
^DDS	SM+1
^DIC	GETPAT1+2, GETPROV+1
FILE^DICN	CREATE+2, POVS+2, PROVS+2
YN^DICN	GETPAT1+7
^DIE	CREATE+6
IX1^DIK	CREATE+10
^DIR	GETDATE+2, PAUSE+1, NEWDATE+2
EN^VALM	EN+2
TERM^VALM0	BACK+2
CLEAR^VALM1	EN+3, XIT+1
FULL^VALM1	START+2, SELECT+6, NEWDATE+1, DISPLAY+6, EP1+2
EN^VALM2	SELECT+1, DISPLAY+1
^XBFMK	GETPAT+1
$$FMTE^XLFDT	GETPAT1+6, DUPLICAT+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option has been disabled." Line Location: START+1
Function Call: WRITE	Prompt: !!,"This option is used to duplicate a patient visit that occurred on a different",!,"day. The user selects a visit, enters a new date, and then the visit",!,"is copied to the new date.",!! Line Location: START+6
Function Call: WRITE	Prompt: !,"You must first identify the patient and the visit to duplicate.",! Line Location: START+7
Function Call: WRITE	Prompt: !!!?20,"TYPE THE PATIENT'S HRN, NAME, SSN OR DOB" Line Location: GETPAT1+0
Function Call: WRITE	Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!! Line Location: GETPAT1+6
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Patient has no visits to duplicate" Line Location: GETVISIT+1
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Patient has no visits to meeting your criteria to duplicate.",! Line Location: GETVISIT+10
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"No records selected." Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"Not a valid BH RECORD." Line Location: SELECT+5
Function Call: WRITE	Prompt: !,"The following visit will be duplicated:",! Line Location: SELECT+7
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-"),! Line Location: SELECT+8
Function Call: WRITE	Prompt: ^TMP("AMHPATV",$J,$O(VALMY(0)),0),!!! Line Location: SELECT+8
Function Call: WRITE	Prompt: !,$C(7),$C(7),"New date not entered" Line Location: NEWDATE+3
Function Call: WRITE	Prompt: !,"Duplicating visit to ",$$FMTE^XLFDT(AMHNEWD)," HOLD ON..." Line Location: DUPLICAT+1
Function Call: WRITE	Prompt: !,"Creating new record..." Line Location: CREATE+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",! Line Location: CREATE+3
Function Call: WRITE	Prompt: !!,"Creating pov FAILED!" Line Location: POVS+3
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: SM+2
Function Call: WRITE	Prompt: !!,"Incomplete record!! Deleting record!!" Line Location: SM+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!! Line Location: SM+5
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Not a valid BH RECORD." Line Location: DISPLAY+5
Function Call: WRITE	Prompt: "No patient defined." Line Location: EP1+1
Function Call: WRITE	Prompt: !!,"This option is used to duplicate a patient visit that occurred on a different",!,"day. The user selects a visit, enters a new date, and then the visit",!,"is copied to the new date.",!! Line Location: EP1+6
Function Call: WRITE	Prompt: !,"You must first identify the patient and the visit to duplicate.",! Line Location: EP1+7
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: CREATE+6
Routine Call	DDS Line Location: SM+1
Routine Call	DIC Line Location: GETPAT1+2 GETPROV+1
Routine Call	DIR Line Location: GETDATE+2 PAUSE+1 NEWDATE+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AMHREC - [#9002011]	Classic Fileman Calls
^AMHRPRO - [#9002011.01]	Classic Fileman Calls
^AMHRPROV - [#9002011.02]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	GETVISIT+5, SELECT+5, DUPLICAT+2, CREATE+9*, SM+1, DISPLAY+5
^AMHREC("C"	GETVISIT+1, GETVISIT+4
^AMHRPRO - [#9002011.01]	POVS+2
^AMHRPRO("AD"	POVS+1
^AMHRPROV - [#9002011.02]	PROVS+2
^AMHRPROV("AD"	PROVS+1
^AUPNPAT - [#9000001]	GETHRN+3, GETHRN+4
^AUTTLOC - [#9999999.06]	GETHRN+3, GETHRN+4
^DPT - [#2]	HDR+3
^TMP("AMHPATV"	EXIT+1!, XIT+3!, SELECT+4, SELECT+8, DISPLAY+4
^VA(200 - [#200]	HDR+4

Label References

Name	Line Occurrences
BACK	NEWDATE+3
EXIT	SM+4
GETDATE	GETPAT+3, GETPROV+2, EP1+8
GETHRN	HDR+2
GETPAT1	GETPAT1+5
HDR	BACK+5
PAUSE	GETVISIT+1, GETVISIT+10, SELECT+4, SELECT+5, CREATE+3, DISPLAY+4, DISPLAY+5
XIT	GETPAT1+3, GETDATE+3, GETVISIT+1, GETVISIT+10, SELECT+2, SELECT+3, SELECT+4, SELECT+5, SM+8, DISPLAY+2 , DISPLAY+3, DISPLAY+4, DISPLAY+5, DISP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETPAT1+7, RBLK+1~, RBLK+2, LBLK+1~, LBLK+2*
>> AMHACTN	DUPLICAT+4*
AMHC	GETPAT+2*, GETPAT1+7!, XIT+4!
AMHDATE	GETDATE+1, GETDATE+4, GETVISIT+5, XIT+4!, SM+1*, DISP+1~
>> AMHERROR	SM+5
AMHHRN	HDR+3, HDR+6!, GETHRN+1, GETHRN+3, GETHRN+4, GETHRN+5, GETHRN+6*
AMHNEWD	XIT+4!, SELECT+9, NEWDATE+4, DUPLICAT+1, CREATE+1, BACK+6!
>> AMHOKAY	SM+4*
AMHPAT	GETPAT+3, GETPAT1+1, GETPAT1+4, GETPAT1+5, GETPAT1+7*, GETVISIT+1, GETVISIT+4, HDR+3, XIT+4!, GETHRN+2 , GETHRN+3, GETHRN+4, CREATE+7, POVS+2, PROVS+2, DISP+1~, EP1+1
AMHPATV	GETVISIT+3!, GETVISIT+10, XIT+4!
AMHPATV(	GETVISIT+8*
AMHPROV	GETPROV+3*, GETVISIT+7, HDR+4, XIT+4!, DISP+1~
>> AMHPTYPE	DUPLICAT+2*
>> AMHQUIT	DUPLICAT+4, SM+2
AMHR	CREATE+5, CREATE+6, CREATE+7, CREATE+9, CREATE+10, POVS+2, PROVS+2, SM+1, DISPLAY+3!, DISPLAY+4*! , DISPLAY+5!
AMHR1	XIT+4!, SELECT+3!, SELECT+4!, SELECT+5!, DUPLICAT+2, CREATE+9, POVS+1, PROVS+1
AMHRCNT	INIT+3, EXIT+1!, BACK+4
AMHRDEL	SELECT+4!, SELECT+5!, DISPLAY+4!, DISPLAY+5!
AMHX	GETVISIT+4, GETVISIT+5, GETVISIT+6, GETVISIT+7, GETVISIT+8, XIT+4!, POVS+1, POVS+2, PROVS+1*, PROVS+2
>> APCDOVRR	DUPLICAT+3*
>> AUPNDOD	GETPAT1+6
D0	CREATE+1!, CREATE+2!, POVS+2!, PROVS+2!
DA	GETPAT1+2!, GETDATE+2!, GETPROV+1!, NEWDATE+2!, CREATE+1!, CREATE+6!, CREATE+7, CREATE+10, POVS+2!, PROVS+2! , SM+1
DD	CREATE+1!, POVS+2!, PROVS+2!
>> DDSFILE	SM+1*
DIADD	GETPAT1+2!, CREATE+1, CREATE+2!, POVS+2!, PROVS+2*!
DIC	GETPAT1+2!, GETPROV+1!, CREATE+1!, CREATE+2!, POVS+2!, PROVS+2*!
DIC("A"	GETPAT1, GETPROV+1
DIC("DR"	CREATE+1, POVS+2, PROVS+2*
DIC(0	GETPAT1+2, GETPROV+1, CREATE+1, POVS+2, PROVS+2*
DIE	CREATE+2!, CREATE+6!, CREATE+7
>> DIK	CREATE+10*
DIMSG	SM+2!
DINUM	CREATE+1!
DIR	GETDATE+2!, PAUSE+1!, NEWDATE+2!
DIR("A"	GETDATE+2, PAUSE+1, NEWDATE+2*
DIR(0	GETDATE+2, PAUSE+1, NEWDATE+2*
>> DIRUT	PAUSE+1*, NEWDATE+3
DLAYGO	GETPAT1+2!, CREATE+1, CREATE+2!, POVS+2!, PROVS+2*!
DO	CREATE+1!, POVS+2!, PROVS+2!
DR	GETPAT1+2!, CREATE+1!, CREATE+2!, CREATE+6!, CREATE+7, POVS+2!, PROVS+2!, SM+1*
DR(2	CREATE+6*
>> DUOUT	GETDATE+3, PAUSE+1
DUZ	GETPAT1+5, GETVISIT+6, CREATE+1
DUZ(2	GETHRN+4
I	RBLK+1~, RBLK+2, LBLK+1~, LBLK+2
IOF	START+5, NEWDATE+1, EP1+5
L	RBLK~, RBLK+2, LBLK~, LBLK+2
U	GETVISIT+5, HDR+3, HDR+4, GETHRN+3, GETHRN+4, DUPLICAT+2, CREATE+9, POVS+2, PROVS+2, SM+1
V	RBLK~, RBLK+2, RBLK+3, LBLK~, LBLK+2, LBLK+3
>> VALMBCK	BACK+1*
VALMCC	EN+1*, EXIT+2!
>> VALMCNT	INIT+3, BACK+4
VALMHDR	EXIT+2!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+3*
VALMHDR(3	HDR+4*
VALMHDR(4	HDR+5*
VALMHDR(5	HDR+7*
>> VALMSG	INIT+1*
VALMY	SELECT+2, SELECT+3!, DISPLAY+2, DISPLAY+3!
VALMY(0	SELECT+3, SELECT+8, DISPLAY+3
X	HELP+1, CREATE+1, CREATE+2!, CREATE+9, POVS+2, PROVS+2*
XQORNOD	SELECT+3!, DISPLAY+3!
XQORNOD(0	SELECT+1, DISPLAY+1
>> Y	GETPAT1+3, GETPAT1+4, GETDATE+4, GETPROV+2, GETPROV+3, NEWDATE+4, CREATE+3, CREATE+5, POVS+3
>> Z	RBLK+2, LBLK+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLEDV

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: